Lines Matching refs:and
24 if ($^O eq 'unicos') { # See lib/Math/Complex.pm and t/lib/complex.t.
53 print 'not ' unless (near($y, 1.5707963267949) and
68 print 'not ' unless (near($r, sqrt(2))) and
69 (near($t, deg2rad(45))) and
75 print 'not ' unless (near($x, 1)) and
76 (near($y, 1)) and
82 print 'not ' unless (near($r, sqrt(2))) and
83 (near($t, deg2rad(45))) and
89 print 'not ' unless (near($x, 1)) and
90 (near($y, 1)) and
98 print 'not ' unless (near($r, sqrt(3))) and
99 (near($t, deg2rad(45))) and
105 print 'not ' unless (near($x, 1)) and
106 (near($y, 1)) and
112 print 'not ' unless (near($r, sqrt(2))) and
113 (near($t, deg2rad(45))) and
119 print 'not ' unless (near($x, 1)) and
120 (near($y, 1)) and
128 print 'not ' unless (near($r, 1)) and
129 (near($t, 1)) and
135 print 'not ' unless (near($r, 1)) and
136 (near($t, 1)) and