pike.git/
lib/
modules/
Standards.pmod/
testsuite.in
Branch:
Tag:
Non-build tags
All tags
No tags
2006-06-09
2006-06-09 14:14:39 by Martin Nilsson <mani@lysator.liu.se>
7bdd5b35f3fd11f93c42af87425c23375173a598 (
14
lines) (+
9
/-
5
)
[
Show
|
Annotate
]
Branch:
7.9
Fixes
Rev: lib/modules/Standards.pmod/testsuite.in:1.16
1:
START_MARKER
-
test_true([["$Id: testsuite.in,v 1.
15
2006/
05/
06 14:
54
:
09
grubba
Exp $"]]);
+
test_true([["$Id: testsuite.in,v 1.
16
2006/
06
/
09
14:
14
:
39
nilsson
Exp $"]]);
// - Standards.ISO639_2 test_equal(Standards.ISO639_2.get_language("swe"),"Swedish")
7:
test_true(sizeof(Standards.ISO639_2.list_languages())>400) test_equal(Standards.ISO639_2.map_639_1("sv"),"swe") test_equal(Standards.ISO639_2.map_639_1("xx"),0)
-
test_
equal
(sizeof(Standards.ISO639_2.list_639_1())
,164
)
+
test_
true
(sizeof(Standards.ISO639_2.list_639_1())
>150
)
test_do( class A { inherit Standards.ISO639_2;
123:
"\x43D\x435\x433\x43E\x432\x43E\x440\x44F\x442\x43F\x43E" "\x440\x443\x441\x441\x43A\x438"]]) // I
-
// UUID
-
+
//
-
UUID
test_eq(Standards.UUID.make_dns("www.widgets.com")->str(), "e902893a-9d22-3c7e-a7b8-d6e313b71d9f") test_eq(Standards.UUID.make_null()->str(),
-
"00000000-0000-0000-0000-000000000000")
;
+
"00000000-0000-0000-0000-000000000000")
-
+
// - TLD
+
test_equal(Standards.TLD.cc.se, "Sweden")
+
test_true(Standards.TLD.generic.com)
+
END_MARKER