|
Last change
on this file since 451 was 232, checked in by dai, 19 years ago |
|
32bitコンパイラを更新（64bit版はしばらくお待ちください）
Importsステートメントを試験導入（スコープレベルでの使用はまだできません）。
グローバル変数、定数、クラス、グローバル関数に対してNamespaceの適用を可能にした。
ObjPtr関数を導入。
Mathクラスの構文ミスを修正。
|
|
File size:
833 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.
