# encoding: Cyrillic
# This file is encoded in Cyrillic.
die "This file is not encoded in Cyrillic.\n" if q{あ} ne "\x82\xa0";

use strict;
use Cyrillic;

my @pattern = (
    [1, q{' ' =~ / /xx}],
    [1, q{'A' =~ / /xx}],
    [1, q{''  =~ / /xx}],
    [1, q{' ' =~ /[\ ]/xx}],
    [1, q{' ' =~ /[ \  ]/xx}],
    [0, q{" " =~ /[ - ]/xx}],
    [0, q{" " =~ /[- ]/xx}],
    [0, q{" " =~ /[ -]/xx}],
    [0, q{" " =~ /[-]/xx}],
    [1, q{" " =~ /[\ - ]/xx}],
    [1, q{" " =~ /[ -\ ]/xx}],
    [1, q{" " =~ /[\ -\ ]/xx}],
    [1, q{" " =~ /[-\ ]/xx}],
    [1, q{" " =~ /[\ -]/xx}],
    [0, q{"	" =~ /[ - ]/xx}],
    [0, q{"	" =~ /[- ]/xx}],
    [0, q{"	" =~ /[ -]/xx}],
    [0, q{"	" =~ /[-]/xx}],
    [0, q{"	" =~ /[\ - ]/xx}],
    [0, q{"	" =~ /[ -\ ]/xx}],
    [0, q{"	" =~ /[\ -\ ]/xx}],
    [0, q{"	" =~ /[-\ ]/xx}],
    [0, q{"	" =~ /[\ -]/xx}],
    [1, q{"-" =~ /[ - ]/xx}],
    [1, q{"-" =~ /[- ]/xx}],
    [1, q{"-" =~ /[ -]/xx}],
    [1, q{"-" =~ /[-]/xx}],
    [1, q{"-" =~ /[\ - ]/xx}],
    [1, q{"-" =~ /[ -\ ]/xx}],
    [0, q{"-" =~ /[\ -\ ]/xx}],
    [1, q{"-" =~ /[-\ ]/xx}],
    [1, q{"-" =~ /[\ -]/xx}],
    [0, q{" " =~ /[	-	]/xx}],
    [0, q{" " =~ /[-	]/xx}],
    [0, q{" " =~ /[	-]/xx}],
    [0, q{" " =~ /[-]/xx}],
    [0, q{" " =~ /[\	-	]/xx}],
    [0, q{" " =~ /[	-\	]/xx}],
    [0, q{" " =~ /[\	-\	]/xx}],
    [0, q{" " =~ /[-\	]/xx}],
    [0, q{" " =~ /[\	-]/xx}],
    [0, q{"	" =~ /[	-	]/xx}],
    [0, q{"	" =~ /[-	]/xx}],
    [0, q{"	" =~ /[	-]/xx}],
    [0, q{"	" =~ /[-]/xx}],
    [1, q{"	" =~ /[\	-	]/xx}],
    [1, q{"	" =~ /[	-\	]/xx}],
    [1, q{"	" =~ /[\	-\	]/xx}],
    [1, q{"	" =~ /[-\	]/xx}],
    [1, q{"	" =~ /[\	-]/xx}],
    [1, q{"-" =~ /[	-	]/xx}],
    [1, q{"-" =~ /[-	]/xx}],
    [1, q{"-" =~ /[	-]/xx}],
    [1, q{"-" =~ /[-]/xx}],
    [1, q{"-" =~ /[\	-	]/xx}],
    [1, q{"-" =~ /[	-\	]/xx}],
    [0, q{"-" =~ /[\	-\	]/xx}],
    [1, q{"-" =~ /[-\	]/xx}],
    [1, q{"-" =~ /[\	-]/xx}],
    [0, q{" " =~ /[---]/xx}],
    [0, q{" " =~ /[--]/xx}],
    [0, q{" " =~ /[-]/xx}],
    [0, q{" " =~ /[\---]/xx}],
    [0, q{" " =~ /[--\-]/xx}],
    [0, q{" " =~ /[\--\-]/xx}],
    [0, q{" " =~ /[-\-]/xx}],
    [0, q{" " =~ /[\--]/xx}],
    [0, q{"	" =~ /[---]/xx}],
    [0, q{"	" =~ /[--]/xx}],
    [0, q{"	" =~ /[-]/xx}],
    [0, q{"	" =~ /[\---]/xx}],
    [0, q{"	" =~ /[--\-]/xx}],
    [0, q{"	" =~ /[\--\-]/xx}],
    [0, q{"	" =~ /[-\-]/xx}],
    [0, q{"	" =~ /[\--]/xx}],
    [1, q{"-" =~ /[---]/xx}],
    [1, q{"-" =~ /[--]/xx}],
    [1, q{"-" =~ /[-]/xx}],
    [1, q{"-" =~ /[\---]/xx}],
    [1, q{"-" =~ /[--\-]/xx}],
    [1, q{"-" =~ /[\--\-]/xx}],
    [1, q{"-" =~ /[-\-]/xx}],
    [1, q{"-" =~ /[\--]/xx}],
    [1, q{" " =~ /[ 	^ 	 - ]/xx}],
    [1, q{" " =~ /[ 	^ 	- ]/xx}],
    [1, q{" " =~ /[ 	^ 	 -]/xx}],
    [1, q{" " =~ /[ 	^ 	-]/xx}],
    [0, q{" " =~ /[ 	^ 	\ - ]/xx}],
    [0, q{" " =~ /[ 	^ 	 -\ ]/xx}],
    [0, q{" " =~ /[ 	^ 	\ -\ ]/xx}],
    [0, q{" " =~ /[ 	^ 	-\ ]/xx}],
    [0, q{" " =~ /[ 	^ 	\ -]/xx}],
    [1, q{"	" =~ /[ 	^ 	 - ]/xx}],
    [1, q{"	" =~ /[ 	^ 	- ]/xx}],
    [1, q{"	" =~ /[ 	^ 	 -]/xx}],
    [1, q{"	" =~ /[ 	^ 	-]/xx}],
    [1, q{"	" =~ /[ 	^ 	\ - ]/xx}],
    [1, q{"	" =~ /[ 	^ 	 -\ ]/xx}],
    [1, q{"	" =~ /[ 	^ 	\ -\ ]/xx}],
    [1, q{"	" =~ /[ 	^ 	-\ ]/xx}],
    [1, q{"	" =~ /[ 	^ 	\ -]/xx}],
    [0, q{"-" =~ /[ 	^ 	 - ]/xx}],
    [0, q{"-" =~ /[ 	^ 	- ]/xx}],
    [0, q{"-" =~ /[ 	^ 	 -]/xx}],
    [0, q{"-" =~ /[ 	^ 	-]/xx}],
    [0, q{"-" =~ /[ 	^ 	\ - ]/xx}],
    [0, q{"-" =~ /[ 	^ 	 -\ ]/xx}],
    [1, q{"-" =~ /[ 	^ 	\ -\ ]/xx}],
    [0, q{"-" =~ /[ 	^ 	-\ ]/xx}],
    [0, q{"-" =~ /[ 	^ 	\ -]/xx}],
    [1, q{" " =~ /[ 	^ 		-	]/xx}],
    [1, q{" " =~ /[ 	^ 	-	]/xx}],
    [1, q{" " =~ /[ 	^ 		-]/xx}],
    [1, q{" " =~ /[ 	^ 	-]/xx}],
    [1, q{" " =~ /[ 	^ 	\	-	]/xx}],
    [1, q{" " =~ /[ 	^ 		-\	]/xx}],
    [1, q{" " =~ /[ 	^ 	\	-\	]/xx}],
    [1, q{" " =~ /[ 	^ 	-\	]/xx}],
    [1, q{" " =~ /[ 	^ 	\	-]/xx}],
    [1, q{"	" =~ /[ 	^ 		-	]/xx}],
    [1, q{"	" =~ /[ 	^ 	-	]/xx}],
    [1, q{"	" =~ /[ 	^ 		-]/xx}],
    [1, q{"	" =~ /[ 	^ 	-]/xx}],
    [0, q{"	" =~ /[ 	^ 	\	-	]/xx}],
    [0, q{"	" =~ /[ 	^ 		-\	]/xx}],
    [0, q{"	" =~ /[ 	^ 	\	-\	]/xx}],
    [0, q{"	" =~ /[ 	^ 	-\	]/xx}],
    [0, q{"	" =~ /[ 	^ 	\	-]/xx}],
    [0, q{"-" =~ /[ 	^ 		-	]/xx}],
    [0, q{"-" =~ /[ 	^ 	-	]/xx}],
    [0, q{"-" =~ /[ 	^ 		-]/xx}],
    [0, q{"-" =~ /[ 	^ 	-]/xx}],
    [0, q{"-" =~ /[ 	^ 	\	-	]/xx}],
    [0, q{"-" =~ /[ 	^ 		-\	]/xx}],
    [1, q{"-" =~ /[ 	^ 	\	-\	]/xx}],
    [0, q{"-" =~ /[ 	^ 	-\	]/xx}],
    [0, q{"-" =~ /[ 	^ 	\	-]/xx}],
    [1, q{" " =~ /[ 	^ 	---]/xx}],
    [1, q{" " =~ /[ 	^ 	--]/xx}],
    [1, q{" " =~ /[ 	^ 	-]/xx}],
    [1, q{" " =~ /[ 	^ 	\---]/xx}],
    [1, q{" " =~ /[ 	^ 	--\-]/xx}],
    [1, q{" " =~ /[ 	^ 	\--\-]/xx}],
    [1, q{" " =~ /[ 	^ 	-\-]/xx}],
    [1, q{" " =~ /[ 	^ 	\--]/xx}],
    [1, q{"	" =~ /[ 	^ 	---]/xx}],
    [1, q{"	" =~ /[ 	^ 	--]/xx}],
    [1, q{"	" =~ /[ 	^ 	-]/xx}],
    [1, q{"	" =~ /[ 	^ 	\---]/xx}],
    [1, q{"	" =~ /[ 	^ 	--\-]/xx}],
    [1, q{"	" =~ /[ 	^ 	\--\-]/xx}],
    [1, q{"	" =~ /[ 	^ 	-\-]/xx}],
    [1, q{"	" =~ /[ 	^ 	\--]/xx}],
    [0, q{"-" =~ /[ 	^ 	---]/xx}],
    [0, q{"-" =~ /[ 	^ 	--]/xx}],
    [0, q{"-" =~ /[ 	^ 	-]/xx}],
    [0, q{"-" =~ /[ 	^ 	\---]/xx}],
    [0, q{"-" =~ /[ 	^ 	--\-]/xx}],
    [0, q{"-" =~ /[ 	^ 	\--\-]/xx}],
    [0, q{"-" =~ /[ 	^ 	-\-]/xx}],
    [0, q{"-" =~ /[ 	^ 	\--]/xx}],
);

printf("1..%d\n", scalar(@pattern));

if ($] < 5.026) {
    for my $tno (1..scalar(@pattern)) {
        print "ok $tno - SKIP $^X/$]\n";
    }
    exit;
}

my $tno = 1;
for my $pattern (@pattern) {
    my($want, $todo) = @{$pattern};
    local $@;
    my $got = eval $todo;
    if ($got == $want) {
        printf("ok $tno - [%01d, %s],\n", $got+0, qq{q{$todo}});
    }
    else {
        printf("not ok $tno - [%01d, %s],\n", $got+0, qq{q{$todo}});
    }
    $tno++;
}

__END__