1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
puts "1..12"
nqp::say("ok 1 - nqp::say")
nqp::print("ok 2 - nqp::print with new-line\n")
puts nqp::concat("ok ", '3 - nqp::concat')
puts nqp::substr("nok 4 - nqp::substr", 1)
puts nqp::lc(nqp::flip("KO") ~ " 5 - nQp::fLIp and nqp::lC")
nqp::print nqp::chr(nqp::ord('o')); puts 'k 6 - nqp::ord and nqp::chr'
def ok(i,msg)
nqp::say("ok #{i} - #{msg}");
end
def nok(i,msg)
nqp::say("nok #{i} - #{msg}");
end
nqp::if(2+2 == 4, ok(7, "nqp::if (true)"), nok(7, "nqp::if (true)"))
nqp::if(2+2 == 5, nok(8, "nqp::if (true)"), ok(8, "nqp::if (false)"))
n = 9
nqp::while n <= 11, begin
ok(n, "nqp::while (#{n})")
n += 1
end
puts nqp::sprintf("%s %d - %s", ['ok', 12, 'nqp::sprintf'])
|
