Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
branch: master
Fetching contributors…

Octocat-spinner-32-eaf2f5

Cannot retrieve contributors at this time

file 56 lines (41 sloc) 1.195 kb
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
#!winxed

$include 't/common.winxed';

function main[main]() {
    Rosella.Test.test(class SanityTest);
}

class SanityTest {
    function test_imcc() {
        var assert = self.assert;

        var imcc = compreg('PIR');
        assert.defined(imcc, 'IMCC exists');

        var view = imcc.compile(<<:
.namespace [] # work around for segfault
.sub 'test_imcc_1'
.end
:>>
);
assert.defined(view, 'got something from IMCC');
assert.instance_of(view, 'PackfileView');

var packfile = new 'Packfile'(view);
assert.instance_of(packfile, 'Packfile');
}

function test_loading() {
        var assert = self.assert;

        assert.not_null(class PACT.Packfile, 'found Packfile');

        assert.not_null(class PACT.Packfile.Decompile, 'found Decompile');
    }

    function test_compile_decompile() {
        var assert = self.assert;

        var pack = compile(<<:
.namespace [] # work around for segfault
.sub 'test_compile'
.end
:>>
        );

        assert.not_null(pack);
        assert.instance_of(pack, 'Packfile');

        var pact = decompile(pack);
        assert.instance_of(pact, class PACT.Packfile);
    }
}

# vim: se ft=winxed :
Something went wrong with that request. Please try again.