- Implemented partial match for strings.
This commit is contained in:
Paul Beckingham 2014-05-27 00:08:07 -04:00
parent 0664cb5689
commit 0b160292c0
2 changed files with 25 additions and 3 deletions

View file

@ -61,11 +61,11 @@ EOF
my $output = qx{../src/task rc:bug.rc 1 info 2>&1};
my ($uuid) = $output =~ /UUID\s+(\S{36})/ms;
$output = qx{../src/task rc:bug.rc $uuid list rc.debug:1 2>&1};
$output = qx{../src/task rc:bug.rc $uuid list 2>&1};
like ($output, qr/one/, "Found with $uuid");
my ($short) = $uuid =~ /^(.{35})/;
$output = qx{../src/task rc:bug.rc $short list rc.debug:1 2>&1};
$output = qx{../src/task rc:bug.rc $short list 2>&1};
like ($output, qr/one/, "Found with $short");
($short) = $uuid =~ /^(.{34})/;