The lib/Cwd.pm diet part of

[p5sagit/p5-mst-13.2.git] / lib / version.t

diff --git a/lib/version.t b/lib/version.t
index 8823f23..6f753bd 100644 (file)
--- a/lib/version.t
+++ b/lib/version.t
@@ -1,11 +1,12 @@
+#! /usr/local/perl -w
 # Before `make install' is performed this script should be runnable with
 # `make test'. After `make install' it should work as `perl test.pl'
-# $Revision: 2.1 $
+# $Revision: 2.4 $
 
 #########################
 
-use Test::More tests => 64;
-use_ok(version); # If we made it this far, we are ok.
+use Test::More tests => 73;
+use_ok("version"); # If we made it this far, we are ok.
 
 my ($version, $new_version);
 #########################
@@ -13,16 +14,28 @@ my ($version, $new_version);
 # Insert your test code below, the Test module is use()ed here so read
 # its man page ( perldoc Test ) for help writing this test script.
 
+# Test bare number processing
+diag "tests with bare numbers" unless $ENV{PERL_CORE};
+$version = new version 5.005_03;
+is ( "$version" , "5.5.30" , '5.005_03 eq 5.5.30' );
+$version = new version 1.23;
+is ( "$version" , "1.230" , '1.23 eq "1.230"' );
+
+# Test quoted number processing
+diag "tests with quoted numbers" unless $ENV{PERL_CORE};
+$version = new version "5.005_03";
+is ( "$version" , "5.5_3" , '"5.005_03" eq "5.5_3"' );
+$version = new version "v1.23";
+is ( "$version" , "1.23" , '"v1.23" eq "1.23"' );
+
 # Test stringify operator
 diag "tests with stringify" unless $ENV{PERL_CORE};
 $version = new version "5.005";
 is ( "$version" , "5.5" , '5.005 eq 5.5' );
-$version = new version "5.005_03";
-is ( "$version" , "5.5.30" , 'perl version 5.005_03 eq 5.5.30' );
 $version = new version "5.006.001";
 is ( "$version" , "5.6.1" , '5.006.001 eq 5.6.1' );
 $version = new version "1.2.3_4";
-is ( "$version" , "1.2.3_4" , 'beta version 1.2.3_4 eq 1.2.3_4' );
+is ( "$version" , "1.2.3_4" , 'alpha version 1.2.3_4 eq 1.2.3_4' );
 
 # test illegal formats
 diag "test illegal formats" unless $ENV{PERL_CORE};
@@ -39,8 +52,10 @@ ok ("$version" eq "99.0", '$version eq "99.0"');
 ok ($version->numify == 99.0, '$version->numify == 99.0');
 
 $version = new version "something";
-ok ("$version" eq "", '$version eq ""');
-ok ($version->numify == 0, '$version->numify == 99.0');
+ok (defined $version, 'defined $version');
+
+# reset the test object to something reasonable
+$version = new version "1.2.3";
 
 # Test boolean operator
 ok ($version, 'boolean');
@@ -108,41 +123,56 @@ ok ( $version eq "2002.9.30.1",'$version eq 2002.9.30.1');
 ok ( $version->numify == 2002.009030001,
     '$version->numify == 2002.009030001');
 
-# now test with Beta version form with string
+# now test with alpha version form with string
 $version = new version "1.2.3";
 $new_version = "1.2.3_4";
-diag "tests with beta-style non-objects" unless $ENV{PERL_CORE};
+diag "tests with alpha-style non-objects" unless $ENV{PERL_CORE};
 ok ( $version lt $new_version, '$version lt $new_version' );
 ok ( $new_version gt $version, '$new_version gt $version' );
 ok ( $version ne $new_version, '$version ne $new_version' );
 
 $version = new version "1.2.4";
-diag "numeric tests with beta-style non-objects" unless $ENV{PERL_CORE};
+diag "numeric tests with alpha-style non-objects" unless $ENV{PERL_CORE};
 ok ( $version > $new_version, '$version > $new_version' );
 ok ( $new_version < $version, '$new_version < $version' );
 ok ( $version != $new_version, '$version != $new_version' );
 
-# now test with Beta version form with object
+# now test with alpha version form with object
 $version = new version "1.2.3";
 $new_version = new version "1.2.3_4";
-diag "tests with beta-style objects" unless $ENV{PERL_CORE};
+diag "tests with alpha-style objects" unless $ENV{PERL_CORE};
 ok ( $version < $new_version, '$version < $new_version' );
 ok ( $new_version > $version, '$new_version > $version' );
 ok ( $version != $new_version, '$version != $new_version' );
+ok ( !$version->is_alpha, '!$version->is_alpha');
+ok ( $new_version->is_alpha, '$new_version->is_alpha');
 
 $version = new version "1.2.4";
-diag "tests with beta-style objects" unless $ENV{PERL_CORE};
+diag "tests with alpha-style objects" unless $ENV{PERL_CORE};
 ok ( $version > $new_version, '$version > $new_version' );
 ok ( $new_version < $version, '$new_version < $version' );
 ok ( $version != $new_version, '$version != $new_version' );
 
 $version = new version "1.2.4";
 $new_version = new version "1.2_4";
-diag "tests with beta-style objects with same subversion" unless $ENV{PERL_CORE};
+diag "tests with alpha-style objects with same subversion" unless $ENV{PERL_CORE};
 ok ( $version > $new_version, '$version > $new_version' );
 ok ( $new_version < $version, '$new_version < $version' );
 ok ( $version != $new_version, '$version != $new_version' );
 
+diag "test implicit [in]equality" unless $ENV{PERL_CORE};
+$version = new version "v1.2";
+$new_version = new version "1.2.0";
+ok ( $version == $new_version, '$version == $new_version' );
+$new_version = new version "1.2_0";
+ok ( $version == $new_version, '$version == $new_version' );
+$new_version = new version "1.2.1";
+ok ( $version < $new_version, '$version < $new_version' );
+$new_version = new version "1.2_1";
+ok ( $version < $new_version, '$version < $new_version' );
+$new_version = new version "1.1.999";
+ok ( $version > $new_version, '$version > $new_version' );
+
 # that which is not expressly permitted is forbidden
 diag "forbidden operations" unless $ENV{PERL_CORE};
 ok ( !eval { $version++ }, "noop ++" );
@@ -155,12 +185,12 @@ ok ( !eval { abs($version) }, "noop abs" );
 diag "Replacement UNIVERSAL::VERSION tests" unless $ENV{PERL_CORE};
 
 # we know this file is here since we require it ourselves
-$version = $Test::More::VERSION;
+$version = new version $Test::More::VERSION;
 eval "use Test::More $version";
 unlike($@, qr/Test::More version $version required/,
        'Replacement eval works with exact version');
 
-$version += 0.01; # this should fail even with old UNIVERSAL::VERSION
+$version = new version $Test::More::VERSION+0.01; # this should fail even with old UNIVERSAL::VERSION
 eval "use Test::More $version";
 like($@, qr/Test::More version $version required/,
        'Replacement eval works with incremented version');