forked from parrot/parrot
/
default.t
51 lines (36 loc) · 777 Bytes
/
default.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
#!parrot
# Copyright (C) 2006-2010, Parrot Foundation.
# $Id$
=head1 NAME
t/pmc/default.t - test default PMC
=head1 SYNOPSIS
% prove t/pmc/default.t
=head1 DESCRIPTION
Tests the default PMC.
=cut
.sub main :main
.include 'test_more.pir'
plan(3)
test_default()
test_inspect_vtable_function()
.end
.sub test_default
#new $P0, ['default']
todo(0,'the default PMC does not exist')
.end
.sub test_inspect_vtable_function
$P0 = new ['String']
$P1 = inspect $P0, 'flags'
$I9 = 1 << 9 # PObj_is_PMC_FLAG
$I29 = 1 << 29 # PObj_is_class_FLAG
$I0 = $P1
$I1 = $I0 & $I9
ok($I1)
$I1 = $I0 & $I29
nok($I1)
.end
# Local Variables:
# mode: pir
# fill-column: 100
# End:
# vim: expandtab shiftwidth=4 ft=pir: