Mercurial > repo

view src/ploki/examples/goto.pk @ 11328:56b2bb1446bb

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
<wob_jonas> perl -e open$h,"<",($f="wisdom/font");local$/;$_=<$h>;s/ \\S+sample\\.png// or die; if (1) { open $o,">",$f;print$o $_; } print;
author HackBot
date Wed, 17 Jan 2018 21:00:31 +0000
parents ac0403686959
children
line wrap: on
line source

#!../ploki
WUNT "1..3
GOTO 0
01 WUNT "ERROR MESSAGE
10 END
10 WUNT "ERROR MESSAGE
WUNT "ok 1
0  GOTO 10
20 WUNT "ok 3
20 GOTO 20
20 GOTO 0
20 WUNT "ERROR MESSAGE
10 WUNT "ok 2
10 GOTO 20
00 GOTO 10