. "Try `$prog --help' for more information.\n"}, {EXIT => '1'}],
['a', qw(d/f), {OUT => 'f'}],
- ['b', qw(a/b), {OUT => 'b'}],
- ['c', qw(a/b/), {OUT => 'b'}],
- ['d', qw(a/b//), {OUT => 'b'}],
- ['e', qw(a), {OUT => 'a'}],
+ ['b', qw(/d/f), {OUT => 'f'}],
+ ['c', qw(d/f/), {OUT => 'f'}],
+ ['d', qw(d/f//), {OUT => 'f'}],
+ ['e', qw(f), {OUT => 'f'}],
['f', qw(/), {OUT => '/'}],
['g', qw(//), {OUT => '/'}],
['h', qw(///), {OUT => '/'}],
['y', '4294966998', {OUT => '2 3 7 3917 26107'}],
['z', '-1',
{ERR => "$prog: `-1' is not a valid positive integer\n"
- . "Try `factor --help' for more information.\n"},
+ . "Try `$prog --help' for more information.\n"},
{EXIT => 1}],
);