Contents

//-------- test for native function

let test "listlen" -> t in
(
  assert_equalI 0        listlen nil ;
  assert_equalI 1        listlen "test"::nil
);

let test "listtostr" -> t in
(
  assert_equalS "\49"  listtostr 49::nil;
  assert_equalS "\51\52\53"  listtostr 51::52::53::nil
);

let test "strcatlist" -> t in
(
  assert_equalS "\54"  strcatlist "\54"::nil;
  assert_equalS "313233"  strcatlist "31"::"32"::"33"::nil
);

let test "rev" -> t in
(
  assert_equalL 3::2::1::nil rev 1::2::3::nil nil
);

let test "rev" -> t in
(
  assert_equalS "ABC" "\65\66\67"
);

// remfromlist same as  listrem!!!
//let test "remfromlist" -> t in
//(
//  let "asd"::"a"::nil -> l in
//  Lecho (remfromlist l (listlen l) - 1)
//  //assert_equalS "0A000"
//    assert_equalL 48::49::50::nil listrem 48::49::50::nil 49
//);

Version data entries

12 entries across 12 versions & 1 rubygems

Version	Path
nabaztag_hack_kit-0.1.0	bytecode/test/native.mtl
nabaztag_hack_kit-0.1.0.beta8	bytecode/test/native.mtl
nabaztag_hack_kit-0.1.0.beta3	bytecode/test/native.mtl
nabaztag_hack_kit-0.1.0.beta2	bytecode/test/native.mtl
nabaztag_hack_kit-0.1.0.beta1	bytecode/test/native.mtl
nabaztag_hack_kit-0.1.0.alpha7	bytecode/test/native.mtl
nabaztag_hack_kit-0.1.0.alpha6	bytecode/test/native.mtl
nabaztag_hack_kit-0.1.0.alpha5	bytecode/test/native.mtl
nabaztag_hack_kit-0.1.0.alpha4	bytecode/test/native.mtl
nabaztag_hack_kit-0.1.0.alpha3	bytecode/test/native.mtl
nabaztag_hack_kit-0.1.0.alpha2	bytecode/test/native.mtl
nabaztag_hack_kit-0.1.0.alpha1	bytecode/test/native.mtl