← Back to branch summary

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

« back to all changes in this revision

Viewing changes to t/42postprocess.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/42postprocess.t
1
 
use Language::INTERCAL;
2
 
use Language::INTERCAL::Runtime::Library;
3
 
 
4
 
my $prog = '
5
 
@@@@@@@��@K�@L`@{�
6
 
@@@@@@@��@����@��������@L`@����������@���@��������@������@����������
7
 
@@@@@@@��@K�@������@{�
8
 
@@@@@@@��@����@���@K�
9
 
@@@@@@@������@�����@{�@��@M����]@��@�����@|�
10
 
@@@@@@@��@�����@K�@��@�����@{�
11
 
@@@@@@@��@K�@L`@{�
12
 
@@@@@@@��@����@���@K�
13
 
@@@@@@@������@�������@�����@��������@��@�����@����������
14
 
@@@@@@@@@@@@@@@@@@@��@��������@������@����������
15
 
@@@@@@@��@�����@K�@��@�����@{��
16
 
@@@@@@@��@����@���@K�
17
 
M�]@@@@������@�������@�����@����@��@����@����@�����
18
 
@@@@@@@������@����@��
19
 
@@@@@@@��@M�]@����
20
 
@@@@@@@��@����@���@K�
21
 
M�]@@@@��@����@�����@����@���@�������@����@�����
22
 
@@@@@@@������@����@��
23
 
@@@@@@@��@�������@����@M�]
24
 
@@@@@@@��@����@���@K�
25
 
@@@@@@@��@����@����@���@��������@���@�����@��@��������
26
 
@@@@@@@��@�����@��@K�
27
 
@@@@@@@��@�������@������@�������@��@����@��
28
 
@@@@@@@������@������@�������
29
 
M����]@��@[|�@������@{�
30
 
@@@@@@@��@������@�������
31
 
';
32
 
 
33
 
print "1..32\n";
34
 
 
35
 
fiddle Language::INTERCAL 'bug=0', 'ubug=0';
36
 
 
37
 
my @foo;
38
 
 
39
 
compile Language::INTERCAL 'prog', $prog;
40
 
@foo= ();
41
 
eval { prog(0, \&foo) };
42
 
print STDERR $@;
43
 
print $@ ? "not " : "", "ok 1\n";
44
 
print @foo == 6 ? "" : "not ", "ok 2\n";
45
 
print "VII\n" eq (shift @foo) ? "" : "not ", "ok 3\n";
46
 
print "III\n" eq (shift @foo) ? "" : "not ", "ok 4\n";
47
 
print "XII\n" eq (shift @foo) ? "" : "not ", "ok 5\n";
48
 
print "XII\n" eq (shift @foo) ? "" : "not ", "ok 6\n";
49
 
print "VII\n" eq (shift @foo) ? "" : "not ", "ok 7\n";
50
 
print "XII\n" eq (shift @foo) ? "" : "not ", "ok 8\n";
51
 
 
52
 
compile Language::INTERCAL 'prog_o', $prog, 'opt';
53
 
@foo= ();
54
 
eval { prog_o(0, \&foo) };
55
 
print STDERR $@;
56
 
print $@ ? "not " : "", "ok 9\n";
57
 
print @foo == 6 ? "" : "not ", "ok 10\n";
58
 
print "VII\n" eq (shift @foo) ? "" : "not ", "ok 11\n";
59
 
print "III\n" eq (shift @foo) ? "" : "not ", "ok 12\n";
60
 
print "XII\n" eq (shift @foo) ? "" : "not ", "ok 13\n";
61
 
print "XII\n" eq (shift @foo) ? "" : "not ", "ok 14\n";
62
 
print "VII\n" eq (shift @foo) ? "" : "not ", "ok 15\n";
63
 
print "XII\n" eq (shift @foo) ? "" : "not ", "ok 16\n";
64
 
 
65
 
compile Language::INTERCAL 'prog_q', $prog, 'quantum';
66
 
@foo= ();
67
 
eval { prog_q(0, \&foo) };
68
 
print STDERR $@;
69
 
print $@ ? "not " : "", "ok 17\n";
70
 
print @foo == 6 ? "" : "not ", "ok 18\n";
71
 
print "VII\n" eq (shift @foo) ? "" : "not ", "ok 19\n";
72
 
print "III\n" eq (shift @foo) ? "" : "not ", "ok 20\n";
73
 
print "XII\n" eq (shift @foo) ? "" : "not ", "ok 21\n";
74
 
print "XII\n" eq (shift @foo) ? "" : "not ", "ok 22\n";
75
 
print "VII\n" eq (shift @foo) ? "" : "not ", "ok 23\n";
76
 
print "XII\n" eq (shift @foo) ? "" : "not ", "ok 24\n";
77
 
 
78
 
compile Language::INTERCAL 'prog_d', $prog, 'dbhook';
79
 
@foo= ();
80
 
_run_db(prog_d(0, \&foo));
81
 
print STDERR $@;
82
 
print $@ ? "not " : "", "ok 25\n";
83
 
print @foo == 6 ? "" : "not ", "ok 26\n";
84
 
print "VII\n" eq (shift @foo) ? "" : "not ", "ok 27\n";
85
 
print "III\n" eq (shift @foo) ? "" : "not ", "ok 28\n";
86
 
print "XII\n" eq (shift @foo) ? "" : "not ", "ok 29\n";
87
 
print "XII\n" eq (shift @foo) ? "" : "not ", "ok 30\n";
88
 
print "VII\n" eq (shift @foo) ? "" : "not ", "ok 31\n";
89
 
print "XII\n" eq (shift @foo) ? "" : "not ", "ok 32\n";
90
 
 
91
 
sub foo {
92
 
    push @foo, join('', @_);
93
 
}
94