pike.git/
bin/
test_pike.pike
Branch:
Tag:
Non-build tags
All tags
No tags
2000-02-28
2000-02-28 04:20:18 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>
a4db19f081d6911a5f87937bd8359b9b508a2d8c (
13
lines) (+
10
/-
3
)
[
Show
|
Annotate
]
Branch:
7.9
tests for \r\n
Rev: bin/test_pike.pike:1.35
1:
#!/usr/local/bin/pike
-
/* $Id: test_pike.pike,v 1.
34
2000/02/
22
16
:
49
:
15
hubbe Exp $ */
+
/* $Id: test_pike.pike,v 1.
35
2000/02/
28
04
:
20
:
18
hubbe Exp $ */
import Stdio;
389:
if(check > 1) _verify_internals(); shift++;
-
shift%=3;
+
string fname = argv[f] + ": Test " + (e + 1) +
-
" (shift " + shift + ")";
+
" (shift " +
(
shift
%3)
+ ")";
string widener = ([ 0:"", 1:"\nint \x30c6\x30b9\x30c8=0;\n",
414:
string linetester="int __cpp_line=__LINE__; int __rtl_line=[int]backtrace()[-1][1];\n"; string to_compile = test + linetester + widener;
+
+
if((shift/3)&1)
+
{
+
fname+=" (CRNL)";
+
to_compile=replace(to_compile,"\n","\r\n");
+
}
+
switch(type) { case "COMPILE":