File:  [parser3project] / parser3 / tests / 258.html
Revision 1.1: download - view: text, annotated - select for diffs - revision graph
Sat Oct 9 23:14:42 2010 UTC (15 years, 7 months ago) by moko
Branches: MAIN
CVS tags: release_3_5_1, release_3_5_0, release_3_4_6, release_3_4_5, release_3_4_4, release_3_4_3, release_3_4_2, release_3_4_1, HEAD
test for constructor returning another object

@main[]

1. Object constructor returning object.
^print[^test::create[;value for object]]
2. Object constructor returning hash.
^print[^test::create[hash;value for hash]]

3. Reflection returning object.
^print[^reflection:create[test;create;;value for object]]
4. Reflection returning hash.
^print[^reflection:create[test;create;hash;value for hash]]


@print[o]
Class:$o.CLASS_NAME
Type property:$o.type
Value property:$o.value

@CLASS
test

@create[kind;v]

^if($kind eq 'hash'){
	$result[^hash::create[
		$.type[hash]
		$.value[$v]
	]]
}{
	$result[$self]
	$type[object]
	$value[$v]
}

E-mail: