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
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
|
#/bin/perl -w
# Copyright (c) 2001 Flavio Soibelmann Glock. All rights reserved.
# This program is free software; you can redistribute it and/or
# modify it under the same terms as Perl itself.
#
# Tests for Set::Infinite::Quantize
# This is work in progress
#
use strict;
# use warnings;
use Set::Infinite qw($inf);
my $test = 0;
my ($result, $errors);
my $set;
sub test {
my ($header, $sub, $expected) = @_;
$test++;
#print "\t# $header \n";
$result = eval $sub;
$result = '' unless defined $result;
if ("$expected" eq "$result") {
print "ok $test";
}
else {
print "not ok $test"; # \n\t# expected \"$expected\" got \"$result\"";
print "\n\t# $sub expected \"$expected\" got \"$result\" $@";
$errors++;
}
print " \n";
}
print "1..14\n";
$| = 1;
$set = Set::Infinite->new([10,12]);
test ( 'new', '"$set"', '[10..12]');
test ("count", '$set->count', 1);
$set = $set->union( 14,16 );
test ("count", '$set->count', 2);
$set = $set->integer;
test ("integer size", '$set->size', 6);
$set = $set->real;
test ("real size", '$set->size', 4);
$set = Set::Infinite->new([10,11]);
test ( 'new', '"$set"', '[10..11]');
$set = $set->integer;
test ("integer size", '$set->size', 2);
$set = $set->real;
test ("real size", '$set->size', 1);
$set = Set::Infinite->new([10,10]);
test ( 'new', '"$set"', '10');
$set = $set->integer;
test ("integer size", '$set->size', 1);
$set = $set->real;
test ("real size", '$set->size', 0);
$set = Set::Infinite->new([10,11]);
$set = $set->complement( 11 );
test ( 'new', '"$set"', '[10..11)');
$set = $set->integer;
test ("integer size", '$set->size', 0);
$set = $set->real;
test ("real size", '$set->size', 1);
1;
|
