pike.git
/
src
/
testsuite.in
version
»
Context lines:
10
20
40
80
file
none
3
pike.git/src/testsuite.in:1:
START_MARKER
-
test_true([["$Id: testsuite.in,v 1.
794
2008/01/
05
14
:
23
:
01
grubba
Exp $"]]);
+
test_true([["$Id: testsuite.in,v 1.
795
2008/01/
13
19
:
11
:
22
nilsson
Exp $"]]);
// This triggered a bug only if run sufficiently early. test_compile_any([[#pike 7.2]]) test_compile_any([[#pike 7.4]]) test_compile_any([[#pike 7.0]]) test_compile_any([[#pike 0.6]]) cond([[all_constants()->_verify_internals]], [[ test_do(_verify_internals())
pike.git/src/testsuite.in:9001:
test_compile_error(int a=grunk(5);) // - add_include_path // - add_module_path // - add_program_path // Tested in lib // - aggregate test_equal(aggregate(),({})) test_equal(aggregate(1,2,3,4),({1,2,3,4}))
+
test_equal(aggregate(1,2)+aggregate(3,4),({1,2,3,4}))
+
test_equal(aggregate(@({1,2,3,4})),({1,2,3,4}))
+
test_equal(aggregate(@({7})*50),({7})*50)
// - aggregate_multiset test_equal(aggregate_multiset(), (<>)) test_equal(aggregate_multiset(1,1), (<1,1>)) test_equal(aggregate_multiset(1,2,"3"), (<1,2,"3">)) // - aggregate_mapping test_equal(aggregate_mapping(), ([])) test_equal(aggregate_mapping(1,2,3,4), ([1:2,3:4])) test_eval_error(aggregate_mapping(1,2,3))
pike.git/src/testsuite.in:9236:
return 0; ]], 0) ]]) // - copy_value test_eq(copy_value(1),1) test_eq(copy_value(""),"") test_eq(copy_value(1.0),1.0) test_eq(copy_value(this_object()),this_object()) test_eq(copy_value(a),a)
+
test_eq(copy_value(typeof(true)),typeof(true))
define(do_test_copy_value,[[ test_any([[mixed x=$1; return x==x]],1) test_any([[mixed x=$1; return copy_value(x)!=x]],1) test_any([[mixed x=$1; return equal(copy_value(x),x)]],1)]]) do_test_copy_value( ({1}) ) do_test_copy_value( ([]) ) do_test_copy_value( (<>) ) do_test_copy_value( (< ([]), ({1}) ,"" , 1.0 >) ) test_true(get_weak_flag(copy_value(set_weak_flag(({17}), 1)))) test_true(get_weak_flag(copy_value(set_weak_flag((<17>), 1))))
pike.git/src/testsuite.in:9656:
test_hash_7_0("bar",26689) test_hash_7_0([["bar",10]],9) test_hash_7_0("b\666arqwerty1234", 2142487018, 1858424874) test_hash_7_0("",0) test_eval_error( return hash_7_0("foo",0) ) // Versioned scope. test_eq(7.0::hash, hash_7_0) test_eq(7.4::hash, hash_7_4)
+
// - hash_value
+
define(test_hash_value, [[
+
test_true(intp(hash_value($1)))
+
test_eq(hash_value($1),hash_value($1))
+
]])
+
test_hash_value(77)
+
test_hash_value(5.0)
+
test_hash_value("hello")
+
test_hash_value((<>))
+
test_hash_value(({}))
+
test_hash_value(([]))
+
test_hash_value(time)
+
test_hash_value(ADT.Stack)
+
dnl test_hash_value(String)
+
test_hash_value(typeof(true))
+
// - indices test_equal(indices("foo"),({0,1,2})) test_equal(indices(({'f','o','o'})),({0,1,2})) test_equal(Array.sort_array(indices(([7:3,8:9,99:12]))),({7,8,99})) test_equal(Array.sort_array(indices((<7,8,99>))),({7,8,99})) test_equal(mkmultiset(indices(class{constant a="a"; constant b="b";}())), (<"a","b">)) // - initgroups // - innetgrp