t/dynoplibs/bit.t

60     $P0 = box 3
61     $P1 = bnot $P0
66     $P0 = new['Integer']
67     $P0 = 3
69     band $P0, $I0
70     is( $P0, 0, 'band_p_i' )
73     $P0 = 3
74     band $P0, 8
75     is( $P0, 0, 'band_p_ic' )
77     $P0 = 3
80     band $P0, $P1
81     is( $P0, 1, 'band_p_p' )
85     band $P0, $P0, $I0
86     is( $P0, 1, 'band_p_p_i' )
89     band $P0, $P0, 3
90     is( $P0, 1, 'band_p_p_ic' )
92     $P0 = 4
95     band $P2, $P0, $P1
96     is( $P0, 4, 'band_p_p_p' )
147     $P0 = box "abc"
150     bands $P1, $P0, $S0
152     is( $P0, "abc", 'bands 4' )
155     $P1 = bands $P0, "EE"
157     is( $P0, "abc", 'bands 4' )
159     $P0 = box "abc"
161     bands $P0, $S0
162     is( $P0, "A@", 'bands 4' )
165     $P0 = box "abc"
166     bands $P0, "EE"
167     is( $P0, "A@", 'bands 4' )
178     $P0 = new ['Integer']
179     $P1 = clone $P0
180     $P0 = 4
182     bor $P0, $P1
183     is( $P0, 7, 'bor_p_p' )
186     $P0 = 1
189     bor $P1, $P0, $I0
190     is( $P0, 1, 'bor_p_p_i' )
194     $P0 = 1
196     bor $P1, $P0, 2
197     is( $P0, 1, 'bor_p_p_ic' )
200     $P0 = 1
204     bor $P2, $P0, $P1
205     is( $P0, 1, 'bor_p_p_p' )
212     $P0 = box 20
213     bor $P0, $I0
214     is( $P0, 60, 'bor_p_i' )
216     $P0 = box 30
217     bor $P0, 40
218     is( $P0, 62, 'bor_p_ic' )
274     $P0 = box "abc"
275     bors $P0, $S2
276     is( $P0, "egc", 'bors_p_s' )
279     $P0 = box "abc"
280     bors $P0, "EE"
281     is( $P0, "egc", 'bors_p_sc' )
299     new $P0, ['String']
302     bors $P0, $P1, $S0
303     is( $P0, "egc", 'bors_p_p_s' )
307     set $P0, ""
309     bors $P0, $P1, "EE"
310     is( $P0, "egc", 'bors_p_p_sc' )
322     $P0 = new ['Integer']
323     $P0 = 1
325     shl $P0, $I0
326     is( $P0, 2, 'shl_p_i' )
330     $P0 = new ['Integer']
331     $P0 = 1
332     shl $P0, 2
333     is( $P0, 4, 'shl_p_ic' )
335     $P0 = 1
339     shl $P0, $P1
340     is( $P0, 4, 'shl_p_p' )
344     $P0 = new ['Integer']
345     $P0 = 1
349     $P1 = shl $P0, 2
353     $P1 = shl $P0, $I0
359     $P1 = shl $P0, $P2
364     $P0 = new ['Integer']
365     $P0 = 16
366     shr $P0, 2
367     is( $P0, 4, 'shr_p_ic' )
369     $P0 = 16
372     shr $P0, $I0
373     is( $P0, 2, 'shr_p_i' )
375     $P0 = 16
379     shr $P0, $P1
380     is( $P0, 1, 'shr_p_p' )
384     $P0 = new ['Integer']
385     $P0 = 16
389     $P1 = shr $P0, 2
393     $P1 = shr $P0, $I0
399     $P1 = shr $P0, $P2
404     $P0 = new ["Integer"]
407     $P0 = 4
410     lsr_p_i $P0, $I0
411     is($P0, 2, "lsr_p_i")
413     lsr_p_ic $P0, 1
414     is($P0, 1, "lsr_p_ic")
416     lsr_p_p $P1, $P0
427     lsr_p_p_p $P1, $P1, $P0
432     $P0 = box 3
434     bxor $P0, $I0
435     is( $P0, 0, 'bxor_p_i' )
437     $P0 = box 3
438     bxor $P0, 3
439     is( $P0, 0, 'bxor_p_ic' )
441     $P0 = box 3
442     bxor $P0, $P0
443     is( $P0, 0, 'bxor_p_p' )
445     $P0 = box 3
446     bxor $P0, $P0, $I0
447     is( $P0, 0, 'bxor_p_p_i' )
449     $P0 = box 3
450     bxor $P0, $P0, 3
451     is( $P0, 0, 'bxor_p_p_ic' )
453     $P0 = box 3
454     bxor $P0, $P0, $P0
455     is( $P0, 0, 'bxor_p_p_p' )
517     box $P0, "a2c"
519     bxors $P0, $S0
520     is( $P0, "%Ec", 'bxors 2' )
523     box $P0, "a2c"
524     bxors $P0, "Dw"
525     is( $P0, "%Ec", 'bxors 2' )
550     box $P0, "abc"
552     bxors $P0, $P0, $S0
553     is( $P0, "ABCY", 'bxors 3' )
556     box $P0, "abc"
557     bxors $P0, $P0, "   Y"
558     is( $P0, "ABCY", 'bxors 3' )
576     $P0 = new ["Integer"]
577     $P0 = 12
578     bnot $P0
579     is($P0, -13, "bnot_p")