#!/usr/bin/perl
use Test::More tests => 5;
use strict;
use warnings;
no warnings 'syntax';
our ($VERSION) = q $Revision: 1.2 $ =~ /[\d.]+/g;
BEGIN {
use_ok ('Regexp::CharClasses')
};
ok 1 =~ /\p{IsDigit1}/, "testing 1 ";
ok 2 !~ /\p{IsDigit1}/, "testing 2 ";
ok 3 =~ /\P{IsDigit1}/, "testing 3 ";
ok 11 =~ /\p{IsDigit1}\p{IsDigit1}/, "testing 11 ";
__END__
$Log: 01_digits.t,v $
Revision 1.2 2008/01/12 00:21:33 abigail
- Added $VERSION
- Added "no warnings 'syntax'"