1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
|
From fe7f10589ee4da4a834e1f6355bb203de644920e Mon Sep 17 00:00:00 2001
From: Kent Fredric <kentnl@gentoo.org>
Date: Wed, 21 Mar 2018 22:24:09 +1300
Subject: Remove tests dependent on specific counts of dictionary terms
This was never going to be portable against newer wordnet data releases
---
test.pl | 10 +++-------
1 file changed, 3 insertions(+), 7 deletions(-)
diff --git a/test.pl b/test.pl
index 537aa7b..386c66c 100644
--- a/test.pl
+++ b/test.pl
@@ -5,7 +5,8 @@
# $Id: test.pl,v 1.40 2007/05/07 01:08:31 jrennie Exp $
my $i = 1;
-BEGIN {
+BEGIN {
+ print "1..103\n";
$| = 1;
}
END { print "not ok 1\n" unless $loaded; }
@@ -162,14 +163,9 @@ $foo[1] == 2
? print "ok ", $i++, "\n" : print "not ok ", $i++, "\n";
($wn->querySense('acropetal#a#1', 'dmnc'))[0] eq 'botany#n#2'
? print "ok ", $i++, "\n" : print "not ok ", $i++, "\n";
-scalar $wn->offset("0#n#1") == 13742358
- ? print "ok ", $i++, "\n" : print "not ok ", $i++, "\n";
-scalar $wn->listAllWords("noun") == 117798
- ? print "ok ", $i++, "\n" : print "not ok ", $i++, "\n";
-$wn->offset("child#n#1") == 9917593
- ? print "ok ", $i++, "\n" : print "not ok ", $i++, "\n";
my ($foo) = $wn->querySense ("cat#n#1", "glos");
($foo eq "feline mammal usually having thick soft fur and no ability to roar: domestic cats; wildcats ") ? print "ok ", $i++, "\n" : print "not ok ", $i++, "\n";
}
+print "0..$i\n";
--
2.16.2
|
GitWeb
