PageRenderTime 20ms CodeModel.GetById 14ms app.highlight 2ms RepoModel.GetById 1ms app.codeStats 0ms

/src/wrappers/glib/test/test_g_string00.e

http://github.com/tybor/Liberty
Specman e | 38 lines | 28 code | 10 blank | 0 comment | 0 complexity | 139471cd3e1f4e2ffdf6cc565ff46538 MD5 | raw file
 1class TEST_G_STRING00
 2
 3inherit
 4	EIFFELTEST_TOOLS
 5
 6creation 
 7	make
 8	
 9feature
10
11	make is
12		local
13         s: G_STRING
14         s2: G_STRING
15         c: CHARACTER
16		do
17			create s.make(10)
18
19         assert(s.count = 0)
20         
21			from
22            c := 'a'
23         until
24            c > 'j'
25         loop
26				s.add_last(c)
27				c := c.next
28			end
29         
30         assert(s.count = 10)
31
32         create s2.from_string("abcdefghij")         
33         assert(s.is_equal(s2))
34         
35			assert(s.to_string.is_equal("abcdefghij"))
36		end
37
38end -- GLIST_TEST00