# $Id: /mirror/trunk/languages/regex/t/basic/ngplus.t 11501 2006-02-10T18:27:13.457666Z particle  $

use strict;
use FindBin;
use lib "$FindBin::Bin/../../lib";

use Parrot::Test::Regex;
use Regex;
use Regex::Driver;
use Test::More;

# test 'plus' quantifier, non greedy

Parrot::Test::Regex::run_spec( \*DATA );

__END__
a+?
INPUT:
x
OUTPUT:
Match failed
INPUT:
a
OUTPUT:
Match found
0: 0..0
INPUT:
aaaaax
OUTPUT:
Match found
0: 0..0
INPUT:
aaaaa
OUTPUT:
Match found
0: 0..0
INPUT:
yaaaaaay!!!
OUTPUT:
Match found
0: 1..1
