test_name object-test-expression
test_description Verify that an object test expression is valid if detachable.

copy_sub Ace $TEST Ace
copy_raw test.e $CLUSTER test.e

-- Manifest constants
define OBJECT_TEST "attached 1"
copy_sub test1.e $CLUSTER test1.e
copy_sub test2.e $CLUSTER test2.e
copy_sub test3.e $CLUSTER test3.e
copy_sub test4.e $CLUSTER test4.e
compile_melted
compile_result	syntax_error TEST1 7; TEST2 7; TEST3 7; TEST4 7

define OBJECT_TEST "attached {INTEGER_8} 1"
copy_sub test1.e $CLUSTER test1.e
copy_sub test2.e $CLUSTER test2.e
copy_sub test3.e $CLUSTER test3.e
copy_sub test4.e $CLUSTER test4.e
resume_compile
compile_result	syntax_error TEST1 7; TEST2 7

define OBJECT_TEST "attached {INTEGER_16} 1"
copy_sub test1.e $CLUSTER test1.e
copy_sub test2.e $CLUSTER test2.e
copy_sub test3.e $CLUSTER test3.e
copy_sub test4.e $CLUSTER test4.e
resume_compile
compile_result	syntax_error TEST1 7; TEST2 7

define OBJECT_TEST "attached {INTEGER_32} 1"
copy_sub test1.e $CLUSTER test1.e
copy_sub test2.e $CLUSTER test2.e
copy_sub test3.e $CLUSTER test3.e
copy_sub test4.e $CLUSTER test4.e
resume_compile
compile_result	syntax_error TEST1 7; TEST2 7

define OBJECT_TEST "attached {INTEGER_64} 1"
copy_sub test1.e $CLUSTER test1.e
copy_sub test2.e $CLUSTER test2.e
copy_sub test3.e $CLUSTER test3.e
copy_sub test4.e $CLUSTER test4.e
resume_compile
compile_result	syntax_error TEST1 7; TEST2 7

define OBJECT_TEST "attached {NATURAL_8} 1"
copy_sub test1.e $CLUSTER test1.e
copy_sub test2.e $CLUSTER test2.e
copy_sub test3.e $CLUSTER test3.e
copy_sub test4.e $CLUSTER test4.e
resume_compile
compile_result	syntax_error TEST1 7; TEST2 7

define OBJECT_TEST "attached {NATURAL_16} 1"
copy_sub test1.e $CLUSTER test1.e
copy_sub test2.e $CLUSTER test2.e
copy_sub test3.e $CLUSTER test3.e
copy_sub test4.e $CLUSTER test4.e
resume_compile
compile_result	syntax_error TEST1 7; TEST2 7

define OBJECT_TEST "attached {NATURAL_32} 1"
copy_sub test1.e $CLUSTER test1.e
copy_sub test2.e $CLUSTER test2.e
copy_sub test3.e $CLUSTER test3.e
copy_sub test4.e $CLUSTER test4.e
resume_compile
compile_result	syntax_error TEST1 7; TEST2 7

define OBJECT_TEST "attached {NATURAL_64} 1"
copy_sub test1.e $CLUSTER test1.e
copy_sub test2.e $CLUSTER test2.e
copy_sub test3.e $CLUSTER test3.e
copy_sub test4.e $CLUSTER test4.e
resume_compile
compile_result	syntax_error TEST1 7; TEST2 7

define OBJECT_TEST "1.0"
copy_sub test1.e $CLUSTER test1.e
copy_sub test2.e $CLUSTER test2.e
copy_sub test3.e $CLUSTER test3.e
copy_sub test4.e $CLUSTER test4.e
resume_compile
compile_result	syntax_error TEST1 7; TEST2 7

define OBJECT_TEST "{REAL_32} 1.0"
copy_sub test1.e $CLUSTER test1.e
copy_sub test2.e $CLUSTER test2.e
copy_sub test3.e $CLUSTER test3.e
copy_sub test4.e $CLUSTER test4.e
resume_compile
compile_result	ok

define OBJECT_TEST "{REAL_64} 1.0"
copy_sub test1.e $CLUSTER test1.e
copy_sub test2.e $CLUSTER test2.e
copy_sub test3.e $CLUSTER test3.e
copy_sub test4.e $CLUSTER test4.e
compile_melted
compile_result	ok

define OBJECT_TEST "'c'"
copy_sub test1.e $CLUSTER test1.e
copy_sub test2.e $CLUSTER test2.e
copy_sub test3.e $CLUSTER test3.e
copy_sub test4.e $CLUSTER test4.e
compile_melted
compile_result	syntax_error TEST1 7; TEST2 7

define OBJECT_TEST "True"
copy_sub test1.e $CLUSTER test1.e
copy_sub test2.e $CLUSTER test2.e
copy_sub test3.e $CLUSTER test3.e
copy_sub test4.e $CLUSTER test4.e
resume_compile
compile_result	syntax_error TEST1 7; TEST2 7

define OBJECT_TEST ""ter""
copy_sub test1.e $CLUSTER test1.e
copy_sub test2.e $CLUSTER test2.e
copy_sub test3.e $CLUSTER test3.e
copy_sub test4.e $CLUSTER test4.e
resume_compile
compile_result	syntax_error TEST1 7; TEST2 7

-- Manifest TUPLE/ARRAY
define OBJECT_TEST "<< 1, 2 >>"
copy_sub test1.e $CLUSTER test1.e
copy_sub test2.e $CLUSTER test2.e
copy_sub test3.e $CLUSTER test3.e
copy_sub test4.e $CLUSTER test4.e
resume_compile
compile_result	syntax_error TEST1 7; TEST2 7

define OBJECT_TEST "[1, 2]"
copy_sub test1.e $CLUSTER test1.e
copy_sub test2.e $CLUSTER test2.e
copy_sub test3.e $CLUSTER test3.e
copy_sub test4.e $CLUSTER test4.e
resume_compile
compile_result	ok

-- Agents
define OBJECT_TEST "agent make"
copy_sub test1.e $CLUSTER test1.e
copy_sub test2.e $CLUSTER test2.e
copy_sub test3.e $CLUSTER test3.e
copy_sub test4.e $CLUSTER test4.e
compile_melted
compile_result	syntax_error TEST1 7; TEST2 7

-- Object test
define OBJECT_TEST "attached object as loc"
copy_sub test1.e $CLUSTER test1.e
copy_sub test2.e $CLUSTER test2.e
copy_sub test3.e $CLUSTER test3.e
copy_sub test4.e $CLUSTER test4.e
resume_compile
compile_result	syntax_error TEST1 7; TEST2 7

-- Once string
define OBJECT_TEST "once "string""
copy_sub test1.e $CLUSTER test1.e
copy_sub test2.e $CLUSTER test2.e
copy_sub test3.e $CLUSTER test3.e
copy_sub test4.e $CLUSTER test4.e
resume_compile
compile_result	syntax_error TEST1 7; TEST2 7

-- Address
define OBJECT_TEST "$object"
copy_sub test1.e $CLUSTER test1.e
copy_sub test2.e $CLUSTER test2.e
copy_sub test3.e $CLUSTER test3.e
copy_sub test4.e $CLUSTER test4.e
resume_compile
compile_result	syntax_error TEST1 7; TEST2 7

-- Creation expression
define OBJECT_TEST "create {TEST}.make"
copy_sub test1.e $CLUSTER test1.e
copy_sub test2.e $CLUSTER test2.e
copy_sub test3.e $CLUSTER test3.e
copy_sub test4.e $CLUSTER test4.e
resume_compile
compile_result	ok

-- Equality 
define OBJECT_TEST "object = b"
copy_sub test1.e $CLUSTER test1.e
copy_sub test2.e $CLUSTER test2.e
copy_sub test3.e $CLUSTER test3.e
copy_sub test4.e $CLUSTER test4.e
compile_melted
compile_result	syntax_error TEST2 7; TEST3 7

define OBJECT_TEST "object /= b"
copy_sub test1.e $CLUSTER test1.e
copy_sub test2.e $CLUSTER test2.e
copy_sub test3.e $CLUSTER test3.e
copy_sub test4.e $CLUSTER test4.e
resume_compile
compile_result	syntax_error TEST2 7; TEST3 7

define OBJECT_TEST "object ~ b"
copy_sub test1.e $CLUSTER test1.e
copy_sub test2.e $CLUSTER test2.e
copy_sub test3.e $CLUSTER test3.e
copy_sub test4.e $CLUSTER test4.e
resume_compile
compile_result	syntax_error TEST2 7; TEST3 7

define OBJECT_TEST "object /~ b"
copy_sub test1.e $CLUSTER test1.e
copy_sub test2.e $CLUSTER test2.e
copy_sub test3.e $CLUSTER test3.e
copy_sub test4.e $CLUSTER test4.e
resume_compile
compile_result	syntax_error TEST2 7; TEST3 7


test_end