diff options
author | Stefano Lattarini <stefano.lattarini@gmail.com> | 2012-04-06 13:12:25 +0200 |
---|---|---|
committer | Stefano Lattarini <stefano.lattarini@gmail.com> | 2012-04-06 21:29:30 +0200 |
commit | 8a5096d150cf9803b8963768b7366cd68edcce03 (patch) | |
tree | a49c0e54876b8b9877d7ca2df386377e7b6037d1 /t/pm/Version.pl | |
parent | f8e822bbc197f01fc722aa6def7cddb4182e3c66 (diff) | |
download | automake-8a5096d150cf9803b8963768b7366cd68edcce03.tar.gz |
tests: rename 'tests/' => 't/', '*.test' => '*.sh'
When we (soon) convert the Automake testsuite to a non-recursive
make setup, we'll have to fix the entries of $(TESTS) to be
prepended with the subdirectory they are in; this will increase
the length of $(TESTS), and thus increase the possibility of
exceeding the command-line length limits on some systems (most
notably, MinGW/MSYS). See automake bug#7868 for more information.
Thus we rename the 'tests/' subdirectory to 't/', and each 'x.test'
script in there to 'x.sh'; this way, the $(TESTS) entry 'foo.test'
will become 't/foo.sh', which have the same number of characters.
* tests/: Rename ...
* t/: ... to this.
* t/*.test: Rename ...
* t/*.sh: ... to this.
* t/.gitignore: Removed as obsolete.
* t/defs: Adjust.
* t/gen-testsuite-part: Likewise.
* t/list-of-tests.mk: Likewise.
* t/ccnoco.sh: Likewise.
* t/ccnoco3.sh: Likewise.
* t/self-check-cleanup.tap: Likewise.
* t/self-check-dir.tap: Likewise.
* t/self-check-me.tap: Likewise.
* t/self-check-reexec.tap: Likewise.
* README: Likewise.
* bootstrap: Likewise
* configure.ac: Likewise.
* Makefile.am: Likewise.
* .gitignore: Likewise.
* syntax-check.mk: Likewise.
Signed-off-by: Stefano Lattarini <stefano.lattarini@gmail.com>
Diffstat (limited to 't/pm/Version.pl')
-rw-r--r-- | t/pm/Version.pl | 129 |
1 files changed, 129 insertions, 0 deletions
diff --git a/t/pm/Version.pl b/t/pm/Version.pl new file mode 100644 index 000000000..293badcd1 --- /dev/null +++ b/t/pm/Version.pl @@ -0,0 +1,129 @@ +# Copyright (C) 2002-2012 Free Software Foundation, Inc. +# +# This program is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 2, or (at your option) +# any later version. +# +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with this program. If not, see <http://www.gnu.org/licenses/>. + +use Automake::Version; + +my $failed = 0; + +sub test_version_compare +{ + my ($left, $right, $result) = @_; + my @leftver = Automake::Version::split ($left); + my @rightver = Automake::Version::split ($right); + if ($#leftver == -1) + { + print "can't grok \"$left\"\n"; + $failed = 1; + return; + } + if ($#rightver == -1) + { + print "can't grok \"$right\"\n"; + $failed = 1; + return; + } + my $res = Automake::Version::compare (@leftver, @rightver); + if ($res != $result) + { + print "compare (\"$left\", \"$right\") = $res! (not $result?)\n"; + $failed = 1; + } + + my $check_expected = ($result == 0 || $result == 1) ? 0 : 1; + # Exception for 'foo' fork. + $check_expected = 1 + if ($right =~ /foo/ && !($left =~ /foo/)); + + my $check = Automake::Version::check ($left, $right); + if ($check != $check_expected) + { + print "check (\"$left\", \"$right\") = $check! (not $check_expected?)\n"; + $failed = 1; + } +} + +sub test_bad_versions +{ + my ($ver) = @_; + my @version = Automake::Version::split ($ver); + if ($#version != -1) + { + print "shouldn't grok \"$ver\"\n"; + $failed = 1; + } +} + +my @tests = ( +# basics + ['1.0', '2.0', -1], + ['2.0', '1.0', 1], + ['1.2', '1.2', 0], + ['1.1', '1.2', -1], + ['1.2', '1.1', 1], +# alphas + ['1.4', '1.4g', -1], + ['1.4g', '1.5', -1], + ['1.4g', '1.4', 1], + ['1.5', '1.4g', 1], + ['1.4a', '1.4g', -1], + ['1.5a', '1.3g', 1], + ['1.6a', '1.6a', 0], +# micros + ['1.5.1', '1.5', 1], + ['1.5.0', '1.5', 0], + ['1.5.4', '1.6.1', -1], +# micros and alphas + ['1.5a', '1.5.1', 1], + ['1.5a', '1.5.1a', 1], + ['1.5a', '1.5.1f', 1], + ['1.5', '1.5.1a', -1], + ['1.5.1a', '1.5.1f', -1], + ['1.5.1f', '1.5.1a', 1], + ['1.5.1f', '1.5.1f', 0], +# special exceptions + ['1.6-p5a', '1.6.5a', 0], + ['1.6', '1.6-p5a', -1], + ['1.6-p4b', '1.6-p5a', -1], + ['1.6-p4b', '1.6-foo', 1], + ['1.6-p4b', '1.6a-foo', -1], + ['1.6-p5', '1.6.5', 0], + ['1.6a-foo', '1.6a-foo', 0], +); + +my @bad_versions = ( + '', 'a', '1', '1a', '1.2.3.4', '-1.2' +); + +test_version_compare (@{$_}) foreach @tests; +test_bad_versions ($_) foreach @bad_versions; + +exit $failed; + +### Setup "GNU" style for perl-mode and cperl-mode. +## Local Variables: +## perl-indent-level: 2 +## perl-continued-statement-offset: 2 +## perl-continued-brace-offset: 0 +## perl-brace-offset: 0 +## perl-brace-imaginary-offset: 0 +## perl-label-offset: -2 +## cperl-indent-level: 2 +## cperl-brace-offset: 0 +## cperl-continued-brace-offset: 0 +## cperl-label-offset: -2 +## cperl-extra-newline-before-brace: t +## cperl-merge-trailing-else: nil +## cperl-continued-statement-offset: 2 +## End: |