← Back to branch summary

~ubuntu-branches/ubuntu/raring/parrot/raring-proposed

« back to all changes in this revision

Viewing changes to t/dynpmc/foo-07.t

  • Committer: Bazaar Package Importer
  • Author(s): Allison Randal
  • Date: 2011-07-30 18:45:03 UTC
  • mfrom: (1.1.13 upstream)
  • Revision ID: james.westby@ubuntu.com-20110730184503-34d4mprtfx6pt5h3
Tags: 3.6.0-1
* New upstream release
* debian/watch:
  - Modified regular expression to capture numbered directory name
    (patch from Dominique Dumont).
* debian/rules:
  - Split build-arch and build-indep, resolving lintian warning.
  - Update path to pbc_disassemble for manpage generation (patch
    from Dominique Dumont).
* debian/patches:
  - Added patch 02_fix_perl_interpreter_path.patch, resolving
    lintian warnings.
* debian/control:
  - Added DM-Upload-Allowed field.

Show diffs side-by-side

added added

removed removed

Lines of Context:
t/dynpmc/foo-07.t
 
1
#!./parrot
 
2
# Copyright (C) 2011, Parrot Foundation.
 
3
 
 
4
.sub main :main
 
5
    .include 'test_more.pir'
 
6
    plan(3)
 
7
 
 
8
    .include "iglobals.pasm"
 
9
    .local pmc config_hash, interp
 
10
    .local pmc d, l, r
 
11
    interp = getinterp
 
12
    config_hash = interp[.IGLOBALS_CONFIG_HASH]
 
13
    $S0 = config_hash['gmp']
 
14
    unless $S0 goto no_bigint
 
15
 
 
16
    $P0 = loadlib "foo_group"
 
17
    ok(1, 'inherited add - loadlib')
 
18
    l = new "Foo"
 
19
    l = 42
 
20
    r = new 'BigInt'
 
21
    r = 0x7ffffff
 
22
    d = new 'Undef'
 
23
    add d, l, r
 
24
    is(d, 134217769, 'inherited add')
 
25
    $S0 = typeof d
 
26
    is($S0, 'BigInt', 'inherited add - typeof')
 
27
    .return()
 
28
  no_bigint:
 
29
    skip( 3, 'No BigInt Lib configured' )
 
30
.end
 
31
 
 
32
# Local Variables:
 
33
#   mode: pir
 
34
#   fill-column: 100
 
35
# End:
 
36
# vim: expandtab shiftwidth=4 ft=pir: