test3_v revision 1
0N/A# perl
3877N/A
0N/Ause V;
0N/A
0N/Adprofpp( '-T' );
0N/A$e1 = $expected =
2362N/Aqq{main::bar
0N/Amain::baz
2362N/A main::bar
0N/A main::foo
0N/A};
0N/Areport 9, sub { $expected eq $results };
0N/A
0N/Adprofpp('-TF');
0N/A$e2 = $expected =
0N/Aqq{main::bar
0N/Amain::baz
0N/A main::bar
0N/A main::foo
0N/A};
2362N/Areport 10, sub { $expected eq $results };
2362N/A
2362N/Adprofpp( '-t' );
0N/A$expected = $e1;
0N/Areport 11, sub { 1 };
0N/A
0N/Adprofpp('-tF');
0N/A$expected = $e2;
0N/Areport 12, sub { $expected eq $results };
0N/A