|
use 5.014;
*STDOUT ->autoflush(1);
run_with -nocolour;
run sub { say "1..5" };
run sub { say "ok 1 - can simulate system" };
run '# Trying echo'
=> sub { say "\nok 2 - can simulate system with desc" };
run '# Trying slow system'
=> sub { sleep 2 }
and say 'ok 3 - can simulate failed system with unknown command'
or say 'not ok 3 - can simulate failed system with unknown command' ;
run '# Trying slow echo'
=> sub { sleep 2; say "\nok 4 - can simulate slow system with desc" };
run '# Trying to fail'
=> sub { die 'I cannot go on' }
and say 'not ok 5 - can simulate failed system with unknown command'
or say 'ok 5 - can simulate failed system with unknown command' ;
|