polserver/testsuite/escript/interstring/interstring01.src

var t, id1, id2;
var n := 0;

function testPrint(num)
	n += 1;
	print(CStr(n) + ".");
	print(TypeOf(t));
	print(t);
endfunction

t := $""; // zero parts
testPrint(t);

t := $"foo"; // one part, string
testPrint(t);

t := $"{1}"; // one part, expression -> integer literal
testPrint(t);

id1 := 0xbad.beefp4;
t := $"{id1}";  // one part, expression -> identifier -> hex float literal
testPrint(t);

// #5
t := $"foo{""}"; // two parts
testPrint(t);

t := $"{1}bar"; // one part, expression -> integer literal
testPrint(t);

id1 := "foo";
id2 := "bar";
t := $"{id1}{id2}";  // two parts
testPrint(t);

t := $"{uninit}";
testPrint(t);

t := $"!{uninit}";
testPrint(t);

// #10
t := $"{uninit}!";
testPrint(t);

t := $"!{uninit}!";
testPrint(t);

t := $"{CAsc("a")}"; // expression -> function call, that returns a Long
testPrint(t);

t := $"{48879:#x}";
testPrint(t);

t := $"Hello {"string":#x}";
testPrint(t);

// #15
t := $"Hello, {@testPrint}";
testPrint(t);

t := $"Hello{$"\x61\x62\x63"}World";
testPrint(t);

t := $"Hello, {{{"_".join(array{1,2,3})}}}";
testPrint(t);

t := $"{{";
testPrint(t);

t := $"{{{{";
testPrint(t);

// #20
t := $"}}";
testPrint(t);

t := $"}}}}";
testPrint(t);

t := $"{{}}";
testPrint(t);

t := $"{{{{}}}}";
testPrint(t);

t := $"{{{{{"_"}}}}}!{{{{" - "}}}}"; // interstring MINUS string
testPrint(t);

// #25
t := $"{{{{{"-"}}}}}!{{{"-"}}}";
testPrint(t);