Skip to content
Newer
Older
100644 15 lines (8 sloc) 239 Bytes
83ab2eb [rakudo] t/*/*.t: s/use v6\K-alpha//
Florian Ragwitz authored Apr 16, 2008
1 use v6;
222b3ea @audreyt * copy all Pugs's sanity tests into languages/perl6/ harness.
audreyt authored Apr 15, 2006
2
3
4555f9d @pmichaud [rakudo]:
pmichaud authored May 2, 2008
4 say "1..3";
222b3ea @audreyt * copy all Pugs's sanity tests into languages/perl6/ harness.
audreyt authored Apr 15, 2006
5
6 my $var;
7 if defined $var { say "not ok 1" } else { say "ok 1" }
8
9 $var = "Pugs";
10 if defined $var { say "ok 2" } else { say "not ok 2" }
4555f9d @pmichaud [rakudo]:
pmichaud authored May 2, 2008
11
12 undefine( $var);
13
14 if defined $var { say "not ok 3 - $var" } else { say "ok 3" }
Something went wrong with that request. Please try again.