← Back to branch summary

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

« back to all changes in this revision

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