diff --git a/S05-quotes/single-quotes.t b/S05-quotes/single-quotes.t new file mode 100644 index 0000000000..ecf17e71ac --- /dev/null +++ b/S05-quotes/single-quotes.t @@ -0,0 +1,28 @@ +use v6; +use Test; + +=begin description + +This file was derived from the perl5 CPAN module Perl6::Rules, +version 0.3 (12 Apr 2004), file t/qinterp.t. + +It has (hopefully) been, and should continue to be, updated to +be valid perl6. + +=end description + +plan 5; + +# L + + +ok("ab cd" ~~ m/a 'b c' d/, 'ab cd 1'); +ok(!( "abcd" ~~ m/a 'b c' d/ ), 'not abcd 1'); +ok("ab cd" ~~ m/ab ' ' c d/, 'ab cd 2'); + +ok 'abab' ~~ m/'ab' **{2}/, "Single quotes group"; + +#?pugs skip bug +ok("ab/cd" ~~ m/ab '/' c d/, 'ab/cd'); + +# vim: ft=perl6