#!./perl
chdir 't' if -d 't';
}
# Now test that that works ..
}
xXx_not_there(); # Ok someone could have a program called this :(
# On os2 the warning is on by default...
# someone will have to fill in the blanks for other platforms
ok(!$@, '2 methods calls'); ok(dir(), 'Execute command');
ok(!$@, '2 methods calls'); } else {
ok(ls(), 'Execute command');
ok(!$@, '2 methods calls');
}