Set-Infinite-0.65/t/last.t

6 # Tests for last()
46 @a = $a->last;
47 test ("last, tail", '"@a"', '[7..8] [1..2],[4..5]');
48 @a = defined $a[1] ? $a[1]->last : ();
49 test ("last, tail", '"@a"', '[4..5] [1..2]');
50 @a = defined $a[1] ? $a[1]->last : ();
51 test ("last, tail", '"@a"', '[1..2]');
52 @a = defined $a[1] ? $a[1]->last : ();
53 test ("last, tail", '"@a"', '');
60 test ("quantize/complement", '$a->complement->last', "[26..$inf)");
65 @a = $a->complement->last;
66 test ("last, tail 1", '"$a[0]"', "[26..$inf)");
67 @a = defined $a[1] ? $a[1]->last : ();
68 test ("last, tail 2", '"$a[0]"', '');   # complement is empty between quantize() elements
76 @a = $a->last;
77 # warn "1-last,tail= @a";
78 @a = $a[0]->last;
81 test ("quantize/complement", '$a->last', "(11..$inf)");
82 @a = $a->last;
83 test ("last, tail", '"$a[0]"', "(11..$inf)");
85 @a = defined $a[1] ? $a[1]->last : ();
87 test ("last, tail", '"$a[0]"', '[6..10)');
88 @a = defined $a[1] ? $a[1]->last : ("");
89 test ("last, tail", '"$a[0]"', '');   # complement is empty between quantize() elements
99 @a = $b->last;
100 test ("last, tail", '"@a"', '[28..29) [27..28)');
101 @a = defined $a[1] ? $a[1]->last : ();
102 test ("last, tail", '"@a"', '[27..28)');
103 @a = defined $a[1] ? $a[1]->last : ();
104 test ("last, tail", '"@a"', '');
109 # find '2nd' using complement/last
110 test ("2nd", ' $b->complement( $b->last )->last ', '[27..28)');
112 # @a = $a->last;
113 # warn "last, tail is @a";
114 # warn "last of $b is ".$b->last;
117 #@a = $c->last;
118 #test ("last, tail", '"@a"', '[33..34) [27..28),[28..29),[32..33)');
119 #@a = defined $a[1] ? $a[1]->last : ();
120 #test ("last, tail", '"@a"', '[32..33) [27..28),[28..29)');
121 #@a = defined $a[1] ? $a[1]->last : ();
122 #test ("last, tail", '"@a"', '[28..29) [27..28)');
123 #@a = defined $a[1] ? $a[1]->last : ();
124 #test ("last, tail", '"@a"', '[27..28)');
127 #@a = defined $a[1] ? $a[1]->last : ();
128 #test ("last, tail", '"@a"', '');
135 #@a = $c->last;
139 #    print "  # TODO: fail last() of select()\n";
143 #test ("last, tail", '"@a"', '[27..28) Too complex');
144 #@a = defined $a[1] ? $a[1]->last : ();
145 #test ("last, tail", '"@a"', '[28..29) Too complex');
146 #@a = defined $a[1] ? $a[1]->last : ();
147 #test ("last, tail", '"@a"', '[32..33) Too complex');
148 #@a = defined $a[1] ? $a[1]->last : ();
149 #test ("last, tail", '"@a"', '[33..34) Too complex');
150 #@a = defined $a[1] ? $a[1]->last : ();
151 #test ("last, tail", '"@a"', '[37..38) Too complex');
160 @a = $b->last;
161 test ("last, tail", '"@a"', '[26..27) [25..26)');
162 @a = defined $a[1] ? $a[1]->last : ();
163 test ("last, tail", '"@a"', '[25..26)');
164 @a = defined $a[1] ? $a[1]->last : ();
165 test ("last, tail", '"@a"', '');
172 @a = $a->last;
173 test ("last, tail", '"@a"', "(15..16) ($neg_inf..15)");
174 @a = defined $a[1] ? $a[1]->last : ();
175 test ("last, tail", '"@a"', "($neg_inf..15)");