view release on metacpan or  search on metacpan

t/10-parse_stack_trace-single_quotes.t  view on Meta::CPAN

				arguments_string => "",
				line             => "main::__ANON__() called at /home/spock/site_perl/5.14.2/Try/Tiny.pm line 76",
			},
			'Carp::Parse::CallerInformation',
		),
		bless(
			{
				arguments_list   =>
				[
					"CODE(0xb3d4f48)",
					"Try::Tiny::Finally=REF(0xaf503f0)",
				],
				arguments_string => "'CODE(0xb3d4f48)', 'Try::Tiny::Finally=REF(0xaf503f0)'",
				line             => "Try::Tiny::try('CODE(0xb3d4f48)', 'Try::Tiny::Finally=REF(0xaf503f0)') called at test/lib/Spock/test.t line 69",
			},
			'Carp::Parse::CallerInformation',
		),
	],
	'The parsed stack trace matches the expected output.'
);


__DATA__
Test.
at test/lib/Spock/test.t line 116
main::test_trace('gift_message', 'Happy\x{a}Birthday\x{a}\x{9}Love,\x{a}\x{9}Timmy', 'password', 'thereisnotry', 'planet', 'degobah', 'ship_zip', 01138, 'username', 'yoda', 'empty', '') called at test/lib/Spock/test.t line 61
main::__ANON__() called at /home/spock/site_perl/5.14.2/Try/Tiny.pm line 76
eval {...} called at /home/spock/site_perl/5.14.2/Try/Tiny.pm line 67
Try::Tiny::try('CODE(0xb3d4f48)', 'Try::Tiny::Finally=REF(0xaf503f0)') called at test/lib/Spock/test.t line 69

t/11-parse_stack_trace-double_quotes.t  view on Meta::CPAN

				arguments_string => "",
				line             => "main::__ANON__() called at /home/spock/site_perl/5.14.2/Try/Tiny.pm line 76",
			},
			'Carp::Parse::CallerInformation',
		),
		bless(
			{
				arguments_list   =>
				[
					"CODE(0xb3d4f48)",
					"Try::Tiny::Finally=REF(0xaf503f0)",
				],
				arguments_string => "\"CODE(0xb3d4f48)\", \"Try::Tiny::Finally=REF(0xaf503f0)\"",
				line             => "Try::Tiny::try(\"CODE(0xb3d4f48)\", \"Try::Tiny::Finally=REF(0xaf503f0)\") called at test/lib/Spock/test.t line 69",
			},
			'Carp::Parse::CallerInformation',
		),
	],
	'The parsed stack trace matches the expected output.'
);


__DATA__
Test.
at test/lib/Spock/test.t line 116
main::test_trace("gift_message", "Happy\x{a}Birthday\x{a}\x{9}Love,\x{a}\x{9}Timmy", "password", "thereisnotry", "planet", "degobah", "ship_zip", 01138, "username", "yoda") called at test/lib/Spock/test.t line 61
main::__ANON__() called at /home/spock/site_perl/5.14.2/Try/Tiny.pm line 76
eval {...} called at /home/spock/site_perl/5.14.2/Try/Tiny.pm line 67
Try::Tiny::try("CODE(0xb3d4f48)", "Try::Tiny::Finally=REF(0xaf503f0)") called at test/lib/Spock/test.t line 69

t/12-parse_stack_trace-incorrect_args.t  view on Meta::CPAN

				arguments_string => "",
				line             => "main::__ANON__() called at /home/spock/site_perl/5.14.2/Try/Tiny.pm line 76",
			},
			'Carp::Parse::CallerInformation',
		),
		bless(
			{
				arguments_list   =>
				[
					"CODE(0xb3d4f48)",
					"Try::Tiny::Finally=REF(0xaf503f0)",
				],
				arguments_string => "\"CODE(0xb3d4f48)\", \"Try::Tiny::Finally=REF(0xaf503f0)\"",
				line             => "Try::Tiny::try(\"CODE(0xb3d4f48)\", \"Try::Tiny::Finally=REF(0xaf503f0)\") called at test/lib/Spock/test.t line 69",
			},
			'Carp::Parse::CallerInformation',
		),
	],
	'The parsed stack trace matches the expected output.'
);


__DATA__
Test.
at test/lib/Spock/test.t line 116
main::test_trace('gift_message", "Happy\x{a}Birthday\x{a}\x{9}Love,\x{a}\x{9}Timmy", "password", "thereisnotry", "planet", "degobah", "ship_zip", 01138, "username", "yoda") called at test/lib/Spock/test.t line 61
main::__ANON__() called at /home/spock/site_perl/5.14.2/Try/Tiny.pm line 76
eval {...} called at /home/spock/site_perl/5.14.2/Try/Tiny.pm line 67
Try::Tiny::try("CODE(0xb3d4f48)", "Try::Tiny::Finally=REF(0xaf503f0)") called at test/lib/Spock/test.t line 69