From 10aac4119f3934a0e7b54c5ee4a788a24072955b Mon Sep 17 00:00:00 2001 From: Andreas Guldstrand Date: Wed, 15 Jun 2016 00:07:13 +0200 Subject: 01-unit.t: add unit tests for version_cmp --- t/01-unit.t | 21 ++++++++++++++++++++- 1 file changed, 20 insertions(+), 1 deletion(-) (limited to 't/01-unit.t') diff --git a/t/01-unit.t b/t/01-unit.t index 4c735dd..f3ee6b6 100755 --- a/t/01-unit.t +++ b/t/01-unit.t @@ -11,7 +11,7 @@ use Capture::Tiny qw/ capture_merged /; use File::Temp 'tempdir'; use Cwd; -plan tests => 55; +plan tests => 60; # 1-2: test script_error(); { @@ -303,3 +303,22 @@ SKIP: { is ($res[1], undef, 'perform_sbo returned correct src'); is ($res[2], 6, 'perform_sbo returned correct exit'); } + +# 56-60: test version_cmp(); +{ + chomp(my $kv = `uname -r`); + $kv =~ s/-/_/g; + + my @res = map { SBO::Lib::version_cmp(@$_); } [ '1.0', '1.0' ], [ "1.0_$kv", '1.0' ], [ '1.0', "1.0_$kv" ], [ "1.0_$kv", "1.0_$kv" ]; + + note "k = $kv"; + is ($res[0], 0, "version_cmp(1.0, 1.0) returned 0"); + is ($res[1], 0, "version_cmp(1.0_k, 1.0) returned 0"); + is ($res[2], 0, "version_cmp(1.0, 1.0_k) returned 0"); + is ($res[3], 0, "version_cmp(1.0_k, 1.0_k) returned 0"); + + no warnings 'redefine'; + local *SBO::Lib::get_kernel_version = sub { "foo_bar" }; + + is (SBO::Lib::version_cmp('1.0', '1.0_foo_bar'), 0, "version_cmp(1.0, 1.0_foo_bar) returned 0"); +} -- cgit v1.2.3