Просмотр исходного кода

ncd: tests: value.ncd: add some more testing with different representations of strings

ambrop7 13 лет назад
Родитель
Сommit
cdab8d3f4b
1 измененных файлов с 17 добавлено и 0 удалено
  1. 17 0
      ncd/tests/value.ncd

+ 17 - 0
ncd/tests/value.ncd

@@ -198,6 +198,9 @@ process main {
     value(buf) v;
     value(buf) v;
     val_equal(v, "123") a;
     val_equal(v, "123") a;
     assert(a);
     assert(a);
+    v->substr("2") sub_v;
+    val_equal(sub_v, "3") a;
+    assert(a);
     v->append("456789012345");
     v->append("456789012345");
     val_equal(v, "123456789012345") a;
     val_equal(v, "123456789012345") a;
     assert(a);
     assert(a);
@@ -208,6 +211,20 @@ process main {
     val_equal(sub_v, "345") a;
     val_equal(sub_v, "345") a;
     assert(a);
     assert(a);
     
     
+    concat("hello", "world") cnc;
+    value(cnc) v;
+    val_equal(v, "helloworld") a;
+    assert(a);
+    v->substr("2") sub_v;
+    val_equal(sub_v, "lloworld") a;
+    assert(a);
+    v->append("!!");
+    val_equal(v, "helloworld!!") a;
+    assert(a);
+    v->substr("1") sub_v;
+    val_equal(sub_v, "elloworld!!") a;
+    assert(a);
+    
     exit("0");
     exit("0");
 }
 }