More tests and PDF support now works with XeTeX and preliminary escaping

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1255 4979c152-3d1c-0410-bac9-87ea11338e46

1 files changed, 35 insertions, 4 deletions

diff --git a/t/99-versioning.t b/t/99-versioning.t
index d1b833c5..3259e07d 100644
--- a/t/99-versioning.t
+++ b/t/99-versioning.t
@@ -33,13 +33,44 @@ chomp $ver;
 is($lsmb->{version}, $ver, 'LedgerSMB version matches VERSION');
 is($form->{version}, $ver, 'Form version matches VERSION');
 
+my @dparts;
+my @lparts;
+my $age;
 SKIP: {
 	skip 'LedgerSMB is trunk', 1 if $lsmb->{version} =~ /trunk$/i;
-	cmp_ok($lsmb->{version}, 'ge', $lsmb->{dbversion}, 
-		'lsmb: version >= dbversion');
+	@dparts = split /\./, $lsmb->{dbversion};
+	@lparts = split /\./, $lsmb->{version};
+	$age = 0;
+	foreach my $dpart (@dparts) {
+		my $lpart = shift @lparts;
+		if (!defined $lpart) {
+			$age = 1;
+			last;
+		} elsif ($lpart > $dpart) {
+			last;
+		} elsif ($dpart > $lpart) {
+			$age = 1;
+			last;
+		}
+	}
+	ok($age == 0, 'lsmb: version >= dbversion');
 }
 SKIP: {
 	skip 'Form is trunk', 1 if $form->{version} =~ /trunk$/i;
-	cmp_ok($form->{version}, 'ge', $form->{dbversion}, 
-		'form: version >= dbversion');
+	@dparts = split /\./, $form->{dbversion};
+	@lparts = split /\./, $form->{version};
+	$age = 0;
+	foreach my $dpart (@dparts) {
+		my $lpart = shift @lparts;
+		if (!defined $lpart) {
+			$age = 1;
+			last;
+		} elsif ($lpart > $dpart) {
+			last;
+		} elsif ($dpart > $lpart) {
+			$age = 1;
+			last;
+		}
+	}
+	ok($age == 0, 'form: version >= dbversion');
 }