← Back to branch summary

~ubuntu-branches/ubuntu/trusty/clc-intercal/trusty-proposed

« back to all changes in this revision

Viewing changes to t/39quantum-abstain.t

  • Committer: Bazaar Package Importer
  • Author(s): Mark Brown
  • Date: 2006-10-08 13:30:54 UTC
  • mfrom: (1.1.1 upstream) (3.1.1 dapper)
  • Revision ID: james.westby@ubuntu.com-20061008133054-fto70u71yoyltr3m
Tags: 1:1.0~2pre1.-94.-4.1-1
* New upstream release.
* Change to dh_installman.

Show diffs side-by-side

added added

removed removed

Lines of Context:
t/39quantum-abstain.t
1
 
use Language::INTERCAL;
2
 
use Language::INTERCAL::Runtime::Library;
3
 
 
4
 
my $prog = '
5
 
        ������@K�@L`@{�
6
 
M�]     ������@�������@����@M�]@�����@�����������@��
7
 
M�]     ��@����@����@K�
8
 
        ��@K�@L`@{��
9
 
M�]     ��@����@���@K�
10
 
M�]     ��@����@����@M�]
11
 
        ��@����@���@K�
12
 
        ��@K�@L`@{�
13
 
        ��@����@����@M�]
14
 
        ������@����@��
15
 
';
16
 
 
17
 
print "1..16\n";
18
 
 
19
 
fiddle Language::INTERCAL 'bug=0', 'ubug=0';
20
 
 
21
 
my @foo;
22
 
 
23
 
compile Language::INTERCAL 'prog', $prog;
24
 
@foo= ();
25
 
eval { prog(0, \&foo) };
26
 
print STDERR $@;
27
 
print $@ ? "not " : "", "ok 1\n";
28
 
print @foo == 2 ? "" : "not ", "ok 2\n";
29
 
print "IV\n" eq (shift @foo) ? "" : "not ", "ok 3\n";
30
 
print "XLII\n" eq (shift @foo) ? "" : "not ", "ok 4\n";
31
 
 
32
 
compile Language::INTERCAL 'prog_o', $prog, 'opt';
33
 
@foo= ();
34
 
eval { prog_o(0, \&foo) };
35
 
print STDERR $@;
36
 
print $@ ? "not " : "", "ok 5\n";
37
 
print @foo == 2 ? "" : "not ", "ok 6\n";
38
 
print "IV\n" eq (shift @foo) ? "" : "not ", "ok 7\n";
39
 
print "XLII\n" eq (shift @foo) ? "" : "not ", "ok 8\n";
40
 
 
41
 
compile Language::INTERCAL 'prog_p', $prog, 'post';
42
 
@foo= ();
43
 
eval { prog_p(0, \&foo) };
44
 
print STDERR $@;
45
 
print $@ ? "not " : "", "ok 9\n";
46
 
print @foo == 2 ? "" : "not ", "ok 10\n";
47
 
print "IV\n" eq (shift @foo) ? "" : "not ", "ok 11\n";
48
 
print "XLII\n" eq (shift @foo) ? "" : "not ", "ok 12\n";
49
 
 
50
 
compile Language::INTERCAL 'prog_d', $prog, 'dbhook';
51
 
@foo= ();
52
 
_run_db(prog_d(0, \&foo));
53
 
print STDERR $@;
54
 
print $@ ? "not " : "", "ok 13\n";
55
 
print @foo == 2 ? "" : "not ", "ok 14\n";
56
 
print "IV\n" eq (shift @foo) ? "" : "not ", "ok 15\n";
57
 
print "XLII\n" eq (shift @foo) ? "" : "not ", "ok 16\n";
58
 
 
59
 
sub foo {
60
 
    push @foo, join('', @_);
61
 
}
62