-
Notifications
You must be signed in to change notification settings - Fork 138
/
literal.t
74 lines (59 loc) · 1.13 KB
/
literal.t
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
72
73
74
#!perl
# Copyright (C) 2001-2005, The Perl Foundation.
# $Id$
use strict;
use warnings;
use lib qw( . lib ../lib ../../lib );
use Test::More;
use Parrot::Test tests => 2;
=head1 NAME
t/op/literal.t - Testing the PIR and PASM lexer
=head1 SYNOPSIS
% prove t/op/literal.t
=head1 DESCRIPTION
Test lexing of literal numbers.
Taken from from the 2nd aoudad book (page 127).
=head1 TODO
More tests are welcome.
=head1 SEE ALSO
L<https://rt.perl.org/rt3/Ticket/Display.html?id=31197>
=cut
pasm_output_is( <<'CODE', <<'OUTPUT', "integer literals in PASM" );
print 0x2A
print "\n"
print 0X2A
print "\n"
print 0b101010
print "\n"
print 0B101010
print "\n"
end
CODE
42
42
42
42
OUTPUT
pir_output_is( <<'CODE', <<'OUTPUT', "integer literals in PIR" );
.sub test :main
print 0x2A
print "\n"
print 0X2A
print "\n"
print 0b101010
print "\n"
print 0B101010
print "\n"
.end
CODE
42
42
42
42
OUTPUT
# Local Variables:
# mode: cperl
# cperl-indent-level: 4
# fill-column: 100
# End:
# vim: expandtab shiftwidth=4: