996
|
1 # test system call interface
|
|
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 ['No Operation (0)', '', '', undef, "(666) DO .1 <- #0"],
|
|
11 ['Version Number (1)', '', "1.-94.-3\n", undef, "(666) DO .1 <- #1\nDO READ OUT ,1"],
|
|
12 ['INTERCAL DIALECT (2)', '', "CLC-INTERCAL\n", undef, "(666) DO .1 <- #2\nDO READ OUT ,1"],
|
|
13 # XXX file tests need to be written
|
|
14 );
|
|
15
|
|
16 require 't/compiler-test';
|
|
17
|
|
18 runtest(['sick', 'syscall'], 'DO GIVE UP', \@all_tests);
|
|
19
|