Mercurial > repo

annotate interps/clc-intercal/CLC-INTERCAL-Base-1.-94.-2/t/11compiler-sick.t @ 12202:57ddf08a8ca2 draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
<oerjan> slwd moon//s,$,.,
author HackEso <hackeso@esolangs.org>
date Thu, 28 Nov 2019 02:15:33 +0000
parents 859f9b4339e6
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
996
859f9b4339e6 <Gregor> tar xf egobot.tar.xz
HackBot
parents:
diff changeset
1 # test CLC-INTERCAL compiler
859f9b4339e6 <Gregor> tar xf egobot.tar.xz
HackBot
parents:
diff changeset
2
859f9b4339e6 <Gregor> tar xf egobot.tar.xz
HackBot
parents:
diff changeset
3 # Copyright (c) 2006-2008 Claudio Calvelli, all rights reserved.
859f9b4339e6 <Gregor> tar xf egobot.tar.xz
HackBot
parents:
diff changeset
4
859f9b4339e6 <Gregor> tar xf egobot.tar.xz
HackBot
parents:
diff changeset
5 # CLC-INTERCAL is copyrighted software. However, permission to use, modify,
859f9b4339e6 <Gregor> tar xf egobot.tar.xz
HackBot
parents:
diff changeset
6 # and distribute it is granted provided that the conditions set out in the
859f9b4339e6 <Gregor> tar xf egobot.tar.xz
HackBot
parents:
diff changeset
7 # licence agreement are met. See files README and COPYING in the distribution.
859f9b4339e6 <Gregor> tar xf egobot.tar.xz
HackBot
parents:
diff changeset
8
859f9b4339e6 <Gregor> tar xf egobot.tar.xz
HackBot
parents:
diff changeset
9 my @all_tests = (
859f9b4339e6 <Gregor> tar xf egobot.tar.xz
HackBot
parents:
diff changeset
10 ['Comment', '', "*000 COMMENT\n", 0, "COMMENT"],
859f9b4339e6 <Gregor> tar xf egobot.tar.xz
HackBot
parents:
diff changeset
11 ['READ OUT', '', "XII\n", undef, "DO .1 <- #12\nPLEASE READ OUT .1"],
859f9b4339e6 <Gregor> tar xf egobot.tar.xz
HackBot
parents:
diff changeset
12 ['NOT', '', "XII\n", undef, "DO .1 <- #12\nDO NOT .1 <- #24\nPLEASE READ OUT .1"],
859f9b4339e6 <Gregor> tar xf egobot.tar.xz
HackBot
parents:
diff changeset
13 ['DOUBLE_OH_SEVEN 1', '', "XII\n", undef, "DO .1 <- #12\nDO %0 .1 <- #24\nPLEASE READ OUT .1"],
859f9b4339e6 <Gregor> tar xf egobot.tar.xz
HackBot
parents:
diff changeset
14 ['DOUBLE_OH_SEVEN 2', '', "XXIV\n", undef, "DO .1 <- #12\nDO %100 .1 <- #24\nPLEASE READ OUT .1"],
859f9b4339e6 <Gregor> tar xf egobot.tar.xz
HackBot
parents:
diff changeset
15 ['DOUBLE_OH_SEVEN 3', '', "XXIV\n", undef, "DO .1 <- #100\nDO %.1 .1 <- #24\nPLEASE READ OUT .1"],
859f9b4339e6 <Gregor> tar xf egobot.tar.xz
HackBot
parents:
diff changeset
16 ['DOUBLE_OH_SEVEN 4', '', "NIHIL\n", undef, "DO .1 <- #0\nDO %.1 .1 <- #24\nPLEASE READ OUT .1"],
859f9b4339e6 <Gregor> tar xf egobot.tar.xz
HackBot
parents:
diff changeset
17 ['NOT DOUBLE_OH_SEVEN 1', '', "XII\n", undef, "DO .1 <- #12\nDO NOT %0 .1 <- #24\nPLEASE READ OUT .1"],
859f9b4339e6 <Gregor> tar xf egobot.tar.xz
HackBot
parents:
diff changeset
18 ['NOT DOUBLE_OH_SEVEN 2', '', "XII\n", undef, "DO .1 <- #12\nDO NOT %100 .1 <- #24\nPLEASE READ OUT .1"],
859f9b4339e6 <Gregor> tar xf egobot.tar.xz
HackBot
parents:
diff changeset
19 ['NOT DOUBLE_OH_SEVEN 3', '', "C\n", undef, "DO .1 <- #100\nDO NOT %.1 .1 <- #24\nPLEASE READ OUT .1"],
859f9b4339e6 <Gregor> tar xf egobot.tar.xz
HackBot
parents:
diff changeset
20 ['NOT DOUBLE_OH_SEVEN 4', '', "NIHIL\n", undef, "DO .1 <- #0\nDO NOT %.1 .1 <- #24\nPLEASE READ OUT .1"],
859f9b4339e6 <Gregor> tar xf egobot.tar.xz
HackBot
parents:
diff changeset
21 ['DOUBLE_OH_SEVEN 1 NOT', '', "XII\n", undef, "DO .1 <- #12\nDO %0 NOT .1 <- #24\nPLEASE READ OUT .1"],
859f9b4339e6 <Gregor> tar xf egobot.tar.xz
HackBot
parents:
diff changeset
22 ['DOUBLE_OH_SEVEN 2 NOT', '', "XII\n", undef, "DO .1 <- #12\nDO %100 NOT .1 <- #24\nPLEASE READ OUT .1"],
859f9b4339e6 <Gregor> tar xf egobot.tar.xz
HackBot
parents:
diff changeset
23 ['DOUBLE_OH_SEVEN 3 NOT', '', "C\n", undef, "DO .1 <- #100\nDO %.1 NOT .1 <- #24\nPLEASE READ OUT .1"],
859f9b4339e6 <Gregor> tar xf egobot.tar.xz
HackBot
parents:
diff changeset
24 ['DOUBLE_OH_SEVEN 4 NOT', '', "NIHIL\n", undef, "DO .1 <- #0\nDO %.1 NOT .1 <- #24\nPLEASE READ OUT .1"],
859f9b4339e6 <Gregor> tar xf egobot.tar.xz
HackBot
parents:
diff changeset
25 # XXX more tests would be nice
859f9b4339e6 <Gregor> tar xf egobot.tar.xz
HackBot
parents:
diff changeset
26 );
859f9b4339e6 <Gregor> tar xf egobot.tar.xz
HackBot
parents:
diff changeset
27
859f9b4339e6 <Gregor> tar xf egobot.tar.xz
HackBot
parents:
diff changeset
28 require 't/compiler-test';
859f9b4339e6 <Gregor> tar xf egobot.tar.xz
HackBot
parents:
diff changeset
29
859f9b4339e6 <Gregor> tar xf egobot.tar.xz
HackBot
parents:
diff changeset
30 runtest('sick', 'DO GIVE UP', \@all_tests);
859f9b4339e6 <Gregor> tar xf egobot.tar.xz
HackBot
parents:
diff changeset
31