--| Copyright (c) 1993-2006 University of Southern California and contributors.
--| All rights reserved.
--| Your use of this work is governed under the terms of the GNU General
--| Public License version 2.

class TEST
creation
	make
feature
	make is
		local
			c: CHARACTER;
			b: BOOLEAN;
			k: INTEGER;
		do
			Zee := 'Z';
			io.putchar (('A').twin); io.new_line;
			io.putbool (equal ('A', ('A').twin));
			io.new_line;
			io.putbool (equal (('A').twin, 'A'));
			io.new_line;
			io.putchar ((Zee).twin); io.new_line;
			io.putbool (equal (Zee, (Zee).twin));
			io.new_line;
			io.new_line;
			
			c := ('A').twin; io.putchar (c); io.new_line;
			io.putbool (equal (c, 'A')); io.new_line;
			io.putbool (equal ('A', c)); io.new_line;
			c := (Zee).twin; io.putchar (c); io.new_line;
			io.putbool (equal (c, Zee)); io.new_line;
			io.putbool (equal (Zee, c)); io.new_line;
			io.putbool (c = Zee); io.new_line;
			io.putbool (equal (c, Zee)); io.new_line;
			io.new_line;
			
			print ((True).twin); io.new_line;
			io.putbool (equal (True, (True).twin)); io.new_line;
			io.putbool ((True).twin); io.new_line;
			b := (True).twin; io.putbool (b); io.new_line;
			io.putbool (equal (b, (True).twin)); io.new_line;
			io.putbool (equal ((True).twin, b)); io.new_line;
			io.new_line;
			
			print ((1).twin); io.new_line;
			io.putbool (equal (1, (1).twin)); io.new_line;
			io.putbool (equal ((1).twin, 1)); io.new_line;
			io.putint ((1).twin); io.new_line;
			k := (1).twin; io.putint (k); io.new_line;
			io.putbool (equal (k, (1).twin)); io.new_line;
			io.putbool (equal ((1).twin, k)); io.new_line;
			
		end
	
	Zee: CHARACTER;
end