Permalink
Fetching contributors…
Cannot retrieve contributors at this time
executable file 32 lines (22 sloc) 547 Bytes
#!/usr/bin/env parrot-nqp
MAIN();
sub MAIN() {
# Load testing tools
pir::load_language('parrot');
pir::compreg__PS('parrot').import('Test::More');
# Run basic tests of testing
run_tests();
}
sub run_tests() {
plan(6);
test_testing();
}
sub test_testing() {
ok(1, 'ok() works');
nok(0, 'nok() works');
is(5, 5, 'is() works for ints');
is('z', 'z', 'is() works for strings');
isnt(8, -8, 'isnt() works for ints');
isnt('q', 'rs', 'isnt() works for strings');
}
# vim: ft=perl6