Last change
on this file since 701 was 656, checked in by イグトランス (egtra), 16 years ago |
文字列比較のテストを3引数版UnitTestの呼出に変更
|
File size:
832 bytes
|
Line | |
---|
1 | '--------------------------------------------------------------------
|
---|
2 | ' Test case of Object Class
|
---|
3 | '--------------------------------------------------------------------
|
---|
4 |
|
---|
5 | Namespace ObjectTest
|
---|
6 |
|
---|
7 | Sub TestMain()
|
---|
8 | Dim obj1 As Object
|
---|
9 | Dim obj2 As Object
|
---|
10 |
|
---|
11 | UnitTest( "Object.Equals(case 1)", obj1.Equals( obj1 ) )
|
---|
12 | UnitTest( "Object.Equals(case 2)", obj1.Equals( obj2 ) = False )
|
---|
13 |
|
---|
14 | UnitTest( "Object.ReferenceEquals(case 1)", Object.ReferenceEquals( obj1, obj2 ) = False )
|
---|
15 | Dim obj3 = obj1
|
---|
16 | UnitTest( "Object.ReferenceEquals(case 2)", Object.ReferenceEquals( obj1, obj3 ) )
|
---|
17 |
|
---|
18 | UnitTest( "Object.GetHashCode", obj1.GetHashCode() = ObjPtr( obj1 ) )
|
---|
19 |
|
---|
20 | UnitTest( "Object.ToString", obj1.ToString(), "Object" )
|
---|
21 |
|
---|
22 | UnitTest( "Object.GetType", obj1.GetType().Name, "Object" )
|
---|
23 | End Sub
|
---|
24 |
|
---|
25 | End Namespace
|
---|
26 |
|
---|
27 | 'ObjectTest.TestMain()
|
---|
Note:
See
TracBrowser
for help on using the repository browser.