You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
39 lines
1.3 KiB
39 lines
1.3 KiB
3 months ago
|
diff -up Devel-StackTrace-2.05/t/01-basic.t.orig Devel-StackTrace-2.05/t/01-basic.t
|
||
|
|
--- Devel-StackTrace-2.05/t/01-basic.t.orig 2024-07-23 14:28:23.297737233 +0200
|
||
|
|
+++ Devel-StackTrace-2.05/t/01-basic.t 2024-07-23 14:31:14.792422763 +0200
|
||
|
|
@@ -58,7 +58,7 @@ my $test_file_name = get_file_name();
|
||
|
|
Trace begun at $test_file_name line 1009
|
||
|
|
main::baz(1, 2) called at $test_file_name line 1005
|
||
|
|
main::bar(1) called at $test_file_name line 1001
|
||
|
|
-main::foo at $test_file_name line 13
|
||
|
|
+main::foo at $test_file_name line 14
|
||
|
|
EOF
|
||
|
|
|
||
|
|
is( $trace->as_string, $trace_text, 'trace text' );
|
||
|
|
@@ -100,7 +100,7 @@ EOF
|
||
|
|
|
||
|
|
my $trace_text = <<"EOF";
|
||
|
|
Trace begun at $test_file_name line 1009
|
||
|
|
-main::baz at $test_file_name line 99
|
||
|
|
+main::baz at $test_file_name line 100
|
||
|
|
EOF
|
||
|
|
|
||
|
|
my $t = "$trace";
|
||
|
|
@@ -308,14 +308,14 @@ if ( $Exception::Class::VERSION && $Exce
|
||
|
|
|
||
|
|
my $trace_text = <<"EOF";
|
||
|
|
Trace begun at $test_file_name line 1021
|
||
|
|
-main::max_arg_length('abcdefghij...') called at $test_file_name line 307
|
||
|
|
+main::max_arg_length('abcdefghij...') called at $test_file_name line 308
|
||
|
|
EOF
|
||
|
|
|
||
|
|
is( $trace->as_string, $trace_text, 'trace text' );
|
||
|
|
|
||
|
|
my $trace_text_1 = <<"EOF";
|
||
|
|
Trace begun at $test_file_name line 1021
|
||
|
|
-main::max_arg_length('abc...') called at $test_file_name line 307
|
||
|
|
+main::max_arg_length('abc...') called at $test_file_name line 308
|
||
|
|
EOF
|
||
|
|
|
||
|
|
is(
|