← Back to branch summary

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

« back to all changes in this revision

Viewing changes to t/03compile.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/03compile.t
1
 
require Language::INTERCAL;
2
 
 
3
 
use vars qw($foo);
4
 
 
5
 
BEGIN { $foo = 'not '; }
6
 
my $oof = '';
7
 
 
8
 
END { print "${foo}ok 1\n"; }
9
 
 
10
 
print "1..1\n";
11
 
 
12
 
toggle Language::INTERCAL 'roman', 'width80';
13
 
fiddle Language::INTERCAL 'bug=0';
14
 
 
15
 
# $SIG{'__DIE__'} = sub { print "not ok 1\n"; die @_ };
16
 
 
17
 
compile Language::INTERCAL 'prog', '
18
 
M����]@������@�������@����@M�]
19
 
M�]@@@@@������@����@��������@��@���@�������@����@����@�������
20
 
@@@@@@@@������@���@��������@�����@��@���@��������@������@����
21
 
@����@���@����@���@�������
22
 
@������@���������@M�]
23
 
@������@���}�@������@���@����@������@����@����@��@���@���@��@�����
24
 
@@@@@@@@��@k�@L`@{�
25
 
@@@@@@@@������@�������@k�@��@k�
26
 
@@@@@@@@������@�������@z�@��@z�
27
 
@@@@@@@@��@K�@L`@{�
28
 
@@@@@@@@��@K�@L`@{�
29
 
@@@@@@@@��@����@����@M��]
30
 
@@@@@@@@��@�����@��@k�
31
 
@@@@@@@@��@K�@L`@k����{�
32
 
@@@@@@@@��@M��]@����
33
 
@@@@@@@@��@����@��
34
 
M��]@@@@������@������@}eK�J{���}�}{���J{���}
35
 
M��]@@@@��@M��]@����
36
 
@@@@@@@@������@������@{�
37
 
@@@@@@@@��@K�@L`@K�
38
 
@@@@@@@@��@M����]@����
39
 
@@@@@@@@��@K�@L`@K�{���
40
 
@@@@@@@@��@K�@L`@O�{��}JO�{���}
41
 
@@@@@@@@������@K�@L`@O�{��}JO�{���}
42
 
@@@@@@@@��@K�@L`@O�{��}JO�{���}
43
 
@@@@@@@@��@K�@L`@K�
44
 
@@@@@@@@��@M����]@����
45
 
@@@@@@@@��@K�@L`@K�
46
 
M����]@@��@k����{�@L`@K�
47
 
M��]@@@@��@����@���@k�
48
 
', \&foo;
49
 
 
50
 
$foo = '' if $oof eq
51
 
'*    STMT #  (LBL)   STATEMENT
52
 
 
53
 
     I       (M)     PLEASE ABSTAIN FROM (I)
54
 
*000 II      (I)     PLEASE TELL WHOMEVER IT MAY CONCERN THAT THIS PROGRAM
55
 
*000                 COPIES ITS STANDARD INPUT TO ITS STANDARD OUTPUT JUST
56
 
*000                 LIKE THE UNIX "CAT" PROGRAM
57
 
     III             PLEASE REINSTATE (I)
58
 
*000 IV              PLEASE DON\'T REPEAT THE CODE BEFORE THIS LINE OR YOU GET AN
59
 
*000                 ERROR
60
 
     V               DO ,I <- #I
61
 
     VI              PLEASE ENSLAVE ,I TO ,II
62
 
     VII             PLEASE ENSLAVE :I TO :II
63
 
     VIII            DO .IV <- #NIHIL
64
 
     IX              DO .V <- #NIHIL
65
 
     X               DO COME FROM (XXX)
66
 
     XI              DO WRITE IN ,I
67
 
     XII             DO .I <- ,I SUB #I
68
 
     XIII            DO (X) NEXT
69
 
     XIV             DO GIVE UP
70
 
     XV      (XX)    PLEASE RESUME \'V-.I C/ #CCLVI\' ~ \'#CCLVI C/ #CCLVI\'
71
 
     XVI     (X)     DO (XX) NEXT
72
 
     XVII            PLEASE FORGET #I
73
 
     XVIII           DO .II <- .IV
74
 
     XIX             DO (M) NEXT
75
 
     XX              DO .IV <- .III ~ #CCLV
76
 
     XXI             DO .III <- \'.III ~ #XV\' C/ \'.III ~ #CCXL\'
77
 
     XXII            PLEASE .III <- \'.III ~ #XV\' C/ \'.III ~ #CCXL\'
78
 
     XXIII           DO .II <- \'.III ~ #XV\' C/ \'.III ~ #CCXL\'
79
 
     XXIV            DO .I <- .V
80
 
     XXV             DO (MX) NEXT
81
 
     XXVI            DO .V <- .II
82
 
     XXVII   (MX)    DO ,I SUB #I <- .III
83
 
     XXVIII  (XXX)   DO READ OUT ,I
84
 
';
85
 
 
86
 
sub foo {
87
 
    $oof .= join('', @_);
88
 
}
89