use Perl6::Rules;

use Test::Simple 'no_plan';

ok( "abc  def" !~ m/abc  def/, 'Literal space nonmatch' );
ok( "abcdef" =~ m/abc  def/, 'Nonspace match' );
ok( "abc  def" =~ m:w/abc  def/, 'Word space match' );
ok( "abc\ndef" =~ m:words/abc  def/, 'Word newline match' );
ok( "abcdef" !~ m:words/abc  def/, 'Word nonspace nonmatch' );
ok( "abc  def" !~ m:words/abc <sp> def/, 'Word explicit space non-match' );
ok( "abc  def" =~ m:words/abc <ws> def/, 'Word explicit space match' );

ok( "abc  !def" !~ m/abc  !def/, 'Literal pre-shriek nonmatch' );
ok( "abc  !def" =~ m:words/abc  !def/, 'Word pre-shriek match' );
ok( "abc!def" =~ m:words/abc  !def/, 'Word nonspace pre-shriek match' );

ok( "abc!  def" !~ m/abc!  def/, 'Literal post-shriek nonmatch' );
ok( "abc!  def" =~ m:words/abc!  def/, 'Word post-shriek match' );
ok( "abc!def" =~ m:words/abc!  def/, 'Word nonspace post-shriek nonmatch' );

ok( "!!  !!" !~ m/!!  !!/, 'Literal multi-shriek nonmatch' );
ok( "!!  !!" =~ m:words/!!  !!/, 'Literal multi-shriek match' );
ok( "!!!!" =~ m:words/!!  !!/, 'Literal nonspace multi-shriek match' );