996
|
1 # test iacc compiler compiler
|
|
2
|
|
3 # Copyright (c) 2006-2008 Claudio Calvelli, all rights reserved.
|
|
4
|
|
5 # CLC-INTERCAL is copyrighted software. However, permission to use, modify,
|
|
6 # and distribute it is granted provided that the conditions set out in the
|
|
7 # licence agreement are met. See files README and COPYING in the distribution.
|
|
8
|
|
9 my @all_tests = (
|
|
10 ['Comment', '', "*000 COMMENT\n", 0, "COMMENT"],
|
|
11 # the following statements are taken from sick.iacc so they better be valid!
|
|
12 ['Create 1', '', "", undef, "DO CREATE _2 ?EMPTY ,, AS ,,"],
|
|
13 ['Create 2', '', "", undef,
|
|
14 "DO CREATE _2 ?QUALIFIERS ,#37, ?CONSTANT ?QUALIFIERS AS DSX + ?CONSTANT #1 + ?QUALIFIERS #1"],
|
|
15 ['Create 3', '', "", undef,
|
|
16 "DO CREATE _2 ?WVERB ?VERB ,WHILE, ?VERB AS CWB + ?VERB #1 + ?VERB #2"],
|
|
17 # XXX more tests would be nice
|
|
18 );
|
|
19
|
|
20 require 't/compiler-test';
|
|
21
|
|
22 runtest('iacc', 'DO GIVE UP', \@all_tests);
|
|
23
|