Hello community,
here is the log from the commit of package perl-MooseX-Types-Common for
openSUSE:Factory checked in at 2013-06-13 18:16:09
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-MooseX-Types-Common (Old)
and /work/SRC/openSUSE:Factory/.perl-MooseX-Types-Common.new (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-MooseX-Types-Common"
Changes:
--------
---
/work/SRC/openSUSE:Factory/perl-MooseX-Types-Common/perl-MooseX-Types-Common.changes
2012-02-24 12:06:47.000000000 +0100
+++
/work/SRC/openSUSE:Factory/.perl-MooseX-Types-Common.new/perl-MooseX-Types-Common.changes
2013-06-13 18:16:11.000000000 +0200
@@ -1,0 +2,7 @@
+Wed Jun 5 19:05:36 UTC 2013 - [email protected]
+
+- updated to 0.001008
+ - Upper* and Lower* string types now accept non-alphabetic characters (Karen
+ Etheridge)
+
+-------------------------------------------------------------------
Old:
----
MooseX-Types-Common-0.001007.tar.gz
New:
----
MooseX-Types-Common-0.001008.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-MooseX-Types-Common.spec ++++++
--- /var/tmp/diff_new_pack.zSAt5G/_old 2013-06-13 18:16:11.000000000 +0200
+++ /var/tmp/diff_new_pack.zSAt5G/_new 2013-06-13 18:16:11.000000000 +0200
@@ -1,7 +1,7 @@
#
# spec file for package perl-MooseX-Types-Common
#
-# Copyright (c) 2012 SUSE LINUX Products GmbH, Nuernberg, Germany.
+# Copyright (c) 2013 SUSE LINUX Products GmbH, Nuernberg, Germany.
#
# All modifications and additions to the file contributed by third parties
# remain the property of their copyright owners, unless otherwise agreed
@@ -17,14 +17,14 @@
Name: perl-MooseX-Types-Common
-Version: 0.001007
+Version: 0.001008
Release: 0
%define cpan_name MooseX-Types-Common
Summary: A library of commonly used type constraints
License: Artistic-1.0 or GPL-1.0+
Group: Development/Libraries/Perl
Url: http://search.cpan.org/dist/MooseX-Types-Common/
-Source:
http://www.cpan.org/authors/id/A/AR/ARCANEZ/%{cpan_name}-%{version}.tar.gz
+Source:
http://www.cpan.org/authors/id/E/ET/ETHER/%{cpan_name}-%{version}.tar.gz
BuildArch: noarch
BuildRoot: %{_tmppath}/%{name}-%{version}-build
BuildRequires: perl
++++++ MooseX-Types-Common-0.001007.tar.gz ->
MooseX-Types-Common-0.001008.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/MooseX-Types-Common-0.001007/Changes
new/MooseX-Types-Common-0.001008/Changes
--- old/MooseX-Types-Common-0.001007/Changes 2012-02-23 17:52:10.000000000
+0100
+++ new/MooseX-Types-Common-0.001008/Changes 2012-06-14 20:29:52.000000000
+0200
@@ -1,3 +1,6 @@
+0.001008 2012-06-14 11:29:50 PDT
+ - Upper* and Lower* string types now accept non-alphabetic characters (Karen
+ Etheridge)
0.001007 2012-02-23 11:50EST
- remove Test::Exception from a test
0.001006 2012-02-21 13:50EST
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/MooseX-Types-Common-0.001007/META.yml
new/MooseX-Types-Common-0.001008/META.yml
--- old/MooseX-Types-Common-0.001007/META.yml 2012-02-23 17:53:25.000000000
+0100
+++ new/MooseX-Types-Common-0.001008/META.yml 2012-06-14 20:30:46.000000000
+0200
@@ -10,7 +10,7 @@
ExtUtils::MakeMaker: 6.36
distribution_type: module
dynamic_config: 1
-generated_by: 'Module::Install version 1.04'
+generated_by: 'Module::Install version 1.06'
license: perl
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
@@ -27,4 +27,4 @@
IRC: irc://irc.perl.org/#moose
license: http://dev.perl.org/licenses/
repository: git://git.moose.perl.org/MooseX-Types-Common.git
-version: 0.001007
+version: 0.001008
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/MooseX-Types-Common-0.001007/MYMETA.json
new/MooseX-Types-Common-0.001008/MYMETA.json
--- old/MooseX-Types-Common-0.001007/MYMETA.json 2012-02-23
17:53:25.000000000 +0100
+++ new/MooseX-Types-Common-0.001008/MYMETA.json 2012-06-14
20:30:46.000000000 +0200
@@ -4,7 +4,7 @@
"This distribution was extracted from the L<Reaction> code base by
Guillermo"
],
"dynamic_config" : 0,
- "generated_by" : "ExtUtils::MakeMaker version 6.62, CPAN::Meta::Converter
version 2.120351",
+ "generated_by" : "ExtUtils::MakeMaker version 6.6302, CPAN::Meta::Converter
version 2.120921",
"license" : [
"perl_5"
],
@@ -40,5 +40,5 @@
}
},
"release_status" : "stable",
- "version" : "0.001007"
+ "version" : "0.001008"
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/MooseX-Types-Common-0.001007/MYMETA.yml
new/MooseX-Types-Common-0.001008/MYMETA.yml
--- old/MooseX-Types-Common-0.001007/MYMETA.yml 2012-02-23 17:53:25.000000000
+0100
+++ new/MooseX-Types-Common-0.001008/MYMETA.yml 2012-06-14 20:30:46.000000000
+0200
@@ -9,7 +9,7 @@
configure_requires:
ExtUtils::MakeMaker: 0
dynamic_config: 0
-generated_by: 'ExtUtils::MakeMaker version 6.62, CPAN::Meta::Converter version
2.120351'
+generated_by: 'ExtUtils::MakeMaker version 6.6302, CPAN::Meta::Converter
version 2.120921'
license: perl
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
@@ -22,4 +22,4 @@
requires:
Moose: 0.39
MooseX::Types: 0.04
-version: 0.001007
+version: 0.001008
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/MooseX-Types-Common-0.001007/inc/Module/Install/Base.pm
new/MooseX-Types-Common-0.001008/inc/Module/Install/Base.pm
--- old/MooseX-Types-Common-0.001007/inc/Module/Install/Base.pm 2012-02-23
17:53:24.000000000 +0100
+++ new/MooseX-Types-Common-0.001008/inc/Module/Install/Base.pm 2012-06-14
20:30:46.000000000 +0200
@@ -4,7 +4,7 @@
use strict 'vars';
use vars qw{$VERSION};
BEGIN {
- $VERSION = '1.04';
+ $VERSION = '1.06';
}
# Suspend handler for "redefined" warnings
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/MooseX-Types-Common-0.001007/inc/Module/Install/Can.pm
new/MooseX-Types-Common-0.001008/inc/Module/Install/Can.pm
--- old/MooseX-Types-Common-0.001007/inc/Module/Install/Can.pm 2012-02-23
17:53:25.000000000 +0100
+++ new/MooseX-Types-Common-0.001008/inc/Module/Install/Can.pm 2012-06-14
20:30:46.000000000 +0200
@@ -3,13 +3,12 @@
use strict;
use Config ();
-use File::Spec ();
use ExtUtils::MakeMaker ();
use Module::Install::Base ();
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '1.04';
+ $VERSION = '1.06';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
@@ -29,7 +28,7 @@
eval { require $mod; $pkg->VERSION($ver || 0); 1 };
}
-# check if we can run some command
+# Check if we can run some command
sub can_run {
my ($self, $cmd) = @_;
@@ -38,14 +37,88 @@
for my $dir ((split /$Config::Config{path_sep}/, $ENV{PATH}), '.') {
next if $dir eq '';
- my $abs = File::Spec->catfile($dir, $_[1]);
+ require File::Spec;
+ my $abs = File::Spec->catfile($dir, $cmd);
return $abs if (-x $abs or $abs = MM->maybe_command($abs));
}
return;
}
-# can we locate a (the) C compiler
+# Can our C compiler environment build XS files
+sub can_xs {
+ my $self = shift;
+
+ # Ensure we have the CBuilder module
+ $self->configure_requires( 'ExtUtils::CBuilder' => 0.27 );
+
+ # Do we have the configure_requires checker?
+ local $@;
+ eval "require ExtUtils::CBuilder;";
+ if ( $@ ) {
+ # They don't obey configure_requires, so it is
+ # someone old and delicate. Try to avoid hurting
+ # them by falling back to an older simpler test.
+ return $self->can_cc();
+ }
+
+ # Do we have a working C compiler
+ my $builder = ExtUtils::CBuilder->new(
+ quiet => 1,
+ );
+ unless ( $builder->have_compiler ) {
+ # No working C compiler
+ return 0;
+ }
+
+ # Write a C file representative of what XS becomes
+ require File::Temp;
+ my ( $FH, $tmpfile ) = File::Temp::tempfile(
+ "compilexs-XXXXX",
+ SUFFIX => '.c',
+ );
+ binmode $FH;
+ print $FH <<'END_C';
+#include "EXTERN.h"
+#include "perl.h"
+#include "XSUB.h"
+
+int main(int argc, char **argv) {
+ return 0;
+}
+
+int boot_sanexs() {
+ return 1;
+}
+
+END_C
+ close $FH;
+
+ # Can the C compiler access the same headers XS does
+ my @libs = ();
+ my $object = undef;
+ eval {
+ local $^W = 0;
+ $object = $builder->compile(
+ source => $tmpfile,
+ );
+ @libs = $builder->link(
+ objects => $object,
+ module_name => 'sanexs',
+ );
+ };
+ my $result = $@ ? 0 : 1;
+
+ # Clean up all the build files
+ foreach ( $tmpfile, $object, @libs ) {
+ next unless defined $_;
+ 1 while unlink;
+ }
+
+ return $result;
+}
+
+# Can we locate a (the) C compiler
sub can_cc {
my $self = shift;
my @chunks = split(/ /, $Config::Config{cc}) or return;
@@ -78,4 +151,4 @@
__END__
-#line 156
+#line 236
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/MooseX-Types-Common-0.001007/inc/Module/Install/Fetch.pm
new/MooseX-Types-Common-0.001008/inc/Module/Install/Fetch.pm
--- old/MooseX-Types-Common-0.001007/inc/Module/Install/Fetch.pm
2012-02-23 17:53:25.000000000 +0100
+++ new/MooseX-Types-Common-0.001008/inc/Module/Install/Fetch.pm
2012-06-14 20:30:46.000000000 +0200
@@ -6,7 +6,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '1.04';
+ $VERSION = '1.06';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/MooseX-Types-Common-0.001007/inc/Module/Install/Makefile.pm
new/MooseX-Types-Common-0.001008/inc/Module/Install/Makefile.pm
--- old/MooseX-Types-Common-0.001007/inc/Module/Install/Makefile.pm
2012-02-23 17:53:24.000000000 +0100
+++ new/MooseX-Types-Common-0.001008/inc/Module/Install/Makefile.pm
2012-06-14 20:30:46.000000000 +0200
@@ -8,7 +8,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '1.04';
+ $VERSION = '1.06';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
@@ -215,13 +215,17 @@
require ExtUtils::MakeMaker;
if ( $perl_version and $self->_cmp($perl_version, '5.006') >= 0 ) {
- # MakeMaker can complain about module versions that include
- # an underscore, even though its own version may contain one!
- # Hence the funny regexp to get rid of it. See RT #35800
- # for details.
- my ($v) = $ExtUtils::MakeMaker::VERSION =~ /^(\d+\.\d+)/;
- $self->build_requires( 'ExtUtils::MakeMaker' => $v );
- $self->configure_requires( 'ExtUtils::MakeMaker' => $v );
+ # This previous attempted to inherit the version of
+ # ExtUtils::MakeMaker in use by the module author, but this
+ # was found to be untenable as some authors build releases
+ # using future dev versions of EU:MM that nobody else has.
+ # Instead, #toolchain suggests we use 6.59 which is the most
+ # stable version on CPAN at time of writing and is, to quote
+ # ribasushi, "not terminally fucked, > and tested enough".
+ # TODO: We will now need to maintain this over time to push
+ # the version up as new versions are released.
+ $self->build_requires( 'ExtUtils::MakeMaker' => 6.59 );
+ $self->configure_requires( 'ExtUtils::MakeMaker' => 6.59 );
} else {
# Allow legacy-compatibility with 5.005 by depending on the
# most recent EU:MM that supported 5.005.
@@ -411,4 +415,4 @@
__END__
-#line 540
+#line 544
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/MooseX-Types-Common-0.001007/inc/Module/Install/Metadata.pm
new/MooseX-Types-Common-0.001008/inc/Module/Install/Metadata.pm
--- old/MooseX-Types-Common-0.001007/inc/Module/Install/Metadata.pm
2012-02-23 17:53:24.000000000 +0100
+++ new/MooseX-Types-Common-0.001008/inc/Module/Install/Metadata.pm
2012-06-14 20:30:46.000000000 +0200
@@ -6,7 +6,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '1.04';
+ $VERSION = '1.06';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/MooseX-Types-Common-0.001007/inc/Module/Install/Win32.pm
new/MooseX-Types-Common-0.001008/inc/Module/Install/Win32.pm
--- old/MooseX-Types-Common-0.001007/inc/Module/Install/Win32.pm
2012-02-23 17:53:25.000000000 +0100
+++ new/MooseX-Types-Common-0.001008/inc/Module/Install/Win32.pm
2012-06-14 20:30:46.000000000 +0200
@@ -6,7 +6,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '1.04';
+ $VERSION = '1.06';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/MooseX-Types-Common-0.001007/inc/Module/Install/WriteAll.pm
new/MooseX-Types-Common-0.001008/inc/Module/Install/WriteAll.pm
--- old/MooseX-Types-Common-0.001007/inc/Module/Install/WriteAll.pm
2012-02-23 17:53:25.000000000 +0100
+++ new/MooseX-Types-Common-0.001008/inc/Module/Install/WriteAll.pm
2012-06-14 20:30:46.000000000 +0200
@@ -6,7 +6,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '1.04';
+ $VERSION = '1.06';
@ISA = qw{Module::Install::Base};
$ISCORE = 1;
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/MooseX-Types-Common-0.001007/inc/Module/Install.pm
new/MooseX-Types-Common-0.001008/inc/Module/Install.pm
--- old/MooseX-Types-Common-0.001007/inc/Module/Install.pm 2012-02-23
17:53:24.000000000 +0100
+++ new/MooseX-Types-Common-0.001008/inc/Module/Install.pm 2012-06-14
20:30:46.000000000 +0200
@@ -31,7 +31,7 @@
# This is not enforced yet, but will be some time in the next few
# releases once we can make sure it won't clash with custom
# Module::Install extensions.
- $VERSION = '1.04';
+ $VERSION = '1.06';
# Storage for the pseudo-singleton
$MAIN = undef;
@@ -467,4 +467,4 @@
1;
-# Copyright 2008 - 2011 Adam Kennedy.
+# Copyright 2008 - 2012 Adam Kennedy.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/MooseX-Types-Common-0.001007/lib/MooseX/Types/Common/Numeric.pm
new/MooseX-Types-Common-0.001008/lib/MooseX/Types/Common/Numeric.pm
--- old/MooseX-Types-Common-0.001007/lib/MooseX/Types/Common/Numeric.pm
2012-02-23 17:52:26.000000000 +0100
+++ new/MooseX-Types-Common-0.001008/lib/MooseX/Types/Common/Numeric.pm
2012-06-14 20:21:08.000000000 +0200
@@ -3,7 +3,7 @@
use strict;
use warnings;
-our $VERSION = '0.001007';
+our $VERSION = '0.001008';
use MooseX::Types -declare => [
qw(PositiveNum PositiveOrZeroNum
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/MooseX-Types-Common-0.001007/lib/MooseX/Types/Common/String.pm
new/MooseX-Types-Common-0.001008/lib/MooseX/Types/Common/String.pm
--- old/MooseX-Types-Common-0.001007/lib/MooseX/Types/Common/String.pm
2012-02-23 17:52:29.000000000 +0100
+++ new/MooseX-Types-Common-0.001008/lib/MooseX/Types/Common/String.pm
2012-06-14 20:21:14.000000000 +0200
@@ -3,7 +3,7 @@
use strict;
use warnings;
-our $VERSION = '0.001007';
+our $VERSION = '0.001008';
use MooseX::Types -declare => [
qw(SimpleStr
@@ -94,12 +94,12 @@
subtype LowerCaseStr,
as NonEmptyStr,
- where { /^[a-z]+$/xms },
- message { "Must only contain lower case letters" },
+ where { !/[A-Z]/ms },
+ message { "Must not contain upper case letters" },
( $Moose::VERSION >= 2.0200
? inline_as {
$_[0]->parent()->_inline_check( $_[1] ) . ' && '
- . qq{ ( $_[1] =~ m/^[a-z]+\$/xms ) };
+ . qq{ ( $_[1] !~ /[A-Z]/ms ) };
}
: ()
);
@@ -110,12 +110,12 @@
subtype UpperCaseStr,
as NonEmptyStr,
- where { /^[A-Z]+$/xms },
- message { "Must only contain upper case letters" },
+ where { !/[a-z]/ms },
+ message { "Must not contain lower case letters" },
( $Moose::VERSION >= 2.0200
? inline_as {
$_[0]->parent()->_inline_check( $_[1] ) . ' && '
- . qq{ ( $_[1] =~ m/^[A-Z]+\$/xms ) };
+ . qq{ ( $_[1] !~ m/[a-z]/ms ) };
}
: ()
);
@@ -126,12 +126,12 @@
subtype LowerCaseSimpleStr,
as NonEmptySimpleStr,
- where { /^[a-z]+$/x },
- message { "Must only contain lower case letters" },
+ where { !/[A-Z]/ },
+ message { "Must not contain upper case letters" },
( $Moose::VERSION >= 2.0200
? inline_as {
$_[0]->parent()->_inline_check( $_[1] ) . ' && '
- . qq{ ( $_[1] =~ m/^[a-z]+\$/x ) };
+ . qq{ ( $_[1] !~ m/[A-Z]/ ) };
}
: ()
);
@@ -142,12 +142,12 @@
subtype UpperCaseSimpleStr,
as NonEmptySimpleStr,
- where { /^[A-Z]+$/x },
- message { "Must only contain upper case letters" },
+ where { !/[a-z]/ },
+ message { "Must not contain lower case letters" },
( $Moose::VERSION >= 2.0200
? inline_as {
$_[0]->parent()->_inline_check( $_[1] ) . ' && '
- . qq{ ( $_[1] =~ m/^[A-Z]+\$/x ) };
+ . qq{ ( $_[1] !~ m/[a-z]/ ) };
}
: ()
);
@@ -188,12 +188,12 @@
=item * LowerCaseSimpleStr
-A Str with no new-line characters, length > 0 and all lowercase characters
+A Str with no new-line characters, length > 0 and no uppercase characters
A coercion exists via C<lc> from NonEmptySimpleStr
=item * UpperCaseSimpleStr
-A Str with no new-line characters, length > 0 and all uppercase characters
+A Str with no new-line characters, length > 0 and no lowercase characters
A coercion exists via C<uc> from NonEmptySimpleStr
=item * Password
@@ -206,12 +206,12 @@
=item * LowerCaseStr
-A Str with length > 0 and all lowercase characters.
+A Str with length > 0 and no uppercase characters.
A coercion exists via C<lc> from NonEmptyStr
=item * UpperCaseStr
-A Str with length > 0 and all uppercase characters.
+A Str with length > 0 and no lowercase characters.
A coercion exists via C<uc> from NonEmptyStr
=item * NumericCode
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/MooseX-Types-Common-0.001007/lib/MooseX/Types/Common.pm
new/MooseX-Types-Common-0.001008/lib/MooseX/Types/Common.pm
--- old/MooseX-Types-Common-0.001007/lib/MooseX/Types/Common.pm 2012-02-23
17:52:24.000000000 +0100
+++ new/MooseX-Types-Common-0.001008/lib/MooseX/Types/Common.pm 2012-06-14
20:29:31.000000000 +0200
@@ -4,7 +4,7 @@
use warnings;
use Carp qw/cluck/;
-our $VERSION = '0.001007';
+our $VERSION = '0.001008';
sub import {
my $package = shift;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/MooseX-Types-Common-0.001007/t/01-string.t
new/MooseX-Types-Common-0.001008/t/01-string.t
--- old/MooseX-Types-Common-0.001007/t/01-string.t 2012-02-23
17:50:43.000000000 +0100
+++ new/MooseX-Types-Common-0.001008/t/01-string.t 2012-06-14
20:18:42.000000000 +0200
@@ -2,7 +2,7 @@
use strict;
use warnings;
-use Test::More tests => 25;
+use Test::More tests => 33;
use Test::Fatal;
{
@@ -36,6 +36,8 @@
my $ins = FooTest->new;
+# TODO: need to check both the inlined and non-inlined versions!
+
is(exception { $ins->simplestr('') }, undef, 'SimpleStr');
is(exception { $ins->simplestr('good string') }, undef, 'SimpleStr 2');
isnt(exception { $ins->simplestr("bad\nstring") }, 'SimpleStr 3');
@@ -57,16 +59,23 @@
isnt(exception { $ins->lcsimplestr('NOTOK') }, undef, 'LowerCaseSimpleStr');
is(exception { $ins->lcsimplestr('ok') }, undef, 'LowerCaseSimpleStr 2');
+isnt(exception { $ins->lcsimplestr('NOTOK_123`"') }, undef,
'LowerCaseSimpleStr 3');
+is(exception { $ins->lcsimplestr('ok_123`"') }, undef, 'LowerCaseSimpleStr 4');
isnt(exception { $ins->ucsimplestr('notok') }, undef, 'UpperCaseSimpleStr');
is(exception { $ins->ucsimplestr('OK') }, undef, 'UpperCaseSimpleStr 2');
+isnt(exception { $ins->ucsimplestr('notok_123`"') }, undef,
'UpperCaseSimpleStr 3');
+is(exception { $ins->ucsimplestr('OK_123`"') }, undef, 'UpperCaseSimpleStr 4');
isnt(exception { $ins->lowercasestr('NOTOK') }, undef, 'LowerCaseStr');
-is(exception { $ins->lowercasestr('ok') }, undef, 'LowerCaseStr 2');
+is(exception { $ins->lowercasestr("ok\nok") }, undef, 'LowerCaseStr 2');
+isnt(exception { $ins->lowercasestr('NOTOK_123`"') }, undef, 'LowerCaseStr 3');
+is(exception { $ins->lowercasestr("ok\n_123`'") }, undef, 'LowerCaseStr 4');
isnt(exception { $ins->uppercasestr('notok') }, undef, 'UpperCaseStr');
-is(exception { $ins->uppercasestr('OK') }, undef, 'UpperCaseStr 2');
-
+is(exception { $ins->uppercasestr("OK\nOK") }, undef, 'UpperCaseStr 2');
+isnt(exception { $ins->uppercasestr('notok_123`"') }, undef, 'UpperCaseStr 3');
+is(exception { $ins->uppercasestr("OK\n_123`'") }, undef, 'UpperCaseStr 4');
is( exception { $ins->numericcode('032') }, undef, 'NumericCode lives');
isnt( exception { $ins->numericcode('abc') }, undef, 'NumericCode dies' );
--
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
