mono-basic-2.4.2/0000755000175000001440000000000011213247566013122 5ustar builderusersmono-basic-2.4.2/class/0000755000175000001440000000000011213247557014227 5ustar builderusersmono-basic-2.4.2/class/Makefile0000644000175000001440000000110511213247520015652 0ustar builderusersthisdir = class include ../build/rules.make lib/bootstrap lib/vbnc: $(MKINSTALLDIRS) $@ DISTFILES = \ mono.snk \ lib/bootstrap/Microsoft.VisualBasic.dll lib/bootstrap/vbnc.exe lib/bootstrap/vbnc.rsp dist-default: lib/bootstrap/Microsoft.VisualBasic.dll lib/bootstrap/vbnc.exe lib/bootstrap/vbnc.rsp DIST_PROFILE_DIRS = bootstrap vbnc dist-local: dist-default -$(MKINSTALLDIRS) $(DIST_PROFILE_DIRS:%=$(distdir)/lib/%) $(COMPAT_PROFILE_DIRS:%=$(distdir)/compat/%) clean-local test-local run-test-local run-test-ondotnet-local all-local install-local uninstall-local: @: mono-basic-2.4.2/class/mono.snk0000644000175000001440000000112411213247520015700 0ustar builderusers$RSA2yw:kz.tѯ̓t+,4GM$G~hSoNF^՗.m6p/ MHֱ/F_I.d/^d%F+=QТY_z{ is9~ \@9Omono-basic-2.4.2/class/lib/0000755000175000001440000000000011213247557014775 5ustar builderusersmono-basic-2.4.2/class/lib/bootstrap/0000755000175000001440000000000011213247557017012 5ustar builderusersmono-basic-2.4.2/class/lib/bootstrap/vbnc.exe0000644000175000001440000356100011213247520020440 0ustar builderusersMZ@ !L!This program cannot be run in DOS mode. $PELI  @ @ O   d H.text  `.rsrc@@.reloc @B% @@ Z N  _CorExeMainmscoree.dll@ Hܚ]ZH0L(tos }oI tss }tss }s }*0 {9s }{to 86o ( t u 9{ o 8o :u9 uo 8{**A]v0"{9{to *8{to 86o ( t oo  (9 o 8o :u9 uo oto 8o ( t o]oo :u9 uo }*A4H(]0 ?{{o o {{tso tso *0 ;{{o o {{tso tso *z{o {tso *0,{o o+ 9 o8*0#{to {tso *0 Sto 8o ( t oo :u9 uo *A;;0 /|( 9|( *8 oo **0 {**"}*0{t**{o &{tso &*0 { **0' } o+ 9 o8*0 { **0' } o+ 9 o8*0 {**0 }o+ o*0 {**0o+ 9 o*8m{to 8/ o ( t o o9  /8 o : u9 uo **A Vv0A oo }oo }oo }oo }oo }oI o { rp(} (} oI o { r#p(}oo } s! }s! }{{o" {{o" {{o" oI o {z ({{o" o9HoI o { rCp(}oo }{{o" 8{{o" **0 o; 9{(8 {({{o" ooI o { o# o9eo{o$ ({(<{(9(oI o { ( (<{(8o{o$ ({ (<{(9 (<o{o$ ({(< (9{o% t (@o{o$ {({o% t (q{ ({9{(9{(<8{ (9(@{(((oo& ooI o { ooI o { oI o { (tooI o { o((oI o { ({ (9(oI o { (oI o { ({(9(oI o { (oI o { (ooI o { ooo' ooI o { ooI o { oI o { (oI o {{ ({ (oo( o{o$  3 (oI o {y ((Fo{o$ oo tooI o { o{(9ooI o { oI o { o(oI o {z (oo$ 9-|( ((9o~) o* 8!|( (o~) o* **0  : o+ 8**0 s (s, }o9o9:8 8o9:8 o9|( (8o; 9  (98o9 o9:8 8(8**0n oo9Xoo o{ o" o{ o- o o$ (o{(<8**0  {o.  8H{o/ o9:8 of9:8 X  :  {o0  8X{o1   o9 (o9:8  oM 9:8  X:**0 {**0\ou9oto*8.ou9oto *8**0  {o.  8){o/ oa9:8 X  :{to 8.o ( to9:8 o :u9 uo **ASW0 {o. 8S{o/ ob9:8 {o/ oc9:8 X: {o2 {o2 9[{o3 o 9:8 {o2 9{o 8 8**0e{o4 o  9*8Ao5 9o6 t}*8!o5 9t~s z8**>(}*0{o)**0**0**f(7 rkp}}*(7 rkp}}}*0 {**0{9o,o { *8{u9o,o { *8i{u9o,o { *8={u9o,o { *8o,o { **0 {(8 **0!{(8 **0"{(9 **0#{(: **0 ${**0%{(; **0'{rmp(< {((< o= *0 &{**0N'o,o-(  o,o-(   :8:8*8:8o1rkp(> *8u:8o0#*8N:8rkps z8.:8o/*8rups z88 :8:8rkps z8:::8Eo,o  luo? o? o&*8::8o3o3(@ *8rups z88 :8:8o1rkp(> *8:8o1o1(A *8x:::8Co,o  luo? o? o&8rups z88 :8  :8o/*8 : : :8Co,o  lu  o?  o?  o&83 :8o/o/*8rups z88rps z8*0 ((6**F~ t(B *0^)(8oC to 8o ( t o;o :u9 uo *A@F0 *s9**01{(D 9{(E &8{(F *0 +(G **Rts(7 }*0,{o**2{o*0-{o**0_.o@no9Qo?8o@o9o@ooH (I  :8o@o Q8~:8rps z8`:8r+ps z8B:8o@o Q8o@o(9 Q8o?8$o@o9oI o o@oo 9~o@ o9Qo?*8Go@Oo9Qo?*8 oI o  uo&o?*8 rkps z8ao@o9Qo>o@ooD 9(o>o@oo<{Qo?8 Qo?8**0,./  oA9*8o@ o9o?oA&oQ9GoI o  xoH oJ Eo? o&8oQ9GoI o  xoH oJ Eo? o&89#( 8 (K ( 8Q**00 o@ o9~o?oB oQ9LoI o  x oH oJ Eo? o&( 8 e( 8oB9*8Q**071  oC9*8o@ o9ko@ o o?oC&oQ9GoI o  xoH oJ Eo? o&8oQ9GoI o  xoH oJ Eo? o&89#( 8v 9Z( 8[#99oI o  Nw  o&#( 8[( 8{Q**052  oD9*8o@ o9Qo?oD&oQ9GoI o  xoH oJ co? o&8oQ9GoI o  xoH oJ co? o&89#( 8m(L !99oI o  Nwo&#( 8 (L (L [l( 8Q**0+'3  oE9*8o@fo9o?oE&oQ9GoI o  xoH oJ Eo? o&8oQ9GoI o  xoH oJ Eo? o&89!( 8 ]( 8Q**0S4  oF9*8o@ o9`o@ o o?oF&u9u:89(: (: (< ( 8u9jt(M oQ9GoI o  xoH oJ Eo? o&88+u9jt(M oQ9GoI o  xoH oJ Eo? o&88oQ9GoI o  x  oH oJ  Eo?  o&8oQ9GoI o  x  oH oJ  Eo?  o&89#( 8+ 9X( 8Y( 8Q**05  oG9*8o@ o9Ho?oG&oN oN 9rkp( 8 (< ( 8Q**0GD6  oH9*8o@ o9o@ o o?oH&oQ9GoI o  xoH oJ co? o&8oQ9GoI o  xoH oJ \o? o&8#:#C:895oI o  v  co?  o&8e#:#A:895oI o  v  \o?  o&89#( 8I 9$(L (L ?_b( 8(L (L ?_c( 8Q**07  oI9*8o@ o9wo@o o?oI&  :8(O ( 8 :8(P ( 8 :8(Q ( 8 :8(R ( 8g :8(S ( 8< :8(T ( 8t~s z8<utsoU rp(< oV (< ( & 8[Q**Ad<08 o@mo9o?oJ oR9LoI o  x oH oJ &o? o&( 8( 8oJ9*8Q**01[9  oK9*8o@$"o9%o@"o o?oK&oR9GoI o  xoH oJ &o? o&8oR9GoI o  xoH oJ &o? o&89( 8; 9%9:8( 8_( 8Q**01[:  oL9*8o@tuo9%o@uo o?oL&oR9GoI o  xoH oJ &o? o&8oR9GoI o  xoH oJ &o? o&89( 8; 9%: :8( 8`( 8Q**0+";  oM9*8o@ o9o?oM&oR9GoI o  xoH oJ &o? o&8oR9GoI o  xoH oJ &o? o&89( 8 a( 8Q**0 <oN**0 =oO *0G>oH oI o { (2:!oI o { (2:8:!oI o { (2:8:!oI o { (2:8:!oI o { (2:8:!oI o { (2:8:!oI o { (2:8:!oI o { (2:8:!oI o { (2:8:!oI o { (2:8:!oI o { (2:89(9 W*8**0 ?(8 R**RoXt (T*0'(U} { u}}*0%outo(Ut } }*0@{ oW **0,A{ oX :{ oY :8 **0B **0'C{$9sZ }$8{$**0 OD{#98sZ }#oYt {#oYt ( (S8{#**04E  { oY 9{ o[ ` 8` **0F **06Gs\ oYo { o] to^   {  oYo oXoYo { ot o_ oYo oXoYo { ot o_ oYo oXoYo { ot o_ o` t**0 H{ **0I{  { **0J **0K **0L **0M **0N **0O **0P **0QoYo {  **0lR{"9S{ u9 8*{ oa rp,{sb rp(c }"8{" **0Ssd z*08T{ oe rp(< ,{sb (< rp(< **0$U{!9 om8{! **0V **0 ZW{ (  {9of }!8{og }!oYo {!to*0 Xok**0aYoh 9 8Ho_oi (29 8+oYo  o[o9  o& **o[(T}%t }&*n(Uu}%}&*0 Z{&**0[ **0\ **0] **0^ **0_ **0` **0a **0 b~j **0c **0d **0e **0fsZ **0gsZ **0h **0i{%9{%ogrp(< 8`{&9{&oa rp(< 84oYo  x{%o[o9  o&rp **0jsd z*0k{%9{%ohrp(< 8`{&9{&oe rp(< 84oYo  x{%o[o9  o&rp **0$l{'9 o8{' **0 tm {%9{%t (  8"{&9{&(  8ok }'oYo {'to*0 no**~(l }({(to})*j(l })u}(**0o{(om**0 p{)**0q{)oI **0 r{(**0s{(t**0t{(o **0u{)o= ot  **0 /v oo  {(o9  o&**0 /w oo  {(o9  o&**0 -xoo  {(o9  o&**0y{(o **0zsd z*0{sd z*0 -|oo  {(o9  o&**0 -}oo  {(o9  o&**0~{(op **0 o **0om 9! 8 **0 **0  **0 ~j **0 -oo  {(o9  o&**0 / oo  {(o9  o&**0u{(ok9{(okon 8E{(o oF9"{(o oFooo :8 **0 **0 **0 -oo  {(o9  o&**0{(oI {t% **0{(op **0{(okt#**j(p }*to}+**0{*om**0 {***0{*oI **0 -oo  oo# o&**0{*o+oDt **0{*oN**0 -oo  oo# o&**0 -oo  oo# o&**0{*oO**0{*oP**0 -oo  oo# o&**0{*op**0 -oo  oo# o&**0{*t**0  **02oo  oo# o&(r **03oo  oo# o&(s **0  (t **02oo  oo# o&(u **02oo  oo# o&(v **02oo  oo# o&(N **j(w uz},}-**0{,o2**0{,ot)**0{,t**0 {,**0{-oI **0 {-**0*{,o {,tso+( {,o  (91 ` {,tso +o29 ` 88{,o (:{,o2:89 ` 8{,u{9 `@` 8{,u9m` {,ooo { (29  ` 84{,ooo { (29  ` 8@` 8{,o (9  ` 8**0{,o9 o 8o(z ({ o (z ({  ~. ր.~/!ր/~/!]!98**0{,oo| **0{,ts o? oDt **0 -oo  oo# o&**0{,o **0 -oo  oo# o&**0 / oo  oo# o&**09ot~s z8{,9ot~s z8{,u{ 9 o^*8{,u 9 oP*8oo  oo# o&**0 -oo  oo# o&**0{,o>**0 o **0 *oo  oo# o&*0  **02oo  oo# o&(r **0~j **02oo  oo# o&(} **0~j **0 **02oo  oo# o&(u **02oo  oo# o&(v **0 5{,o9{,ooN *8(N **07(}2{2u }1}0}5}6*0 ~j **0{2o~ **0{79{{19&ots{1t#(P}78ots{2(P}7o{7{5{6( }78{7**0 {0**0{2oe **0 **0{49{0( }0{2(!}2{0o oa rp(> 90o(  (( {04o }48{0{2( }4oo {4t t o8{4**07(}9{9u }8}:};}<*0{9o **0{9oe **0 ){9o o{;{<(  **0{9o **0{=9{:( }:{9(%}9{:o oa rp(> 9#{:{9oe 4o }=8{:{9( }=oo {=t t o8{=**0 o o (5}>*0o:{>(4**0{>o **0M(Ks }Gs }I}A{Au}@}?}D}E*0_{@9{@oM*8;{Ao (  9o o( :8**06{@9{@oN*8{A(I_**0{G( {G{ 3{G} }F8{G{ 3s z{G} {G( {F9W{Ao 99oPoI o oP{D{E{?o}F88{F**A DO0{I( {I{ 3{I} }H8{I{ 3s z{I} {I( {H9W{Ao 99oPoI o oP{D{E{?o}H88{H**A DO0 P{K99{Ao }KoP{K{D{E( }K8{K**0 P{J99{Ao }JoP{J{D{E( }J8{J**0{Ao **0{Aoe **0 {? **0{C9{?( }?{A(#}A{?o oa rp(> 9#{?{Aoe 4o }C8 t7}CoOo {Ct t o$u oPoI o (8{C**A$(Us }W}O}N}M{Mu}L*0{Mo **0E{U9s\ }UoYo {Moo] 9{Uto^ 8 {Uo  8{Uo o 94{UoX{Uo {N{O( o 8{Uo o 90oYo  o[o9 o&8F{Uo oY 90oYo  o[o9 o&8X  :o 90{UoYo o oo] to^ 88{Uo` t**0 ){Mo oX{N{O(  **0{P9{M( }M{O((}O{Mo oe rp(> 9{Mo }M8){Mo 9{Mo }M8{M{Oo }PoYo {Pto$u oXoI o (8{P**A$0{MoW **0J 9 84 :)t (29  88o 8**0EO{R98sZ }R{R{M>o to  {Ro   8{Ro u'{Ro u#{Ro u){Ro u7{Ro u  9@{RoYo oX{N{Ot ot o 849@{RoYo oX{N{Ot ot o 89@{RoYo oX{N{Ot ot o 89@{RoYo oX{N{Ot ot o 8M 94{RoYo oX {Oot o 8 t s z X :8{R**0Lw{Q9`sZ }Q{Q{M|o to  {Qo   8{Qo u'{Qo u#{Qo u){Qo u7{Qo u  9@{QoYo oX{N{Ot ot o 849@{QoYo oX{N{Ot ot o 89@{QoYo oX{N{Ot ot o 89@{QoYo oX{N{Ot ot o 8M 94{QoYo oX {Oot o 8 t s z X :oYt {QoYt ( (S8{Q**0{Mo[ **0 {O**0:{M o 9!o 9 {M 88**0 **0 **0 **0{S9o  {Mo 9# oe rp(< (< o 8orkp(> 9!orp(< (< }S8}S8{S **0#O{T96s {Moe o & o 8& o [9 o 88 X :rpo &  {Oo  8~{Ooa ~ (> 9{Ooe o &8{Ooa o &{Oo 9rpo &8 X:trpo &o }T8{T **0 {W( {W{ 3{W} }V8{W{ 3s z{W} {W( {V9O{Mo }V{V9(oX{V{N{O( }V88{V**A DO0 **0 t  **0 m {Oto 8) o ( t  oY 9  -8 o : u9 uo **APR0  {O **0 rps z**j( }Yui}X**0{Xom**0{YoI **0 {Y**0{Xt**0 {X**0{Xoyt'**0Fx{Xoo ( {Xom9 ` 8{Xoo  (9D{Xoo (9  ` 8 `@` ` 8{Xoo @(9  ` 8{Xoo (9 `@` ` 8{Xoo (9@` ` 8{Xoo (9  ` 8{Xoul9  ` 8{Xu9 ` 8{Xo9{Xoo9@` ` {Xoo  (9  ` 8{Xoo  (9!{Xoo  (:89!{Xoo  (:89  ` 888{Xoug9;{XotgoY9@` ` ` 88{Xoko9 `@` ` ` 8{Xu:{Xu:89  ` 8#{Xuf9  ` 8**0{Xo +oDt  **0 -oo  oo9  o&**0 -oo  oo9  o&**0{Xt|(  **0 -oo  oo9  o&**0{Xo **0 -oo  oo9  o&**0 -oo  oo9  o&**0 -oo  oo9  o&**0{Xop **0 o **0 -oo  oo9  o&**0{Xo oD **0{Xom9 8! **04oo  oo9  o&( **09 8 **0E{Xo oF9 {Xo oFoo 8~j **02oo  oo9  o&( **0 (r **02oo  oo9  o&( **0D{Xo oF9#{Xo oFoo  8 **0 **02 ooI o ot'o)ot' **0  **02 oo  oo9  o&(u **02 oo  oo9  o&(v **0 {Xo oC **0 (N **0+( }[}[}^}`}_*0+( }[}[}]}`}_*09( }[}[}\to}`{\o}_*( }[}Z{Zo}[to}`o}_**0{`oI **0{Z9{Zo  (*8`{^9{^oh :89*8)o:o  {Zo9  o&*0C{Z9,{Zo  (9 ` 88 **0~ ( {Z9={Zo9{Zo( 8o;9 88)o:o  {Zo9  o&~ 9 8**0 ( **0 5( o:o  {Zo9  o&**0 6( o:o  {Zo9  o&**0 4(r o:o  {Zo9  o&**0 ( **0 ( **0{Z9~{Zo9{Zoo. 89 :89.o:o  {Zo9  o&88)o:o  {Zo9  o&**0V {Z9{Zo +o1 8)o:o  {Zo9  o&**0k{_9 {_ 8J{Z9{Zo 8({\9{\o 8rkp **0 n {^9 {^ 8K{Z9{Zo 8)o:o  {Zo9  o&**0 {[**0o=( **0V( {^9{^oJ 8)o:o  {Zo9  o&**j( ul}a}b**0 {aoo @(**0!{aom**0"{boI **0 #{b**0${aot7**0 %{a**0&{at**0' **0 ({aoo  ( **0 ){aoo  ( **0@* {a9t s z8{atso +oDt  **0 /+ oOo  oSo# o&**0 /, oOo  oSo# o&**0 /- oOo  oSo# o&**0.{ao **0/{aooEo  **00{ao **0 /1 oOo  oSo# o&**0 -2oOo  oSo# o&**03{aop **04{aooD **0 /5 oOo  oSo# o&**0 *6oOo  oSo# o&*0 7( **08 **0 9(r **04:( oOo  oSo# o&**09;( ( oOo  oSo# o&**04<( oOo  oSo# o&**0;=( ( oOo  oSo# o&**0> **04?(u oOo  oSo# o&**04@(v oOo  oSo# o&**0 bA(N {a9t s z8{ao9{aooN 8 {ao<  **0 *BoOo  oSo# o&*~to(Us }e}c*0C{cot  **0(D9*8{co9{co:89*8u 9*8oo( 9*8ooa9*8o}o}a9*8o9oo*8.o}9o}o}(2*8s z*0.dE sZ oYo { o to {co:#{cooo :898{cooto 8o ( t  oh :8! of oo to 8S:88>:88*:88o[t~s z8o :Uu9 uo o t **Aj;0F~j **0 G{c**0H{co **0I{co **0J{co **0K **0L **0M**0N **0O{co +oDt  **0P **0 5QoYo  o[o9  o&*sd z**0R {c9sUt  8)oYo  o[o9  o&{e( {e{ 3&{e} ~ ts }d8{e{ 3s z{e} {e( {doe o 9{doe o 8{doe o **AYR0S{co **0T{coI {t9 **0 QU {co9{coo 89oYo {  8**0V{coI {t% **0W **0X{coo **0'Y{co+ 9 8o9 **0TZu? 9{co 8)oYo  o[o9  o&**0[ **~(7 }ios}j*0O(7 {k}k{h}h{f}f{i}i{j}j{g}g*0 \{m**0]**0 ^{l**"}l*0 _{g**0 !`{io# o(oh **0 aoo o **0 b{h**0 c{k**0 d{f**0 e{f**0f{io7**0 g{j**0 h{i**0i{io'**0'js }f}g}k}m**0/ks }f}h}k}g}m**0 ls }k}g}m**:( }n*0 m( **>oo*0 2o 9#oo ow(o8*( *0 n{n**"( *0oo t rkp o 84r;pt oJ ( rCp(< (<  X: o 9  o o 8 **0p o 9 ( &8*0 qo **(7 *0roo **0$ o(9*8 o(o_ 9*8 (s ~ ( 9*8o o(o_  ( ( ( (o *0\s(  oo# ~ (> 9oo :89 o 8***6oo$ *0.oo& ooo { oo*09(  8o9 ooo { o8oo' 9oo8ooo { oo*2oo( *0too **2oo *0 urkps z*0 )(  o~ o* oo*Jo~ o *0-ooo { oo~ o *0 *(  ooo~ o *Jo~ o *(69 (8(*vo~ o oo*0A(  ooooo~ o* oo*0A(  ooooo~ o* oo*0A(  ooooo~ o* oo*~o9 (8(*0A(  ooooo~ o* oo*0A(  ooooo~ o* oo*0A(  ooooo~ o* oo*05(  ooo~ o* oo*0A(  ooooo~ o* oo*0P(  ooooo~ o* ooo { o*0p(  ooooo~ o* o~ o* o~ o* ooo { o*0p(  ooooo~ o* o~ o* o~ o* ooo { o*0P(  ooooo~ o* ooo { o*0P(  ooooo~ o* ooo { o*0p(  ooooo~ o* o~ o* o~ o* ooo { o*0P(  ooooo~ o* ooo { o*0A(  ooooo~ o* oo*~o9 (8(*0A(  ooooo~ o* oo*0A(  ooooo~ o* oo*0A(  ooooo~ o* oo*~o9 (8(*0Xooooooooo~ o* ooo { o*0P(  ooo { oooo~ o* oo*0P(  ooo { oooo~ o* oo*0A(  ooooo~ o* oo*0A(  ooooo~ o* oo*0%xooooooooo~ o* o~ o* o~ o* ooo { o*0v(  oo# **0 7wo   8oo oX :*0 2xo   8ooX :*0 'o~ o* oooo*0yu' 9O(" om 9o~ o 8"oo oo~ o 8 rkp(ooo { o*0E(  o~ o ooo otooo*Fo~ o* *0 1z (! o~ o oo o*0 1{ (" o~ o oo o*0B(  (  ooo~ o oo*0B(  (  ooo~ o oo*0(|(  o(  o(  o 9oi (2:89 oo# (<(.8`o o 9oo { (2:898$oo  o o&*0D(  ooo~ o* ooo { o*0D(  ooo~ o* ooo { o*0D(  ooo~ o* ooo { o*0D(  ooo~ o* ooo { o*0D(  ooo~  o* ooo { o*0D(  ooo~  o* ooo { o*0D(  ooo~  o* ooo { o*0D(  ooo~  o* ooo { o*0D(  ooo~  o* ooo { o*0D(  ooo~ o* ooo { o*0D(  ooo~ o* ooo { o*0D(  ooo~ o* ooo { o*0D(  ooo~ o* ooo { o*0D(  ooo~ o* ooo { o*0D(  ooo~ o* ooo { o*0D(  ooo~ o* ooo { o*0D(  ooo~ o* ooo { o*0D(  ooo~ o* ooo { o*0D(  ooo~ o* ooo { o*0D(  ooo~ o* ooo { o*0D(  ooo~ o* ooo { o*0D(  ooo~ o* ooo { o*0D(  ooo~ o* ooo { o*0D(  ooo~ o* ooo { o*0D(  ooo~ o* ooo { o*0D(  ooo~ o* ooo { o*0Z|}oo { (29*8 (   (  o(  o(  9 :89oo { (2:89(*8 (V : : : : : :: :u :g :Y :K := :/ :! : :8*8|  :8o9(298fots()98Eoo rIpoe (< rp(< oe (< rp(< ow8o~ o 8  :8Ro98o9o~  o* 8o~ o* 8 rkp(8V  :88>  :88&   :8Uo9;o9o~  o* 8o~ o* 8 rkp(8   :88   :88   :88v   :88^  :88F  :88.  :/ :!  :  :8Uo9;o9o~ o* 8o~ o* 8 rkp(8  :88   :88l   :88T   :88<  :88$  :88  :8o~  o* 8 : :8o~ o* 8 : :8o~ o* 8o :/ :! : :8o~ o* 8 :8Yo9ots( &8/oo { (Coo { (E8 :K := :/ :! : :8o~ o* 8= :! : :8o~ o* 8 :g :Y :K := :/ :! : :8o~ o* 8i :8(o~ oo {2 o 8. :8(o~ oo {3 o 8 :u :g :Y :K  :=  :/  :!  :  :8o~ o* 8X :! : :88o~ o* o~ oo { o 8 :  :88o~ o* o~ oo { o 8  :8(o~ oo { o 8]  :8(o~ oo { o 8"  :8(o~ oo { o 8 :8(o~  oo { o 8 :8(o~  oo { o 8q :8(o~  oo { o 86 :8(o~  oo { o 8  :8(o~  oo { o 8  :8(o~  oo { o 8  :8(o~  oo { o 8J  :8(o~  oo { o 8  :8(o~  oo { o 8 :8(o~  oo { o 8 :88~ :8(o~  oo { o 8C :8(o~  oo { o 8 :8(o~  oo { o 8 :8(o~  oo { o 8 :88w :8.oo { oo { (86oo rpvo? (< owrkp(896oo rpvo? (< owrkp(8oooo*0`(  o~! o* o" 9,ooo otooo8 oo*0K~ u' u# 9 (8"9 (8 rkp(*09t$ (" (G om 9o~ o 8to o" 9Booo otoo ooo~ o 8"oo oo~ o o# 9#o# oo { (2:89ot'o# o8*0Iu' u# 9 (8"9 (8 rkp(*0 ;om :o o" :89 (8(*09(  o~$ o ooo { o*0  (  o~% o *0 ((*0Po& :8t'(8)oo  o o&8*0 (" (G oo oo~' o( o# 9#o# oo { (2:89oo# o8*0V(! om 9rkps z8.(! oo oo~ o *0J(  ooo { oo~) o oof o*0x(  (  o~* o ooo { oooooo otooo*0I5(  ooo { ooooi o(  :8o~+ o* 8::8o~, o* 8::8o~- o* 8f:8o~. o* 8C :8o~/ o* 8 :8o~0 o* 8 : :8o~1 o* 8 :8o~2 o* 8:8o~3 o* 8:#:::80o" 9rkps z8o~4 o* 8)oo  o o&8oo*0SU(  o(  :8o~+ o* 8::8o~- o* 8 :8o~/ o* 8 :8o~1 o* 8l::8o~, o* 8@:8o~. o* 8 :8o~0 o* 8 :8o~1 o* 8 :8o~2 o* 8:8o~3 o* 8::8'o~* o o~5 o 8M:8o~4 o* 8)oo  o o&8ooo { ooof ooo*0D%(  (  o(   : :8o~6 o* 8:::8o~7 o* 8i:::8o~8 o* 84 : :8o~9 o* 8 :8o~: o* 8:8o~; o* 8::8 (*8:8o~< o* 8t:8Wo" 9o~= o 81oY 9o~> o 8o~< o* 8rkp(8ooooo { ooo*0Q(  o~= o ooooo otooo*0Q(  o~5 o ooo otooooo*0 9(  ooo { o(&( *(  (? (@ (*0 #(? (@ oo { (*0 -o~A oB ooo { o*0 *(  o~A oB oo*0 -o~C oD ooo { o*0 *(  o~C oD oo*0 -o~E oF ooo { o*06(   :8o~G o* 8:8o~ o* 8b:8o~H o* 8?:8o~I o* 8:8o~J o* 8:8o~K o* 8:8o~L o* 8:8o~M o* 8:8o~N o* 8m:8o~O o* 8J_:8 o~P oQ 8o~R oS 8oo*0 *(  o~E oF oo*0 :9oo { (8oo { (*0 #(T (U oo { (*(  (T (U (*boo { (*057 oo(   :! :  : :8o(*8  :8o(*8 : :8o(*8k  :8asV sW ( 9sV ~ ( :89o(*88  :8\sV sW ( 9sV ~ ( :89( &*88  :8k(*8r :8l(*8T :8sV (**82 :8$(oo { (B*8oo  oo&*0oo(  !9!:89(*8ot o   :8kl("&*8B :8l("&*8# :8sX (!&*8**0oo(     :8kl("&*8j :8l("&*8K :8s (!&*8'  :  :8(*8oo  oo&**0%oo(  (Y ( 9 sW ( 9 sW ( :89(Z (*8 sW ( 9 sW ( :89([ (*8XsW ( 9 sW ( :89(\ ( *88ot o   :8(] l("&*8# :8(^ ("&*8**0 soo(     :8J#G9#:89kl("&*88**0 -o~_ o` ooo { o*0 :9oo { (8oo { (*0Hoooi o('oooi ( o# (<(.*oo 9 (%8('*0b+9~ 8oH o(  o o(  :8 ((*8:: :8(a (&*8 :8(b (*8h :8(c (*8F:87o~C (9 oD ooo { o*8:87o~_ (: o` ooo { o*8:8"(a oo { (*8:8"(a oo { (*8V :8(d (*84 :8(e (*8:8(f (**8:8(; ()*8:8'(g (h oo { (*8:8D(8 9oo { (8oo { (*8Eoo rpooH ( o? (< owrkp(8rkp(*0vou?:ou:897orkp( (.o((9(8oo 9Qooi rkp( o~i o* (<(.ooo(8ooj :ook :89&o~i o* ooo8Soo" 9oo(   :8eio(8 :4 :+  :! : :  :8o(8J  :  :8!o(8 :8o(8  :8"o(8 :8#o(8 : : :8'orkp((9(8` :8&o~i o* ooo8+oo  oo&88looo { (29&o~i o* ooo8&oo  oo&*0$ooo { o  ({ (ooo { oo~ oo { o ooo { o*6sH(+*0I {t~l ( 9@o~m oo {# on ooo { o8F {t~ ( 9@o~m oo {! on ooo { o8 {t~o ( 9@o~m oo {" on ooo { o8 {r( {s( {q( (Ioo { ( {ooo { (oo { (*0SRoI9Lo~p oIoq ooo otooIor oo8oJ9oJ(% oM99oMo{  ooJo oo~s on 8o~t on ooo otooJo oo8FoH9oH(38$oo  o o&*0oI9oI(98hoJ9oJ(;8FoH9oH(48$oo  o o&*0>o~p oq ooo otoor oo*0%(% ou 9ov (%8oow 9o~t on 8"o~s on oo oooo otoo oo*0 4o o 9 (28o~x (1oS *0o  oy u' u# 9 om 9  88P9om 9  88&oo  oo&**0 (1  :8o~! o* 8:8o~z o* 8:8o~{ o* 8e:8o~| o* 8B :8o~} o~ 8o~ oS 8oo o*0R(1  9o~ o~ 8o~x oS oo o*0H(2o o 9oo :89o (58*0Ww(  oooi o(  :8o~ o* 8:8o~ o* 8::8o~ o* 8:8o~ o* 8 :8o~ o* 8 :8o~ o* 8a :89oo  o o&o~ o* 8 :8o~ o* 8 :8o~ o* 8:8o~ o* 8::8o~ o* 8:8o~ o* 8]:8%o~5 oo { o 8)oo  o o&8oo*0 9o oo 89 ::8::u:8 :u:8 :u:8 :u:8 :u:8 9 88oo+ 8&8**0L(6 979oo;(<8o oo (8(8*0Go~) o* oo;9 ooo;or o8*0 #o~ oq oor o*Fo~ o* *0)(% ow 9Wou 9%oo oov ('8"o~m on oo o83o~ on oo ooo o*0 #o~ oq oor o*0oI9oI(<8hoJ9oJ(A8FoH9oH(?8$oo  o o&*0C(  oi ooooo(  :::8o~ o* 8:::8o~ o* 8d : :8o~ o* 86 : :8o~ o* 8 :8o~ o* 8:8o~ o* 8:8o~ o* 8::8o~= o 8m:86o" 9o~= o 8o~ o* 8)oo  o o&8*0w(1 o o 9<o oi oY 9o oi (8 o (>8"o~ oS oo o*0 -o~ o ooo { o*0m(% ow 9'oo oo~ on 83oo ooo oo~ on *0F (  o~  o ooooo { o*0[(  ooooo~ o ooo otooo*0@(  ooooo~ o oo*0Q(  ooo otoooo~5 o oo*0 ,o~ o* ooo { o*06 oo o 9*8oo {X 9oo {_ *8oo {Y 9oo {` *8oo {[ 9oo {b *8oo {Z 9oo {a *8oo {] 9oo {c *8**0 (  _c _}o_c__b}p( (U }q( (U }s( (U }r}t*0{p9*8**0Q {oF{pF{q{s{r***V( }}*0 {**0 {**~(L}K}L}M*J(O}*0 {L**0 {M**0#{K9 {*8{K**(7 *0 rprpr#pr'pr-pr1pr7prpr;p r?p rCp rGp rKp rOp^   \ c \c  E @  E @_*0"9 :8**0/9rkps z8~_ڏq**0 Vo  ~^o  8!~^o 9 ִ*8 X :**0!9 rkp*8 ~^ښ**(7 *06 \c@ E *0(a \:8o { *8c:8o { *8@:8o { *8 :8o { *8cE:8o { *8C :8o { *8 rSp'o? (< s z8*0(_TJ**0(_**0rpo **0*9rpo ( *8rkp**0~q**"(s *>(s }*0 * ov oo9:8 **0{o**"}*~tosst1ow *0o*!o**0 1 ov oo9:8 }**0 ov 9*8{{so} 9:8 {ov o9>{ov os t1ow {o { }8 tso9  oI (( &**0%( 9 {*8 t~s z*(7 *"(*0**0'{9 rp*8 {o **0{9 rp*8h{ox 9 rp*8J{ox oa rkp(> 9{ox oe *8{ox oa **"}*0{o{ **0G {9${o{ 9:8 8 o ('**0 {9{o} 9:8 9{ov o:895{o }{o} 9:8 8\9{ov o:895{o }{o} 9:8 88**0 {**"}*0({:{o:8**N(s }*0(s }9wto 89o ( tw {to{o st*o o :u9 uo 8*A[y{o 9{to 8*0' ozo~9:8 **0' ozo}9:8 **0!oI tst (N o**0oI ts(R o**0l  {o  8>{o ouox oI o { (29ouu( o    oi9:8 tost    tow   tw syoy oI (o} 9:8 {o  twov8o o 9ouox o :89o oi o" :89Uouox oI o { (29tooustw8 ou8mo o 9ouox o :89'o oi ouox oi (2:89ou8o o 9%ouox o oi (2:898ouov o:ouov o:8:89Uo+o+osK  rpo oi oO oI (ob9:8 os' to stwouo) oI (o. 9:8 os' outo stwo) oI (o. 9:8  ototototo stwstw8toouo (0ou9${tost*o 8X  :**0 9*8oI ts(R  o 8 o:{ o ou:89rto o  o s to tws o9ot*o 8o t*o 8 X :F**0~rkp rkp {to 8,o ( t* (< oo(< rCp o :u9 uo **A Ua0~rkp rkp {to 8,o ( t* (< op(< rCp o :u9 uo **A Ua"}*0{o ֍   {o  8O{o ou9oI st 8{o ouox X  :**0s\ {to 8d o ( t ou9ouox o_ 8+oI o  oo9 o& o : u9 uo **A0 q{to 8/o ( t* u9  /8o :u9 uo **AVV0 q{to 8/o ( t* u9  /8o :u9 uo **AVV0 {**0{t(**0 _  o 86otooos9:8 X  :**0  o 8=otoo oos9:8 X  :o  o 8*too oo ('X:**0* {t( 9:8 **0{t( **0{o **0 o**0{o **N(s s }*j(s s }}*"}*6o}*0 {**0p {to 8, o ( tw o} 9:8 o : u9 uo **ASU0 U(s }}tw{s+t1ow oI ((} 9 (8*0**0**06 {o{ 9:8 {ox (B**0 {**Rto(s }*0 {9d{to{ox oo{ 9:8 {ox rkp(}{(<8{(9**0{ox **0**0 I {o 9{o}  8 twos+t1ow **"(s *0 (PoI o  Po9  o**0o*~ o**0 * oI o  o9  o***^(}}*0 {**0{o **0 S {9<{o{ox oo{ 9:8 8**0{o **0 {**V(7 }}*0 {**0{oI **0 8oo  {o9  o&{**0 o9 {*8s z*"}*0*%{ :8oo;*8 :8ooO*8:8oo*8:8oo*8:8oo *8:8oo*8a :8oo { *8<:8oo*89rps z8*8*0 t3**0 t0**0 t4**0 t5**0 t6**0 t7**0 t8**0 t9**0 t:**0 t;**0 t<**0 {**0 {**0 {**0 {**0 {**0 {**0 {**0 {**0{ :E :;:2:): :::8*8:84o o 9oov o:8*8O ::8*80oo  {o9  o&*8*0{ :8*8:8*8:X :N:E:<:3:*:! :::8*80oo  {o9  o&*8*0 {**0 { **0 { **0 {**0 + oo  {o9  o**~(}}}*0 **0 {**"}*0 {**0 {**0 {**0 {**"}*0oo { **(sZ }{ozt o }}*0#(}o+}}*r(ts o*J(o*Noo ow*0 {**0**0 {**0u o9o9:8 8Eo9.oo  oo9  o*8 t1s z**0 * {o{syo( &**06{9osx o&8s/ **0 {**0o9t1s z8o 9(o 9t1s z8*8+o# 9oo { *8o# **0 Vo9t1s z8{o u'9{o t'*8**0 Vo9t1s z8{o u#9{o t#*8**0 Mo9t1s z8{o 9*8{o t$**0 {**0D{9/{o :{o:8:8**0 TsZ } o   8(o u${t o X :*0 K sZ } o   8o {t o X :*0 g! {o   82{o 9{o oe *8 X :t1s z*0 "{**"}*0-# o1o& :8uo5oEo  8v:8ulooEo  8G:8 ~j 8- o'o  o#o&8to  8 o ( t o&   :8o%t'(  8b :8'o'tst7t (N(  8+ :8 ~j 8t~s z8(19  08 o :4 u9  uo **A0B${9 {:89{o:8**0&h% 9rps z8o9oo r!pow8{o 9rps z8sZ {9os}8{o{{o{o9:8 9@{o9({ooQ{oo 889I}}o9oom :89 }88**f{+s o &*0&ots(C**0 '(**Vto(}*0 ({**0)) {o9L{oo{oox oo{ 9:8 (8#ooo { o(({({  oo {  oo {  o (**0$* oo { (29}*8o( 9Loo  uwoo9 oa o9:8 89*8o(  (  ots{o ( t$}}{9:8 }**0 +{**0 ,{**0-oo { **0.{o**0/{t'**B(}*0 0{**~(}}}*Vo(}*Vo(}*01**0J2{9{:89{o }8{**0 3{**0(4 {9{o{ *8oo {98{o}{o}{o }8o9{o 8 {o {9{o8o9 8֍w{9O  {o  8{oou X :8o9o8osy{t$( &**0 5s2**0J6{9{:89{o}8{**0 7{**"}*028{9{o}8{o **&(*0 ~9(}o s } o   8=o u79{o 8 t1s zX :*0!(}t"s }*0 :{**0;**0'< {o ֍ {o ֍     {o   8*  { o o   (   X   :osZ {o ts {9os}8{o{o{o9:8 9A{o9){ooQ{oo 8897o u7}{9:8 8}}**0 ={**0->{9{o *8{9j{o 9){o }{o o *8)oo  oo9  o&8)oo  oo9  o&oo  oo9  o&**0 ?{**0D@  9 ('8${{{o t$( &**0 As.**0 B{**0C{o t!**v{o {t"o *j(ot }*B(}*&(*0(u9tt }8|u 9t }8Zu9tot }8.u9t}8 t1s z*R(t }*B(}*0Do 9*8{**08Eo 9*8{9*8{{k**0"F {9{{k*8ooG o(9*8{9*8ooG o(to 8x o ( t] {k9 8S8{h9 8;8{h{o (29 88} * o :| u9 uo **A^0G{**0 H{**"}*&(*(}{o+o} *0 7(os?t1}{t;oO} *0 7(osAt1}{t;oO} *r(} oX} *to($ox } } *n($ox } } *nto($} } *Z($} } *0%o($t1}oO} *0%o($t1}o} *0%o($t1}o} *0%o($t1}o} *0%o($t1}o} *0%o($t1}o } *0I}o59-o5o 9o5oo886{ 9{ oy :89 8 }**04J { 9${ o{ 9:8 8{ 9{ (&8{9]{o :8t1s z8- :8){ooK9:8 8:8Ko9){oo9:8 8 t1s z8:8){oo9:8 8e:8){oo9:8 8.oo  oo9  o*88+oo  oo9 o***0 K{**0 L{ **0 M{ **0 N{ **0 O{**0 P{**0 Q{ **"} *F (}*0' (}{s8t2}*b (}}*b (}}*b (}}*b (}}*0 R{**0 S{**0 T{**0 U{**0EyVoJ9doJou 9oJov o*86oJo 9$oJu  9Foo (9*8oo( 9*8*8oJoo {$ o 9o :89tIo Ao*8oJoo { o 9 o :89 tJo o*8*8*8**0 W{**0&X{9{oS*8**0RY{9{oU:89{oUt)*8{**0N Z {9${o{ 9:8 8oJ9Jo9oJ(;8)oo  oo9  o*84oI9Jo9oI(98)oo  oo9  o*8oH9Lo9oH(48+oo  oo9 o*8|{9*{{( 9:8 8A{9${o{ 9:8 8 t1s zoo 91ooi oo# (<(.8**0[ {9{o{ *8{9o{ox  o" 9o :89 ok 8{ooo{ 9:8 8oJ9o92oo 9oJ(/8 oJ(;8|ooJo o oov  o9:8 oox oJo ooox o(oJ(A8ioI9${(9:8 84oH9oHo o 9oi o" 8o9H90oo  oo9 o*8 oH(48;o 9oooH(4 uF9 tFo 8 uh  9oo 8oo 8<9#oH(0oo 8oo  ov  o9:8  9C9 ox (89 (>8 oH(?88Y{9No90oo  oo9   o*8o{oVo oov  o9:8 oox {oV({oSor oo { (29%oox oo { (2:89oo {E (8{oS(<oo  oo9 o*8{9To9oK9:8 8%{{( 9:8 8{9xo9{o;(98Roov o{o;or oo9:8 {o;(<8 t1s z**0 \{**0 ]s-**0^{9 { 8{9{o5oD 8{9{oV 8{97{o o 9{o 8 {o 8U{9{o 83{9{ox oi 8 t1s z*** (*(s }}tws)t1(w *0_{oX**0`**0 a{**0 )or (Q%ZsU}}*0b o92oo 9{(.8 {(98Yo9<oto{or oo{ 9:8 8{(<**0 0or (Q%\sU}} }!*0/c { (9{!({ or ( **v(Q%^sU}*0d**>(s }"*0 e{"**0f**0 grps z*0 *h oI o  o9  o***0ioI o { **0jo`(m**0ko`(l**0lo`(o**0mo`(n**0en o9 o 8 o9  8oo { rkp(Q (oo { ( P(<  8oo   u9 8P(9( ou9oo {A (;8a o ouox oor9:8  ouox o" 9 ouox (B8oo { oo { ( X: 9P(9 (oooox oo{ 9:8 oox o" 9oox (B8oo { oo { ( 8P(99oo { rkp( (oo { (  (< 8yo o u9 8N8 (9 (o(#oo { oo { (    X  :y (98!ooo { o((**0do o :o:89&ooo { o((8To֍ Qoo { rkp(Qo(oo { ( P(<o8oo ou P(9( 9 8C ov o   :8 ov o  oI9 8 oJ9p oJu   9? ou 9" oo (:8 8 oJou  8 8s :8 8\ :8 ov ooo  80oo  oo9 o*8P  9 (8(oo { oo { ( X:'P(9**0Jp :o :89*8o  o 8 9 8}8o o ou ((9 (oo { ( ( ox rkp( (9 (oo { ( oo {E ( ox (oo { (oo { ( tooo { s]  tos    tw ox o  o{ 9:8  (< o to sYtwoo{ 9:8 ( X :a**09 q   oo{ 9:8 ooo { o((o(#(i&o90oo  oo9 o*8!ooo { o(((j&oo {s (oo {E ( (k&**0]r  oo{ 9:8 (i&oo {u (oo {E (**07s  oooox oo{ 9:8 ooo { o((o(#(i&o9.oo  oo9  o*8!ooo { o((oo {t (**0_t  oooox oo{ 9:8 (i&oo {v (**0Wu   o9<oooox oo{ 9:8 8!ooo { o((o9&ooo { o((8"o(oo { (o(#(i&o90oo  oo9 o*8!ooo { o(((j&(oo {w (oo { ( (k&**&(_*0v st1ow **0w o9Qo`o9og9:8 8oh9:8 8Lo`o9oe9:8 8of9:8 **"(s *08x(s }'}%tow twsy}$*B(s ox*0 y {#94{#o9:8 {#o}%8{$9#{$o9:8 8**>}#}$*>}%}$*0 z{#**0 {{'**0-:| {'99{$oouov oo9:8 8{(9^oo 9{%(  (81{%(  o o# (. ((98{)9A o}( oI o { o (8;{&o{$o o9:8 (**0}ov oo;**0|~ {'9+{%o oI o { (2}'8{$9${$o9:8 8tosx}$9*8{'9{% {$o95oI o  } o9:8 89#{$oouov o:897oI o  }o9:8 89F{$oouo 9:8 tws+t1ow 88={%o" 9{$o:89 }(8oY 9{$o9+oI o  U}o9 o*8o _9o _:89+oI o  .}o9 o*8})86oj :o" :89 6o tots}&{&o{$ o9:8 9Ytsrpo9   oI ((< rIp(< oo9   oI ((< ( &8+{$ {&oo{9:8 8+tsrMpo9   oI ((< ( &tws+t1ow **0`(s }*ox oi }+to{+s@t1ow oI ((} 9 (8*0 {***0 N {*to{*ox oo{ 9:8 {*ox (5**0 **0 **0 {+**0z(s },oI o ox o}-oI ((} 95oI o  o9  o&t~s z8*0 {,**0" tw{-s+t1ow **05 tooo {,ov o  :8{,ov ooM9<oMtooMox oo{ 9:8 8oI9oI(.8foH9oH(08BoJ9^oJou 9;oJo rkp(oJ(;(<(.8 oJ(/8oE9oEox oi o 9 o" :8oEtooo{ 9:8 s\  tooI o { o  oFo 8toF o or9:8 oF oouox oI o { ( oI o { o_  X   :~too  o_ o 9%9( 8 ( 8&oI o  o9 o*8oD9oDud9@oDox rkp(oDox ((<(.8oDuF9oD:89%oDo{ 9:8 8&oI o  o9 o*8&oI o  o9 o*8  :8b{,to{,ox oo{ 9:8 {,ox rkp((<(.8 :8+oI o  o9 o*8d :8+oI o  o9 o*8+oI o  o9 o*8**0 {-**&(_*0 tws)t1ow **0 R o`o9oe9:8 8of9:8 **(s }.tw{.o s+t1ow *0 {.**0{.o **0;ov 9&tw{.o s+t1ow 8**0 {.(;**>(s }/*0{/o**0{/o**0/ {/o94{/osx o9:8 896{/osx o9:8 *8{/o9{/oo# }08={/o9{/oo }08 t~s z{09:8 tws)t1ow **0 9 {/oo{/osy{/o( &**0 {0***( *0 **0  ((**0 to~ s,t1ow **0oI o { **0~ **0+9o 8stw**"(s *0 (PoI o  Po9  o**0 * oo  o+ o***0 * oo  o+ o***0 * oI o  o9  o***>(s }1*0rkp {1o9 {1oo rp(< 8{1ooe (< ryp{1oo(< r}p(< (< **0{1o**0{1o**0L {1o }2{29:8 tws)t1ow **0 M {1oo {1o{1ot$( 9:8 **0 {2**>(s }3*0{3o**0{3o**0#+ {3o:{3o:89{3tosx o9:8 9LoI o rpox {3tosx o&tsrp( *88{3oo }4{49:8 to{3o{3o{3o st1ow **0% ov o9:8 **0 {4**>(s }5*0Yrkp {5o9 {5oo rp(< 8{5ooe (< **0{5o**0{5o**0 {5o:{5o:892{5tosx o9:8 89*8{5oo }6{69:8 tws)t1ow **0 M {5oo {5o{5o t$( 9:8 **0 {6**"(s *0 (PoI o  Po9  o**0 i ( :( :8:( :8:( :8:(h:8 **0 * oI o  o9  o***0 3oV(Q}7to{7s?t1ow *0{7(**0a o oS9$oS(9:8 8o  o9  o***0( oo  o9 (98oor o oov  o9:8 oox or (or { (29oox { (2:89{E (8(<**>(s }8*0{8oG**0{8o**0  {8oO}9{99{9o :89{9oi }98{99:8 tws)t1ow **0z oo {8oM9w{8oMox  o" 9 o :89 ok 8{8oMto oo{ 9:8 8{8oJ9Lo9{8oJ(;8&oI o  o9 o*8{8oI9Lo9{8oI(98&oI o  o9 o*8]{8oH9o9K{8oH(2{8oHo o 9{8oHo (588&oI o  o9 o*8{8oE94{8oE{8oF( 9:8 8|{8oD9){8oDo{ 9:8 8={8oC9{8oCo;(98 t~s zoo 96ooi ( oo# (<(.8**0 {9**(7 *0 {:**"}:**(7 *08_oH oJ o oH 4o to 8o ( t) oe rAp(> 9oe rSp(> :89o oJ rpoH o o 9-ov ts9 (88)ov ( 9oN 8oe o rap o o o 8o :u9 uo o *A"A&( *>( ( *>( ( *0 ( **"( *0 -(7 }D}Noo {Ao *6oo*0 {D**0 {E**0 {G**0 {K**06rkp{Noe (< o{N>o s}Es}I}F}J}H}L}G}K{E s s ssooG {NoKo ֍X   {Io {I o {I o {I o {Io to  8b o ( t   (   (  (   (  9  :89  :89 88 :  :8  :  :8  :  :8:  :8 o 8V9E oe o 9{Q o 8 so8X: o : u9  uo *A!0&|o 98{Nok 9{NoY :89{No] o ֍V sZ }Mo 88{Do o{M{Mto X:  o   8o X :{Do oo { oo8{E}G{I}K*8o9{E}G{I}K*8o*0k{G9{Es}G8{G {K9s}K{Io s {Io s {I o s {I o s{Ko {K o {K o {Ko {Ko 87{Ko {Ko {K o {K o ooG {NoKo ֍X  oto  8 o %:& 8 y&q&( o to  8 o ( tY   {Qo 8p {Q o {M9{Mo :898?( o9+{M9{Mo 889( ( ( ( 9( :8: :89( :8 : :89(  :8 : :8: :89(  :89( :8o 89 8v8 {Po 9so8A {Po {Qo 9 {Po {Qo 8X:c8 X  : o :B u9  uo  o : u9  uo *A4y`D*N*oo ox*0 oe o 9*8 {Qo 8h{Q o o& o& 9*8o& :2:(: : :8*8::8(F  _  @_  _  9  :8  9  :89*89{Dts(N(  8{Dts(N( (19*88rkps z8 X :**0{O9 {O*8{No 9*8{Do {Ao 9{Ds}O8{Do {Ao }O{O**0o{N(Go**0-{L9]s}L{Kto 8 o %:&8 y&q& ( o ~ ts{L( o ( to 8vo %:& 8 y'q' (  o 9( s  o8 {Q( {Qto o :}u9 uo o :u9 uo 8  {Lo 9o 9*88**A4"4M0{H9{Go ~ ts}H{Gto 8{o %:& 8 y'q' {H( o 9 ( s{Ho8{Q( {Qto o :yu9 uo 8{Ho 9{Ho *8**A.0!o 9*8{Q**04sZ o 9{Qto 8**0{F9~ ts}F{Eto 8o %:& 8 y'q' {F( o 9 ( s{Fo8{F( o {Q( {Qto o :ju9 uo 8{Fo 9{Fo *8**A#0-{J9Ws}J{Ito 8  o %:&8 y&q& ~ ts{J( o ( to 8o %:&8 y'q'( o 9( s  o8( o   {Q( {Qto o :ru9 uo o : u9 uo 8 {Jo o 9*8**A4t0I( *( *"( *&( *6t(( *:{P( *0ksZ o to 8# o ( tY {Qto o : u9 uo **AJPf(7 sZ }Q}P*(7 sZ }Q}P{Qto *(7 sZ }Qoe }P{Qo *"(c*"(d*"(e*ZoJ(h}R*Jo}S*0 {W**"}W*0 {V**"}V*0 {T**0|T( **6s }T*0 {U**0|U( **6s }U*0ot **0 {S**"}S*0 {X**0{RoEo **0**0{Ru**0u9*8|T( _9|U( _:8 9Ioj9 ojoI o {I o.:89 88**0 {R**0 (q9:8 {RoH9:8 9*8{RoEo }W{RoD}V{S9#{So9:8 8**0 {RoEo9:8 {RoE9  }W8{RoEo }W{RoD}V|T( 9oo~ s }T8|U( 9s }U8**0 (r9:8 o9:8 {RoG9:8 {S9${So 9:8 8**0 **0 o9:8 (s9:8 o9o9:8 8[o9Po9o{Vo# }X8{Sto9:8 8**0 {Y**0( oo  (9*8**0 N {Y97{Y("}Yokoot'{Yo 8**0+oul 9*8o**0Pa otl u| u}tso+ot (  9?om9(8ooUt)(;(88((om9(8ooUt)(;(oto  81 o ( t  o# 9:8  o : u9  uo (om9(8o(2ooUt)(Aom9(8ooUt)(;(oto  81 o ( t  o# 9:8  o : u9  uo ((8**A4Z4Z::(7 }Z*0 {Z**0'{[9s }[8{[**0'{\9s }\8{\**0 oo o 9*8oo o rpo  9 ~ 8o  ~ (> 9 }]8=\( ( 9!\( ( (a }]8}]{]9*8oo o rkp(> 9/rpoo o (< rp(< }^8 rp}^o9:8 o9:8 o9:8 o9:8 o 9:8 o!9:8 o"9:8 o#9:8 o9:8 o9:8 oo 9s rpo &rbpo &rpo &rpo &rpo &rp po &r po &r po &r po &r~ po &r po &r po &oo o 9r po &r po &r po &rG po &r po &rpo &rpo &rpo &r,po &rjpo &rpo &8rpo &r_po &rpo &r po &r po &r po &rpo &rpo &rpo &rNpo &rjpo &rpo &rpo &oo &orpo &orp( (< o &ooo &orpo &or$p{^o &oo o r:pr:potsoo sY o 8**0h oo o rVpo  9p{]::8 r|p 8?:8 rp 8%:8 rp 8 ~ 88o  r|p(> :8 rp8Srp(> :8 rGp8-rp(> :8 rp8*8orepo &orpo &orBpo &orpo &oo &oo o 9rp(> :89korpo &orpo &orpo &orkpo &orpo &orXpo &8orxpo &orpo &orpo &orpo &or%po &orpo &orpo &or)po &orQpo &**05 oo o r{po  9t{]:#:::8 rp 8/::8 rp 8 ~ 88o  rp(> :8 rp8-rp(> :8 r p8*8oryprr po o &orv po &or!po &oo &or%po &orpo &org!po &or)po &orQpo &**0:2 oo o r!po  94{]::8 8 88 o ( 9*8oo o r!po &r"poo &or=po &or>po &or :8 r%np8-rp(> :8 rnp8*8orepo &orpo &ornpo &orpo &oo &orpo &orpo &or!opo &orXpo &orxpo &orSopo &orppo &or;qpo &or%po &orpo &orqpo &or)po &orQpo &**01 {]9*8rHrp oo &**0 **01 {]9*8rUvp oo &**0 **(7 *F~ t( *0)oW 9 ~ 8o'o.*0 &o 9 o(*8( **0s, ( **0!( 9 ( *8~m**0s o t.o  **(7 *F~ t( *.s,m*0!oe ( 98( *0 Sto 8o ( t  o.o :u9 uo *A;;0(o  ֍   (  to  **0s3 o  to^ **0( 9 ( *8**(\ *07(}n}p{pu}o}s}t*0/(}p{pu}o}s}t*0{po  **0 (**0{o9{oo 8Y{q9{qot|(  8+oo  oo9  o& **0t{po 9Z{puT9{po 8+oo  oo9  o& 8~j **0{pom **0{po~ **0{poe **0 w{v9`{o9{oo%}v8{po# }vo{v{s{t( }v8{v**0*{n9{po 8{n **0{u9{o9+ooI ts{ot'(Q}u8!ooI ts{p(Q}uo{u{s{t( }u8{u**0c {r9{n9?{p("}p{t((}t{p{to }r8{n( }n{p("}p{t((}to?(  ((   {poH oe rrzpo {puT` {no oe rp(> :){no oe rzp(> :8 {nu0   ` 9A:1{po oH oe rzp(> :8:89{po :8 {po  {po {po o {noX {no {no  9:89 :89 :89 :89 :89  :89 :898 9 89 89 8 9 : _:8:898{{po {n(29  :898?{po {n(29 :8989'{n{poe 4o }r89{p}r8 9{p{to }r8v9{n{p( }r8S9!{n{po ( }r8+oo  oo9 o&oo {rt t o&uooI o (8{r**A&J(}w*"(v*0 }x{x  :8 rzp 8E z:8 rzp 8+ w:8 rzp 8t~s z8o(< tos: too9 oso>(*0 {x**0 (tg**R(cs}y*zo(h}z}{*0 {**0 {y**0 {**"}*0{|ozt'**0({~9*8{~ozt'**0{}ozt'**0 {|**"}|*0 {}**"}}*0 {~**"}~*0{yt **0 {z**0 {{**0S {{9#{{o9:8 8(q9:8 **0 oko{|to{|o{9:8 oko{}to{}o{9:8 {~9>oko{~to{~o{9:8 8**0; {{9${{o9:8 8**0  (r9:8 **0 < o+ {( }oop{o }**0) {{9{{o 8**0 {{|oyo {{}oyo {~9{{~oyo 8o_9:8 (s9:8 **R(o+}*Rto(}*Rto(}*fto(ok}*fto(ok}*0 {**6|(*0 !}{9{too 8}}{9tos,}8{9o9  oI (s z8*"}*0 "{**0 #{**"}*0S$oo  (:oko:8:oo  (:8**0 %{**0-&{9oH oa s z8{**0$' {o 9:8 **0%( {o 9:8 **0?) {9+{o 9:8 }8**f(tos}*f(tos}*f(tos}*0 *{**0+{t **0 ,{**0-{t$**0. ( 9:8 **0 / ( 9:8 **0 0 ( 9:8 **0[1 ( 9:8 okoopoo }oI o {t oxoo oF93o oFo{o9:8 8o9o( o8o9 {oI o { o 8{oo o('{oo o oE9f o oEo   84o oEo! {o9:8 X  :8o( 9{o( o" 8**02 (9:8 o oE9a o oEo   8/o oEo! o9:8 X  :8**03{o# **:(7 }**0 4{**0 5{**"}*0 6{**0A7{9*ryp{o(< r}p(< }8{**0 8{**0 9{**0 :{**0;{oo **0<o s$ } o   8 o {so% X :{o& }}}oo= }o oe }*0={oI **0 >{**0 ?{**0 i@{to 8' o ( tk 9  8 o : u9 uo **ANN0A o 9o9 }8x{to 8: o ( tk 9}{o-8 o : u9 uo 8}**A&a0B}o9o:899{tsr{poo9  o((< ( &8oo9o:89{o 9woo  voo9  {oo oe {ooe {o(F(Eo*8>oo  5woo9  {ooe o*8oo9o:89/r({poo9 o((< s z8oo9o:89M{o 9ots{o(No {o9Aoo  iuoo9 {oo*8w     8Qoo  voo9    o  {o o&  X   :*85oo  4woo9 oo*8o9o*8oo9o:89:{tsr{poo9 o((< ( &8o9o*8oo9*8Ho9:oo9 o(of 9}*88o9o:89:{tsr{poo9 o((< ( &8oo9o:89:{tsr{poo9 o((< ( &8o9*8oo9o:89:{tsr(|poo9 o((< ( &8o***0 mC {o'   8G{o( 9 8&8o9{o) 8X :*0 SD {o'   8-{o( 9 8 8oX :*0 mE {o'   8G{o( 9 8&8o9{o) 8X :*0 jF {o'   8D{o( 9 8#8o9{o) 8X :*0 jG {o'   8D{o( 9 8#8o9{o) 8X :*07H{o' ֍  {o'   8{o( 9 88{o' 8{o( 9 8p8{o(  {o(  9 o89 o8{tsoo(@ {tsoo(@   9 o9 oooo*  8 o9 oooo* 8 9   8 9   88  a94 9{o) 8-8{o) 8X:a X :*0I{**0 J{**0#K{9*8{o**0Lou'**0Mou#**0Nou7**0 GO~9< o(+ oo ow8*V(7 }}*0P{ots{(9**0 Q{**0 R{**08S{9!otso(N}8{**0-T{9o( }8{**0U{o**0 V{**0 W{**0X{o**0 Y{**0 :Z{9*8{{o o out**0 $[otsoo{(M**0 \o**0 ]o**0 ^o**0$_ oo   8ooo 9&ouox oo { (2:89 8B8oo tsouox o o9*8 X :Y**0`oo**0aoo**0 bo**0,c{9*8{{o ښ**0qdoo 9*8oooo ښ(49*8o{s }ooo% *0ceou$ ou7oo {oooo 90oo 9*89*88s, (+ts. oo(/ ֍   }9|os  tosoo w  o oo two t*o {oo 8oooo8ooon98899*8oo8_ooou9*8oooouo{oo oi X:8P86oo0 {oo ooou9doo1 98Dostoo(<oo ot*8oo9o 89 :891oouo{oo oi 89o 8X:oo8oot"" !8o##o o( 9l#o2 9*8SooI #(49*85#o0 ooo {#o 88!X :\9*8X: ''$%&8Lo$o2 9.9oo$(4:89*8o$o1 9o$o:89*8os))too$(<()o$o (o9+{$o$o $)t*o 8ooI o$(49 9$)t*o 888$&X$$%: 9 on :89 o3   o  898 92o:oo4 o5 :8:898o9oo4 o5 :89]oo4 o5  9*8{oo  {oo9 **o*8}o9 (8**0 f  {o  8{o ouox oo { (29 8y8u(9^oo o   o(o} 9:8 9{o  ov88X  :6**0go9o 9o :89$oooo ښ(4:89(o(o} 9 (888*f(ctosK}*0 h{**"}*0'i{9s6 }8{**0j(htos}{{tososk {olsn {ooti}ti}*0k(htos}{{tososk {olsn {ooti}ti}*oJ(h}}}}*0{l  (9sn oo8  (9sk ol8 titio*0 m{**0noo  (**0ooo  (**0p{t **0 q{**0 r{**0+s{9{owt'*8**0 t{**0+u{9{owt'*8**0v{t**0w (q9:8 {9#{oH9:8 8{9#{o{9:8 8{9#{o{9:8 8{9#{o9:8 8**0x {o9:8 {9.{{(o|9:8 8{9.{{(o|9:8 8oo @(9+o+ opo9:8 8**0 y (r9:8 {9${o}9:8 8{9${o}9:8 8**0,;z {9#{o~9:8 8{9#{o~9:8 8op  ooDooEo ('( oko o8 }oI o {t oo{9{{oyo9 8{9{{oyo: 8**0 { {9${o9:8 8{9${o9:8 8(s9:8 **"(-*0|(tl**>(}*~(}}}*Zo: }}*0 }{**0 ~{**0{**0 =9o 8s {o9 {o**0 {**6ts(7 *:ts(8 *6ts(7 ***0*0*0 {**"}*0(B to**6ts(C *04oI o rL|poH oJ (< rZ|p(< ow**(7 }}{o }*0-(7 }}s%}{o-*0tosm   tos,{(09too&8{(9oso9 (8oF :8 8Cz:8 8*w:8 8t~s z88J9o; :89o{o+( &888 on 9 :89 :8o**02sh to o {r|po={Mo<too 9 (8{%o:9 (8too9 (8{oC9Ftoo<9 (8{oC9 (88tg o9 (8{IMo;9 (8{oC9 (8o oioptfoRortfoTottfoV**0s to o {Mo<too 9 (8too{oC9 (8o o"**0s {%oI9too o8tos { oI9{ oI9Y t1%:s< too+9 (8{ o:9 (88 tos  o8 o**0s! to o {Mo<too 9 (8too{(9'too<9 (88{oC9 (8o o"**0,s tos {o* zwo9"{o*o{o-8 t~s z{ o:9 (8{ oI9Yt1%:s< too+9 (8{ o:9 (88{oC9 (8too 9 (8{Io;9 (8{oC9 (89tos 8w9 s8o o**0{Uo<s **0 .s  {o*o {o-o **0 gs   9too8{ o<too 9 (8 to **0s {o*o9{o* {o-8(*{o* o9{o,po:89%too 9 (88  o**0s   9too8{ o<{o*o9%too 9 (88"oo  uo&* o **0 ?s  {,o<otw 9 (8oQ **0 ?s  {+o<otw 9 (8oQ **0 ?s  {-o<otw 9 (8oQ **0 ?s  {.o<otw 9 (8oQ **0 ?s#  {0o<otw 9 (8oQ **0 ?s,  {/o<otw 9 (8oQ **0 ?s4  {2o<otw 9 (8oQ **0 ?s<  {4o<otw 9 (8oQ **0 ?sD  {5o<otw 9 (8oQ **0 ?sU  {7o<otw 9 (8oQ **0 ?s]  {8o<otw 9 (8oQ **0 ?se  {9o<otw 9 (8oQ **0 ?sm  {:o<otw 9 (8oQ **0 ?s  {;o<otw 9 (8oQ **0 ?s  {:8 su  8VC:8s tY 85 :8s tY 8t~s z8{o<{ o:9 (8too { o:9 (8too 9 (8{ o:9 (8 ox **0,s  {mo<too o **0 Bos  { o<o 9 (8o **0s s  { o<{o* ($9Gtoo 9 (8 o { oI988{ oI9 (8o**0=s   {o/too 9 (89{(9'too9 (889{%oI:89- too9 (8889;{o0toso9 (88 {o1 o **0s  {o/ o }too }9{o1two 8;{o0too9 (8two **0st   {ko<too { oI9g{o* ($9%too 9 (88{ o:9 (88 9tosx 8 ox**0sx s {(9 8r8 {o* o9too 8too st*o { oI98y{(9;toot*o { oI988o**0s~  {o*o9{o*o 87{o*o9{o*o 8 t~s z{o-{ o<{ o<too 9 (8 o**0{io<s  **0{ho<s  **0{eo<s  **0s  too 9 (8{o* (#9{o,p(#:89%too 9 (88  o **0N#s 9{( :898tooV 9 (8 to o8 {(= 95tooe9 (8to8 {o*o:&{o* eiho:8: {o*~ o:8:{o*Uo:8:${o*C >o:8:{o*To:89toso9 (8{o*o9{o*o :8_{o-tos' toso9 (8o) to8* :8_{o-tos%   toso9 (8 o)  to8 :8_{o-tos0   toso9 (8 o)  to8F :8_{o-tos2   toso9 (8 o)  to8 :8_{o-tos4   toso9 (8 o)  to8b :8_{o-tos>   toso9 (8 o)  to8 :8_{o-tos@ toso9 (8o) to8~ :8_{o-tosB toso9 (8o) to8  :8_{o-tos6 toso9 (8o) to8 :8_{o-tosD toso9 (8o) to8(tosF oG to88#tosF oG to8{o*o9e{o*o:::8/oQ9 (8t;o 8 :85tooj9 (8to8 :85toom9 (8to8k :84tooW9 (8to8$ :85toog9 (8to8~:85tooq9 (8to8X:85tooo9 (8to8RD:85tool9 (8to8  :84tooX9 (8to8I:8Q{o,o"94too^9 (8to8 8e :85toof9 (8to8N:84too]  9 (8 to8|:84tooa!!9 (8!to8Q:8{o,Fo95toot""9 (8"to80toou##9 (8#to86:85too_$$9 (8$to8V:84too\%%9 (8%to8zq:84too[&&9 (8&to86L:84tood''9 (8'to8 :z:84toow((9 (8(to8w:84too))9 (8)to8_(:84toos**9 (8*to8K:84too`++9 (8+to8x:84tooZ,,9 (8,to8{:84tooY--9 (8-to8O :85tooi..9 (8.to8 88!{o* o98 9^9%{ oI9 88.{oo o|oC9*88o 9 :89So o2 9o o3 o 8$o o2 9t~s z88:8**07s  t<%s? o+9 (8**0 / oo  {o+ o&**0 o) **0 so) **0ms  {To<{ o:9 (8o { o:9 (8o **0 o) **0  {o*o9*oo,tw 9 (88{o* (#9+ootw 9 (88T{o* (#9+ootw 9 (88{o*~ o9*ootw 9 (88{o*o9*ootw 9 (88{o* (#9*oo tw 9 (88H{o* (#9*ootw 9 (88{o* o9 o 9 (88{o*o9{o*o m:8 o' 8i C: : >:8'o{o*oo tw 8 !:8oo*tw 8 k:8ootw 8 2:8ootw 8 +:8ootw 8 ,:8ootw 8^ -:8ootw 88 .:8ootw 8 0:8ootw 8 /:8ootw 8 4:8ootw 8 5:8ootw 8z 7:8ootw 8T 8:8ootw 8. 9:8ootw 8 ::8ootw 8 ;:8ootw 8 <:8ootw 8 =:8ootw 8p : O:8oo-tw 8= n:8#{no<ostw 8  T:8ootw 8 :8oo+tw 8 e:8ootw 8 h:8ootw 8p i:8ootw 8J U:8,oootwotw 8rkp(89 (88 9{o* (#9ootw 8q{o* (#9ootw 8;{o* (#9ootw 889 (88;**0 Bo { oI9 o os tw 8**0i{o* (#9o tp 84{o* (#9otp 8o*tw**0o {o* o9{o*o {o-o 9os tw 86 9os tw 8{o+s z8]**0 Bo  { oI9 o  os tw 8**0 ?o! {foI9 o! os tw 8**0o" {o* o9{o*o {o-o" 9os^ tw 86 9os{ tw 8{o+s z8]**0 Bo# { oI9 o# os tw 8**0o$ {o* o9{o*o {o-o$ 9os tw 86 9os tw 8{o+s z8]**0?o% {o* b_o::{o* (#9o:8:8:7{o*^(#9o:8:89{o*o9{o*o 8<{o*o9{o*o 8{o+s z{o-o% 9os tw 8% 9os tw 8 9os tw 8 9os tw 8 9os tw 8 9os tw 8l ^: _:89o s tw 83 b9os tw 8{o+s z8**0 :{o*m(#9oo  8o&*tw**0o' {o*$"o9~{o*o {o-o' $9osX tw 83 "9osS tw 8{o+s z8i**0o( {o*tu o9{o*o {o-o( t9os tw 8X u9os tw 86 9os tw 8{o+s z8?**0,sb {!o<too of**0s  { o<toso 9 (8{^oI9 8G{_oI9 8-oo  {o+o&*too9 (8 o **0 >{o* o9 8s  o {o-**0Us  { oI9 8&{OoI9 8 t~s zo **07sv t>%sA o+9 (8**0%}sc tos to o { o<{ko<{ oI9w{ oI9Y t1%:s< too+9 (8{ o:9 (888torkp s<{oC9 (8too9 (8{I o;9 (8{oC9 (8ooe**0qs* tos,to @Ao {vo<too5 9 (8{oC9Ftoo<9 (8{oC9 (88too{(m9o9!o{o+r|p( &8tlos (o29 (88{(p9o9!o{o+r|p( &8tlos (o19 (88]9o; :890oo  {o+o&888{Ivo;9 (8{oC9 (8 (9 :89+oo  u o9   o&8 (9 :89+oo  u o9   o&8 (9 (:89o9+oo  u o9   o&89+oo  u o9   o&88o titio**0)hsn tos to o (9 f_(8 ({o<{ oI9Y t1%:s< too+9 (8{ o:9 (88{oC9 (8too9 (8{Io;9 (8{oC9 (8o oo**0sk to o (9 f_(8 ({So<{oC9 (8too 9 (8{ISo;9 (8{oC9 (8o ol**0 oQP9:8 {(9o6Q8{ oI9z{ oI9\t1%:s< too +9 (8{ o:9:8 88**0Js:   tostoo39 (8 o>**0s   tostos,too39 (8{%oI9\{(09%too9 (88too9 (88 o9 {o+so**0s { o:9 (8{po:9 (8tos t%7sF too!+9 (8{ o:9 (8o**0s to too 9 (8{(9%too8 9 (88  o**0s {%o<to  sQ { oI9Yt%9sH too"+9 (8{ o:9 (88-too9to sQ o**0tsc   {o*k3 o9!{o*o {o-8 too 9 (8 od **0ts tos, {(09too&8to o o;9 (8{%oI9'too9 (88{ oI9'too9 (88 o**0 js  too 9 (8{(9%too 9 (88 o**0 Rs s {Yo<tB%=sJ o#+9 (8o**0's   too { oI9) too9 (88o 9o o:89bo o  o (9!too s`o 8o{o+( &8o{o+( & o**0ZsL  o {o< (oo? {oC9 (8**0 VsL  oI soP 9 (8oM { oI98**0s   to @Io {vo<too5 9 (8{(9'too<9 (88{oC9 (8o o**04sa   to &o {ro<{o*(e9{o* {o-8 t~s z{ o:9 (8tooC9 (8{ o:9 (8{%oI9\{(09%too9 (88too9 (88{oC9 (8too9 (8{Iro;9 (8{oC9 (8o ob**0s[ too 9 (8{ oI9%too 9 (88 {oC9 (8o o]**0{s {oI&too 9 (8{%oI9%too 9 (88  o**0Eds> tos,to o {ro<{o*(D9R{o*o9{o)ot8{o*o {o-8 t~s z{ o:9 (8tooC9 (8{ oI9'tooC9 (88{ o:9 (8{%oI9\{(09%too9 (88too9 (88{oC9 (8too  9 (8{Iro;9 (8{oC9 (8o  o?**0"?s   to Io {Ro<too5 9 (8{(9'tooG9 (88{oC9 (8 (9itoo9 (8{IRo;9 (8{oC9 (88o to0**0!,s,   to Io { o<too4 9 (8{(9tooG8{oC9 (8 (9ltoo9 (8{I o;9 (8{oC9 (88o o0**0s {(9,tooH 9 (8o8H{(9,too< 9 (8 o8 t~s z**0 \s tosy {Wo<tE%IsN too$+9 (8o**0s{ {o*h(#9tootw 8z{o*e(#9tootw 8Ltoo9 (8tos tosNo tw 9 (8{ o:9 (8too 9 (8 o~**0s   to o { o<too4 9 (8{oC9 (8o o**0is   to o {Ro<too5 {oC9 (8o o**03s  to o {Ao<{o* o9!{o*o {o-8{ o<too9 (8tooO9 (8{(9'tooN9 (88{ oI9tos{ oI9[t1%:s< too%+9 (8{ o:9 (888{oC9 (8o o**0>Cs   to o {Ao<{o* o9!{o*o {o-8{Ro<too9 (8tooO9 (8{(9'tooN9 (88{ oI9tos{ oI9[t1%:s< too&+9 (8{ o:9 (888{%oI9\{(09%too9 (88too  9 (88{oC9 (8o  o**0ps  {#o<{o*o 9{o* 8)oo  {o+ o&o**0{s {ao<{o*o 9{o* {o-8+oo  {o+ o& o**0sL  too 9 (8{%oI9%too 9 (88{ o:9 (8too9 (8o oN**0 Cto o toosoS 9 (8**0 8 Go oS {o59 (8**0 TsR sR oT 9 (8to { oI98**0-o. 9 (8{%oI9a{koI 9,o9 (8s 8o 9 (88 { oI9%o9 (88{ oI9n{ oI9Eo9 (8{ o:9 (88sx8sR to  80 o ( to sLo  o : u9  uo **A]T0}s   to @o {vo<too5 9 (8{oC9 (8o o**0{o*o:{o*o:89{o* {o-8 t~s z{o* o9t~s z8{o,o!9{o-8s **0 as#  { o<{o*o"9%too 9 (88 o% **0{ o<s **0&{{o<{loI s **0gs  {xo<{o*r&}po9 {o-8ob 9 (8 o **0F {qo<{LoI9 (8{{oI9'{loI9 (8 8{VoI9 (8{o*o9L{o*os ~ ( 98 {o* {o-8{o* (#9{o,o:89o{o,os ~o ( 9 {o.8.(oo  _r8}po&8X{o*o9{o* {o-8'(oo  uo&* s **0k{Vo<{o*o:{o*o:89{o* {o-8*s **0{No<{o* RvDQ ~o9!{o*o {o-8 oo  v o&*s **0{Io<s **0~sj  {6o<{o*DQ o9!{o*o {o-8 oo  =x o&*ol **0 :s  {Ko<o 9 (8o **0 ^s  {|o<{o*o"9%too 9 (88 o **0<s  tG%csS too'+9 (8**0s  too9 (8u9oo o} 8-oo  {o+o&* o **0 ?s  {Lo<too 9 (8o **0"Us8  {r>}po={ o:9 (8too 9 (8{ o:9 (8too 9 (8{ oI9'too9 (88{ o:9 (8{ oI9 (8too9 (8 o9 **0sB  { o<too 9 (8{oC9 (8too 9 (8{I o;9 (8 oE **0sI  { o<too 9 (8{oC9 (8too 9 (8{I oJ9 (8 oK **0Zs0  too 9 (8{%oI9{koI too 9.{ oI9too88{ oI9T{ oI96too{ o:9 (8889tosx8to sN8  o6 **00s<  { o<{o*o9{o, %o:89Ltos/ tI%hsU too(+9 (8to 8-too9 (8to {oC9 (8too 9 (89to 8<o ( to7 9 oo8 to 8o :u9 uo 8{I oJ9 (8 o? **Aa0s  { o<too 9 (8{oC9 (8too 9 (8{I oJ9 (8 o **0 q  { oI9Ro 82{ oI9Ro 8 t~s z9 (8**04 sp  {Do<{o* o9Mtook 90oo  {o+o&88 {oC9 (8too9 (8{do:9 (8{o* o9Mtook 90oo  {o+o&88  ot 9 :89,oo  vo&o8**0% s(  { o<{oC9 (8too 9 (8tssW {o**(#9toonoX 8{PoI9E{oC9 (8too 9 (88 {I oJ9 (8 o+ **0$I sa   {*o<{oC9too 9G{%o:9 (8too9 (88{ oI9'too9 (88{oC9 (88too 90oo  {o+o&8 oe **06 s  {Xo<too 9 (8{ oI9J9.o{o+rF}p( &{o48{oC&8#9{oC8too 9 (8tssY {o*H(#:W9{o*G(#:89{o,X(#:8:89toopoZ 8n{GoI9W9${oC9 (88too9 (889{IXo;&8 o **0sz  {GoI9{Xo<8 {Ho<too 9 (8{ oI&{oC9 (89o{o+( &8too 9 (8 o| **0s  {~o<{)oI&too 9 (8{oC9 (8tss[ {o*)(#9toor o\ 8{I~oJ9 (8 o **0! sX  {)o<{GoI9   8=tosV   tQ%vs] too)+9 (8{oC90oo  {o+o&8too90oo  {o+o&8 o] **0,sF  {(o<too oG **0#5s  {Qo<{Fo<too  9 (8{[o:9 (8too 9 (8{oC9 (8too9 (8{lo:9 (8{o*o"9'too9 (88 o **07s  {Qo<too  9 (8{ o:9 (8too 9 (8{ o:9 (8too9 (8{ oI9'too9 (88{oC9 (8too9 (8{loI92oo  u{o+o&*8{o*o"9Dtos t<%s? too*+9 (88 o **0/lsM   {^oI9{o*~o9,oo  vo& 8{o*o{o-too 9 (88{o*~o9B{o*o{o-too 9 (88[too 9 (8{ oI9%too 9 (88 oS **0s  { oI98'{zoI98 t~s ztoo 9 (8{ oI9 (8too 9 (8 o **0.s` {(9oy oa 8**0 Ys {Zo<o 9 (8{oC9 (8o**0% o(9:8 **0.sV u  to %o {3o<too9 (8{oC9Ftoo69 (8{oC9 (88{ oI9Ftoo9 (8{oC9 (88{(9'too9 (88to9 (8{I3o;9 (8{oC9 (8  oW**0sy to o {Bo<{RoI9too5t 84{ oI9too4 8 t~s z 9 (8{oC9 (8 o{**0tos {o*IJo:tos, {(09$to o9 (88too soob oB 9 (8otoc 8Z**0+Is \to o {Jo<too 9 (8{%oI9]{o*~ o9"{o*o{o-8o{o+r}p( &8{oC9 (8o}9 (8{IJo;9 (8{oC9 (8 o**0$Ps to o {]o<too 9 (8{oC9Ftoo69 (8{oC9 (88{(9'too9 (88o9 (8{I]o;9 (8{oC9 (8 o**0s to o {go<too9 (8{oC9 (8to 9 (8{Igo;9 (8{oC9 (8 o**0#Cs! to o { o<too9 (8{oC9Ftoo69 (8{oC9 (88too9 (8to 9 (8{I o;9 (8{oC9 (8 o**0 {**0 !{**0 G" o9:8 oo o|9:8 **0S# oa  ob  oc oi {o*so9{( 9|9Koo  v{o+r}po9:8 8tso 9 (88e{( 9| 9Koo  v{o+r~po9:8 8tso 9 (88{( 99Koo  v{o+  r~p o9:8 8tso9 (88Joo  u{o+  o9:8 {o489tos8tooxto  8' o ( t  otVod  o : u9  uo  od **AWL0$s  {so<{r~po={r&~poK9 8S{r0~poK9 86oo  u{o+ o&{o4{oC9 (8o **0%s  {so<{r~po={qoI9 8m{r>~poK9 8P{oC9;oo  w{o+ o&{o48o **0&s  {so<{r}po={qoI9 8m{r>~poK9 8P{oC9;oo  w{o+ o&{o48o **0A'tos tW%se too++9 (8**0"( Y,og to 8 o ( t rkp(> 9to(9 (8o9bo98Lo95oI o  lwooo&8 rkps z8 oh &8 o :, u9 uo **A0 _)s (9'( 9 (8o8"( 9 (8 o**0 n*s {(9,too 9 (8o8'too 9 (8 o**0 +s  Y=og o 9*8to~= s to( 9 (8 o**0 e,s  too 9 (8{ o<too 9 (8 o**09-s  to( 9 (8tso**0.s {o/ too 9 (89{o* (#:89{o,p(#:89C{o0too9 (8tso8{o1 tso**0-K/ tos, tos{o-{o*o:{o+ {oB98{o+o(o9 (8o9:8 {oB98{oD&{o+(9Ooo  u{o+o9:8 {o488 o+**050 {(U9o9 (88**0O1s, {(094{(U9o9 (888**0 T2 { o<o9 (8{ o:9:8 **0 C3 o 9 (8oi { oI98**0;4s {rF~poK9* { o:9 (88={goI9* { o:9 (88too9 (8{ oI9i{o* ($9'too9 (88{ o:9 (88 o**0!U5s tos' tos {()9o9 (8oj &{o* (#9T{o/{o-{()9{o0828 {o08{ oI98Q8ok :{ oI:896 t[%sl too,+9 (88 o**0 Q6on ^^^9*8oo &{ oI98**0s7s too 9 (8{ o<{ o<too 9 (8 o**0U8{o*o9"{o*s` {o-8o{o+( & **0{9s {o*T(#9tootw 8;{o*k(#9tootw 8 too o**0:sv  {o/ too 9{ o0too9 (8{ o<{po:&{ oI9 8{ o:&oz 8{o1oy **00u;s {ko<too {o* ($9)o9{ o:&8*8{(9Vo9Doo  _{o+{o*oo&8*8too9{9*8(8{o* ($9)o9{ o:&8*8too 9 (8 o**0<s tos { o<{ oI9Yt4%sp too-+9 (8{ o:9 (88o**0 H=sw {(9o tooz8o  tooz**0>s {(9,too 9 (8o8]{(9Atoo 9{9*8(8 o8 t~s z**0?s   { o<too 9{9*8(8{ o:9 (8{(9%too 9 (88 o**0@s sr { oI9Stoo  os { oI98{oC9 (88ot 9 (8ou o**0As sr {YoI9ftoo 9 (8 os { oI98{oC9 (88o**0BsF  sv {o*o9({o*os ~ ( :89{o, o:89{o.8too 9{9*8(8 ow { oI98( ox oG**0Cs too 9*8o9{o* (#:89{o,p(#:89?too9*8too sl   o8o**0Dsk    too 9 (8{ o<{po< t6%sy o.+9 (8{ o:9 (8 om **0 tEsN { o<{po<t6%sy o/+9*8{ o:9 (8**0Fs too 9*8{(Y 9LsQ too 9 (8too oT o8o**0 YGs s| too 9 (8 o} {(98o~ o**0 dHs { o< { oI98{ o:9 (8o**0Is {(b 9,too 9 (8o8{( 9W{o*o9;oo  u{o+o&{o-8*8too 9 (8 o**0Js   .o 9o o 8rpo 9+to(to 9 (88^o 9o rp( :89tos to 8o9 sto 9~= ( 8 o **0&(Ks   {o*o9tooto 8[{o*Uo98tooto {o* ($9*88 t~s z{ oI9v (9 s to 8{o*o9{o* {o-8"oo  uo&*8t o **0XL{o*o9={o*o{o+{o(s {o-8 **0 JM{(b 9t~s z8{o*o {o-s[ **0KN {o*o9'{o*o({o-8**0*Otos s 9tos, {(09$to o9 (88to oo9to88{(9$to sot8{(9$to soKt8{(9$to soJt8h{(9$to soUt84 o; 9!o{o+rX~p( &88!9 (8o8\**0*Ptos o9 (8**0{Q u s 9\tos,{(09%too9 (88tooo9to889{(E:894osoDt9 (88>9{(f:894osoAt9 (88{($94osot9 (88{(j94osot9 (88]{(l9toosoR9 (8to  8! o ( t to  o : u9  uo 8{(O9tooso>  9 (8 to  8! o ( t  to  o : u9  uo 8{(94osoLt9 (88{(94osoMt9 (88{(994osoFt9 (88E{(94osoEt9 (88{(+94oso0t9 (88{(94oso@t9 (88y{(v94oso/t9 (885o; 9!o{o+rX~p( &88I9 o 8 ob 9 (8 teo o 8**A4FFV0R{(b9o{t 8{(9o~t 8{(#9ot 8n{(9ot 8J{(~9o|t 8&{(9ot 8 **08S  s 9$tos,{(09{too9 (8{oC9Dto 8o ( to9o :89o9 o(o9   (ol 9>oo  uo9   o9:8 89oo  #}o9   o9:8 8o : u9 uo oPtgo 8l88too9to8W{joI9too  9 (8  o  o 9rkp(> 9rp(< 8 o 8%  o o rp(< (<  X  : o o o (< 8{oB9 (88R{IjoJ9{oB9 (8 o 9 o o  o 9rkp(> 9rp(< 8 o 8% o o rp(< (< X: o o o (< 88o{o+r~p( &85o; 9!o{o+rX~p( &888**A_nr(7 }}}*0 T{**"}*0 U{**"}*0 V{**"}*b(}}*0 W{**0 X{**J(}*0 Y{**0 1(7  s }ooo}*0(Z~9s8~**0[{o **:{o *0\{o **:{o *0]{o **:{o *0^{o **:{o *0_{o **:{o *(7 *0_rpr~prp~rp~rtprIprapr6prHprp r%p rp rtp rIp ~ rIprprCprprprҕprprǘprprprprțprIprprpr6pr(prp *03` : :899::8:89*89 :89.9 gv*89 }*888Y : :89 :89 :89*8( 9 v*8**0 a( X:8 s z8I:8*80:8*81:8 gv*82:8 }*8s3:8 Ew*8Y4:8 }*8?5:8 Dw*8%6:8 Ew*8 s z8*0b~ (**0 c(**0d~(**0e~(**0f~(**0g~(**0h~(**0i~(**0j~(**0k~(**0l~(**0m~(**0n~(**0o~(**0p~(**0q~(**0r~(**0s(9*8**0t(9*8**0u(9*8**0v(9*8**0w(9*8**0x(9*8**0y~(**0z~(**0{~(**0|~(**0}~(**0~~(**0~(**0~(**0~(**0~ (**0~ (**0**0**0f  :8 (*8D :8 (*8&m:8 (*8 s z8*0- $:8 (*8":8 (*8t:8 (*8cu:8 (*8G :8 (*8( :8 (*8  :8 (*8 :8 (*8 :8 (*8 :8 (*8 :8 (*8n :8 (*8O :8 (*80 :8 (*8 :8 (*8 :8 (*8 :8 (*8 :8 (*8 : :8 (*8if:8 (*8Mb:8 (*81^:_:8 (*8 s z8*0f  :8 (*8D :8 (*8&m:8 (*8 s z8*0&( ( ( 9(  (   9*8(s 9(9  o   8Jq(  o 9qo 8 X :o 9o ( ( 888 9(9 o 8J q(o 9 qo 8 X  :o 9( o ( 8888**0 $:8 ~*8q":8 ~*8Wt:8 ~*8=u:8 ~*8# :8 ~*8 :8 ~ *8 :8 ~ *8 :8 ~*8 :8 ~ *8 :8 ~*8u :8 ~*8X :8 ~*8; :8 ~*8 :8 ~*8 :8 ~*8 :8 ~*8 :8 ~*8 :8 ~*8 : :8 ~*8cf:8 ~*8Ib:8 ~*8/^:_:8 ~ *8 s z8*0- $:8 (*8":8 (*8t:8 (*8cu:8 (*8G :8 (*8( :8 (*8  :8 (*8 :8 (*8 :8 (*8 :8 (*8 :8 (*8n :8 (*8O :8 (*80 :8 (*8 :8 (*8 :8 (*8 :8 (*8 :8 (*8 : :8 (*8if:8 (*8Mb:8 (*81^:_:8 (*8 s z8*0o **0"o X9*8(**0 ( A**0 A( **0*o X9*8 ( A**0+(  oH (   9*8:8 (( 8|:8 (F( 8V:8 (Y( 80:8 ( ( 8 :8 ( ( 8:8 ( ( 8:8 ( ( 8:8 ( ( 8~:8 (\( 8X :8 (( 81 :8 (( 8 :8 (( 8:8 (]( 8 :8 (^( 8:8 (( 8z:8 (_( 8T :8 (`( 8- :8 (( 8 s z8**0 :8 s z8:8 s z8:8 s z8:8 s z8q:8 s z8X:8 s z8>:8 s z8$:8 s z8 :8 s z8 :8 s z8 :8 s z8:8 s z8:8 s z8 :8 s z8r:8 s z8X:8 s z8? :8 s z8% :8 s z8 s z8*0 :8 s z8:8 s z8:8 s z8:8 s z8x:8 s z8_:8 s z8E:8 s z8+:8 s z8:8 s z8 :8yq*8 :8 s z8:8 s z8:8 s z8 :8 s z8r:8 s z8X:8 s z8? :8 s z8% :8 s z8 s z8*0 :8 s z8:8 s z8:8 s z8:8 s z8:8 s z8z:8 s z8`:8 s z8F:8 s z8-:8 s z8 :8 s z8 :8 s z8:8 s z8:8 s z8 :8 s z8:8-t o 9 o *8s z8X:8 s z8? :8 s z8% :8 s z8 s z8*0 :8 s z8:8 s z8:8 s z8:8 s z8q:8 s z8X:8 s z8>:8 s z8$:8 s z8 :8 s z8 :8 s z8 :8 s z8:8 s z8:8 s z8 :8 s z8r:8 s z8X:8 s z8? :8 s z8% :8 s z8 s z8*0 :8 s z8:8 s z8:8 s z8:8 s z8q:8 s z8X:8 s z8>:8 s z8$:8 s z8 :8 s z8 :8 s z8 :8 s z8:8 s z8:8 s z8 :8 s z8r:8 s z8X:8 s z8? :8 s z8% :8 s z8 s z8*0 :8 s z8j:8 s z8Q:8 s z87:8 s z8:8 s z8:8 s z8:8 s z8:": : :8(b sX 8:8 s z8| :8 s z8b:8 s z8H:": : :8(e s 8 s z8A**0 :8 s z8:8 s z8:8 s z8:8 s z8r:8 s z8Y:8 s z8?:8 s z8%:8 s z8 :8 s z8 :8 (9 *8 :8 s z8:8 s z8:8 s z8 :8 s z8r:8 s z8X:8 s z8? :8 s z8% :8 s z8 s z8*0 :8 s z8:8 s z8:8 s z8:8 s z8q:8 s z8X:8 s z8>:8 s z8$:8 s z8 :8 s z8 :8 s z8 :8 s z8:8 s z8:8 s z8 :8 s z8r:8 s z8X:8 s z8? :8 s z8% :8 s z8 s z8*0 :8 s z8:8 s z8:8 s z8:8 s z8x:8 s z8_:8 s z8E:8 s z8+:8 s z8:8 s z8 :8yq*8 :8 s z8:8 s z8:8 s z8 :8 s z8r:8 s z8X:8 s z8? :8 s z8% :8 s z8 s z8*0 :8 s z8:8 s z8:8 s z8:8 s z8q:8 s z8X:8 s z8>:8 s z8$:8 s z8 :8 s z8 :8 s z8 :8 s z8:8 s z8:8 s z8 :8 s z8r:8 s z8X:8 s z8? :8 s z8% :8 s z8 s z8*0 :8 s z8:8 (b *8:8 s z8:8 s z8w:8 s z8^:8 s z8D:8 s z8*:8 s z8:8 (b *8 :8 (b *8 :8 (b *8:8 s z8:8 (b *8 :8 s z8t:8 s z8Z:8 (b *8@ :8 (b *8% :8 s z8 s z8*0**0 :8 s z8:8 s z8:8 s z8:8 s z8q:8 s z8X:8 s z8>:8 s z8$:8 s z8 :8 s z8 :8 s z8 :8 s z8:8 s z8:8 s z8 :8 s z8r:8 s z8X:8 s z8? :8 s z8% :8 s z8 s z8*0  :8 s z8:8yFqFk*8:8 s z8:8 s z8:8 s z8:8 s z8u:8 s z8[:8 s z8B:8y\q\k*8" :8yqk*8 :8yqk*8:8 s z8:8y]q]k*8 :8y^q^*8:8 s z8m:8y_q_k*8M :8y`q`k*8, :8yaqak*8 s z8*0 :8 s z8:8 s z8:8 (: *8:8 s z8m:8*8X:8 s z8>:8 s z8$:8 s z8 :8 s z8 :8 s z8 :8 s z8:8 s z8:8 s z8 :8 s z8r:8 s z8X:8 s z8? :8 s z8% :8 s z8 s z8*0 :8 s z8:8 s z8:8 s z8:8 s z8q:8 s z8X:8 s z8>:8 s z8$:8 s z8 :8 s z8 :8 s z8 :8 s z8:8 s z8:8 s z8 :8 s z8r:8 s z8X:8 s z8? :8 s z8% :8 s z8 s z8*0 :8 s z8:8 s z8:8 s z8:8 s z8q:8 s z8X:8 s z8>:8 s z8$:8 s z8 :8 s z8 :8 s z8 :8 s z8:8 s z8:8 s z8 :8 s z8r:8 s z8X:8 s z8? :8 s z8% :8 s z8 s z8*0  :8 s z8:8 ( 8q:8 s z8X:8 s z8>:8 s z8%:8 s z8 :8*8:8 s z8:": : :8*(b !9 8*8:8 s z8n :8*8X:8 s z8>: : :8(e a*8 s z8a**"( *"( *0 ( &**0 ( **0to 8;o ( k kt o>( 9  88o :u9 uo k**A]]0&F(Doo  (:oko:89 8  :8to%Ps&s" 8xz:8to%Os&s" 8Kw:8+oI o  o9  o& 8t~s z8tost(Eoko9 o8$oko9 o8 o*0P o oEo oErҡpoQoLso &({9:8 **0JUom9o ~! o* ~! o* ~ oQo't)(%on ~z o* ~ oI o {N o( ~ oQoL( o ~ oQo't)(%on ~) o* 8o ~m oQo't)(%on ~! o* ~ oI o {N o( ~ oQoL( o ~ oQo't)(%on ~) o* **0JUom9o ~! o* ~! o* ~ oQo't)(%on ~z o* ~ oI o {M o( ~ oQoL( o ~ oQo't)(%on ~) o* 8o ~m oQo't)(%on ~! o* ~ oI o {M o( ~ oQoL( o ~ oQo't)(%on ~) o* **0(Gt**"(' *0g 9*8ov o9ooox oh :89 oU9:8 8**0) o0+  o}o8o} ooutosK   rpox oO oto s os'    two)  tto twov X :]ov o94ov ooEuoT9:8 8**0 (. 9:8 9*8o* uoT9:8 o* o+ oS}!{!o} 9:8 to{!o* ox (0}!**0 8 to{!o o* o{ 9:8 **0 **"( *0 {#**"}#*"}"*0 {"**0$ {"o9:8 **"(*>(ob*0**"}$*0)9o 8{$s`**0Fof9oho*8(og9oho*8 t~s z*0{$o**0{$o**0{$o**0 {$**"(s *0 {+**0 2{%o ryp(< {&o(< r}p(< **>}%}&*07n{'9*8{)9>{)oy 9'{)oz (g (h }'*8*8{&o9*8{%ov o9{%ov o o9*8o 9*8{&oou9{&oouoy :89*8{&oouoz ( oI o  |'o 9*8*8**0%om9 {'*8 t~s z*0 {%**0 {(**0 {)9n{)tooI o { oo{ 9:8 ooI o { oI o { o*8{*97{%{&{*t$( 9:8 *8{+9+oI o  o9  o**8ov o9)ov o(p9:8 8\{%ov o :82{%ov oo{&o(  8  :8o9ov o9$ov o9:8 8Xov o9)ov oo9:8 8{%o{ 9:8 8&oI o  o9 o*86 :8o9Xov o9$ov o9:8 8{%o{ 9:8 8&oI o  o9 o*8 :82{%ov oo9:8 8Z  :8o9ov o9)ov oo49:8 8ov o9)ov oo9:8 8]ov o9)ov oo9:8 8$ov ooK9:8 8ov o9:8 8H :8)ov o(p9:8 8t~s z8**0o* o**0 (PoI o  Po9  o**0X {%o9:8 {&9#{&o9:8 8**0 {%{so} 9:8 9*8{&9.{&{(o9:8 89*8 {&o 8{&oou9t{&oouov o:88> :88):88:88:8`{&o{&oouo ov{&oou{(o} 9:8 8{&oouov o9`{&o{&oouo ov{&oou{(o} 9:8 8 ts( &88X  :_9*8{%ov o:81{%ov o{&ot1ow 8:8o|9:8 8:8s{%ox oh 9/to{%ox ox9:8 8*to{%ox ov9:8 8E:8s{%ox oh 9/to{%ox ox9:8 8*to{%ox ov9:8 8:8oz9:8 8 :8p{%ov o  oO  o 9#{%o }%{%ox  8to ov9:8 8tsrڡp( &89*8{(9ov o}(8**0)w oI   oh 9 ox9:8 8=o { (29ow9:8 8( 9oy 8ts( 9^to{% s {&o 9{&oo|&8st1ow 8}o { (294to{%s{&ot1ow 83o  wo9 o9:8 **0+ tooost1ow }+**0D {&o90oI o  {uoK o+ o&*8o {&o9tsrp( &*8o9 oI (of  {&o8{&o  ouox  oI o ts oI o { o9x9tsr:p( &*8to{&oouoI o { (0 9*8{&o ov8X:&oi }(to{%{&sBt1ow **0*M oI (  ts(Q ( {&oo o 9*8  o  8}o tso o9Ntsrpo oe (< rp(< oe (< rp(< ( &*8 X:u}*o# 9!two# s+t1ow 8tosPt1ow **0  {%ov o{&o 9o{ ( *84{&{%ov ooo|9:8 {%ov ost1ow **0 {%o  ooI (o} 9:8 9ts( &*8{% }%to{%ox ov9:8 (**0x {%ov o oo 9{&o:89oo u' 9o# :8 9$o# oI o { (2:8 9oI ts(Qo :8 8 9 o{*8Y{&o 9,o9{&oo{&88{&o&*(o9Ptoooosooo{&ot1ow 8o9wooI o o 9o o oI {:89 om :89oe rp( :89oI ts(Qo 9#o oI o { (2:89Po}oou})oI o { }(tw{(s+t1ow *88o# 9tosPt1ow 8two# s+t1ow 88o9tosPt1ow 8 t~s z**0 {&**"(m*0**0{,r p(< (o(< **>(q},*0 {,**0Ro*o9o, (#:89o, (#:8**0 (w**Z(m(q}-*"(m*>(q}-*0 {-**0 (w**"(s *0 {0**0**0  {.9#{.o9:8 8{/9#{/o9:8 8{09#{0o9:8 8**Z}.}/}0*0%}1tos}0{0o*0 }19Itos}/tos tosF oGo{/o89"tos}0{0o8*0-2o: :89ooIo    8oI o { s ooItws^ o(o} 9t~s z8oo{ 9t~s z8oy oI o { ( X :D(8&oo  o9 o&*0Yo 9 (81 o   8o (X :o (*09oi ( 8woo { (1+t oo o o 9 (8#o{rp!o (*0.t o(  oo# {/:{/o:89{0o(89{/o9to{/o(8 t~s z (<{09{0o:89{0os   o o o 8Po o o  o9:8 o o X:8 (9**0J3  oi o9e(9o 84tooI o { oo (&X: o" 9 o :89 o :89 ( 8oto oo{ 9:8 9 ( 8k֍       8  oI o {   X   : oi r"p o (8o9ooo o o 8]o ooo o o9:8 o o X:8 t~s z**0A {19{.o9:8 {/9${/o9:8 8{.o {/o9{/oo 83{/o9{/oo 8 t~s z}18{09;oI {1sA {0 tuo9:8 8tw{1s+t1ow **0Bo 9 {1*8){19 {1*8 t~s z*0(7 s }2s3}3s%}4s }5~ ts }6~ ts }7s%}8s1 }9s3}:stqs }A};*0Q~ ts <stqs =s >s ?stys @*0 Lu9oe ( *8 {6o 9*8o **0 Lu9oa ( *8 {7o 9*8o **0 {6**0 2{Ao 9{Ao *8 os**0{Ao **0 {2**0 {3**0 {4**0Zr*p( {5o 9{5o 8&sZ oo)( {5o **0 {9**0 {:**0 {;**0(s\ ototo^ **0s\ to 8 o ( t  u9 :89 8W8o:o:89 o_ 84o toto^ o :b u9 uo **A0;5 oo o to 8o ( t  o 91oo   o& 8~oo 9joo o 9Doo r.po (< r@p(< o (< r}p(< ox8oo 8o : u9 uo oo o' **A0% o9:8 9*8oo o  9oto 89o ( t9 o o rHp( 9  08o :u9 uo 89oo o5 8o9:8 **AHb0$( 9( *8( o ( ( ( 9)( o ( ( ( *8oo o to 8L o ( t ( ( 9(  @8 u o : u9 uo **A4% a}0&oo_ ootsoW o8 {4o&o( 9{:o_ {8o&8 oe oa {6o 9s\ {6o 8o_ {7o 9s\ {7o 8o_ *0oto 8o ( t9 o to 8-o ( t o 9 o8o :u9 uo o :qu9 uo **A4/Q0lo{oOto 8#o ( t ot oo :u9 uo *ATT0 f9rkp 8rpo 9o 8{8o 9{8o)*8s,**0D9rkp 8{4o 9{4o)*8s,**0 6~=o 9"~=o ~>o o 8*0)l9*8u9*8~>o o 9~>o o t *8~=o 9~=o t *8~=o to 8o ( t  9~=to 8Go %:&8 ytqt ( 9( t  _8o :u9 uo 8o :Lu9 uo **A4o"~Q0 ;~?or o 9"~?or o ~@o 8*0#m9*8u 9*8u9*8u 9*8u9*8u9*8u 9*8~?or o 9~?or o *8~@o 9~@o *8~@to 8@o %:& 8 ywqw ( 9( /8o :u9 uo **AfR0s **0o (  o 9oY :89o :89oX :89 8s4t' **0s5 **0s **0s **0 s **0s\ s\ to^ o to^ o` to` t s o~<o 9~<o 8to 8-o ( t oY 9 08o :u9 uo 9~<o 8**AQ0sqt  **0sTt  **0~<**(7 *0 (2**0 o **(7 *0Da9*8-9 :89*8o **0 or **"(D*0(E (*0  (}9:8 **0o* zwo**0  (|9:8 **"(*>(}B*"}B*0 o*#(#**0 {B**"(*0:  {C9#{Co 9:8 8**"}C*0 tos}Cto 87o ( tw tosw tooz{Co &o :u9 uo *AYj0 {C9uc 9{w9{wo :89;{wo {woi og oI sAtu 8oI {woi sAtu 8( {C o 9:8 8o9:8 **0  s }D{C9{Co o o 9s{Co o o91{D{Co o ootzo 8{D{Co o o o 88**0 {D**0J o oi o( o# to otooI o { o{D((<   {Do   8{D o   X   :{Do 9 :898s {Do 8o X: {Do 9oI ( 88`(9o 8o (X: o" 9 o :89 o :89  ( 8oo{ 9:8 {Do 9 (8  ( o 8No {Do 9o 8o o 8X:X:(9**0oi o o {  (2+toG oK:oG oK:89/(  (  {rtp!o 8rtp o **0oi o o {  (3+t oG oK:oG oK:89/(  (  {r"p!o 8r"p o **0| o 8(o {Co o o X:o o {Co o o **0 Etosw tooz{Co &o9t~s z8*0 {C**0o* o**"(*0 {E**0{Eo**6to}E*6to}E*09o 8s o9otooo83o9otooo8 t~s z**0Ho9oo*8)o9oo*8 t~s z*0{EoL **0{Eu**0{Et**0{Eu**0 {Et**0 !(:(:8**"(*0n" {F9#{FoK9:8 8{G9#{Go9:8 8**>}F}G*0i#9o 8s {FtooH}F{G9{Gtoo}G8**0 ${F**0 %{G**0h& {G9{Go 8{FoIo 9 of 8{FoIo og **0p' {F9${FoJ9:8 8{G9${Go9:8 8**0 B(o* (#9)o, o9*8*8**"(*>(}H*0)**"}H*0)*9o 8{Hs**0 +{H**0,**0&-ryp,{Hsb (< r}p(< **0 :.o* (#9o, o:8**"(*0-/{I:{It( :8**"}I*0 09o 8s {Io ֍  o 8 {I too X :o**0E1 {I o  8 o(  X :**0 2{I**03**0g4rkp {Ito 8 o ( t o(< o : u9 uo **AFL0 5(**"(*Z(}N}P*0B6{P9{Po :89{P*8**0 7{P**0 8{J**0 9{K**0 :{L**0 ;{N**"}N*0-<{M9tos}M8{M**z}J}K}L}M*0 =9o 8s {J}J{K}K{L9{Ltoo}L8{M9{Mtoo}M8{N}N{O}O**0?>{V9({N {P( tG}V8{V**0(?{N9t~s z8{N**0h@ {N95{Lo9:8 {Lo}N8{N9:8 **0A {U9*8{M9={Mo 9:8 {Mo!9!to{Mo!o+sy 8 tosx {Mo"9{o {No{Mo"to 8\o ( too { (   o 9 o  o 9r|p( 8 to  8; o ( t   o oa rp(<  oe (< (  o : u9  uo oI o  o9   o 8 o   o& :8s t){Q9s }Q8{R9s }R8{Qo {Roooz o 8:8s t7{S9s }S8{T9s }T8{So {Toooz o 8,tsrp o& (o? (< ( &8o :u9 uo 88{P9tosx {Po 8Ootooto{P{PoH s twst*o X:8 tosx {P9}P8{Q9s }Q8{R9s }R8{S9s }S8{T9s }T8oI o {No  to tso9:8 o}O{O9:8 {Ot$o9:8 o֍}P{Po 8J{Poouoz {Pu>9{P8X:}U**A4@`?0<B {J9o oI {o 8{K9o oI { o 8{o4+9Zuuuxuzul u 989=o9ooo 8ooo 89o8oo 89ooo 8x9ooo 8T 9 ooo 80 9 ooo 8 t~s z8 t~s z**0C{O(!}O{Q(&{S($ {Po  85{Pu 9{P( 8X  :{O{P{So t!{To t{Qo t}{Ro ts u**AW"(*"}W*0<D9o 8s {Wtoo o**0%E {Wo} 9:8 **0$F {Wo9:8 **0 G{W**0 H(**"(*>}X}Y*0I9o 8s {X9{Xtoo*}X8{Y9{Ytoo}Y8**0pJ {X9${Xo 9:8 8{Y9${Yo 9:8 8**0-K{X9tos'}X8{X**0-L{Y9tos}Y8{Y**N(7 s }Z*0M{Zt(**0 N{Z**0pO {Zto 8, o ( t o9:8 o : u9 uo **ASU"( *02Ptos tooH s twooj &*0 Q(**0R9o 8s' to 8% o ( t toooj & o : u9 uo **A!Gh0 KSok ֍w  ok  8o oX  :**6ts( *0T9o to 8s, to 8 o ( t ooi o : u9 uo **A&Ag0nU to 8/ o ( t o(29  -8 o : u9 uo **AQS0V 9*8to 8C o ( t o(29 9 s 8oi 8 o : u9 uo **Aew0Wo* (#**N(s } *(s } { to *0X{ t( **0Y{ t( **0Z{ o **0 X[to 8o (  { o o :u9 uo *A@@0\t~s z*0]{ o **0^{ o **0_{ o **0 `{ **0a{ o t**0b{ o t**"(*0ctos tos ooso &9 ooso &89I rp( 9 rp 8' rp( 9 r(p 8 t~s z8 :8#9 r:p 8rRp 8r :8#9 rlp 8rp 8< :8 rp 8 :8 rĤp 8 :8 rp 8 :8 rp 8b:8 r p 8f:8 r0p 8$:8 rFp 8st:8 rbp 8X :8 r|p 8: :8 rp 8 :8 rp 8 :8 r̥p 8 :8 rp 8 :8 rp 8 :8 rp 8 :8 r:p 8h :8 rRp 8J :8 r~p 8,m:8 rp 8t~s z8o9 o}\}]t (/*0 d{\**0 e{]**0)f (#: (#:8: (#:8: (#:8: (#:8: (#:8:b(#:8:f(#:8:$(#:8:t(#:8: (#:8: (#:8: (#:8: (#:8: (#:8: (#:8: (#:8: (#:8: (#:8: (#:8**0 {g (#: (#:8:m(#:8:rpo:8:rpo:8**0 h(B:(C:8**0]io, o9  8o,ro9*8o,(D9*8**"(*"}^*0<j9o 8sF {^to(oG**0 k{^**0l{^t( **0)m {^t( 9:8 **f(atos}_*0 n{e**o(h}`}a}b*0 /oo, o9  8o,(#**0 Op{e98oI (oR 9tsrkp( &*88{f**0q {a9E{ao9:8 {`o9ts( &88<{`o9,tooI {`o(\s}a8{b9#{bo9:8 8**0'r {bo 9{bo} 9:8 {boy 9>{boz }f{a9!to{box s}a8{f{ao(}fu {f9ooI o  o9  rȦp{foH oa (< rp(< {aooa (< rp(< o&8NoI o  o9 rp{aooa (< rp(< o&8tsr4p( & }e8**A!0Fs {b9tsrtp( &*8oR9:8 **0t**0Au oX( }dokoop{d{_oo }coI o {ct oYo{f:{fu>:89{co 80{foH oI o { (295oI o   o9:8 8{foH oI o { (295oI o   o9:8 8|oI {d( 9{d{foH (2:89{d{f(  }f8( 98{c{fo **0 v (r9:8 **0 w{c**0x{ao**0y{_t **0 z{`**0 {{a**0 |{b**0 }{_**"(*"}g*0 ~{g**"(*0tos tos ooso &  (9rpo9 o8>  (9rpo9 o8 ts( &}h}it(/*0= {io9:8 (69:8 **0  (79:8 **0 >(#**0Mo, &o9  8o,ro9*8o,(e**0 {i**"(H*R(I}j*0To, o9  8o,r|po9o,Mo:8**0 {j**0 d {j94{jo9:8 {jooM8(Z9:8 **R(}k*Zoqosou*0 {k**0 {k**0/{k9ts( &8{k*0 {k**0/{k9ts( &8{k*0 {k**0/{k9ts( &8{k*0{kt( **0{kt(**0{kt( **"(  *0j to 8+ o ( t o9:8 o : u9 uo **AMO"(*0{lts**0 {m**07}l}mtos }n{n{l{mo *0H oI ( o{no} 9:8 9*8{nov o9:oI o  ~wo9 {modo*8o5+ o6+{lud:{lue:89:tos {ntw{lo  oo  8{luov o9+oI o  *wo9   o*8ov ooutos   oN97tos   oI (o} 9:8 8 {ntw two oRo o  **0$ {no 9:8 **"(*0 5tos  o9 ot(*0mo, o9  8o,A($9*8o, o9  8o,R(#**0( t**"(,*0 Etoos<(/(g}p}q}r}s*07(/(g}po}q}r}s*0**0 {p**0 {q**0 {r**0 {s**0o, o9  8o,A($9*8o, o9  8o, (#9o,o:8**09A (|9:8 tos oI o {I o o o!{roo o(o o"rԧpopoo o"rpo{p :8 o o"rpqo8h :8 o o"rpqo89 :8 o o"rpqo8 s z8ojoi **"(,*0 C(,totosst(1(*0 0o, Io9  8o,R(#**0( t**"(:*j(<}v(: *(?}t}v(: *(?}t}u(: *(>}t}u(: *0 o9o 8s t(A{t9{ttoo-}t8{v}vt**0 {t**0 {u**0:{9#otos5t2}8{**0 {v**08 (I9:8 {t9#{to 9:8 8{v92{u9D{uo9:8 9*8{uo}v8oBo9!oI oBo(\}v8o9  oI (of 9;oI o  vo9  o9:8 88oI o  (o9 o9:8 oI o { }v8**0  (G9:8 **"(*0 {w**"}w*0{wo **0$ {woz9:8 **0o*W(#**"(*R(ts}x*R(ts}x*0 {x**6ts}x*6ts}x*0{xu**0{xu**0{xoL **0 (:(:8**0 o9#oo9:8 8Jo9#oo9:8 8rkp(t~s z**"(*"}y*0 {y**0 {yt(  **0o* (#**0 T{yo ֍   {yo 8{yoX  :**"(!*0 0o, o9  8o,Mo**"(*Bt(/*0 0o, o9  8o,Ro**"(*>}z}{*0 {}**0{}u&**0{}u'**0{}u7**0 {|**0 {z**0 {{**0c oI o {|o{{odo o7+(}}{}9tsrp( &8**05 {zo9:8 {zo}|**0 C o9:8 oI (o9:8 **"(*0 0o, @o9  8o,vo**"(t*0 3o, o9  8o, o**"(*>(}~*"}~*0o*a(#**0 {~**:s ( *0 u 9o>o :89o o>o  :o5 :89o ( &*8o6 u 9o ( &*8oo( 9 o*88t(c *0 tU**0asZ to 8 o ( t o1o o : u9 uo **A@F0# o8+ to 8_o ( ti op( 9; o oEo (19 tost' 588o :u9 uo 9 @_:89 o o9+oCo 8**A 0 ds  ob  87o u9( (:+o 8X  :**>}*f {}*0!9*8( _**0 _b**0 {**0 {**R{(`}*>{`}*0&   ::8**0{ _**0{_**0{_**0w (9*8^ (9 @(9*8*80 @(9*8 (9*8**0 (9*8 (9 @(9*8*8 @(9*8y (9*8b (: (:89u9*8*8u9*8**"(*0 0o, @Io9  8o,vo**"(*>}}*0 {**0 {**0**0: {9#{o9:8 8**0{o**Rto(}*07to(}s}}}*07to(}s}}}*0 {**}}}}}*0 9ot 8s {}{}{o}{9{too}8{9{too }8**0{**0 {**0 {**0 {**"}*0 o;+o o **0 {**0 {**0{o **:s}*0 {**0 o**0 {**0t~s z*0HI {o 9( 9oo 9{:8:w{oI o { o 9{:89({oH oI o { o :8:8:890( rp}}*0: {9#{o9:8 8**0^9o 8s {}{9{too}8**0(t**0 {**0{o**"(H*R(I}*0+ o<+oprݪp(< ooszQ**0 0o, o9  8o,Mo**0{o**0{o**0{oU**0|  {9*8}o%o&9too&s8oY9oYoo, :89oYoo- o9:8 9*8ou 9ooL9You99o(9:8 o)9:8 88ooLoM8oo oMtooLs89oktookosy}{oos{tooprݪp(< o s<o{{o|9 (8{ot oM8%9 }8 t~s zoko9oktosK} s om9 (8{93{ oprp(< {ot oO8 { oprp(< oP8}tgoo oXsM tgoozoXsM {9 oko{to8{9 oko{to8tf(R tf(T**0  {o9:8 oL98Io&9o&ooM8"o%98 t~s z(Z9:8 **"(*0 0 o, @Ao9  8o,vo**"(t*"(u*0 - (ttos=((*2(*R(}*01(9tos}8*0 {**0 (~9:8 **0z {9c{o {o 985 9 okooyo 8 t~s z8**09 o49:8 (9:8 **0S {9#{o9:8 8({9:8 **0U {9${o9:8 8(}9:8 **0oo  (**0Ro, Io9  8o, (#9o,o:8**"(*0 n(tos}tos} o  8 {o o o & X :*0#(tos}}*0.(tos}tos}*Z}}}*0toso>*0,9o 8s: oA**0g{}{9{too}8{9{too }8*0 {**0 D{9-oI o { tos5t2}8{**0**0 {**0 {**0Z {o9:8 {9${o9:8 8**0 oI**0 m! {o* 9:8 9{:89#{o9:8 8**0"{o**(atos}s. }*0 l(atos}s. }ou(h}}}}}{ou}*0 w(atos}s. }o(htosp}}}}}{ou}*0 #(atos}s. }o(htosp}}tos}}}{ou}*f(h}}*f(h}}*0 $o=+**0 %{:{:8:T{9{ot:89{oso:8:8**0 &{**0 '{**0 ({**0 ){**0*{( **0 6+oo  (9o>+:8**0 ,oX**0-oo  (**0.{t **0 /{**0 0{**0 1{**0 2{**0 3{**0T4 (q9:8 9*8{9#{oy9:8 8{9#{o9:8 89*8{9I{9{o}{9^{o9$ts( 9:8 8to{o{sv}88{oqo9&oI {oqo(\}8yo9  oI (of 9;oI o  vo9  o9:8 8 rp( oI o { }8{9{ot:89{oh 9(tsrIp( 9:8 8{oso9&{oso{o}8G{oso9&{oso{o}8 t~s z8{9#{ow9:8 8**05 **06 {((r9:8 {9.{{(o9:8 8{9.{{(o} 9:8 8{99{oI {sAtuo~9:8 8**0C7 oX98-okoopoW{oo }**0.8 {9r֫po?+o>(< rp(< oO  (2 (< rp(< op(< okooW{oo }oR9Koko{o3 rp(< oI o {k {o4 o }88**0 C9 oZ9*8{9oWop(}8**0: of9oX9L{9of9:8 8ok9:8 87oo  (9oj9:8 8(s9:8 8**0 n;{9{(<8K{9{t)(A8$oI o  o9  o&*0G{9{ow :89{o| (8*0z< oR9*8( ( {ow 9okot (8{t)(;oI o {C (oo {ow 9okot (8{t)(;oI o {l (;(o~5 o {ow 9okot (8{t)(;(oI o {l (Aok9:8  (({ow 9okot (8{t)(;oI o {l (;(o~5 o oI o {r ((F ((oo {ow 9okot (8{t)(;(oI o {l (A{ow 9okot (8{t)(;oI o {D (oo( **0<= oV {9oi{tooo}9:8 {o{9oI o { (2:89%{o|oI o { (2:89oI o {E (8oh8K{9@oi{tooo{ 9:8 oh8{9{os:89{oso:890oito{oso(oh8**0 C>o, Go9  89o,o:8**0 ?{**0'@ oo @(9*8o@+ s soo (9 (8oo( _( tos,op{o o9:8 orpop(< oio to**"(*0 FA(}o9)rpo9  oI ((< s z8*0 B{**0 FC}}o9)rpo9  oI ((< s z8*0 D{**0E{**0F{o**"(7 *"(*0 G{**0H{o**Z}{(*0I{uw**0#Jo{ 9 ox *8**0%K {oM 9:8 **0FL uc {oL 9:8 9*8{uw 9 ov o9 ov o9Ruc9{w:89 {wo  8 o  8 o  {(o} 9:8 89*89to {w(0 8( to}8**0M{uw**0N{tw**0O{u**0P{t**"(8 *"(*0%Q {o9:8 **0+R{9 {*8{oe**0 S{**>}}*>}}*0T9o 8s {9{tooc}8{9{too}8**0RUo*o9o, o:89o, o:8**"(: *0 FVtos tos tooH s twooo9 &*0 W(**0X9o 8s to 8% o ( t tooo9 & o : u9 uo **A!Gh"(_*0SY (a9:8 {9#{o; 9:8 8**>(b}*0eZ9o 8s {9"(h{tooPo8 (ho**0 ([PoI o  Po9  o**0 *\ oo  o+ o***0 *] oI o  o9  o***0 ^{**&(*0 4_9oo 8(}*0 `{**0Sa {9#{o9:8 8(9:8 **0 b(**0 Ec {9.{ooo9:8 8**0d (9:8 **&(*(}{9tos}8*0 e{**0 f{**0g{**0 h{**0_i( 9{:89{:89{o 8**"(*0 j{**0k{9{o< :89| {to 8+o ( too((o :u9 uo 8oo o( **A:T03MloH oH 9tsrp( &*8{9#}s= }{o> 8{o> }{}ooooteo ojojtgo oooto 8#o ( t {to4o :u9 uo {o{oto? {}*AJ 0Hm {9*8{94{o9:8 {o(8(9:8 o9}{to 8< o ( t 9o9:8 8 o : u9 uo }o9{o< 8{o@   9 88 o9! oko  okop 81rp  o  ~ (> 9 rŬp 8oI o  uo9   o op  o  op     o&X:  8u9So  o 97 o9tsr٬p( *8o888**Ac0n {9*8(9:8 o9c}{to 8 o ( t o : u9 uo }8**A?9x0Fo o   8(29*8 X :**0pu9  *8s\ {to 8:o ( t oX9 oXoo_ 8o :u9 uo o` t**A%c0xq{to 86o ( t oo  (9  /8o :u9 uo **A]]0r {9s\ {oto 8o ( t  oo_ o :u9 uo o` to8(9:8 **AMf(as6 }sT}}*0su9 rGp*8u9 rSp*8vu9 rap*8Zu9 rkp*8>u9 rp*8"u9 rp*8rp**0 t{**o( (h}}*0 u{**"}*0 v{**"}*0 w{**"}*0x oob   8ooA u9 8a8oo 98oo1 9&om9 }8}8X :i*0 y{**0 z{**"}*0 {{**0|{oB **0}u**0~{t **0{9o9+okorp(< op(< }8N{rkp(> 9&{rp(< op(< }8 op}8{**0**0 {**"}*0 o**0 {**"}*0 {**0 {**"}*0 {**0 $oI o t oo}*0 o**0 {**0ok **0 **0J  (q9:8 o; 9o; oh :895tooI o {j  s ojoi 8sR }{oA+to 8=o ( tio9o{o8o :u9 uo {oB+to 8o ( tlo9oo:89oo{o8o9oo:89oo{o8o :=u9 uo **A4 k0 o {9  ` 8o9"okoopoE }8oI {ooF }oI o {t oo**0 {9{( }{{oG {9h{to 8% o ( t  (  {oH o : u9 uo 88**AFL06 ojto 8o ( t oI (o9:8 9  78 ooI o {/ (29 ou9( :89GoI o  0~o9 oo& ݙ8 ݍ8o :u9 uo tooI o {/ s oI (o9:8 ojoi **A!0? (r9:8 {oI 9:8 **0 {to 8+ o ( t oe9:8 o : u9 uo (s9:8 **ART0 {9*8u9;( 9,0( rp$o {oJ 88{9{oK }83{9{oL }8 t~s z**0 {**0u**0u**0u**0u**0u**0u**0uooC+ to 8, o ( t om9  /8 o : u9 uo **A NZ0 ooD+ oO **0$ooE+ to 8@ o ( t om9 oR:89  ݺ8 o : u9 uo {to 8Io ( toQom9 oR:89  28o :u9 uo **A4r bn>}*"(*0N( {o ֍   o 8 X :**"}*0 {**0k  {o  8={9%{o9:8 8X  :**(7 s }to}}o*(7 s }to}}o*(7 s }to}}o*(7 s }to}}o*0 {**"}*0{oQ 9m{oR u9{oR tUo:8:"{oR ub:8:8**0{oQ **0 o( u9toDt *8qu 9 t *8Tu9tt *82u9tot *8 rkps z*0Uo( u:u :8:u:8**0/o9ou*8 rkps z*0o( (F+**0-o9rkps z8 {oR **0 {**0 {**"}*0 {**"}*0u {ub {un{u{u9or 89o 9To (9o {s 8%o {os oo8o 9o {s 8to 9Wo (9*o {os oo8o {s 8{t~s zooo9:8 9*8o (9{}8o9Go orխp(< o ooo9:8 8-o ooo9:8 8M 9{ o  8.9o9+ooo 9:8 8to91orխp(< o8  o oo 9:8 8r95{oI o  {o9   o*80{oI o  {o9   o***0 Y o9:8 9 :89o 8**0V}o9 o9o 9*88[oG+:oH+:89oI+9oJ+o<  8oK+9oL+o9sooo9ooo<  89oo9oooa 8{t~s z8{t~s z8{t~s z{oI o oo4  9{ o *8{oI o oo)9o  :89(   {oI o o  o  o  to  8 o ( t   u9* oe  ( 9{ o 889 9  o :89{ o 8 o :j u9  uo 8{oQ 9!{oI o oo1 88oM+9oN+oBoO+to 88o ( to>( 9{o 8o :u9 uo {oQ 9oBoP+t(] 88oQ+9oR+4o` 9{o 8{oQ 9G{oI o  {o9 o*oa t(] 88@9*8{oI o  {o9 o*9o :89o :89*8{oQ 9[9*8{oI o  v{o9 ooN o&*8{oQ 9j9*8{tsrp{oQ (2 (< rp(< ooN (< rp(< ( &*8*89*8{tsr7p{ooN (< r_p(< ooQ (2 (< rp(< rp(< (< r}p(< ( &***A4 ]j0 {oS+ 9 o  8${oT+ 9 o 89oF:899oFood 9{o *88**0+eo 9*8{oU+ { oV+ 9 8%8ts oBoo ( o  9~ o5 97 o6 u9 og 88 o5 9{ oh toi *88u9o:89:oood 9{o *888**01 ( {oI o orkpo)o2 9{ o 89!{oI o oo; :89+{{oI o oo3 o 8{oQ 9*89*8{oI o rkpoo1 o 9*8**0s\ to 85 o ( t  oj 9 o_ 8 o : u9 uo o 9{o o *8'o 9{ts( &*8*AW]0%*(  o2 9{o *8{oI (  o 9s\  to 89o ( t oj 9o_ 8o :u9 uo o 9{o` toi *8(o 9{ts( &*88**AV]0S{oW+ 9 o 8{oI o o  9 ~ 8{ {oI o oo 9*8( 9-{{oI o oo3 o *8o o 9~ ol :89o o o .:89-{{oI o oo3 o *8~ (> 9 :89D{oI o oo4 9{o *88(  :8{oI o ~ oo 9*8o **0to 8Po ( t o93oo( 9{o  488o :u9 uo **Arr01sm to 82o ( to9oon 8o :u9 uo s (  to 8o ( to9.o oj   9  o 88o9woo<  {oI o o o 9C{oI o o o) o2  9  o 8888o :u9 uo oQ 9{oR o *8'oQ 9{ts( &*8to  8 o ( t  o9p oo< rp( ( {oI o oo2 9'{oI o oo3 o 88 o988 o :M u9  uo oQ 9{oR o *8'oQ 9{ts( &*8s3to 8o ( to9Ro oj 9{oI ( :89o_ 88Lo9;oo< {oI o oo1to^ 88o :5u9 uo o 9*8**Ad}V\0;mto 8o ( t o 9  48o 9  8{o; oi o 9  8{o; oi o 9  8{oI o o oo 9  ݖ8{oI o o oo 9  c8o :u9 uo {oI o  v{o9   o&**A"(*&(*B(o *>}}*09o 8o9 s  o 9'o too to{o 8po 9'o tooto{o 8>o 9'o too to{o 8 t~s z**0 {**0*  tss ooo9:8 9*8o9[o9 o 8?oX+9 o 8( tsrpo (< rp(< ( *8hooQ 9- tsrǮpo (< rp(< ( *8( tsr po (< rp(< ( * }**0 o **0 {**0 {**"}*0{tn**0{un**0{ub**0{tb**0{t**0{u**0{9~ }{9h{un {u 9o}8.9o }8{oN }8 t~s z{(9+{rp(< {o(< }88{**0 ,o*o:o*Uo:8**"( *0n {9#{o9:8 8{9#{o9:8 8**Z}}}*0 }}{ov oo tost tosb ogo tow twsyoyoI (o} 9:8 tw}*0 {**0 {**0{o# **0 {ov oo 9 op 8 oq om 9.{ov oo9:8 8{ov to{ox oo9:8 (**0% {o} 9:8 {o} 9:8 {ov oo {ov o96{o }{o} 9:8 8n{ov o9{ov o:895{o }{o} 9:8 8**"(R*0tos^ tw**"( *0B {o9:8 {o9:8 **01}}{too{too*0 {**0 {**"}*0 = too+ o o* ov o9:8 **0 {o} 9:8 {o} 9:8 9*8{u9;oI o  nuo9  o9:8 8o+ ov o98o+ ov o9@{{ox o }{o} 9:8 8}o+ ov o9?o+ o o, o+ {(o} 9:8 8)oI o+ o9 o+ ov rMp(W& 9*8o* ov o:o* ov o:898o* ov o9no* o }o* {(o} 9:8 9&ts( 9:8 *88)oI o* o9 o* ov rMp(W& 9*8{ox o 9*oI o { {ox o (2:89{ox o o 9 {ox (2:89vtost{ox tow{syoy{(o} 9:8 tw}889*8o/ 9:8 **0* to{{ox (0}**"(R*0tos tw**"(R*0tos tw**"(R*0tos tw**"(R*0tos tw**"( *z}}}}*0 {9#{o9:8 8{9#{o9:8 8{9#{o9:8 8{9#{o9:8 8**0ap  {ov o9toI o { rcpoO  (2 (< ( {toor oo{ 9:8 (<(.8<{tooI o { oo{ 9:8 {tooI o { oo{ 9:8 {ox oI o { ({9b{tooI o { oo{ 9:8 {ox oI o { (8  ({tooI o { oo{ 9:8 {ox oI o { (oI o { ({ov o9@{totosYtwoo{ 9:8 8**0 % {o} 9:8 {o} 9:8 {9${o} 9:8 8{o} 9:8 {ov o9{ov o:89Q{ov o95{o }{o} 9:8 8 8**0 5o*r>}po9o, (#:8**"(R*0tos tw**"(R*0*tos tw toox (N  **"(R*0tos tw**"(R*0tos{ tw**"( *f}{too*0 {**0{ov o9*8{u 9*8oo9*8ooov u4 9*8 o 9*8oI o o9 o**0$ {ov o9&{o{ 9:8 *8oI 9*8{tooo{ 9:8 {ov o9M{ov oo;oI o { (29{ox (88**0 {o} 9:8 9*8{ov o9Ntosi {tosxolo} 9:8 tw}8**0{o**N( }*0>       *0 {**0 {**0 {**0n {9#{o9:8 8{9#{o9:8 8**Z}}}*0\ oY+ oZ+ {tooI o { oo{ 9:8 oY (**0, {o} 9:8 |( 9:8 o[+ to{o ox (0}{9{o} 9:8 |( 9:8 to{o ox (0}too {s tw too {s twto sX tw}8{ :8'too {s tw}8= :8'too {s tw}8 :8'too {s tw}8 :8'too {s tw}8 ::8'too {s tw}8K :8'too {s tw}8t~s z8{{(o} 9:8 **"(u *0t( **"(Y*0 {**0 {**0 {**0S {9#{ov 9:8 8(^9:8 **Z(\}}*0( o\+ oo o[oo }{9i {ox 8.{ oy oT 9:8 X :oZ(8o{o$ o]o9:8 {,(ooZo$ **0 Z {9${oW 9:8 8o]o 9:8 **0ot**"(Y*0 {**0 {**0 {**z(\}}}*0R {9( ( (oI o { oI o { (( oI o { (oI o { (($(ooI o { o (oI o { ({tooI o { o( 9:8 (ooI o { o(8 {({9:{9oI o { (8 {(8L{og9:8 oI o { {({oS(<o]o9:8 **0  {9#{o9:8 8{9#{o9:8 8(^9:8 **0% {9{o}oI o { {(29#oI o { {(-:89tsrqp( & 88){9oI o { }8{9_to{{sN}{oa9:8 o]o{to 8{9${o} 9:8 8o]o 9:8 **0ot**"( *0**"}*0J { :8={u 9oF s, 8 t~s z8 D:8={u9ou s, 8 t~s z8 Q:8i{u{u9o s, 8+9o s, 8 t~s z8t~s z8( t{(**0C {  :8Go]+t}{9#oI o  @x o&88Q:8Io^+t}{9%oI o  ?xo&88xD:8Io_+t}{9%oI o  >xo&88 G:8t~s z8{ **0 {**"(Y*0 {**0 {**0[ o {to{to( 9:8 (^9:8 **z(\}}}*0 {**0T oo oo o[oo }oo$ {9o{o$ {tooI o { oo{ 9:8 {ox oI o { ({9oZ(8 oZ(8o]o9:8 {9o{o$ {tooI o { oo{ 9:8 {ox oI o { ({9oZ(8 oZ(8(ooZo$ **0 {9C{o} 9:8 |( 9:8 8{9C{o} 9:8 |( 9:8 8o]o 9:8 **0 {**0 {**"(Y*0 {**>(\}*0 oo {tooI o { oo{ 9:8 (o]o9:8 o oZ(oo$ **0= {o9:8 (^9:8 **0'\ {o} 9:8 o]o 9:8 {ov o98{ov o9{o }{oI (o} 9:8 9&ts( 9:8 *8to{oI o { (0}9&ts( 9:8 *88#tsrݯp( 9:8 **0 (t**0 o **"( *0 **0 .  o`+o7 ~ oI o {x o( **0 **"( *0 {**"}*0 tos o(o} 9:8  {o~ 8?{ o totwoo{ 9:8 X :**0% {o 9:8 **0$ {o 9:8 **"( *"}*0 {tooI o { oo{ 9:8 {ox oI o { (oI o {y ((F**0% {o} 9:8 **>( }*0**0 {  :8t(78R:8G{u 9 o(9t(78 t~s z8lv:8v{u|{u}9o(9t(78+9t(78 t~s z8~:8,{t{,tt(8 :&D:Q: :8N{u9#oa+oZt(8 t~s z8+oI o  o9   o*8**0s {  :8ob+t~}{9;oI o  quo9  o9:8 8{{u:{u:89=oI o  quo9 o9:8 88v:8oc+t~}{9=oI o  ruo9 o9:8 8{{ul9{um:89=oI o  ruo9 o9:8 88R:8od+t~}{9=oI o  suo9 o9:8 8V{u9=oI o  suo9 o9:8 88D:8Ooe+t~}{9+oI o  uo9   o&88 :8Oof+t~}{9+oI o  vo9   o&88)Q:8Jog+}{9+oI o  uo9   o&88 :8Ooh+t~}{9+oI o  uo9   o&88o~:8Ooi+t~}{9+oI o  uo9   o&88t~s z8{9:8 **0 {**"( *"(Y*0 {**0 {**0 {**z(\}}}*0 {**0 {**08o{o  oY 9 o" :8 9 oj :8{(9oI o { ( 9^((rkp(((oI o { ((9((8oI o {E (9 (D8q9oI o { (8N 9#((C((8%oI o { too(**0pr {o 9:8 ooI o { o# }oo o[oo }oo oo {to{ox oo{ 9:8 {ox oI o { (oI o { ({(<{(o o$ (:to% sU{o sQ{totwoo 9:8 o]o9:8 {((:{(9oI o { ( ((({(9oI o { oI o { (({(9oI o { oI o { (oI o { (((oZ(**0 {9#{o 9:8 8{9#{o9:8 8{9#{o9:8 8(^9:8 **0  {o 9:8 {o 9(]{o o8{o} 9:8 |( 9:8 o]o 9:8 {9C{o} 9:8 |( 9:8 8**"(Y*0 !{**0 "{**0 #{**0 ${**0 %{**0#& {9#{o 9:8 8{9#{o9:8 8{9#{o9:8 8{9#{o9:8 8{9#{o 9:8 8(^9:8 **(\}}}}}*0 '{**0 O({oz ( uA9(f ~ ( *8(9 #**0 O){oz ( uA9(f ~ ( *8(9 #**0*{oy **0+ { :8)oI o  o9  o*8:8\{9:{to{ox oo{ 9:8 8o (/8D:8o (.8%rΰp{o? (< s z8**0, { :8)oI o  o9  o*8:8\{9:{to{ox oo{ 9:8 8o (;8D:8o (98%rΰp{o? (< s z8**0 Q- {9:{to{ox oo{ 9:8 8**0. { :8)oI o  o9  o*8c:8o (A8D:8o (<8%rΰp{o? (< s z8**0\/ oo oo oo o[oo }to{o {o 9={o 9:8 {o oSs 8q{o ov o  oI9 oIs 83 oJ9 oJ oMs 8s z{rpoO   (2 (< ({rpoO   (2 (< ({r$poO   (2 (< ({96oI o { r8poO (2 (< (8{ o{ 9:8 (<o &(9o &{ o{ 9:8 (<{ o{ 9:8 (<{9[o &(9(9(9(.o &oI o { (oZ(8(o o$ o]o9:8 o{o$ {9>o &(9o &oo { ( (8{9o &o &(9oo {) (o &oo$ o &(9(9oo { ( (8io &o &(9{(o &oo$ o &(9o 9\o 9{( (84o 9{( (8tsrJp( &8(((9to{o{(('{(o~ o ooI o { o{((({(( (ooZo$ **0 0 o 9:8 **0ih1 {o 9:8 {o} 9:8 {o} 9:8 9*8{o 9"{o ov o9{o ov o :::8;oI o  Wuo9  o9:8*8:8>oI o9 {o ov rfp(W9:8*8>oI o9 {o ov rfp(W9:8*888{o }{9${o} 9:8 8,tooI o { s tw}to{{(0}to{{(0}to{{(0}{o 9%o]o{o to 8o]o 9:8 9*8{(I :.:$:::8FoI o  v{oe o9:8 8:8}}8:e:Z:P :E :::0 :%: : :8 }8a:8 }8FoI o  v{oe o9:8 8**r(7 }}}*02{t)**03{t **>( }*04**0(5 {o t{t(**0<6 oj+{o}{9:8 **0 7{**"(Y*0 8{ **0 9{ **0 :{ **(\} } } } *06h; oo oo o[{ tooI o { o( 9:8 (o]o9:8 oZ(oo$ { 9t{ to 8-o ( t o} 9:8 o :u9 uo 8{ 9${ o9:8 8ooZo$ **AV0+< { o} 9:8 o]o 9:8 { 9${ o 9:8 8{ 9${ o 9:8 89*8{ ov o98{ ov o9{ o } { oI (o} 9:8 9ts( &*8to{ oI o { (0} 9ts( &*88tsrݯp( &**0= (^9:8 { 9#{ o9:8 8{ 9#{ o 9:8 8{ 9#{ o9:8 8**0 >{ :( :8**>( } *0?**0L@o, (#9,o*o:o*o:8:8**0A oo o$ **0B **0 AC|( 9 ok+o7o s, }8|( **0 D{ **"(*0 E{**0 F{**0 G{**0 H{**0I {9#{o9:8 8{9#{o9:8 8{9#{o9:8 8{9#{oa9:8 8**z}}}}*0 J{**0K{**0L {9Woov to{oSor oo9:8 {oS(<8{o{ 9:8 **0 ZM {9{oS(98-{tooo{ 9:8 **0ZN {9C{of9:8 {og9:8 8**00O{9{ox *8 {o**0TP {9{o} 9:8 {u 9 oj:89;oI o  Wuo9  o9:8*88{o9:8 to{{sM}{oa9:8 {{(ob9:8 {oc9:8 **( }}}}*0:Q {9#{o 9:8 8**00NR ol+ om+ : on+ 8{9oI o {z (8{9.oI o {z (({ (<8{9>oI o {z ({{o- ({ (<8{oI o {z ({{o o 9{{o o" 8{{o o- ({ (<**0zS oo+ o{9 o8o9tsrxp( &8{(9op+ {o}8**"(7 *"}*0 T{**0 U{**0 3Vo,s(#9o,r~po:8**"(7 *"}*0 W{**0 X{**0 3Yo,s(#9o,r}po:8**"(7 *"}*0 Z{**0 3[o,s(#9o,r~po:8**"( *0n\ {9#{o 9:8 8{9#{o9:8 8**0 ]{**0 ^{**>}}*0@V_ {ov o o ooo 9+oI o  o9 o*8o( o# oo ot   ou rpo   o'ow 9o(8 o't)(;(<(9((9{too o o9:8  (oo$ **0D` {o} 9:8 {o9:8 **"(*0na {9#{o9:8 8{9#{o9:8 8**>}}*0( b oI o { { (q+t { 9N{tooI o { oo9:8 {#( 8{"oi (  {"(  (oI o { ({( 9:8 oI o { (oI o { (**0c {to{"oo{ 9:8 {ox oI o { (o 9:8 oI o { (oI o { {"(**0dor+o **0 e o  9Tto% sU{"sQ {to twoo{ 9:8 8{$o- 9:8 **0ef {o} 9:8 {o9:8 {ox o 9{o }8{ox }"oI o { {"(2}!{!9g{o} oI o { }#{ 9{#of }"8{#{ og }"8t{"oh 9ts( *8O{"o } {"oi }#{o{ 9ts( *8o 9 {o 8{{otooI o { s tooutws^ twovouo} 9:8 X  :y8xtos' tos {o(=  {ox  o{ two) o. 9:8 }${ov o95{o }{o} 9:8 8E{ov o98+{ov o98tsrp( *o 93{ov o9tsryp( *88**6to( *"( *0 g{&**0(h{&:{&o :8**>}%}&*0 i{%**0*j {&t(9:8 **0%k {&o 9:8 **>( }'*0l**00m oo os+ : ot+8oI o {z ( {(9ooI o { oI o { o(  (oI o {y ((Foo$  {(9{'9"(oI o { (8 {(**0n ou+ oo**"( *"}(*0wo oo5oD98<{(tooo5oDoo{ 9:8 t{((7**0p {(9{(o} 9:8 9{(ov o:895{(o }({(o} 9:8 889*8{(90ov+ to{(o5oD(0}(8**0(q{(:{(o:8**"( *0r{*tw**0 s{)**0 t{+**0nu {)9#{)o9:8 8{+9#{+o 9:8 8**>})}+*0~v oo }, {+o  8.{+o o^ 9:8 X  :o{,o$ **0 zw {)o} 9:8 |)( 9:8 {){)s}*{+o 9:8 **"(*0fxou9oto*88ou9oto *8 t~s z*0 y(w+**0 zo **"( *0{**0| oI o {? (**0}**"(Y*0 ~{-**0M o {-to( 9:8 (^9:8 **>(\}-*09 {-ox (  oo# {-tooo{ 9:8  (<oI o {  or (29" (9oI o { (8oo  (9oI o {C (o]o9:8 oo  (9oI o {D (oo( **0 D {-o} 9:8 o]o 9:8 **"( *0({.:{.o:8**"}.*0f {.9o~ o* 8={.to{.ox oo{ 9:8 (F**0j {.9S{.o} 9:8 9*8|.( 9:8 8**"(Y*0 {0**0 {/**Z(\}/}0*0 oo o[o]o9:8  {/o  8.{/o of 9:8 X  :{09/oo {0o9:8 8oo( **0 y {/o 9:8 {09${0o 9:8 8o]o 9:8 **0  {/9#{/o 9:8 8{09#{0o9:8 8(^9:8 **"( *"(*0 {5**0 {1**0 {4**0 {2**0 {3**}1}2}3}4}5}6}7*0 {6**0 {7**0} {69H{7to{9oog9:8 {7oS}88$oI o  o9  o***0P o {3to{4to{5to( 9:8 **0$ {49${4o9:8 8{39{3o}9}6{29to{3o4o ts {4 o9:8 o}:{:9$ts( 9:8 888`{59"oI o { }9}68-}6oI o  o9 o*{59=oI {9sA{5tuo~9:8 8**"(Y*0 {;**0 (^9:8 **>(\};*0S {;u {;uw s s s 9  o  8do  o o9 9:8  {8o oo o oo o  X:8 9z ox rkp( to ox oo{ 9:8  (< o oo o oo o 8 t~s zo]o9:8 o :qo  o o oo  (9( (9oI o { (oo$ oo( 8**0 D {;oL 9:8 o]o 9:8 **"(Y*0 {<**0M o {<to( 9:8 (^9:8 **>(\}<*0 {=**0( oo o[oo }=o{=o$ {<tooI o { oo{ 9:8 oZ(o]o9:8 {=(ooZo$ **0 c {<o} 9:8 |<( 9:8 o]o 9:8 **"(Y*0M o {>to( 9:8 (^9:8 **>(\}>*0 {?**0 {>{@9|{>ox ( rpoO  (2 (< (}?{>to{?or oo{ 9:8 {?(<8o]o9:8 {?(**0 {@**0 {>o} 9:8 9{>ox o" 9{>ov o:89{>}@8Mto%P sU{>ox sQtw}@{@o} 9:8 8o]o 9:8 **0" o9{?(98**"(*0 {A**0 {B**>}A}B*0 M9o 8sQ  {Atoo{BtoooT **0 {C**0 D {Ao9:8 {Ao {Bo }C**0{Ao **0 :o* (#9o, o:8**0{Ao{Bo(< **>(}D*0 {D**0)9o 8{Ds[ **0oI o {Do**0**0**0{Do? **0o*~ o**>(}F*>}E}F*0^9o 8sc  {E9{Etoo}E8{F}F**0 {E**0 {F**0u{F k:8*8U3:8*8? :8*8&:8*8t~s z8*0**0: {E9#{Eo9:8 8**"(*Z(}G}H*>}G}H*0 M9o 8sk  {Gtoo {HtooPom **0 {J**0 {K**0 {H**0 {G**0 {I**0&2 {Ho; 9:8 ts{Ho s o9:8 9*8o9ox+9oy+t }J8Ooz+9o{+oDt }J8)o|+9o}J8 ts( &{HoO oI o to{J ot }K{K}I8 ts( &**0{Go **6to(*0 {L**0  {N9*8{M9H{Lt {Mo 9:8 9o }N88?{Lo9:8 9{Lto}N8**6to}L*Rto}L}M*0 {N**0 ox **"(s *0**0o*ehio**0 {O**0 >o}+ ot }Ototw{Os@t1ow **0 vud9eo? *8Que9ho? *8.uf9io? *8 rps z*6to(s *0 rkp(*0oI st **0**"(s *>}P}Q*0 V{Q:{Qo :89{Po*8{Por;p(< **0 g9o 8s  {Q9{Po 8{P{QtooPo tw**0 {P**"}P*04Jov o :8ov oo; 8 :8ov ooO 8:8+oI o  o9  o& 8:8-oI o  o9 o& 8}:8ov oo 8Y:8ov oo  85:8ov oo 8t~s z8**0: {Q9#{Qo; 9:8 8**0{Po**0s o9o9uooY 9o oY :89Jo  o(o} 9:8 o{ 9:8 8oo 9o oY :89pov o9Oo  o(o} 9:8 ov o9:8 8 t~s z8Xov o9<o o 9ov o(-8ov o(,8 t~s z8iov o9Mo o(o} 9:8 o{ 9:8 8 t~s z8o9ov o9)ov ooL9:8 8hov o9+oI o  o9 o*8-ov o9t~s z8 t~s z8 t~s z**0ov o**0ov o**0o*o**0 {Po 9rkp(8{Q9 {Qo 9*88o~+ 9:o!u9$tots(t1ow *8u9too  (9oQom:89(too tws?t1ow 8Moo   (9tos&t1ow 8tos?t1ow *89t~s z8o+ 8o+ 9d o5oF9I o5oFood   9to st1ow *888 9_ o5oE9D o5oEo   9to s>t1ow *888 9^ o69o:894 o>( 9to s=t1ow *888o+9u  9 o:89E oood 9tost1ow *88oI o oDt oo9 sZ 8{QoI ( ts{Q( o 9o 8`o o&  :o& :898( 98X:9:89o ow *8o ow *8tso+89oF89$oI o oo29tost1ow *8rkp(> 9ZoI o orp(< (< o3 9tost1ow *88oI oI o o( o 9o *8!o 9ts( *8( 8o 9*8o9 oI (oi o 9*8o9 oI (oi o 9*8oI o o oo 9*8oI o o oo 9*8o9 oI (oe 9 o:89o+ 9{Po9oI {Po(\ 8oI o {  oto!{PsM"{Po oOootos?t1ow *88oI o  vo9 ###o&**00o ( 9tost1*8( 9tos t1*8o 9t~s z8( 9tost1*8( 9u) o+ ow 9 o :891 :" oo (:8:89tos't1*8tosAt1*8( 9Tt&op om :oq om :89tost1*88o& 9t)ou :89tot)s't1*8( 9tot)s't1*8ts( &**0 ?tos  ooI (o} 9t~s z8**0ko ( 9%too twst1 *8( 9$too tws t1 *8o 9oI o rpo ( (< rgp(< o (< rCp(< o9  oI ((< oxo 8uoI o rp(2 (< rp(< o o& (o? (< rѳp(< o o oa (< oxX:}rkp(8( 9Nt) o+ o+ o+  o 9< :, oo ( ow :8:89. : o ow :8:8  9#to o tws't1*8tu9#to o twsAt1*8@u9#to o twsAt1*8 t~s z8( 9Iu&9'tot&o twst1*8 t~s z8o& 9t)ou :89tot)s't1*8ts( &**0M oI o orkpo)o2 9&oI oG oMrkp(> :891oI o ooI oG oMo)o2 8oI o oo3  9 :89tost1ow *8u9 :89tost1ow *869 :89ts( *89*8oI o o' o oI  ( o 9#too st1ow 8!o 9ts( *8**0o 9yoo o9#toost1ow *8:o9#toost1ow *8 t~s z8**0usZ  to 8"o ( to9oo9NoI o oooo 9#oI o ooo 88>oo9(oI o oooo 88e89o :89:o 9tsrp(  ݯ8to 8o :u9 uo o 9o ( 9 tost1ow *8o ( 9$too st1ow *8o ( 9*too t)s't1ow *8oI o  o9 o*8tso o 9$to o st1ow *8 o 9ts( *8tsooI ( o 9*8**AFN0*3o 9*8o ( 9 tost1ow *8o 9ts( *8o ( 9$too st1ow *8o ( 9&t) tosAt1ow *8( 9't7 to st1ow *8oI o  o9 o***( *&( &*0( tw**&( *0 2o ֍w  ( t;t;o ( **0 o **:( }R*0t( **0(7 s }Ts }Vs }Zs }[s }\}cs }f}h}i}ks }x}}}Ws}g{g{gtoso{Ws }U{WsP }^{WsP }]*0Y *?S*0 {W**0 {}**0 {X**0 {Y**0 {Z**0 {[**0 {\**0 {]**0 {^**0 {_**0 {`**0 {a**0 {b**0 {c**0 {m**0 {e**0 {f**0 {g**0 {h**0 {i**0 {j**0 {k**0 {l**0 {m**0 {n**0 {o**0 {p**0 {q**0 {r**0 {s**0'{t9( }t8{t**0 {u**0 {v**0 {w**0 {x**0 {y**0 {z**0 {{**0 {|**0 {T**0& {Vo ֍ {Vo **0 {U**0!:  o 9:8 {p9( o ( rp( ( 9v( rpo 92 s o ( 9o 8 9 o u8( 9o 9:8 8&o o rp(< rLp(< ow8u(**AdvbC Re  "0.{To 9,o o  o&*8 {To &s ( 9( 8H( ( 9( 8'o o  o&*( 8uxo o  o& ݜto  8: o ( trKpo 9(o 8 o : u9  uo o ֍  o  o **A4^V 8x0 ( to 80o ( t {U o tssX o o :u9 uo  ( to 8=o ( t( ( o 9:8 o :u9 uo **A4a T^0u ( rp(> :8 }X8Crp(> :rp(> :8( rĵp(> :8 }Y8 r̵p(> :8 }Y8 rڵp(> :8 }Y8Z rSp(> :8 }Y85o o  rpo& 88A rp(> :8{Zrp( o 8 rp(> :8h( rkp(> 9o o 8 ( o 9:8 8 rp(> :r"p(> :8{\rp( o 8@ r&p(> :r@p(> :8${]oR 9:8 8 rPp(> :rbp(> :8${^oR 9:8 8 rjp(> :8 }_8y r~p(> :8 }`8T rp(> :rp(> :8 }a8 rp(> :8 }a8 rԶp(> :rp(> :8 }b8 rp(> :8 }b8 r8p(> :8 }c8s rFp(> :8 }c8N rTp(> :8( r`p(> :8 }c8}rjp(> :8 }c8Wrkp(> :8 }c81o o      o& 88 rzp(> :8 }d8` rp(> :rp(> :8 }e8' rp(> :8 }e8 rԷp(> :rp(> :8rp(   to  8 o ( t  rpo 9 rp(<  8 rp(   o 9-o o  _ o& 8{fo   s o & o :I u9  uo 8rp(> :8Y,og to 8Qo ( trkp(> 9%{g(z9:8 8o :u9 uo 8rp(> :r&p(> :8 }h8rDp(> :8 }h8rdp(> :rp(> :8 }i8}rp(> :8rp( }i8Nrp(> :8 }j8)r0p(> :8( rLp(> :8 }k8WrVp(> :8 }k81 o o  o&88rdp(> :r*p(> :8 }l8Mrnp(> :8 }m8(r|p(> :8 }n8rp(> :rp(> :8 }o8rp(> :8 }o8rp(> :8 }p8rιp(> :8 }r8[rp(> :8 }s86rp(> :8rkp(> 99o o  rpr po& 8N( t{( ( }t-&o o  o& 8}rp(> :8 }u8Xr4p(> :8 }u83rJp(> :8 }v8rdp(> :8[o 9o :89}w8o tsrtp( &8rxp(> :8{xrp( o 8drp(> :8 }y8?rp(> :87}z o o  _rpo&8r̺p(> :8 }{8rܺp(> :rp(> :8 }|8r p(> :8 }|8lr"p(> :8 }q8Gr@p(> :8@o o  rXpo9:8 8rp(> :8rp(> :8 }}8krp(> :8 }}8Erp(> :8 }}8rĻp(< rp(< ( 88<o o  o9:8 8**AL ! -v?z0 o  : o :89Q( 9<o o  o9:8 8*8 to 85o ( t {U( o tssX o o :u9 uo **A~Y0R {Vo to 8 o ( t rOpo 9o r0po 9 ( :89+( ( to 8o ( t(to  8 o ( trOpo 9o ( ( r8B( o 9 ( :89( ( 08 o :p u9  uo o :u9 uo 8o 9:8 88rDpo 9rHpo :89;/o  :o   : :889zrkp rkp rp( 9#o   o o  8 o    o 9:8 8 8o & o :[ u9 uo **ALSz~0( rkp(> 9o o 8 rkp(> 9( ( 8( ( 9*8( 9 ( *8- ( ( 9*8**0~So **0 {V**0Q(7 sq}s }s }s}s} }*0o o|9 :89'o rLp(< owrps z8do o|9:89?o o o| (2 rƼp(< (< owrps z8*0 {**0 {**0 {**0 {**0 {**0 {**0 {**"}*0 {**0 {**0 {**0 !{**0 "{**0 #{**0${o **0*%{q!@W SQs (@ **0 i&( rkp(> 9 ( 8( 9 ( &8( rp(< (< rp(< ( **0`'{o 9C{o 9 o 8o o~9 o 8*8o **0(}o **02{)o o rkp(> 97o o o om }{{o {( o o }{rpo 9{rp(< }8o o :o o :89{rĵp(< }8ho o 9{r(p(< }8:o o 9{r0p(< }8 t~s z8o o }{( }**0!*oG oE ( 9((  `{( o }8( {( o }{o {( o o }{o 9{o }8oI o o|**0/+ o o rkp(> 9 rkp 8 o o  s}{s%}s}s'}o {o9:8 ru& eu'Wuo o*(94o  o o+rDpo&8{(z rkpo **ALa6 &a6'a6W0>, o o (o9:8 rpo 9*8o o (o 9:8 rȽpo 9*8{o59:8 rؽpo 9*8{o39:8 rpo 9*8{o79:8 rpo 9*8{o6 {o99:8 rFpo 9*8{o;9:8 rrpo {(o29:8 {(z rpo **0&- s o9:8 **0. {(z o o 90o o 9 o 8o  ݑ8o o 9 o 8o o~9  W8( rp( o {o o 9%o   o& 8{o o o &o o rpo 9o o rpo &8o o 9o o r־po :89o o r־po &8s }s }o 9:8 s. }o 9:8 {o9:8 o o|9 ݇8s}o 9:8 o o|9 E8{oo o 9{o5 8o 9:8 o o|9 8o 9:8 o 9:8 9 ݟ8( o % s o {o=9:8 {o?9:8 {o>9:8 {o@9:8 {oB9:8 o 9:8 9 8{oJ9:8 ( o % s o 9 oI o r pow^8{{( o oI o rDp{o {( ow{ (z rpo o o|o o}`9_oI o rpo o| (2 (< rʿp(< o o}(2 (< rp(< ox8o o|9oI o rpox 8 o o|9:8 9  \8 PIu&o  Yuo& "uo  **A4.&0G/oI o   r(poU (< rp(< oV (< o&*0/70om 9*8oe rNp( 9*8o# 9 o# oI o { :89 o# oI o { :89*8o o 9*8o 9*8o oI o { 9o1 :89o :89*8**0"1s ( o (  ( Ѕ( o 9o :89u 8o rXp(< o (<  9(rlp o (< r}p(< (< 8o &o  o &o  &o **0|2s rkpo &r|po &rkpo &rpo &rJpo &rpo &rpo &r po &rppo &rkpo &rpo &ripo &rpo &rpo &rkpo &rpo &rpo &r+po &rFpo &rpo &rkpo &r{po &rpo &rXpo &rpo &r4po &rpo &rkpo &rpo &rpo &rpo &rkpo &r9po &rpo &rlpo &rIpo &rpo &rBpo &rpo &rUpo &rkpo &rpo &rpo &rpo &rpo &rpo &rpo &rkpo &rpo &rpo &rpo &rpo &rpo &rpo &rZpo &rpo &rpo &rpo &rpo &rkpo &o **0 oI o o ox*0 oI o o ox*0@Z3 o o to 8 o ( t, rkpoM ( oM ( oN ~ (> 9 oN 8 oM ( oO 98oM ( o    r*p(> :88 r6p(> :8toM s  tXu oI o  {  oM   oU  o9:8 889{o   to 8<o %:&8 yq   ( oN  ( o o :u9 uo o 8"{oM s tvo o : u9 uo **ALaX=?0b,4 9 ( :89o o o d:89o rLpox*8o o 9  ݶ8o o 9  ݗ8s  o 9:8  o 9:8 9  D8o 9o o :89 :89 o {J  ot (-:89 o9s orNp ~j o o# ~ okt#o ~ o {L o ~) o* t'o 88o 9S 9 op8 {oMo  xo& 8o 9S 9 op 8 {oM o  v    o& ݄8jo u  9 ooy 8o tT  o { F  o { t'o u**AZ05o o rkp(> 9 Q*8{o o oL 99o  _ o o rpo&Q*8Q**0 69{oO 8   o to 8o ( too to 8.o ( t'o 9 o 8o :u9 uo o :gu9 uo **A4`R-07( o to 8J o ( t9 o rpo 9~ o o >8 o : u9 uo rps zrkp**A lw(7 }}}o *0 8{**09{(9 **0:{(: **0;{(; **0<{(8 **0 ={**0 >{**0.{~ (> 9 }*8{rp( 9 }*8N{rp( 9}*8'{rp( 9}*8{rKpo 9j{rKpo 9/{{o o ( }*8!o ~= rp{(< ( &8{rtpo 9`{rtpo 9%{{o o }*8!o ~= r.p{(< ( &8:{( :89{(  }*8o ~= rbp{(< rp(< {oH oa (< r}p(< ( &*0 ?{**( *0@( t**0 A( **0Bo  9*8o rkp(> 9Oo (! 9*8o ( 9o (" #*8*8*0lCto 8/o ( t o ( 9  /8o :u9 uo **AQQVrkp($ }*0Drp**0#(7 ~ ts# }}*0E{oI **0 =F{o$ ֍  {o% to& t;(' **0Go> 9 rpoH oa (< s z8{o( 9{o) 8s  }{{o* {o+ *0,H{o( 9{o) {*8**0I{o( **0pJs {o, to 8# o ( t" {to- o : u9 uo **AOUJ(7 s. }*b(@ rp}o! *(@ rHp ((< }o! *0 GK(@ 9#rHpo# ((< }8 rp}o! *0WL(@ 93rHpoo9  ooI ((< }8 rp}o! *0#(@ 98 rp}o! *0)rkp(> rpoU (< }o! *0 bM(@ r;p(< rp(< }9.{rpo9  ((< (< }8o! *z(@ rp(< }o! *0 N{***"(7 *0 m(7 9rps/ z8u 9}}8(o% rp(< (< }o& }*0O(7 rkp(> 9 :89rps/ z8}}*0 O{**0 P{**0*Q{9rp{(< *8{**0 MR9rkps z8u 9oB s$ *8oB s# **0 @So& 9rkps z8#oB rp(< o' (< s$ **0To {o 9j{9 (0 :89*(/  {o o ( *8{o o ( *8**0Uo o {o 9*8{~ o0 9*8{~ ol 9*8{o o .**0FV(0 9,o& 9*8(/ o% ( *8 o% ( **0 Wo, **0 X(- **0Y(0 9 o *8**0(Zo 9rp( :8**r(6 ~ ts7 }*0[{o1 **0"\o2 9{o2 *8**0 J] o   8$o o+ 9 o *8 X :**0 4^o% rp(< (< o2 9 o3 *8**0 P_o ֍ o3  o 8  o%  X :**0)rkp(> 9*8s$ o9 *0`~ (> 9*8o2 9*8o7 .o 9*8 o o2 9*8o7 .o 98*0 3o% o2 9(4 {o% o5 8*0 Uato 8o ( t o7 o :u9 uo *A==0b(/  o2 9*8q9hto 8*o ( t$ o* 9  48o :u9 uo 8**A(Lt0 Hc o   8"o o+ 9*8 X :**(@ *&(8 *"(9 *(: *05d(7 }+ }} }*(7 }}}}*0ae(7 }+ }}9  }8  }*0 Mf+( {+q++o? o; t )( (< t) oK **0 g{**0 h{**0 i{**0 j{**0$k{o ֍   {o 8{+q+(z{9{o :89 {t(+ 898{+q++o? rp(< (< 8X:=rp(= oF   (9"oF   oH ( rp8 rkp r?prup o rpo rpoD *o? o **:( }*0 l{**r(7 } } } *0 m{ **0 n{ **0 o{ **V(> } } *0 p{ **0EGqrp(  rkpo :8oQ o o  8 :8oQ o o  8:8oQ o o  o? rp(> :8 8Xrp(> :8 87oQ o  rPpo&*88,oQ o  o&*8:o :89o{ 96oQ o  u  rp(  o&8'oQ o  3y   o&*8to  8$ o ( t   sL o@  o : u9  uo **AH**(f *0Er (q  oo  : :8b98oo oo oo { o{ 9:8 9oI o {} (8({ o{ 9:8 9oI o {} (8(oo$ ($(oo$ ($oo$ ooI o { o91oI o { (BoI o {E (88t~s z8**0s"**0 t(w **0 u{ oz ( { oz ( `9*8mu9t~s z8Hu9t~s z8#(8 9 (8 :8***(f *0 Cvoj  ok   (29 o :89 8(y  **0 w oo toop o { o{ 9:8 { o{ 9:8 oq  :Q :H :? :6  :,  :"  :  : :8op (8: :8oI o { (8t~s z8**0x$**0 y(w **09uz{ oz ( { oz ( `9*8<oH oI  ( oH oI ( 9 :89(8 (8 `*8oI o  ooI (   :8( ( _F*8 :8(A (A _]*8b :8(B (B _\*8; :8(C (C __*8  :8(a (a _*8  :8(d (d _`*8  :8(b (b _*8  :8(e (e _a*8t :8t~s z8S  :8t~s z82 :8t~s z8t~s z8**(f *0*y{ (r 9:8 9*8{ ox oI o { (2 { ox oI o { (29&{ ox oI o { (2 89'{ ox oI o { (289:89:tostw} { o} 9:8 8S 9:89:tostw} { o} 9:8 8**0%| oo toop o { o{ 9:8 { o{ 9:8 oq  :Q  :G  := :4  :*  : : : :8op (8 :  :8op (8 :8oI o {) (8d :8oI o { (8; :8oI o {= (8t~s z8**0} **0 ~(s  **0 (w **0L:{ oz ( { oz ( `9*8oH oI  ( oH oI ( 9 :89(: (: (< *8(:8N(C (C   : :89  _*8  F*80:8L(B (B   : :89  \*8  ]*8:8R(a (a   : :89  *8  \*8t:88(d (d   9  `*8  _*8- :8Z(b (b   !: !:89  *8  *8 :8<(e (e !9 a*8 `*8w :8`(b (b l#:#C:89 *8(L *8 :8`(e (e l#:#C:89 *8(L a*8:8(9 (9 X*8o :8(c (c X^*8G:8(f (f (D A*8rkp(t~s z8*"(*Z(} } *0**0B { o9:8 { o9:8 **0o 9 oi *8**0{ ox oi **0{ ox oi **0oI oj ( **0oI ok ( **0o*~ o***0 oI o oq o**0 "oI oz oj ok ( **0 { o} 9:8 { o} 9:8 9*8{ ov o9$| ( 9:8 8{ ov o9$| ( 9:8 8**0 or 9:8 9*8{ ox { ox (29{ ox oI o { (29Uto{ { ox sv tw} { {(o} 9:8 8z{ ox oI o { (29Uto{ { ox sv tw} { {(o} 9:8 88oq  ou  ov 9 ot 9 oz  :oz  :89#oj oI o { (2:89#oj oI o { (2:89 ok oI o { (29:oI o  }o9 oj oe o&8ok oI o { (29IoI o  gvo9 oj oe ok oe o&8XoI o  vo9 oz (p oSoj oe ok oe o&8XoI o  vo9 oz (p oSoj oe ok oe o& 88ol :&oI o { oj (2:8 om :&oI o { ok (2:8   9 :8:og :89oI o oz ol om (o} ol 94oI o o to{  (0} 8om  93oI o  o to{  (0} 8tws)t1ow 8 9  :89oI ok ( oI  (*  9 o :89~to{ oI o  qo(0} oI o oz ol om (o} tws)t1ow 8 8 9  :89oI oj (oI (*9o :89~to{ oI o qo(0} oI o oz ol om (o} tws)t1ow 8 8  9ot 9:8 8**0J# s oI oz oj (  oj ok (29s oI oz ok ( to 81o ( t'oE 9 o 8o :u9 uo 8o 9oI o  vo9 oz (p oNoj oa ok oa o9:8 9*88tow{ { oF ts tow  {  {  sy  o9:8 o9:8 9*8 oo# }  t1ow **AYV0 oq **0 oq **0*{ oy 9{ oy :8**>} } *0 { ***(f *0 ` oo toop o { o{ 9:8 { o{ 9:8 oq  :Q  :G  := :4  :*  : : : :8op (8 :  :8op (8d :8oI o {* (8: :8oI o { (8t~s z8**0DoI o oI { ox ( oI { ox ( (o**0 **0 (w **0X{ oz ( { oz ( `9*8oH oI  ( oH oI ( oI o~  (:8C( ( 9(A (A ڌ]*8( ( ڌF*8%:8L(B (B   : :89  \*8  ]*8:8R(a (a   : :89  *8  \*8i:8C(C (C 9(B (B ڌ\*8(C (C ڌ_*8 :8Z(b (b   !: !:89  *8  *8 :8C(d (d 9(a (a ڌ*8(d (d ڌ`*8Z :8`(b (b l  #: #C:89  *8 (L *8 :8C(e (e 9(b (b ڌ*8(e (e ڌa*8:8(9 (9 Y*8o :8(c (c Y^*8G:8(f (f (G A*8rkp(t~s z8**(f *00 (r 9:8 9*8{ ox oI o { (2 { ox oI o { (2 9 :89:tostw} { o} 9:8 8X9 :89:tostw} { o} 9:8 89j{ ox oI o { (29@to{ sl tw} { o} 9:8 88 9j{ ox oI o { (29@to{ sl tw} { o} 9:8 88**0 oo toop o { o{ 9:8 { o{ 9:8 oq  :8oI o {= (8: :8oI o { (8t~s z8**0 **0'{ oy 9V{ ox oI o { (2:+{ ox oI o { (2:8:89{ oy :89V{ ox oI o { (2:+{ ox oI o { (2:8:8**0 Ko 9t~s z8{ oz (: { oz (: (< ***(f *0? oo toop o { o{ 9:8 { o{ 9:8 oq  :n :e :\ :S  :I  :?  :5  :+  :! : : :8op (8' :88oI o {( ((oI o { (8 :88oI o {' ((oI o { (8 :8'o(oI o { (8d :8Do(oI o { ((oI o { (8t~s z8**0 **0 (w **0W{ oz ( { oz ( `9*8oH oI  ( oH oI ( 9 :89(8 (8 *8*9 :89(; (; (@ *89 :89(g (g *89 :89 (: (: (> *8n9 :8:'9 :8:89 (: (: (> *8oI o  ooI (   :8( ( *8 :8(A (A *8 :8(B (B *8^ :8(C (C *86  :8(a (a *8   :8(d (d *8  :8(b (b *8  :8(e (e *8 :8(9 (9 *8i  :8(c (c *8@ :8(f (f ( *8t~s z8**(f *0 oo toop o { o{ 9:8 { o{ 9:8 oq  :8oI o {H (8: :8oI o { (8t~s z8**0 **0 (w **0/{ oz ( { oz ( 9( 89( 8oH oI  ( oH oI ( :p:f:\:R :G :< :1 :&: ::8(9 (9 (K *8t~s z8**(f *0B, oo toop o { o{ 9:8 { o{ 9:8 oq  :8op (8 :e :\ :S :J  :@  :6  :,  :"  : : :8op (8' :88oI o {( ((oI o { (8 :88oI o {' ((oI o { (8 :8'o(oI o { (8d :8Do(oI o { ((oI o { (8t~s z8**0 **0 (w **0W{ oz ( { oz ( `9*8oH oI  ( oH oI ( 9 :89(8 (8 *869 :89"(; (; (@ *89 :89(g (g *89 :89#(: (: (> *8q9 :8:'9 :8:89#(: (: (> *8oI o  ooI (   :8( ( *8 :8(A (A *8 :8(B (B *8v :8(C (C *8K  :8(a (a *8  :8(d (d *8  :8(b (b *8  :8(e (e *8 :8(9 (9 *8o  :8(c (c *8C :8"(f (f ( *8t~s z8**(f *0B, oo toop o { o{ 9:8 { o{ 9:8 oq  :8op (8 :e :\ :S :J  :@  :6  :,  :"  : : :8op (8' :88oI o {( ((oI o { (8 :88oI o {' ((oI o { (8 :8'o(oI o { (8d :8Do(oI o { ((oI o { (8t~s z8**0 **0 (w **0W{ oz ( { oz ( `9*8oH oI  ( oH oI ( 9 :89(8 (8 *8*9 :89(; (; (@ *89 :89(g (g *89 :89 (: (: (> *8n9 :8:'9 :8:89 (: (: (> *8oI o  ooI (   :8( ( *8 :8(A (A *8 :8(B (B *8^ :8(C (C *86  :8(a (a *8   :8(d (d *8  :8(b (b *8  :8(e (e *8 :8(9 (9 *8i  :8(c (c *8@ :8(f (f ( *8t~s z8**(f *0 oo toop o { o{ 9:8 { o{ 9:8 oq  :H :? :6 :-  :#  :  :  :8op (8: :8oI o { (8t~s z8**0 **0 (w **0L{ oz ( { oz ( `9*8QoH oI  ( oH oI ( oI o  ooI ( (9 #9rkp(8  :8( ( [\*8 :8^(A 9(A :89(B (B [_*8(A (A [F*8B :8_(B 9(B :89(a (a [*8(B (B [_*8 :8(C (C [_*8  :8\(a 9(a :89(b (b [*8(a (a [*8A  :8(d l(d l[*8  :8a(b !9(b !:89t~s z8(b (b [*8  :8(e (e [a*8~ :8t~s z8]  :8t~s z8< :8t~s z8rkp(t~s z8*J(f } *0**0 (s 9:8 9{ ox oY :89Bto{ { ox stw} oI o { } 89{ ox oY :89Bto{ { ox stw} oI o { } 8**0$ oo { ox o" 9t~s z8{ ox o" 9t~s z8{  { uJ99{ ox  88J{ uJ99{ ox  88{ ^($*91o 9 oi 8too 8{ o{ 9:8 { o{ 9:8 o ^9 (8&o _9 (8 t~s z**0oI o { **0**0 { ***(f *0B, oo toop o { o{ 9:8 { o{ 9:8 oq  :8op (8 :e :\ :S :J  :@  :6  :,  :"  : : :8op (8' :88oI o {( ((oI o { (8 :88oI o {' ((oI o { (8 :8'o(oI o { (8d :8Do(oI o { ((oI o { (8t~s z8**0DoI o oI { ox ( oI { ox ( (o**0 **0 (w **0W{ oz ( { oz ( `9*8oH oI  ( oH oI ( 9 :89(8 (8 *869 :89"(; (; (@ *89 :89(g (g *89 :89#(: (: (> *8q9 :8:'9 :8:89#(: (: (> *8oI o  ooI (   :8( ( *8 :8(A (A *8 :8(B (B *8v :8(C (C *8K  :8(a (a *8  :8(d (d *8  :8(b (b *8  :8(e (e *8 :8(9 (9 *8o  :8(c (c *8C :8"(f (f ( *8t~s z8**(f *0$  oo toop o { o{ 9:8 { o{ 9:8 tooI o {O o o9 (&8 (&(q :8oI o { (8;:8oI o { (8t~s z8**0**0b***(f *0& oo toop o { o{ 9:8 { tooI o { oo{ 9:8 oq  :H  :>  :4 :+  :!  : : :8oq ::88j::8 8H : :8 8$ : :8 ?8(oo { (op (8: :8oI o { (8t~s z8**0(q 9*8 **0 **0 (w **0+7{ oz ( { oz ( `9*8oI o oI o { o 9rkp(8(a oH oI ( :8( _bF*8z:8(A _b]*8V:8(B _b\*81:8(C _b_*8  :8(a _b*8 :8(d _b`*8 :8(b ?_b*8 :8(e ?_ba*8t:8t~s z8S :8t~s z82:8t~s z8t~s z8**(f *0B, oo toop o { o{ 9:8 { o{ 9:8 oq  :8op (8 :e :\ :S :J  :@  :6  :,  :"  : : :8op (8' :88oI o {( ((oI o { (8 :88oI o {' ((oI o { (8 :8'o(oI o { (8d :8Do(oI o { ((oI o { (8t~s z8**0 **0 (w **0W{ oz ( { oz ( `9*8oH oI  ( oH oI ( 9 :89(8 (8 *8*9 :89(; (; (@ *89 :89(g (g *89 :89 (: (: (> *8n9 :8:'9 :8:89 (: (: (> *8oI o  ooI (   :8( ( *8 :8(A (A *8 :8(B (B *8^ :8(C (C *86  :8(a (a *8   :8(d (d *8  :8(b (b *8  :8(e (e *8 :8(9 (9 *8i  :8(c (c *8@ :8(f (f ( *8t~s z8**(f *0 W oo toop o { o{ 9:8 { o{ 9:8 oq  :H :? :6 :-  :#  :  :  :8op (8 :  :8op (8d :8oI o {- (8: :8oI o { (8t~s z8**0f**0 (w **0?u{ oz ( { oz ( 9( 89( 8oH oI  ( oH oI ( oI o  ooI (   :8( ( ]F*8 :8(A (A ]]*8{ :8(B (B ]\*8T :8(C (C ]_*8-  :8(a (a ]*8  :8(d (d ]`*8  :8(b (b ]*8  :8(e (e ]a*8 :8(9 (9 ]*8e  :8(c (c ]^*8= :8(f (f (H A*8t~s z8**(f *0 W oo toop o { o{ 9:8 { o{ 9:8 oq  :H :? :6 :-  :#  :  :  :8op (8 :  :8op (8d :8oI o {, (8: :8oI o { (8t~s z8**0 **0 (w **0d{ oz ( { oz ( ::89*8yoH oI  ( oH oI ( oI o  (:8X(C (C   : :89  _*8( ( ،F*8:8V(B (B   : :89  \*8(A (A ،]*8g:8\(a (a   : :89  *8(B (B ،\*8:8B(d (d   9  `*8(C (C ،_*8 :8d(b (b   !: !:89  *8(a (a ،*87 :8F(e (e !9 a*8(d (d ،`*8 :8(b !9"#C!(b l[8#C(b l[(b !9!(b l:8:(b l:89(f (f (I A*8(b (b ،*8 :8S(e l#C(e l[9(f (f (I A*8(e (e ،a*8:8(9 (9 Z*8o :8(c (c Z^*8G:8(f (f (I A*8rkp(t~s z8**(f *0? oo toop o { o{ 9:8 { o{ 9:8 oq  :n :e :\ :S  :I  :?  :5  :+  :! : : :8op (8' :88oI o {( ((oI o { (8 :88oI o {' ((oI o { (8 :8'o(oI o { (8d :8Do(oI o { ((oI o { (8t~s z8**0 **0 (w **0O{ oz ( { oz ( `9*8oH oI  ( oH oI ( 9 :89(8 (8 *869 :89"(; (; (@ *89 :89(g (g *89 :89#(: (: (> *8q9 :8:'9 :8:89#(: (: (> *8(:8( ( *8:8(A (A *8:8(B (B *8v:8(C (C *8K :8(a (a *8 :8(d (d *8 :8(b (b *8 :8(e (e *8:8(9 (9 *8o :8(c (c *8C:8"(f (f ( *8t~s z8**(f *0= (q  oo  : :8H98oo oo { o{ 9:8 9oI o {} (8({ o{ 9:8 9oI o {} (8(($(oo$ ($oo$ ooI o { o91oI o { (BoI o {E (88t~s z8**0u**0 (w **0 { oz ( { oz ( `9*8mu9t~s z8Hu9t~s z8#(8 :(8 :8***(f *0 Coj  ok   (29 o :89 8(y  **0  oo toop o { o{ 9:8 { o{ 9:8 oq  :Q :H :? :6  :,  :"  :  : :8op (8: :8oI o { (8t~s z8**0t**0 (w **09u{ oz ( { oz ( `9*8<oH oI  ( oH oI ( 9 :89(8 (8 `*8oI o  ooI (   :8( ( `F*8 :8(A (A `]*8b :8(B (B `\*8; :8(C (C `_*8  :8(a (a `*8  :8(d (d ``*8  :8(b (b `*8  :8(e (e `a*8t :8t~s z8S  :8t~s z82 :8t~s z8t~s z8**(f *0 oo toop o { o{ 9:8 { o{ 9:8 oq  :  :8op (8d :8oI o {+ (8: :8oI o { (8t~s z8**0 **0 (w **0U{ oz ( { oz ( `9*8oH oI  ( oH oI ( ((9 #9%tsrp( &#*8:8( l( l[*8:8^(A 9(A :89(B l(B l[*8(A l(A l[*8~:8a(B 9(B :89(a l(a l[*8(B l(B l[*8:8(C l(C l[*8 :8`(a 9(a :89(b l(b l[*8(a l(a l[*8u :8(d l(d l[*8K :8t(b !9(b !:89"(f (^ (f (^ [*8(b l(b l[*8 :8(e l(e l[*8:8(9 (9 [*8u :8(c (c [^*8M:8"(f (^ (f (^ [*8rkp(t~s z8**(f *0& oo toop o { o{ 9:8 { tooI o { oo{ 9:8 oq  :H  :>  :4 :+  :!  : : :8oq ::88j::8 8H : :8 8$ : :8 ?8(oo { (op (8: :8oI o { (8t~s z8**0(q 9*8 **0 **0 (w **0+7{ oz ( { oz ( `9*8oI o oI o { o 9rkp(8(a oH oI ( :8( _cF*8z:8(A _c]*8V:8(B _c\*81:8(C _c_*8  :8(a _c*8 :8(d _c`*8 :8(b ?_c*8 :8(e ?_ca*8t:8t~s z8S :8t~s z82:8t~s z8t~s z8**(f *0  oo toop o { o{ 9:8 { o{ 9:8 oq  :Q :H :? :6  :,  :"  :  : :8op (8: :8oI o { (8t~s z8**0t**0 (w **09u{ oz ( { oz ( `9*8<oH oI  ( oH oI ( 9 :89(8 (8 `*8oI o  ooI (   :8( ( aF*8 :8(A (A a]*8b :8(B (B a\*8; :8(C (C a_*8  :8(a (a a*8  :8(d (d a`*8  :8(b (b a*8  :8(e (e aa*8t :8t~s z8S  :8t~s z82 :8t~s z8t~s z8*"( *"} *099o 8s  { o tw**0oI o { **0{ **"(s *0**"} *0 too st1ow **0oI o { o**0**nto(s } } *0 &oI o  o9  o**nto(s } } *0 &oI o  o9  o**"(s *Z(s } } *0]{ 9'to{ { s,t1ow 8!to{ ~ s,t1ow **>} } *0 { **"} *0 { **0 { **0**0 **"(L *&(K *0oP ( **0f5 ox  o(  ov tooo9:8 :88::8;oo  gvoe oe o& 8:9:/ :$:: :8((8- :8!((8 :8!((8:8I#((oo { (oo { (8| :8E"((oo { (oo { (8':8oo { (29oo {} (8\oo { (29oo {} (8&oo  o9 o*8:8oo { (8V:8oo {4 (8+oo  o9 o*8**0 T (S 9:8 9*8oP ox ( 9:8 **0|  {(  ::8J{o  gvoe {o { oe o& 8**0BoP oy 9(oP ox oI o { (2:8**0oP oz ( oI oH (   :o :f :] :T :K  :A  :7  :-  :#  : : :8(8 *8_ :8 *8EoI o  luoN o oJ o&*8*0oI o { **&(K *"(L *0oP ( **0 D  (S 9:8 oP ox ( 9:8 **0   {(  {o {  :81{o  }oe o& 8L:8<{o  gvoe oe o& 8**0]  ox  o(  ov tooo9:8 :8!((((8v:88b:81oo  }oe o& 8":8;oo  gvoe oe o& 8:%: : :8 (8: : :8 (8k:8"oo {G ((89 :88(oo {G (oo { (8:8aoo { (29oo { (8&oo  o9 o*8:8oo { (8V:8oo {5 (8+oo  o9 o*8**01 oP oz ( oI oH (   : :8( F*83 :] :T :K  :A  :7  :-  :#  : : :8n( oI o o o 9*86oI o  vo oJ o&F*8_ :8 F*8EoI o  luoN o oJ o&F*8*0 oI o { **&(K *"(L *0 oP ( **0HL  ox  o(  tooo { oo{ 9:8 :88:O:E:; :0 :%: : :81oo  }oe o& 8\:1:&:: :8;oo  gvoe oe o& 8:8oo { (29oo {~ (8Foo { (298&oo  o9 o*8V:8oo { (8+oo  o9 o*8**0 D  (S 9:8 oP ox ( 9:8 **0+   {(  {o {  :O:E:; :0 :%: : :81{o  }oe o& 8w:1:&:: :8<{o  gvoe oe o& 8**0 oP oy 9koP oz uY:JoP oz u9oP oz (: o :8:8:8**0- oP oz ( oI oH (   :8r(: o 9(g Y*8IoI o  luoN o oJ o&YY*8m :8(g Y*8NoI o  luoN o oJ o&YY*8*0 oI o { **&(K *"(L *0 oP ( **0Y  ox  o(  ov tooo9:8 :88J:8Joo  gvoo { oe oe o& 8:81oo  Ewoe o& 8:o:e:[ :P :E:;:1 :& :: :8;oo  gvoe oe o& 8:8oo { (29oo { (8\oo { (29oo { (8&oo  o9 o*8V:8oo { (8+oo  o9   o*8**0 D  (S 9:8 oP ox ( 9:8 **0y   {(  {o {  :8J{o  gv{o { oe oe o& 8:81{o  Ewoe o& 8:o:e:[ :P :E:;:1 :& :: :8<{o  gvoe oe o& 8**0? oP oy 9%oP ox oI o { (2:8**0 oP oz ( **0 oI o { **&(K *"(L *0 oP (' **0 D  (S 9:8 oP ox (& 9:8 **0   {(  {o {  :81{o  Dwoe o& 8K:8<{o  gvoe oe o& 8**0M  ox  o(  ov tooo9:8 :8!((((8#:88:81oo  Dwoe o& 8:8;oo  gvoe oe o& 8:%: : :8 (8H:%: : :8 (8  :8 (8:8aoo { (29oo { (8&oo  o9 o*8:8oo { (8V:8oo {3 (8+oo  o9 o*8**0B oP oy 9(oP ox oI o { (2:8**0  oP oz ( oI oH (   :o :f :] :T :K  :A  :7  :-  :#  : : :8(9 *8p :8#*8NoI o  luoN o* oJ o&*8*0 oI o { **&(K *"(L *0 oP (0 **0 D  (S 9:8 oP ox (/ 9:8 **0   {(  {o {  ::8;{o  gvoe oe o& 8**0d  ox  o(  ov tooo9:8 :8oo { (8:88y::8;oo  gvoe oe o& 8$::8"(oo { (8 :8oo { (8 :8oo { (8:%: : :8"(oo { (8B:8oo { (8 :8Aoy 9oz (9 sJ (*8oo { (8:8aoo { (29oo { (8&oo  o9 o*8V:8oo { (8+oo  o9 o*8**00 oP oz ( oI oH (   :[ :R :I :@ :7  :-  :#  :  : :8(f A*8  : : :8w( oI o o2 o 9*8?oI o  vo2 oJ o&AA*8NoI o  luoN o2 oJ o&AA*8*0 oI o { **&(K *"(L *0 oP (8 **0 D!  (S 9:8 oP ox (7 9:8 **0"   {(  {o {  :81{o  }oe o& 8K:8;{o  gvoe oe o& 8**0g/#  ox  o(  ov tooo9:8 :8!((((8 :88:81oo  }oe o& 8b:8;oo  gvoe oe o& 8:%: : :8 (8:%: : :8 (8:8"oo {G ((8o :88(oo {G (oo { (8':8oo { (29oo { (8\oo { (29oo { (8&oo  o9 o*8:8oo { (8V:8oo {9 (8+oo  o9 o*8**00q$ oP oz ( oI oH (   :3 :* :! : :  :8(a *8  :@  :6  :,  :" : : :8n( oI o o: o 9*86oI o  vo: oJ o&*8EoI o  luoN o: oJ o&*8*0% oI o { **&(K *"(L *0& oP (@ **0 D'  (S 9:8 oP ox (? 9:8 **0(   {(  {o {  :81{o  }oe o& 8K:8;{o  gvoe oe o& 8**0])  ox  o(  ov tooo9:8 :8!((((8 :88l:81oo  }oe o& 8,:8;oo  gvoe oe o& 8:%: : :8 (8:%: : :8 (8k:8"oo {G ((89 :88(oo {G (oo { (8:8aoo { (29oo { (8&oo  o9 o*8:8oo { (8V:8oo {; (8+oo  o9 o*8**00* oP oz ( oI oH (   :G :> :5 :, :#  :  :  :8(b *8  :,  :" : : :8w( oI o oB o 9*8?oI o  voB oJ o&*8NoI o  luoN oB oJ o&*8*0+ oI o { **&(K *"(L *0 D,  (S 9:8 oP ox (F 9:8 **0-  **0.  o9otoox oo{ 9:8 ox o" :ox oY :89ox (B88 t~s z**0/ oP (G **00 **01 oI o { **>(s } *"(s *0 <2 r7p{ o (< rCp(< ox oa (< r}p(< **013 ox (29*8oI (  :8s tw*8:8s tw*8n:8s tw*8N:8s tw*8-:8s+ tw*8 :8s" tw*8:8s\ tw*8 :8s3 tw*8 :8s; tw*8:8sT tw*8i :8sd tw*8H:8sl tw*8':8s tw*8 :8s tw*8 :8s tw*8o 9ox o :89oi  (N oI (o} 9 :8 stwoI (o} 9 :8 9 s z8*8sv tw*8*04 { o**0 5 { **"} *0V6 { oy 9*8:{ oz (  oI o ox o 9*8**0 7  { o 9${ o} 9:8 89*8| ( 9:8 tws)t1ow **&(K *"(L *08 oP (Y **0 D9  (S 9:8 oP ox (X 9:8 **0:   {(  {o {  :81{o  }oe o& 8K:8;{o  gvoe oe o& 8**0];  ox  o(  ov tooo9:8 :8!((((8v:88b:81oo  }oe o& 8":8;oo  gvoe oe o& 8: : :8 (8:%: : :8 (8k:8"oo {G ((89 :88(oo {G (oo { (8:8aoo { (29oo { (8&oo  o9 o*8:8oo { (8V:8oo {6 (8+oo  o9 o*8**00z< oP oz ( oI oH (   :8(A ]*84 :o :f :] :T  :J  :@  :6  :,  :" : : :8w( oI o o[ o 9*8?oI o  vo[ oJ o&]]*8EoI o  luoN o[ oJ o&]*8*0= oI o { **&(K *"(L *0> oP (a **0 D?  (S 9:8 oP ox (` 9:8 **0@   {(  {o {  :81{o  }oe o& 8K:8;{o  gvoe oe o& 8**0]A  ox  o(  ov tooo9:8 :8!((((8:88l:81oo  }oe o& 8,:8;oo  gvoe oe o& 8:%: : :8 (8:%: : :8 (8k:8"oo {G ((89 :88(oo {G (oo { (8:8aoo { (29oo { (8&oo  o9 o*8:8oo { (8V:8oo {7 (8+oo  o9 o*8**00B oP oz ( oI oH (   : : : :8(B \*8" :T  :J  :@  :6  :,  :" : : :8w( oI o oc o 9*8?oI o  voc oJ o&\\*8NoI o  luoN oc oJ o&\\*8*0C oI o { **&(K *"(L *0D oP (i **0 DE  (S 9:8 oP ox (h 9:8 **0F   {(  {o {  ::8;{o  gvoe oe o& 8**0EeG  ox  o(  ov tooo9:8 :8!((((8 :88::8;oo  gvoe oe o& 8:%: : :8 (8H:%: : :8 (8 :8 (8:8aoo { (29oo { (8&oo  o9 o*8:8oo { (8V:8oo {2 (8+oo  o9 o*8**00H oP oz ( oI oH (   :e :\ :S :J :A  :7  :-  :#  :  : :8(c ^*8 : :8w( oI o ok o 9*8?oI o  vok oJ o&^^*8NoI o  luoN ok oJ o&^^*8*0I oI o { **&(K *"(L *0J oP (q **0 DK  (S 9:8 oP ox (p 9:8 **0L  **0M  ox  o(  ov tooo9:8 :8oo { (8q:88\:8oo { (82:8oo { (8::87ooo { ooo { (8 :8oo { (8 :8oo { (8a:8oo { (87: :8oo { (8 :8oo { (8:8oo { (8 :8oo { (8:8oo { (29oo { (8oo { (29oo { (8oo { (290ooo { oo { o8`oo { (29oo { (8*oo { ({ 9:8 8V:8oo { (8+oo  o9 o*8**0pN oP oy 9VoP ox oI o { (2:+oP ox oI o { (2:8:8**0O oP oz ( oI oH (   : :8 (: *8EoI o  luoN ot oJ o&*8*0P oI o { **"(L *B(K } *0 dQ  { 94{ o9:8 { o} 8(O 9:8 **>(Q } *>(Q } *0C{R  o  oI (  :8oP ( &8=:8oP ( &8:8oP ( &8:8oP ( &8:8oP (0 &8:8oP (' &8:8oP (a &8t :8oP (8 &8R :8oP (@ &80:8oP (Y &8 :8oP (i &8:8oP (q &8:8oP ( &8 :8oP ( &8 :8oP ( &8f:8FoI o { (29oP (G &8oP ox o}  8t~s z8**0&S  ox  o(  o 9o(  rGp( 8 o 9Btsrmpoe (< rp(< oe (< rp(< ( & 8] o 9Btsrmpoe (< rp(< oe (< rp(< ( & 8  o (**0VT  oP ooI o { oo{ 9:8 oo { (**0U  { 9o| 9:8*8oP ov tooo9:8 oI o { (298MoY 9"oY 9)oI o  o9  o*8oh 9)oI o  o9  o*8oj 9I(  ts( ( 9(B(8 ts( &8ao" 9+oI o  o9 o*8+ok 9(B(8 t~s z8 oh 96ok 9ts(.9 (8oI o { (29 (8voh 9tsoi oi (.:89 (86oo  gvoe oe o& 8doI o { (29 (8<oh 9;oo  gvoe oe o& 8o o 9;oo  gvoe oe o& 8oi oi  oI o { (29 (8i (2: oK :8: oK :89 (8ts (.9 (8 ok 9oI o { (2:89 (8o 9oI (/ (2:89 (8zu9ts(  ( :89 (86oo  gv  oe  oe  o& 8oj 9oY 9NoI o {    oL  o  oI o {E ( (8oj 9 (8zok 9 (8bo" 9(C(E8Do 9t~s z8(oh 9t~s z8 t~s z8o" 9oI o { (29t~s z8ts(.9#(BoI o { (8Ro (29 (B85rpoa (< rp(< oa (< rp(< s z8!ok 9oY 9NoI o {  oL o  oI o {E ( (8ts(.9+o" 9(C(E8(8Uoj :ok :89 (8&oI o  o9 o*8&oI o  o9 o***0V  { 94{ o9:8 { o} 8(S 9:8 oI o (  :8)oP ox ( 9:8 8J:8)oP ox ( 9:8 8:8)oP ox ( 9:8 8:8)oP ox ( 9:8 8:8)oP ox (/ 9:8 8l:8)oP ox (& 9:8 84:8)oP ox (` 9:8 8 :8)oP ox (7 9:8 8 :8)oP ox (? 9:8 8:8)oP ox (X 9:8 8V :8)oP ox (h 9:8 8:8)oP ox (p 9:8 8:8)oP ox ( 9:8 8 :8)oP ox ( 9:8 8w :8)oP ox ( 9:8 8?::8o oI o { (29)oP ox (F 9:8 8o oI o { (29%oP ox oI o { (2:89xo9  oI (of 9NoI o  0wo9 oP ox oa o oa o 8} 88t~s z8***0 W { **0&X oI o (  :8noI oP ox (  :8oP oz (: *8.oI o  o9  o*880oI o  o9 o*8*0Y oP oy 9|{ 9 { oI o { (2:89%oP ox oI o { (2:89*8*8***0Z >**&(K *"(L *0[ oP ( **0 D\  (S 9:8 oP ox ( 9:8 **0]   {(  {o {  :81{o  }oe o& 8K:8;{o  gvoe oe o& 8**0] ^  ox  o(  ov tooo9:8 :8!((((8 :88:81oo  }oe o& 8@:8;oo  gvoe oe o& 8:%: : :8 (8::88 :88 :8 (8k:8"oo {G ((89 :88(oo {G (oo { (8:8aoo { (29oo { (8&oo  o9 o*8:8oo { (8V:8oo {: (8+oo  o9 o*8**00_ oP oz ( oI oH (   :! : :  :8(d `*8! :S :J  :@  :6  :,  :" : : :8w( oI o o o 9*8?oI o  vo oJ o&``*8NoI o  luoN o oJ o&``*8*0` oI o { **&(K *"(L *0a oP ( **0 Db  (S 9:8 oP ox ( 9:8 **0c   {(  {o {  :81{o  }oe o& 8K:8;{o  gvoe oe o& 8**0]d  ox  o(  ov tooo9:8 :8!((((8 :88l:81oo  }oe o& 8,:8;oo  gvoe oe o& 8:%: : :8 (8:%: : :8 (8k:8"oo {G ((89 :88(oo {G (oo { (8:8aoo { (29oo { (8&oo  o9 o*8:8oo { (8V:8oo {< (8+oo  o9 o*8**00e oP oz ( oI oH (   :+ :" :  :  :8(e a*8 :I  :? :6  :,  :" : : :8w( oI o o o 9*8?oI o  vo oJ o&aa*8NoI o  luoN o oJ o&aa*8*0f oI o { **&(K *"(L *0g oP ( **0 Dh  (S 9:8 oP ox ( 9:8 **0i   {(  {o {  :81{o  }oe o& 8K:8;{o  gvoe oe o& 8**0]j  ox  o(  ov tooo9:8 :8!((((8:88l:81oo  }oe o& 8,:8;oo  gvoe oe o& 8:%: : :8 (8:%: : :8 (8k:8"oo {G ((89 :88(oo {G (oo { (8:8aoo { (29oo { (8&oo  o9 o*8:8oo { (8V:8oo {8 (8+oo  o9 o*8**00k oP oz ( oI oH (   : : :8(C _*8+ :]  :S :J  :@  :6  :,  :" : : :8w( oI o o o 9*8?oI o  vo oJ o&__*8NoI o  luoN o oJ o&__*8*0l oI o { **"(u *&(x *&(y *0w+m  o oY 9koP tooP ox oo{ 9:8 oP ox o (29o (D88oP ox o" 9o oP ox (29<oP tooP ox oo{ 9:8 8$oI o  o9  o*8o oY 9oP ox oj :89o o" :89ToP tooP ox oo{ 9:8 o (Co (8qoP tooP ox oo{ 9:8 oP ox o (29oP ox o (8**0n C**"(u *&(x *0Mo  oP too oo{ 9:8 oP ox o (**0p  **"(s *0nq  { 9#{ o9:8 8{ 9#{ oa9:8 8**>} } *0 /r { 9oI o { *8{ o **0'ys  { 9{ 9!to{ oL sYtw 8{  tos towto{ oeoI o { s twsyo (m9:8 8{ 9${ o{ 9:8 8{ oL (9{ oe(#o9{ oM (8Bo9+oI o  o9 o*8 t~s z**0It  { 90{ o} 9:8 { ox  8o+} { oN ox  oI o { (29go9 oI (of 9ts( &*8} twoI o { s+t1ow *8oI o {/ o o 9x u4o oO } { 9&tw{ o s+t1ow 8ts( 9:8 8_ o 9+oI o  o9 o*8&oI o  o9 o***0u o* o**0v o* o**0 (w PoI o  Po9  o**Z(s } } *0 &x oI o  o9  o**"( *0y { ox **"} *0 -z  { o{ (oI o { (**0;{  { o| 9:8 tws)t1ow **0| { o{ **0} o+ **0~ oI o { **"(s *0 **0 s **0* totss t$st1ow **0 rp**"( *0X { ou9*rtp{ ooN (< rtp(< *8{ ooN **0 oooH ( } *0 b  o9Eov o9$ov o9:8 8 t~s z8 t~s z**0 o*o**0 **0 & too o s,t1ow **09 9o 8s  { o tw**"(} *0 rp**0Z o+oDt (oo" 9oo :89o(8**"(} *0 rp**0  o (**05  o+ oC}Otw{Os+t1ow **"(} *0 rp**0  o (**0)(s 9t~s z8} *0 { **0 & oI o  o9  o**"(s *0 { o**"} *0%  { o{ 9:8 **0 o*ko**0 ( PoI o  Po9  o**0 6  { o} 9:8 { ov ow **0 { u**0 { ox **"(s *>(s } *0 { o**"} *0 b  o9Eov o9${ o{ 9:8 8 t~s z8 t~s z**0 o* o**0 { **0 p  { o} 9:8 9*8| ( 9:8 two s+t1ow **0 { ox **0 { oz **0 { oy **"(s *0 T { 9+{ o rp(< { oe(< *8rp{ oe(< **0 ov o**0 ov o**0n  { 9#{ o9:8 8{ 9#{ oa9:8 8**>} } *0 9o 8s    { 9{ too  8{ 9{ tooc 8 o tw**0r  ov o :8{ 9)oI o  o9  o*8gov oo9)oo49:8 8&oI o  o9 o*8 :8f{ 9+oI o  o9 o*8(ov ooL9:8 8t:8-ov o  o49:8 89:8lov o o9) o  o49:8 8&oI o  o9   o*8:8o9Po9ov o(p&8&oI o  o9   o*8&oI o  o9 o*8+oI o  o9 o*8**0 ov o**0S  { od { 9${ o} 9:8 8?o+} { 9ts( &*8{ oN } 9*8{ ov o9{ ov oo!:89KoI o  b}o9  o9:8 9*88{ ub9oI o rkpoo29tost1ow *8oI o oo2 93tooI o oo3 st1ow *8FoI o  vo9 rŬpo9:8*8{ ov o9n{ ov ooo% oI o oo5  oI o oo)o2  9  :89to st1ow *8~ 9  :89to st1ow *8< 9 :89tsr!p( &8oI o o' o oI  (   o 9 o (   ( 9!to st1ow *8 ( 9@ o 9to st1ow *8 ts( &8 ( 9F o 9%to t)sAt1ow *8 ts( &86 ( 9 to s t1ow *8 rkp(88{ ov o99{ og9{ ohko:89ts( &8oI o { ov oo"oo{Q{ u9o( 8oI ( o (o 9o ( ( 9!tost1ow *8( 9 tos t1ow *8o 9rkp(8( 9tost1ow *8( 9u)9uoUt)8o+ow 9o  _:893:#oo (:8:89 tos't1ow *8tosAt1ow *8( 9ugu&9oo (:89*tooKt&st1ow *8K9oU om :89 tost1ow *88u9tos(t1ow *8u{9tos%t1ow *8tsrp(< rp(< rCp(< o9 oI ((< ( &8Etsrp(< rp(< rp(< o9 oI ((< ( &8{ ov o:{ ov o:8:{ ov o:89 { ov o9{ ov oo;8{ ov o9{ ov ooO8{ ov o9{ o } { {(o} 9:8 9Ro9+oI o  *wo9   o*8oI o9 rp( &8{ ov oo;8 t~s zo 9#{ o } { ox 8{ og9{ ohko:89S{ u9+to{ ( st1ow *8 ts( &8oI o oo? oDt o9o; of 9oI o { (2:89%to{ st1ow *8oI o oo:{Qo :89oI o { (29=oI o  nwo9 !!o9:8*8HoI o  vo9 """oa "o9:8*8{Qo 9coI o  vo9 ###oa #{Qo (H#o9:8*8=oI o  5wo9 $$$o9:8*8{Q{ u9o( 8oI ( o 9]oI o  vo9 %%%oa %o9:8 9*88o 9o ( &&( 97{ o } to{ st1ow *8&( 96{ o } to{ s t1ow *8o 9t~s z8&u'&u)('9Zo+*'oo++ (9J*::*oo,, ('oo-- (:8:89to's&t1ow *8oj 9 to's?t1ow *8o" 9z{ ov o9 to's?t1ow *8@{ ov o9to's&t1ow *8 t~s z8 t~s z8](9Pts(o (o o? oDt ( 9VoI o  vo9 //(o oa /(oe /(o (6/o*8o+.(o 9<.:,.oo00 ((ow :8:89O(ow 9to(s't1ow 8to({ s't1ow *8oj 9O(ow 9to(sAt1ow 8to({ sAt1ow *8o" 9{ ov o9~{ u9{ o } 8(ow 9to(sAt1ow 8to({ sAt1ow *8{ ov o9O(ow 9to(s't1ow 8to({ s't1ow *8{ ov o9{ o } { {(o} 9:8 (ow 9to(s't1ow 8to({ s't1ow *8 t~s z8 t~s z8&( 9&ug119&u :89&t o1819/to1oKt&{ st1ow *8&u&229%to2{ st1ow *88&u))9to)s(t1ow *8&( 9p&u{3&u)439to3s%t1ow *8-49 to4s't1ow *889ku5659oI o { (26869+oI o  o9 77o*88oI o  vo9 888oa 8o& 88oI o  vo9 999oa 9o& 8oI o  vo9 :::{ o :o&**0 ( PoI o  Po9  o**0 o* o**0 o* o**0 { **0 { **0( { oN rp(< { od(< **"(s *0 o*T ^o**0 o*^o**0 ( PoI o  Po9  o**0 & oI o  o9  o**"(s *0B  { o9:8 { o9:8 **Z} } } *0-  { to{ ox oo{ 9:8 { ox oY 9{ ox (B8{ ox { o(tooI o { o((ooI o { { o( o{ 9{ o(8{ o(**0  { o} 9:8 { o9:8 tws)t1ow { ov o98i{ ov o95{ o } { o} 9:8 8ts( 9:8 **0 **0 oI o { **"( *"( *0!$  o too o o o{ 9:8 o  :82oI o { (oI o { (8 :H :? :6 :-  :#  :  :  :8o (8: :8oI o { (8t~s z8**0: o oy 9 oI o o ox o:8**0z o oz ( oI oH (  :8(A f]*8):8( fF*8 :8(B f\*8 :8(a f*8 :8(b f*8:8(C f_*8 :8(d f`*8f :8(e fa*8E:: :8t~s z8t~s z8rkp(**0 m**"( *"( *0:  too o o  :8:o o{ 9:8 oI o {. (8q  : :8*o o{ 9:8 (8. : :8*o o{ 9:8 (8 :8:o o{ 9:8 oI o { (8  :87(o o{ 9:8 o (8_  :8?!(o o{ 9:8 o (8t~s z8**0  o oz ( oI oH (  :8(A e]*8G:8(B e\*8' :8(a ڌ*8 :8!(b ڌ*8:88:88 :88 :8(e s (X A*8v:8(f (X A*8Q:8(9 e*80 :8(c e^*8rkp(8rkp(**0  **"( *"( *0  o too o o o{ 9:8 o  :88  : :88 :" :  :  :88j :" :  :  :88: :8oI o { (8t~s z8**0 o oz ( **0  **"(*0 { o**"} *0 { ***0 o*~ o**0 { oy **0b  { o} 9:8 9*8{ ov o9r{ ov o95{ o } { o} 9:8 8#tsrp( 9:8 8o  9KoI o  w o (p oS o ox oe o& 8oI { ox ( :+oI o { { ox (2:89oI o o o} oI { ox ( 9UoI o oto{ sv o} 9:8 tw} 8tws)t1ow 8s oI o { ox ( tow  {  oF tstow  {  sy  o9:8 o9:8 oo# } t1ow **0 $ o oI o ox ( (**0  oI o o o**0 o o (**0 { **:(7 } *0 { **0 9*8oY **0 ok **0 of **0 # 9*8 oZ **0! 9*8 o **0  9*8u 9:89] <o  o 8% oe ( 9  8X:8 <o **0 9*8o; **fo) o* o( o+ **"( *0u  o o o 9{ :893o o o o 9 o 88 { o" **0 o o oto 8o ( t9 o o rHp(> 9} 8c8^o o rp(> 9} 848/o o rp(> 9} 88o :Uu9 uo *A0( 9{ rCpo } 8E{ rpo } { rcpo } { rpo } { rpo } *0!_( } )( } *([ *0 { rMpo } { o" } { rkpo } { o" } { rpo } { o" } { rpo } { rpo } { rpo } { rpo } { rpo } { r)po } { o" } { o! } { rEpo } { r_po } { r{po } { o! } { o" } {   { o$ } { rpo } { rpo } { rpo } { rpo } { o" } { rpo } { rpo } { r?po } { r_po } { rpo } { rpo } { rpo } { r!p  o% } { r9p  o% } { rKpo } { rp  o% } { rpo } { rp o% } { rpo } { r po } { o" } { r%p { o% } { rIpo } { rapo } { rpo } { rpo } { rp { { o% } { rp { o% } { rp { { o% } { rpo } { rp   o% } { rpo } { rOpo } { rpo } { rpo } { r9po } { rpo } { rpo } { r;po } { rpo } { rpo } { rEpo } { rpo } { rpo } { rEpo } { rpo } {    {  o$ } { rpo } {    o$ } { r5po } { rYpo } { rpo } {    o$ } { rpo } { rpo } {    {  o$ } {  { o$ } {  { o$ } {  { o$ } {  { o$ } {  { o$ } {  { { { { { o$ } { r{po& }! { rpo& }" { rpo& }# { rpo }$ {$  { { { { { o$ }% {$  { { { { { o$ }& { r~p { { o% }' { r~p { { o% }( { rp { { o% }) { rp { { o% }* { r+p { { o% }+ { r9p { { o% }, { rKp { { o% }- { r_p { o% }. { rmpo }/ {/  { o$ }0 { rpo }1 {1 rp { o% }2 {1 rp   {  o% }3 {1 rp !!{ !o% }4 {1 rp ""{ "o% }5 {1 r#p ##{ #o% }6 {1 r3p $${ $o% }7 {1 rCp %%{ %o% }8 {1 rUp &&{ &o% }9 {1 rep ''{ 'o% }: {1 rwp (({ (o% }; {1 rp )){ )o% }< { rp **{ *{ *o% }= { rpo }> {> rp ++o% }? { rpo }@ {@ rpo& }A { r+po }B {B r]p ,,{ ,o% }C {B rip --{ -o% }D { rsp ..{ .o% }E { rpo }F {F rp //{ /o% }G {F rp 00{ 0{ 0o% }H { rpo }I { r!po }J { rUpo }K {K rp 11{J 1o% }L { rp 22{ 2{ 2o% }M { rp 33{ 3{ 3o% }N *00rpo/ }O rpo/ }P rkpo/ }Q rpo/ }R r9po/ }S rupo/ }T rpo/ }U r;po/ }V rypo/ }W rpo/ }\ rpo/ }^ rcpo/ }d rpo/ }e rCpo/ }f rpo/ }g rFpo/ }h rpo/ }i rpo/ }j rpo/ }k rpo/ }n rpo/ }o r po/ }p rypo/ }q *0 {W rp  { o% }X {W rp  { o% }Y {W rp  { o% }Z {W r#p  {  o% }[ {\ r9p { { {V { o% }] {^ rp { o% }_ {^ rp { o% }` {^ rp { o% }a {^ r#p { o% }b {^ r9p   {  {  {V  {  o% }c {k rOpo& }l {k    o$ }m {o    o$ }r {p r[p   {  {  {  {  {  {  {  o% }s {p rkp   {  {  {  {  {  {  o% }t {p r{p { { { o% }u {p rp { { { o% }v {p rp { { { { { { { { o% }w {Q rp o% }x {Q rp { o% }y {Q rp o% }z {Q rp { o% }{ {Q rp { { o% }| {P rp { o% }} {P r9p { o% }~ {P rGp { o% } {P rp { o% } {P r#p { o% } {P rUp { o% } {P rep { o% } {P rwp { o% } {P rp { o% } {P rp { o% } {P rp   {  o% } {P rp !!{ !o% } {P rp ""{ "o% } {P rp ##{ #o% } {P rp $${ $o% } {P r9p %%{ %o% } {P rGp &&{ &o% } {P rp ''{ 'o% } {P r#p (({ (o% } {P rUp )){ )o% } {P rep **{ *o% } {P rwp ++{ +o% } {P rp ,,{ ,o% } {P rp --{ -o% } {P rp ..{ .o% } {P rp //{ /o% } {P rp 00{ 0o% } {P rp 11{ 1o% } {P rp 22{ 2o% } {P rp 33{ 3o% } {P rp 44{ 4o% } {P rp 55{ 5o% } {P rp 66{ 6o% } {P rp 77{ 7o% } {P rp 88{ 8o% } {P rp 99{ 9o% } {P rp ::{ :o% } {P rp ;;{ ;o% } {P rp <<{ >{ >o% } {P rp ??{ ?o% } {P r p @@{ @{ @o% } {P r!p AA{ Ao% } {R rGp BB{ B{ B{O Bo% } {R r]p CC{ C{ C{O Co% } {T rsp DD{ D{ D{ D{ Do% } {f rp EE{ Eo% } {g rp FF{ F{ F{ F{ F{ F{ Fo% } {g rp GG{ G{ G{ Go% } {g rp HH{ H{ H{ Ho% } {g rp II{ I{ I{ Io% } {g r=p JJ{ J{ J{ Jo% } {h r[p KK{ K{ Ko% } {e rop LL{ L{ L{ Lo% } {e rp MM{ M{ M{ Mo% } {e rp NN{ N{ N{ No% } {e r-p OO{ O{ O{ Oo% } {e rwp PP{ P{ P{ Po% } {e rp QQ{ Q{ Q{ Qo% } {e rp RR{ R{ R{ Ro% } {e rp SS{ S{ So% } {e r5p TT{ T{ To% } {e rIp UU{ U{ Uo% } {e r]p VV{ V{ Vo% } {e rwp WW{ W{ Wo% } {e rp XX{ X{ Xo% } {e rp YY{ Y{ Yo% } {e rp ZZ{ Z{ Zo% } {e rp [[{ [{ [o% } {e rp \\{ \o% } {e r!p ]]{ ]o% } {e r5p ^^{ ^{ ^o% } {e rGp __{ _o% } {e r]p ``{ `{ `o% } {e rp aa{ a{ ao% } {e rp bb{ b{ bo% } {e r]p cc{ c{ c{O co% } {e rGp dd{ d{ d{O do% } {e rp ee{ e{ e{ eo% } {e rp ff{ f{ f{ fo% } {e rp gg{ g{ g{ go% } {e r-p hh{ h{ h{ ho% } {e rap ii{ i{ i{ io% } {e rp jj{ j{ j{ jo% } *0y(7 (P } } { 9oK :89oK o3:89oK o+} 8*(7 (P } } } *0 | (9| (:89#| (s ~ ( :89{ :89{ o9 *8{ **"} *0 o9  oI (**0 u o+t~ u9*89Su9!o(rp(< o>(< *8o(rp(< o>(< *8o>**0 o+**0* o+t~ 9o+t~ 8**0J oB 9*83oB u9oB t*8 oB o+**0W oB 9*88oB u9oB ( (+*8 oB o+**0q oB 9*8ZoB u9oB t~*83oB u9oB t~*8 oB o+**0 oD **"} *0 h { u 9 o:89o:89ots} 8{ **"} *0 oB to**0M u9 t*8.u9t{*8 { oG **0 oI o **0 ~ 9 ~ *8{ u9{ t 81u9t 8{ oI  ~ **0j rkp  :UrypoH oe (< rp(< o9  oI ((< rp(< (< oB  8**0 oI o **0V oI o rpoH oJ (< rp(< owoI o  o9  o**0V oI o rpoH oJ (< rp(< owoI o  o9  o**0V oI o rpoH oJ (< rKp(< owoI o  o9  o**0 { **00 ~ ր ~ ~ 9 (8~ **:(e }d *0 X to 8o ( t~ tso&o :u9 uo *A@@0 {d oI **0 {d **0 t( **0 t(**0 t( **0 h(7 so } sp } :( o :89 } 8 ( } } *J(X } *z{ o:of { og *0 { oh 9*8{ oi 9*8 { oh   8,{ oi 9{ oj *8 X :{ { ok oj **0+ ~ 9sl tu 8~ **0 { **"} *0] { 9oI o :89$oI o om  om } 8{ **0 { t( **0 { **0 { **0 { **z} } } } *0 5 { 9oI o o *8 { o **0 5 { 9oI o o *8 { o **0 5 { 9oI o o *8 { o **0 og **0 { **0B uu 9+9*8{ om (n *8**0 { 9+oI o o { oq sr tv 8om s tv oI o o ss  A<u oI o  yom o& *Att<0 ok  o rprprpot 9 o o sV s ( 9*8ڄ o 9o o (:89o o 8rpo **A7> 0  { **0@ { ( o 9 { *8{ { ( ( **0   ~ tsu    "$         ^ _  b  f  ut       m  +,-./0245 7 8 9 : ;<=  + , - . / 0 2 4 5  7  8  9  :  ; < = C  >   m      f        $t "u   &'}  \ c  @  E o ? 1  E '}   \ c      E ' }       \    c  @     E ' }       \    c  @    &  ? 1   (  (  ov   to 8o ( t)ow 9 88t (x 9vt (< t ov yq~  oN~  oS oQ9~  oNov oy 88o :@u9 uo *A0 X ~ 9?~ ( o? o; t ( (< t8~ **0 - oH o? o; t ( (< t**0* ~ oz 9~ o{ (a *8**"(*0+ o+ 9 o+*8 **0 ou9ot*8ouw9otwou *8Zou9oto]*8.ou9oto *8**0 { **"} *0 ( oI o  o9  o&**0 **0 { o**0+9  oy 9ox oI o { (29oz ('8[o9oo :89oz (%8toox ooz ('8Yov u49)ov oo9:8 8o| 9:8 9u oI o  o9  rp o&**A90 & oI o  o9  o**0 -  o o 9:8 o **0  ooI (o} **{ 9t~s z8} *0  { **0  { **"} *{ 9t~s z8} } *0  o} **0 ( oI o  o9  o&**0 & oI o  o9  o**07  u( 9 8oi9:8 **0 uF9*8u9*8ox o" 9}uE9tE o 8Tox o oI o { (29toox stw 8tostw 8 **0- ox o 9tostw 8 **0 { o :8#ov o to stw 8Y:8t~s z8: :8t~s z8:8t~s z8:8!toov osqtw*8:8t~s z8:8t~s z8:8t~s z8o :8t~s z8O:8t~s z80:8t~s z8t~s z8**0  tot(sutw **0;l  { o :8*8E :8!toov ostw 8:8!toov ostw 8:8!toov ostw 8:8!toov ostw 8:8!toov ostw 8Y:8tsrps z85:8t~s z8 :8t~s z8:8uj9gtos  { oo{ko o  oI (o} 9ts( &*8 o *8{ oo{ko *8L:8t~s z8-oI o  o9 o&*8**0" r!poH oa (< rWp(< **01(7 } ~ o 9~ o 8*0!(  s  *0 o  9*8o 9*8oe ( 9*8o# (29*8o o 9*8o (29*8**0\  o~ 9*8o oW rHp( 9*8o oe r{p( 9*8rpoo { oo { ( 9`u9*8(a 9  :8 9( YQ88rpoo { oo { ( 9 (a ( YQ8rpoo { oo { ( 9/uY 9(g ( Q88orpoo { oo { ( 9/uY 9(g (h Q88rpoo { oo { ( 9Wu9(: rkp(> :8 9(: ( Q88rpoo { oo { ( 9Wu9(: rkp(> :8 9(: ( Q88***0%9 s o!o to 8Mo ( t:oo :89oo 8o :u9 uo 9u 9qtoku9#o[t|( toi 8&9o toi 888o t**Aq0 ! ( **0 4" ( o oJ rCp(> 9*8**0c#  Pov o9 8EPov o9)Po QPo} 9:8 8 P( & **0 `$ o oe rp(> :rp(> :8:rp(> :8 **0% u9*8u 9*8u 9*8u 9*8u9*8u9*8o 9o (  8bo&  :o& :89t (  8$oI o  o9  o&**0& 9*8o 9*8to 8-o ( t  ( 9  /8o :u9 uo **A%Ot0 *' 9*8oH oW rpo **0( 9*8o 9*8to 8,o ( t  ( 9  /8o :u9 uo **A%Ns0*4) sZ ok 9o] to 8(o ( t |o to o :u9 uo sZ to 81o ( t  o 9 o 8o :u9 uo 8.o 9o |o to 8o t**A4ULd0* oI  uT 9_o  t ou'9o (  8"T( rp4o ov t 8 o (  **0+ oI  um 9no  t ou#9o (  81m( rӨp4o ov tTt'(  8 o (  **0j, oY 9rkps z8u?92oI o  o9  o&  *8o **0- u' 9 o *8du# 9 o *8Eu) 9 o *8&oI o  o9 o&*0k. s to 8 o ( t o>o o : u9 uo o t**A@F0'/ t ( 9oq( *8**0 0 (A **0 1 o ( **02 9 ( *8( **0 3 (A **0&4 u 9 (I *8( **0I5 u:u:8:u :8**0,6 u:u):8**0,7 (  9o { (2*8**0%8 oI  o oe rp(> 9 ok *8o o u?9*8vu9*8^o 9*8Lu 9o ook *8$oI o  o9  o&*0#9 u09 o *85u9*8u9 o *8o o { 9*8o o { 9 o *8co o { 9*8Do oW r p(> 9*8u9*8o **0E: u{9*8u) 9o o :8**0; u&**0I< u:u7:8:ul:8**0f= u:u:8:u:8:u':8**0> sZ o  to 8E o ( t  o oo9to 8 o : u9 uo **Alr0? sZ to 8E o ( t  o oo9to 8 o : u9 uo **Agm0@ sZ 6o to **0A sZ  o  8jo ( :( :89oG o oK:89 8 8o X  :**0 ^B o& :8t# o *84:8t& (L*8:8t)o *8 :8t o *8:8-t'o :o :8*8:8t7(K*8d :8Et o :*o 9 o :8:8*8rkps z8*0.C o& :8*t# o :o :8*8:80t& (L::8*8r:8-t)o :o :8*87 :8-t o :o :8*8:8-t'o :o :8*8:82t7(K  : :8*8| :8]t   o :B o 9$ o : o :8:8:8*8rkps z8*0.D o& :8*t# o :o :8*8:80t& (L::8*8r:8-t)o :o :8*87 :8-t o :o :8*8:8-t'o :o :8*8:82t7(K  : :8*8| :8]t   o :B o 9$ o : o :8:8:8*8rkps z8*0NE o& :8t# o *8$:8t& (L*8:8t)o *8 :8t o *8:8t'o *8:8t7(K  *8d :8Et   o :* o 9  o :8:8*8rkps z8*0FF o& :8t# o *8:8t& (L*8:8t)o *8 :8t o *8:8t'o *8:8t7(K*8d :8Et o :*o 9 o :8:8*8rkps z8*0G o& :8t#o *8:8t& (L*8:8t)o *8 :8t o *8:8t'o *8q:8t7 (K*8L :8-t o 9 o :8*8rkps z8*0 H o& :8t#o *8:8t& (L*8:8t)o *8:8t'o *8:8t7 (K*8q : :8Et o :*o 9 o :8:8*8rkps z8*0!I sZ 9 o 8 o 8 o u'9mo o 9T9>ooI o oo oOot o 8o 88o X :Z**0rJ sZ to 8/ o ( t  oe ( 9 o 8 o : u9 uo **AQW0rK s to 8/ o ( t7 oe ( 9 o 8 o : u9 uo **AQW0rL sZ to 8/ o ( t  oe ( 9 o 8 o : u9 uo **AQW0M s rkp to 8o ( t u9 to> 8H u 9 t oe 8&oI o  o9 o&( 9  o &8o :]u9 uo **A 0}N s\ rkp to 80o ( t   oe ( 9  o_ 8o :u9 uo **A T`0nO to 84o ( t  oe ( 9t o 8o :u9 uo *AVV0sP o  to 84o ( t  oe ( 9t o 8o :u9 uo *A[[0rQ s3 to 8/ o ( t  oe ( 9 o_ 8 o : u9 uo **AQW0R o 9 o2*8**0rS s\ o  to 8* o ( t  ( 9 o_ 8 o : u9 uo **AQW0T  o  8h( :o :89:om 9o :89 *88 X :**0U o o1 **0V o o **0W o o **0eX os o oe rp(> 9(oo 6o o  op  ( 8op 6o o  **0 Y >o **0 JZ o ֍    o 8  o X :**0[ u9t( *8ho {d u9*8Fo {d 9*8,oj 9o {d o :8 **0 1\ o[9o[o*8 o^( **0r] s to 8/ o ( t oh( 9 o 8 o : u9 uo **AQW0^  oo {  oi oo# o ootzs ((<  o 8B(9(oor9:8  (  X:(9**0_)_  ox  oi o 9 o" :8o oooo{ 9:8 9uo oo{ 9:8 o" 9  (B8( 9:8 oo { (8<s\ ooo { o   o  8h oor9:8  oouox oo { (oo { o_   X   :o o  o_ 99 ( oov  o9:8  (8-oov  o9:8  ( **0?`  ox  oi o 9 o" :8o o{ 9:8 9Uoo { o(+to9:8 o((8ooo { oo֍    o  8_ oor9:8 oooo { ( oo {   X   :9 (  (8( **0a   9ox oY :8 99 ox 88o o" 9$oo otoo8oouE9 :89>oooox oo{ 9:8 8uF  9 oox o" :89 o oo { (2:898 oo{ 9:8  oox (B8o{ 9:8 9%ox rkp(  (< (.889ots(R   o   8C  o o 9 8 8o o ou9 88ov 9 88ov o9 889s sv 8  o oi rkp(o ov ooo 9 ow 8 ow   os9:8 (<tosYtwov  X   : o9:8 89ox (8Y9.uf:ue:8:89 (8(9o 8jo o 9 8>8otosYtwoo{ 9:8 X:8 9 (8o9oo :894ooi rkp((<(.(8**0b rpo **0c o { (-**0EKd oI  u 9sZ s t 4( ( t4 9*8o oo o9to 8Bo ( t o& 9t7o 8 rkps zo :u9 uo 8Q*8BsZ s  o  t oooto to  8 o ( t   u  u7  9$ oM9  t7o 888 9+oI o  o9 o&8 o :d u9  uo  o 9+ ok9 ok( *8*8 Q**A4<wg0?e u 9!t 4( ( t4 8 oo  **0f  o& ::8t$o *8:8t7(I _*8:8*8 :8*8i :8*8P:8t&op o *8)oI o  o9  o&8*0g  o& ::8t$om *8:8t7 (I_*8:8t)ow *8c :8*8M :8*84:8t&op om *8rkps z8*0 [h  9*8o ֍    o 8  o X :**0i ~j 9*8o ֍    o 8S o 9 o ou:89  o ouox 8 X :**0 Ij o ֍   o 8  (  X :**0~k :o :89*8o    84o ( o o 9 o 8X :*0l u' 9Jo o o 9)oI o o oOot  8 8( oI o  o9 o&**0HAm  9*8oY 9S o  8+oe oe ( 9 88X  :8o 9s\ o   o   8 o  89oe  oe ( 9 o_ 88 X   :o 9o_ 8 X :hoI o o` tot  8o 9+oI o  o9 o&8oX 9oh 9-oi ( o sTt  8Xo 9'oi ( sqt  8&oI o  o9 o&8 **0An o (  o 9 8oI o ot2 **0 Jo o ֍2  o  8( X  :**0 [p (  o   8+o o# (29 o 8X  :**0%q  rpts ( **0%r  rpts ( **0's s o ooo o :o to 8o ( t o& 9]t'o 9oe ( :89 om :89 o 88o :su9 uo o 9 8 88**A20 Jt s #(q oN o  m:8r1 po 8( **0u s $(q oN o  $:8rM po 8c t:8ri po 8D :8r po 8" :8r po 8( **0 uv 9rkps z8Z~ (> 9*8?.o 9o *89r ps z8~ **0w o 9?o o 9$o o {9*888( 9*8( 9*8( 9*8( 9*8**0*x o o 9S:?o 9o :89*8o 8*8(29*8o 9*8o 9o (2*8s\ o :o_ o 8o :1 o 9*8 o 9*8 o 8**0)y oI   oG oK :bo 9*8 9o :89 o :89*8o 8 9o :89*8_::8::8 9*89:89 *8*9 *89*8 9*8oI o  o9   o&**0(=z (29*8( 9*8( 9*8_  ::8 ::89*89 o *8 9:89,o o :oK :8*8. 9o o *89 oK *8oI o  o9 o&**03{ o :(29*8o 8**0 | ( **0)} 9*8r p (2 ( **0:~ ֍   8 X  :**0 (  o **03 oI    o 8 o o& :8;t'  o (   (19 t  888:8Ft7 ts t (N(   (19 t  8f88J:8+oI o  o9   o&8rkps z8 X :**0 _   o  86o o ( (19  88X  :**0<  9 of 8!9 og 8 rkps z**0 oI  o 9&oa 9 oe 8oa 8rkp o t'( o o  oa rp(< o (< *0b  9 oa 8rkp o t#(  o o oa rp(< o (< *0 to 8Bo ( t  (2:oK :89  /8o :u9 uo **Add0 ***0j  to 8+ o ( t~ o*9:8 o : u9 uo **AMO0j  to 8+ o ( t o09:8 o : u9 uo **AMO0  9{( 8to 8, o ( ts oL 9:8 o : u9 uo **A!No0j  to 8+ o ( to o9:8 o : u9 uo **AMO0{  to 8< o ( to 9o9:8 8 o : u9 uo **A^`0k  to 8, o ( t o 9:8 o : u9 uo **ANP0k  to 8, o ( t~ o+9:8 o : u9 uo **ANP0m   o  8Do t~ooooo+9:8 X  :**0 Y o ֍w  o 8$9o 8X  :**0 { **0' ~ o 9~ o *8**0 ;91( (9(o ow88*f9rkp(8*0/9rkp(8u98*0 | 9rkp(8cto 8*o ( t 9rkp(8o :u9 uo *ALd0 L to 8o ( t o :u9 uo *A4409 9r p 8o   o**0 C 9r p 8oI o  o9  o**02 rQ p(< rp(< ( ( (98*0 ( o r po **0l ( 9*8( 9*8( o r po 9*8( o r po 9*8**.r p( *( *0'9 (:89 (8*r(9 (8s z*07 s s   o 8Eo \9o :89o ":89"o &8o "9No 9o ":89"o &8 8}9o  :89Go o rkp(> 9o o &8o  8o o &X:o 9o o &8o ֍   o   8  o t  X   :**0 9# (9*8*8 (9*8r (9# @(9*8*8: @(9*8 (9*8**0 o   8~o 1:8 #@l(K (L 8>0:88)r pr po ( (< s z8X  :v*0 (t{( **0 r p( **0 ( **07 o  8o 0:8 81:8 82:8 83:8 84:8 8o5:8 8X6:8 8A7:8 8*8:8 89:8 8a:A:8 8b:B:8 8c:C:8 8d:D:8 8oe:E:8 8Lf:F:8 8)r pr po ( (< s z8l#0@ l(K Z(L X :*0 ( **0 s ~ ( 9 rp*8rkp s ~ ( :I!_!9r p(< 8 rp(< ?_c 8*0 ( **06 o  8o 0:8 81:8 82:8 83:8 84:8 8n5:8 8W6:8 8@7:8 8)r pr po ( (< s z8l# @ l(K Z(L X :*0 ~ ր ~ **0 u9/rtpoN rtprM po (< rtp(< *8uY9/rtpoN rtprM po (< rS p(< *8Su9 rKpoN (< rKp(< *8"9no? *8oN **00 9*8u 9*8o^**0 u  9*8o**0 u 9*8o**0 u 9*8oQ**0 S  o   82o u9oQo 8X :*0 u  9*8o**0 S  o   82o u 9oo 8X :*0? 9*8 o   8( X :*0 9*8o ֍    o 8; ( 9:89   8  X :**0 oI  9*8o { (29*8oh 9oh :89oa :89oa :89oe oe o :89*8o { (29*8u?9u :89oe oe (> *8o o { 9!( (29*8**8^u9u:89 o :89*8 ( 9o oo] to 8\o ( t   ()9  ݴ8 (29  ݜ8 (-9  ݄8o :u9 uo ( 9 o :89 o :89o o (29o o o o 9U   o   8&  ()9*8  X   :*888*8q( 9o (/o:89*89oa 9oa :89oa oa o :89*8o { (29o { (2:89*8o { (29*8(-9*8r(-9*8_oh 9 oh :89;oi  oi  o" o" a9*8  ()*8**AJ0 9*8o 9*8ts o 9o t*8  o  8Y o  o (+9 o  8+ o  o (+9 o  8 X :98uo t**0! 9*8o o**0 o" 9*8o { (29*8o 9*8oY 9*8o 9*8o o { (2**06 o 9(29*8o 8**0 oI o oo] to 8+ o ( t  ()9  G8 o : u9 uo *o] t;( **AMd0U o o u9to[to*8rY poi sv tw oI (o} 9F:8R88Ho 9'oI o tsox oi o:89'oi (0 F9*8 8ox oI o { (298oI o { (29ox o :89stw 8tox (29`ox o 9tostw 8(N oI (o} 9F:8R 8**0 9 :89*8ta9*8_o o 9*8 o   8(29*8 X :**0U 9 :89*8a9*8u u 9 :89t o*8Z9 :899*8o *89   8o[94o[o9o[oo *8*8u9tor*8oh oh 9*8}o 9 o :89oqoi (2*8Du91toY 9o :89o :89oX :89*8o o (29*8oo (29*8oo o o 9*8  o   8%(29*8 X :*8**0# rkp rkp to 8o ( t2 o o 9!ri p o oi oJ (< 8 o oJ  o1 9rw p(< 8 (49r p(< 8(< (< rCp o :Pu9 uo ryp(< r}p(< **A 06 u 9 o; 8o { o **0 rkp rkp to 8,o ( t   oJ (< (< rCp o :u9 uo r p(< r p(< **A P\0  :8 r p*8:8 r p*8o:8 r p*8V:8 r p*8=:8 r p*8$:8 r p*8 r p*8*0  :8 r p*8:8 r p*8o:8 r p*8V:8 r p*8=:8 r p*8$:8 r p*8 r p*8*0  :8 r p*8:8 r p*8:8 r p*8h::8 r p*8F::8 r p*8$:8 r p*8 r p*8*0!/ oI  o& :8:t#t$r! pts(R(3(< r}p(< 8 :8At$oe ryp(< ts(R(3(< r}p(< 8 :8Ft7oe ryp(< tst (N(3(< r}p(< 81oI o  o9 o&rkp 8**v~ 9o ow8*0+9:89o ow8*06F o oI o { (29 ( :89o ~ :89!oI o {A stw 8o oI o { (29oI o {i o :89io9  oI (oh 9"oI o { s  8oI o { s  tw 8o o s tw **0 K o ֍w  o  8o ouX  :**0 *0D o o o o 9*8o o 9*8*0T oI   (19*8 o 8o  :o  :89 88  (2o   o  o ou(A9o  o:89 ( :8  o { (2  9 o { (2:8  9  :89 o { (2:8  9  :89  :89 o { (2:8 o { (29 o { (2:89 :89 o { (2:89 :89 :89 o { (2:8:  :8:  :8:  9:8:8:3 :  :89:8:8:F :  :8:  :89:8:8:Y :  :8:  :8: :89:8:89:8 X :A**0 9*8uc 9*8o 9*8o o oH o9*8o (9 #9*8**0 & oI o  o9  o&*0A 9o~ o ( *8o~ o ot ( **0A 9(Ko ( *8(Ko ot ( **0 _  :8 r p*8x:8 r p*8_::8 r p*8=:8 r p*8$:8 r p*8 r p*8*0 X o& :8t'o~ *80:8t7(I*8rkps z8*0l (29*8oG oK9/( 9*8(-9 *8*8(-9 *8**0. o& :8t# o~ (7*8:8t& (L(7*8:8t)o (6*8:8t'o~ (7*8 :8t o[ (8*8]:8t7(K(7*84 :8t o[ (8*8 s z8*0 m o o 9 o~ 89 o~ 8 ` _9f_` 8**0u oU o o 9 o~ 89 o~ 89o~ 8 `` **0 (I _ **0 (J _ **0e o& ::8t$(C*82:8t7(D*8rkps z8*0 x o& :8t'(Q*8O:8t7o *8/:8t#o *8rkps z8*0 P o ֍    o 8  o (N X :**0E oI  t ( 9$o t o t#o *8o **0.  oI  u9 o *8oH oe r3 p(> 9o o *8nri p(> :r p(> :893o { s5t2o o (+t *8o *{o oK9+oI o  o9  o&*8o **0X u'9t'(Q*83u#9t#(P*8rkp(s z*0eT s s o 9*8o 9 8o 98to 8ro ( t  o& :88C:8 oe o 8#:8 oe o 8:8C t'o 9t (Uto 8 oe o 8 :8 oe o 8:8L t7(I _9t (Uto 8 oe o 81 :8 oe o 8rkps z8o :u9 uo   o   8o o  o  X : o  8  o o  o  X   :to 8o ( t oe o  o 9 8_8o& :8 8=80::8( 9 8 8(Uto 87o ( to  o 9 08o :u9 uo 9 8s88a:(: : :8( 9 8"88rkps z8o o :`u9 uo *AL1\:N0 o& :8*8:%: : :8*8\:8t7 (I _*81:8t' o *8rkps z8*0$ s rkpts(N (  rkp   o 8 o 9  oi 8o1 9,oe ryp(< (< r}p(< o 8 oW (< rp(< oe (< (< rCpX:Yoe ryp(< (< r}p(< o o t**0 _b`**0+ o :8=oo" o  w oe oW o*8:8loo39!o  zuo*82r p(< r p(< o2o? (< ( &87r p(< r p(< o2o? (< ( &8**"(9 *(7 *0~ (z  s  o  r p(z ( ( (< ( r p(z ( ( (< (  u'oU rp(< oV (< ( r p(z   (   ( (< ( r p(z   (   ( (< (  ݌݄u  oU rp(<  oV (< ( r p(z ( ( (< ( r p(z ( ( (< (  **A4kq'kf(atos} *(atos} } *0- o(h} } } *0. { 9oI (og&8{ **0 { **0 { **0 o+o**0 { t **0 **0 { **0 { **0M  (q9:8 o { to( 9:8 **0(8 { 9*8 o+ { 95{ o} 9:8 { oz ( 8Q{ 9( 82o{ o o^(f ~o (D A( o':8 ( F( 8'}:8 (A ]( 8 :8 (B \( 8 :8 (C _( 8\:8 (a ( 8 :8 (d `( 8`c:8 (b ( 8: :8 (e a( 8t~s z8 } { 9:8 } **0U  (r9:8 { 9${ o} 9:8 8**0*"  o+ ( 9`{ ( o9!ot { (  ( 8o98 } 8o9:oopot Vo } { { o 8?o9"oop{ o } 8 t~s zoI o { t obo**0 { **"(*004 tos oF9oFtoo 8 o9otoo- 8 oE9oEtoo 8o9otoo8,o9toos8rpoJ(< to o9 oBoso9 ot(1*0 0 o, o9  8o,S(#**"(*06a tos: oF9oFtoo 8 oE9oEtoo  8 tos r#poJ(< too9 oBos o>r-p9o  :896o  9ts( &*8o! o8o9oEos8oEosoEo &(1*0 0 o, o9  8o,(#**0B(7 } s } s } } s } } *0 { **z{ 9 ot8*0 ^ { to 8o ( t o o :u9 uo ( *A@@0 _ { to 8 o ( t o o o :u9 uo *AGG0 _ { to 8 o ( t o o o :u9 uo *AGGNrp(< os*Jrp(< ot*0 { **0~ ~ 9r9p( s  8~  (2 o ( 9+rQp (2 (< ( (2 *8oN **0 { **0 { **0 { **0  { to 83 o ( t( o&oD 9 8 o : u9 uo { o **AZ\0 o ֍+  o ֍ ++q++o 89++q++ښX:o&*0  oysC o**0 oy9oyo :89oyo o3:89oyo o+o*8  o**0  oysB o**0  oysC o**0~ oy9oyo :89oyo o3:89oyo o+o*8 o**0  oD  9{ o &8Y{ o &oyo oI owoD  { { ֞{ 29 s= z8**0 ts(7 s }# s }% s8}. s=}0 s }1 s }2 s }4 o o ts }' oo*0 ts(7 s }# s }% s8}. s=}0 s }1 s }2 s }4 s }' rprkptssY  {' o o o o oo*0 {2 o 9{2 o 8%oI o { o {2 o 9*8to 8P o ( t u9 8'8o o9  /8 o : u9 uo **AXr0  oI ( (o[  9 oD :89o<o.*8{. oD 9{. o<o.*8**0M  {1 o   8"{1 o 9*8 X :**0  {/ **0 oI o o to 80o ( t o o s+ {. o;o :u9 uo o*AaaJ{. s9}/ *04-  {* ($9$oI orp( &o*8o{* o9+oI o  u o&o*8{* o o{*  ($9oI orp( &*8o{0 oP&o9E{/ s+o;o oI (o({/ oZ 8o*0  {* X(#9$oI orp( &o*8os= oP9 o*8{*  (#9 o8o(8 9{1 o 8 {1 o *0)5  >uo9*8s=  {* H($9$oI or4p( &o*8ooP9 o*8{*  (#9 o8o{1 {1 o o 9{1 {1 o o 8U{1 {1 o o 9 (8 :89{1 {1 o o 8*0{* G($9$oI orXp( &o*8o =uo9*8{1 {1 o o 9{1 {1 o o 8>{1 {1 o o 9{1 {1 o o 8o*0t{* X($9$oI orp( &o*8o =uo9*8{1 {1 o o o*0E {1 o 9*8oI o o o&o**0{* rxpo9$oI orp( &o*8o{* o 9tsrp( &o*8oo*0 I{* rxpo9$oI orp( &o*8oo*0A{* rpo9$oI orp( &o*8o{*  ($9$oI or,p( &o*8o{* o 9$oI orp( &o*8o{*  ($9$oI orFp( &o*8o{* o9$oI or`p( &o*8o{*  ($9$oI orp( &o*8oo*0 I{* rpo9$oI orp( &o*8oo*0 8{* o 9$oI orp( &o*8*0{* I($9$oI orp( &o*8o{* X(#9 o8Y{* rpo9 o89{* rxpo9 o8tsrp( &o**0A5 o{* o9{* }( {* *8{* o9o{* *8o9{*  (#:89o{* X(#9 o8{* G(#9 o8{* H(#9 o8{* (#9 o8{{* rpo9 o8[{* rxpo9 o8;{* I(#9 o8oI or p( &o8}o9){* o 9 o88N8I{* o!9 {) :89 88{* o!}) {* *{* o9{* o:898{* **01 {( (9 {( *8o}( {( **0 {& **0 { **0  { **0 o(**0e  : :8: ( :8: ) :8::8**0  ( **0j o:o:8:o:8:o:8:o:8**0  ( **0  &:*:8:+:8:-:8:/:8:\:8:^:8:<:8:=:8:>:8*: *0  (:):8:{:8:}:8:!:8:#:8:,:8:.:8:::8**0: ( :8*8:8*8*8*0  ( **0  ( :8*8q:8*8\:8*8G:8*82:8*8 :8*8*8*0o o 9o_:89*8 o(:$o(9*8 8**0#  :(  :8**0 o(**0: ':  :8:  :8**0 oo**00 {!  (: o 89 o8*0 o  :8-o&o 9 o&8o8d : ) : ( :8o&o8):8 o8rxps z8*0!  9  :8**0/! o ':  :  :8 o*8/:8`o&o /:8 o*81*:8 o&o *:82o/9o&o& 8o&8 /:8Fo*9o& 8"o/9 o8o&8V :8&oI o  _o&*8"o9 o8o&8988rps z88rps z8*0 /o9#o9 o8o&8*0 " o {% o  o o9'oI o  _o& 8W :8'oI o  _o& 8#:8o& 89{%  o &898Io{% o ( (**0# oo**0"$ o:o:8**0U% o&o o]9)oI o  Ruo o&8o&**0F&  {% o o {% o &o9 8-o9!o {% o &o 897oI o  uo( o&*8(oo9{% oo &8{% o o9.oo:oo:8:8o(]9#::8:89!o&}+ o (*8J9 (:89o(*8}+ o (**0<'  {% o o ":8;o( rtp(> 9{% rtpo &8 8 :) : ( : ) :8%oI o  _ o& 8I{" 9'oI o  _o& 8{% oo &898oC:oc:89vo&{% o 9<oI o  4uo&o{% o (*8o{% o (*8o{% o (**0o ( {4 ( {4 { 3{4 } s }3 8{4 { 3s z{4 } {4 ( {3 o o  .: 0 9_:8 8 &:8o  d: D:8 8d h: H:8 8B o: O:8 8 o  oI (s z8o&8Hrpo( (< r0p(< ooI ((< s z8o:89o9{3 o &o8.9[oo9E{3 o & oo9{3 o &o888E:e:89  {3 o &o+:-:89{3 o &o8o9{3 o &o8886:8099:8:.a9f:8:8:.A9F:8:89{3 o &o8U8w:8H097:89{3 o &o88 ooI (s z8rkpo( rJp(> :rNp(> :89o( (< 8(X90o&o 9 o&8(W89(V:89 :89;oI o  _o@o? o&8{3 o  :899 E8\8 (W@:8"o (t{( ( 8%E:8"o (t{( ( 8 :8"o (t{( ( 8\:Hc:= :/ :! : :8!9@oI o  _ o? o&! 8 (t{(  \:80 s sW ( 988c:80 s  sW ( 988 :80 s sW ( 988 :8 !988Z :88B :8 !988rkps z89 :895oI o  v o? o&8 (t{( o 8JoI o  _ o? o&o#( 8݂uoI o  Tuo&o#( AuoI o  _o&o#( 8:8Z ( ;uoI o  _o  rRp o& o 8:8T ( 5u!oI o  _""rjp"o& o 8 o##oI (s z8*A|  5  ;oAo; A HS0(R) 92s sW ( 9c 8\ 8(W  \:8oo(*8 :8oo(*8c:8oo(*8 :8oo(*8f :8oo(*8; :8oo(*8rkps z8*0 *  :8*8::8Rs sW ( 9(!!!ַ*8*8 rvpo? (< s z8*0Y+  :8*8?::8*8 rvpo? (< s z8*0 ,  :8*8y::8Bs sW ( 9  ֵ*8*8 rvpo? (< s z8*0Y-  :8*8?::8*8 rvpo? (< s z8*0 .  :8*8::8ls  sW ( 9B sW s  sW (G ~o (G (D ([ *8*8 rvpo? (< s z8*0W/  :8*8>::8*8 rvpo? (< s z8*00 { { { s**0 1 o**0 2 {! **0 3 {  9{ } 8{ } {! } {# o 9{# o }! 8U{$ o 9 }! 89{$ o 9}" }! 8{$ o ( }! {! **0 4 { **0X5 {# o 97{$ o 9*8{# {$ o ( o 8{# o **0`6 {# o :8{$ o 9 *8{# {$ o ( o 8{# o ړ**07 {$ o **v{ } } }& *08 o(**0 9  o ":8 o 8-':  :  :8 o8 :) : ( : ) :8oo( 8:8o( 8::8o& o 8i,:8o& o 8B.:8To09o9:89 o 8o& o 809_:8 o 8(:8o& o 8):8o& o 8j[:8 o 8O{:8o& o 8(}:8o& o 8>:8o&oo=9o& o 8`o>9Eo&oo=9o& o 8  o 8  o 8Y<:8o&oo>9o& o 8o=9o& o 8`o<9Eo&oo=9o& o 8  o 8  o 8=:8o& o 8c!:8o& o 8<&:8o h:7 H:- o:# O: d: D:8 o 8Eo&oo=9 o o&8  o 88*:8Eo&oo=9o& o 8  o 8;+:8Eo&oo=9o& o 8  o 8-:8Eo&oo=9o& o 8  o 8^:8Eo&oo=9o& o 8  o 8?\:8Eo&oo=9o& o 8  o 8#:82{& 9 o o&8o 8/:8zo/:o*:89 o8@o&oo=9o& o 8  o 8! :8jo&o_9Oo(9 8o(9o&oo888 :8 o&8o9 o&8qo9?o o9 yo:89o 88'oI o  Uuo&o8(98o 9{& }& 8}& **0{ { } } } }& }! } }" {# o {' o 9P{' o } oI o o { o } { ok }$ o&8} }$ *0 {( (9{( }* }( *8{* (9{* o:89 o8{ 9(}* *8}+ o}* {* {> }, {* {? }- *0 : {* **0 ; {+ **0 < o**0 = {- **0 > {, **v}5 }6 }7 }8 *0'}; }< }9 }: *"*0? {9  {9 9{:  {: :89{;  {; :89{<  {< :8**0 @ {9 **0 A {: **0B 9*8{< 9*8{<  9*8{< o o o 9*8o o {< o **0 C {< **01D {<  9{< :8**0 E (**0 F (**0,G {9 s ~ ( 9 rp*8(9w98rp(om ( ( ( ( ( *84rp(on ( ( (( ( *8)rp(( (( ( **0 H (**0 I (**0J {; {: **J {; }; *(7 *0(K 9 o:8*o**0L {> **0M o9 o*8rp**0N s }> }? **0O ~= s  }> **0P s }> **0Q s }> **0R s }> }? **0S s }> }? **0T s }> Y}? **0U s }> A}? **0V s }> ^}? **0W s }> }? **0X s }> \}? **0Y s }> }? **0Z s  }> }? **0[ s  }> _}? **0\ s  }> `}? **0] s  }> a}? **0^ s }> }? **0_ s }> }? **0 6` o9 o*8o9 o*8s z*0 a o:o:8**03b {>  :8%rtpo ( (< rS p(< *8:8(rKpo  (  (< rKp(< *8:8o  (  *8h :8 rp*8N:8 r,p*84:8 rDp*8:8 o*8:6:- :# : : :8o(  *8:8oo? *8::8ooN *8^:8 rtpo (< rtp(< *80:8oo? *8 r\p*8*0 2c o9 o*8o9 o*8**0 d {> **0 e {> **0f {? (a **0g {? (a **0 h o:o:8**0 i {> **0 j {? **0k {>  :l:c:Z:Q:H:? :5:,:# : : :8*8*8*0l {? (e **0 m {> **0Vn {>  :6:- :# : : :8*8*8*0 o {> **0p {? yYqY**0 q {> **0r {? t**0s {? yq**0t {? yAqA**0 u {> **0 =v o9~ o*8o9{? t*8**0Ow  t;(   8%qo9*8 X :**0&x o9o(:8**0"y o:o:8**0 :z o:o:8:o:8**0 S{ o:o:8:o:8:o:8**0l| o:o:8:o:8:o:8:o:8**0} o:o:8:o:8:o:8:o:8:o:8**0~ o:o:8:o:8:o:8:o:8:o:8:o:8**0 o:o:8:o:8:o:8:o:8:o:8:o:8:o:8**0B {> :{> :89{? (a *8**0! (r  9 T*8**0& o9o( :8**0+ u9to*8s z*0, o9 o:89oo*8o9 o:89ooo *8no9 o:89oo*88o9 o:89oo*8**0 {>  **0( {> :{>  :8**0C {> :{> :8:{>  :8**0 {> **0% o!: o:8**0 o**0 o**0 o**0> {? u9 {? yqo? *8rtp**f(tos,}@ *0 {E **"}E *0 {C **0 {@ 9 }@ 8{@ tgo }B {B o+o }C {C o ֍ }D  {D o   8{D {C o X :*0  o9:8 oo+to 8, o ( t o,9:8 o : u9 uo **AXs0  o9:8 oo+to 8, o ( t o-9:8 o : u9 uo **AXs0  oo+to 8 o ( t u9$to.9:8 8Yu9#to09:8 8%rpoH oJ (< rp(< s z o :T u9 uo **A0  o9:8 oo+to 8, o ( t o/9:8 o : u9 uo **AXs0  o9:8 oo 9:8 oo+to 8, o ( t o09:8 o : u9 uo **A;X0  o9:8 oo+to 8, o ( t o19:8 o : u9 uo **AXs0  {C to 8, o ( t o9:8 o : u9 uo {@ o 9:8 **ASU0 o  {C to 8+ o ( t (49:8 o : u9 uo **ART0  o9:8 oo+to 8+ o ( t (49:8 o : u9 uo **AWr0  oOto 8` o ( t ue9oC9:8 8o69:8 o : u9 uo **A0"  oo+to 8, o ( t o69:8 o : u9 uo oo+to 8.o ( teoC9:8 o :u9 uo **A4q\XZ0  {C to 8, o ( t o89:8 o : u9 uo {@ o 9:8 **ASU0  o9:8 9*8oto 8u o ( to u9 o89:8 8o9:8 9  /8 o : u9 uo **A+0  oOto 8` o ( t ud9oB9:8 8o:9:8 o : u9 uo **A0"  oo+to 8, o ( t o:9:8 o : u9 uo oo+to 8.o ( tdoB9:8 o :u9 uo **A4q\XZ0 o  {C to 8+ o ( t (<9:8 o : u9 uo **ART0  oo+to 8 o ( t~ uu9(<9:8 8A9*oI (o?9:8 8 rkp( o :e u9 uo **A0p  {C to 8, o ( t o,9:8 o : u9 uo **ASU0p  {C to 8, o ( t o-9:8 o : u9 uo **ASU0p  {C to 8, o ( t o/9:8 o : u9 uo **ASU0p  {C to 8, o ( t o.9:8 o : u9 uo **ASU0;  {@ 9${@ o 9:8 8**0  oA9:8 {C to 8, o ( t o09:8 o : u9 uo oDoC**ASn0a oI o o rpo 9AoI o {   s& oI {o 8*0E   oI {oI o { o o 9t8oI {oI o { o o 9t8oI {oI o { o o 9t8oI {oI o { o o 9t 8oI {oI o { o o 9t 89 o 8rkp 9 o 8rkp 9 o 8rkp  9  o 8rkp  9 o  8rkpoI { o! *0G s"   oI o (# o$ oI o o ~ (> 9oI o o  8oPto 8o ( to oI o { (29o9 oH&8oI o { (29-~ (> 9ou 88aoI o { (29ou 81oI o { (29o(8 8o :u9 uo ~ (> 9oF9*88**A_"0 ( ( 9tsrp(< ( &*8s% o& !ڷ֍F   o o' &( 9 oG&89  o( 8  s) o* 9o **A<i 0+$ ( o rpo" rHpo" rp  oI o { o rp  o rp    oI o {  o 9o 9 o( 8 F$      o$ (   o$ t   o ֍F  t; t; (+  t; t;  o (+  o( 8&o$ &s) o* 9utsrp(< r6p(< oU (< ( &*A90D rkp o9oo :89ou 8 oI*Y.og o 9oI 8 (, 9oI 8 (, 9oI ݯ8 o 98 rRp(> 9t(z s- (.   (/ (L (z   (0 (z   (1 <(z   (2 l#@[(L 8% (, 9oI 8 o 98 o 9 rRp(> 9M(z   (0 (z (1 <(z (2 l#@[(L 8% (, 9oI D88s3 uoI o4 **AR [0 / oI o  u r9po&**0  s5 s6 {C to 8/o ( to19:8 o :u9 uo **AXf0 I u09*8u9*8o oI {o **0q oOto 8/o ( t o( 9  /8o :u9 uo **AVV0 {A **"}A *0 {C **0 {@ **0/(7 tss#}F {F o%tgo *0 {F o$**0 {F **0 {F o&**0 o* (#**&(*f(}G *0 {G **0 A ou 9*8o[u 9*8o_**0J oo 9!oI o {G o o *8oI o oo **0 U ( oo  (9  ` 8%oo  (9  ` 8**0  {G 9D{G o9:8 9*8{G oo8oI o { o(9:8 o**0  (9:8 **0B  ojoI o {n o/ :o; :89*8oo rVpo  : o5 :89*8 o5 8 o6 u9 og 88o oD9 og 8b8o oEo  9 og 848oo  (9 og 88X:: o5 9*8 o5 9 (8ZtosF   tos   torVpo9 so   twoG o to**0H  {H 9*8oY9:8 9*8o9oZ 9o 9LoI o  v op ooe o9:8 8Ft(goootooo^9:8 8KoI o  vopooe o9:8 8o9 o:893t(foootoo8o`9:8 }H **0  oj9*8ojoI o {U o/ 9*8 o; 9*8 o7 s$oI (o9*8o  : o :89r~ps z8 to 8Oo ( t9 8,8u9 88rps zo :u9 uo  t t t t~ (> 9*8~ (> 9*8~ (> 9*8oI o o  o 9*8 o   }hoo+to 8do ( tiom9op( :89.o oEo  9 88o oF:'o oFoo :89 88o oD9 88o oFoo9 o9 8i8ooo 9 8?8o: og k:o: og k:89 88o: of 9o: of 89 88o{h(29 88o oEo! oot (29 8Z8o oDot (29 8+8{i9 88oz}i8om9op( :89o oEo  9 88o oF:'o oFoo :89 8]8o oD9 8<8o oFoo9 o:"ooo :89 88ooo: of o{h(29 88o oEo! ooo(29 8n8{j9 8R8oz}j8{j9{i:89 08o :u9 uo {i9*8{j9*8oI oG o(9oI oG s; o)8oI oG o(o< ~ (> 9poI soI stoo91oI so} 9}k888s6  ~ ts=  ~ ts= oI {oOto 8o ( tu9 88o9ooo :89 8\8o (29D o>  opo? 9opo@ 8 opo@ 8o :*u9 uo  to 8o ( topo? 9orprpo  8 op rbp (< !tosK"ts# s$"$!ot oO#$ ot o#o&#o%&&toso%%toso&otos' ''tos ('tosi))tos **tosN++tos,)tos -)towKK-twKsy.)to!o9 s/)too9 s0(/o ,ot o+,oA &*0+o -/o )*tw.ol'(tw)two) &otos 11tos 22/o 12two &o'to&o1to%otos 33torpo9 s43to!o9 s53tos 63tos 73to6tw7tw_s 83tos93tos ::tos;:to6tw;tw_s <:tos==tos# >>tost??torhpoI o { s @?towLL@twLsyA3tosF BBtosiCCtos DDtosNEEtosFCtos GCtowMMGtwMsyHCto!o9 sICtoo9 sJ?oI o { Aoy>?two% =>toFot oEFoA &DJEo GIo CDtwHolBCtwoG 9:to9Bto64o 75o 38tw9o :0  (9:8 **0 0 o, %o9  8o,3o**R(s}I *07 tos,torptoss<(*0x  (9.torpo9 soFoEo>8)torpo9 soFoEo>(*0d sc tos, storptoss<tosoeol9 (8**0c sc tos,torptoss<tosoeol9 (8**0 {I **0 {I t$**0 {I t **0 {L **0%  om( 9:8 **0 o ( 9s  oo  (9 om:89 ` 8oo (` om9 ` 8o8o( 9 o8*0  ( 9:8 **0+ oo ts 9*8u 9*8oH u 9*8 ooov o9*8 ooov oo9*8o o= o(29*8+o o= ot (29*8**0 oo**0  ( 9:8 9*8om9 o:89op:89 ou8eo9 op:89=oo }N {N 9o{N o88**00  ( 9:8 o+ o('ooooC }L {L ooD oI o {L t ojo o oEo  84o oE o! oko9:8 X :**0Fc  o( _9*8o= t ts oAt  u9om:89'oAt (oAt (8{M 9{M o  o (  o  8.too oo (' X:{M (8#{N 9{N oM  8oo{N :C9$o okot (2:8:89ot9:8 okoto  8/ o ( t  o" 9:8  o : u9  uo 8(9:8 **A]'0>  ok oo+ to 8`o ( toR9omom:89 ok9 :8 8o :u9 uo oto 8o ( toR9oQomom:89Vom9okot (8oI o {m (oTt)(A8o :Xu9 uo **A4v0 o+ u 9oZ 9o :89po :=o 9 o o oI {:8:89tsrp( &8}M 8tsr4p( &8*0R o, o9  8o, o9*8o,ko**0 t~s z*0 {L oG **&(*0 otoo(y9tos<}R 8!too9 st}R tos,{R o{*0 'tosoBoF(}R *0  {R oE {R u9@{R to 9!tooI o { s 88 tsc}S {S od{S o oErpoI o { o &{S o oErpoI o { o &{S  o{S oo{S to 9 o  89'ts,}T ts,}V 8,tst}T tst}V ts}U {T tos{U tos{V tos 8m  o! oo &  o! oo &  o! o(9  o! oo &8 X  :rpoI o { so &rpoI o { so &rpoI o { so &97{T torps<{V tor6ps< 8f{T tosttrpo9 o{V tost  tr6po9 o{U torJpoI o { o9 s {T o0{U  to0{V  o0 F {T  o{U  o{V  o{T  o{U  o{V  oo{U too{V too{T to**0T  oI o { o{R oI9:8 (9:8 **0 0 o, o9  8o,Bo**0 {R **0 ooo( `**F(\}W *V(}W *0- {X 9oo+}X 8{X **0 5  oI o { o(9:8 **0 {W **0  oI o {W (o**0   o ( :o:89(9:8 8CoI {o _ooI oI o t oo(**0V  (9:8 o9&orY po o t) 8**0 0 o, o9  8o,Jo**0 {W **0 ooo( `**0 **"(J *"(*"}Z *0(N  oko  {Z o, 8{Z  o- ooU (" o (" o (" oN(" oP(" oO(" 9  :89  o 8 9  :89  o 89  :89 o 8 X :**0%   {Z o,  8{Z o- o("o(#9|o rpo 9o 8Jo r#po 9o 8&oI o  o9   o*("8t'o X  :.**0 {Z **0 {Z oK **0 {Z oL **0 o*Y(#**"(*0 {[ **0 {\ **>}[ }\ *0 {\ **0 {\ o**0 {[ o**0 0 o*o9o, o:8**0 rpo **"(*6ts}] *6ts}] *0 {] oL **0 {] u**0 {] u**0 {] t**0 {] t**0 $ o9oo*8rkp**"(M *0 s6 to 8{ o ( t o9oo:89BoI o oooo5 9 o4 88 o :y u9 uo **A0! s3 to 8} o ( t o9`oo98Bo91oI o oo' oo0to^ 888 o :w u9 uo **A0% to 8o ( t o9Ao91oooo( 9  ݑ888Xo9Ao91oooo( 9  E888 t~s zo :>u9 uo **A"(*&(*0 {^ **"}^ *0 {_ **0 {` **0 {_ **0 {` **0/D  o9otss 8/o9otss 8 t~s zoo9:8 o92oI o  xo9  o o*8o+9o+}_ 8po+9o+ot }` 8Jo+9o+}` 8.o+9o+t }` 8 ts( &**0 {^ t**0 {^ t**0 {^ u**0 {^ u**0F o9oo *8(o9oou *8 t~s z*"(*"(*"}a *0 {a oV **0 {a **0 o*Z(#**&(*Z(}b *0 ooo( ` `**0 **0 {b **0 K  {b 94{b o9:8 {b o(8**0 0 o, o9  8o,]o**:(W }c *0 t (2**0  (**0 t (2**0  (**0 u**0 rbp**0 s z*0 s z*0 s z*0 s z*0 s z*0 s z*0 s z*0 s z*0 s z*0 s z*0 s z*0! s z*0" s z*0# s z*0$ s z*0% s z*0& s z*0' s z*0( s z*0) s z*0* s z*0+ s z*0, s z*0- s z*0. s z*0/ s z*00 s z*01 s z*02 s z*03 s z*04 s z*05 s z*06 s z*07 s z*08 s z*09 s z*&(*0Z:  tooI o {d  s oI (o9:8 (joi **08;  o9:8 (9:8 **0 ;<  oI o { ((9:8 o**0 0= o, o9  8o,go**0> ooo( `**0? **0#@  o9"o:o:8:89tscoo sotorpotoss<otosoeool9:8 ootoo8**ts(X 9s }Y 8}Y *0 A {Y **0 B (Z **0C {Y o **z( (+(\ {Y o *0 ]D to 8#o ( t tt(+o :u9 uo *AEE(7 *"o^ *"(*6to}e *6to}e *0uE 9o 8s o 9o on o8.o 9o oo8 t~s z**0F {f **0 G {f **0FH o 9o ou *8(o 9o o*8 t~s z*0I {e u**0J {e t**0K {e u**0L {e t**0 M {e **0 N  {e u {e u 9*o9:8 o}f 8B 9* ot 9:8  os }f 8 t~s z**0O **0FP o 9o ou *8(o 9o o*8 t~s z*"(*6to}g *6to}g *0Q 9o 8s o9otoo] o83o9o too o8 t~s z**6to}g *0 R {i **0 S {h **0 T o**0U  o9oo^ }h 8vo9_o o 9:8 o o }h {h u 9ou}i 88 t~s z**0 V {g **0FW o9ooa *8(o9o o *8 t~s z*0X {g u **0Y {g t **0Z {g u**0[ {g t**&(*0 5\  oI o { ((9:8 **0 3] o, o9  8o, o**0^ ( ` ` **j( sc }k }j *0 _ {n **R{n }o }n *0` {j o**0 a {j **0 b o&**0c {j o**0d 9 {o *89 o**8{k o_ 9{k o*o` 8{k o_  {m   8{k {j oo`  X :{k {m oa **0!{l 9i{m }m {m {k o_ 9'{j oo'{k o&o` 8{k {m oa o'8{k o_ 9j{m }m {m {k o_ 9({j oo'{k ob }m 8{k {m oa o'8{j oo'*0$e    8 o-X :*0Ef {l }l {k o_ 9{k o*o` 8{m s**0/ {}m {k {m oa o'o1*>{l }l *0 _g  o  8+o,qo9*8 X :o o.**0h o&(**0ui 9#oo  _ o&8o*o : o-89o*o:89 o-8*0j  _o6**0 >k oB9)oo  o&o4*8**&o8*0[o*o:I9o*o :89*8o*o9*8o-8*RoB98*0l  _~ o@**0 <m  _~ o@9 _~ o@:8**0 :n oI9)rvpo+ o((< s z8*0!oK9rkps z8*0 Eo oI9*8/9 o48oo  o&**0 ?p oI9*8)9 o48oo o&**0Jq oI9*849 o48oo  o&**0 r o?**0[s o*o 94o*o!9 o-*89*8*89 o48**001t  9q oI 9 :89o*o!:89#oo  u o&8*8o*o!:o* (#:89Co-o*o!:o* o:898*8Bo*o9*8+9#oo  u o&8**0 !u o*o9 o-*8**0v o* o*o9uo*Qo9rps z8o*o9rps z8Po9rps z8o-*8**0 4w o*o9 o-*89 o48**0 4x o*o 9 o-*89 o48**0 4y o*o9 o-*89 o48**0 5z o*o9  o-89 o48 *0Y{ o*o9o,o:89o-o-89 o48***0 5| o*o9  o-89 o48 *0I}  o   8#qoI9*8 X :**0 l~   o   8/o,qo9:8  X :9o o.8*"(d *0k s\ to 8 o ( t oo_ o : u9 uo o` t**A@F0 9o 8sN to 8% o ( t toooA & o : u9 uo **A!Gh&(e *0 9o 8  sQ to 8&o ( t   tooe of &o :u9 uo **A)Js0.  to 8o ( t oj 9:8 og :883:8D97oI o  e}o9:8 8 8o :8D 97oI o  f}  o9:8 8 8k:88o :u9 uo 9 :897oI o  g}  o9:8 8 9:897oI o  h}  o9:8 8**A240Y(W (P }t s }v s }x 9r ps/ z8}p {p to}q *0;(W (P }t s }v s }x }q u}p *>}r }s *0 {p o**0 {q **0 {q oI **0 og**0 {p **0 {p t**0f s3 to 8# o ( t oDt o_ o : u9 uo **AEK06  {p ot  9{p ot  8***0 - oYo  o[o9  o&**0 - oYo  o[o9  o&**0 **0  **0 {p u 9|o96oo9oooo  8 80o 9ofo :89 8 8 **0 T {p u 96o9oooo :8 8 **01 {p o9{p o+oDt  8 **0 {p o **0 rkp {p op **0 {q oI {t9 **0 - oYo  o[o9  o&**0  {p o **0 {p oo{p o( {p u9 ` 8&{p u9 ` ` 8{p oo  (9  ` 8{p oo  (9  ` 8**0  o  o 8N o& 95oYts(N( (19 t# 88 X :**0 o+ oi t**0 /  oYo  o[o9  o&**0 {p t|(  **0' o 9{p to 8 **0 - oYo  o[o9  o&**0 - oYo  o[o9  o&**0 2 {p oo o  o6 tzot) **0 - oYo  o[o9  o&**0 - oYo  o[o9  o&**018 s\ {p o 9{p oto^ 8ok9+oYo okoo] to^ 8 o 8oYo  o oo] to 81o ( t o 9 o_ 8o :u9 uo X :co` t**AU0} sj to 8: o ( tx to{9ot#ok 8 o : u9 uo **A\b0n sZ to 8+ o ( t  o|9 o 8 o : u9 uo **AMS0s sZ to 80 o ( t o{9o1o 8 o : u9 uo **ARX0  _9o (9 88 _9"o (9 88o29_9 88_9 8**0J  _  _ __@__9o t (29fod9oe:89o o :89o o(2:8:8:89*8( 99 88 9 8( 99 889 898**02 {s 9{p oo}s 8{s **0Z {r 9C{p oo}r oYt {r oYt ( (S8{r **0 _9 o~ 8o} o sl  o 8R o o& 9 8-8o|9 88om X :**0n sZ sZ _9'o~toyo to 8"o}toyo to o t**0%$  sZ oto (  9to 8do ( t  u'9#oYts(Q( (1:89  08o :u9 uo 8Ko 9o u' 8+oYo  o[o9 o&**A/0 s {p oo+ to 8:o ( t o9u'9 o 8o :u9 uo oF t**A^u0x  o to 8-o ( t   o9 08o :u9 uo **A Q[0 s\ {p oo+to 8@ o ( t ot o9ot o_ 8 o : u9 uo o` t**Aqw0  _9*8o :o :89 _9*88=o :o :89_9*889)oe _( 9*88**0 - oYo  o[o9  o&**0  sZ oto to 8Ko ( t  o& 9 oe ( :89 t7 8o :u9 uo **Ao0 - oYo  o[o9  o&**0 - oYo  o[o9  o&**0 - oYo  o[o9  o&**0  **0  **0 + oYo  o[o9  o&*0 + oYo  o[o9  o&*0  **0  **0 {q oI {t% **0 {p o **04 {p o9 t  8{p oop **0& 9 8u t (2 **0Z  u9 oh 8og 9 oh 8u9 oe 8oa 9 oe 89 83u9o 9 o :89oqoi (2*8oh 9 oh :89oqoi (2*8o 9 od:89o :89oe:89oY :89oc:89o oo o(29*8o o 9*8  o  8%(29*8 X:*8 (  8u{p 99{p o9{p ot (2 8 8+oYo  o[o9   o&**0 K {p u 9/o9ooo  88**0 / oYo  o[o9  o& **04 oYo  o[o9  o&(q **07 oYo  o[o9  o&(r **02 oYo  o[o9  o&( **02 oYo  o[o9  o&(s **02 oYo  o[o9  o&(t **0 ~j s\ {p 9y{p u 96 o9  oooto^ 88o 9ofo to^ 88+oYo  o[o9 o&o` t **02 oYo  o[o9  o&( **0*  {p 9{p o9{p oou 8{p to98{p u 92o:oooo :8:89 t *8)oYo  o[o9  o&8+oYo  o[o9 o&**0 {t  **03 oYo  o[o9  o&(v **04 oYo  o[o9  o&(w **05 oYo  o[o9  o&(x **0u {p o9{p ooy 8Du9 8)oYo  o[o9  o&**02 oYo  o[o9  o&(z **03 oYo  o[o9  o&({ **02 oYo  o[o9  o&(| **0 ] oYo { (29*8ok 9$(29  88o 8**0 (} **0 o **0L  {p 9sSt  8ou9sSt  8Lu9sSt  8)oYo  o[o9  o&{v ( {v { 3&{v } ~ ts }u 8{v { 3s z{v } {v ( {u oa o 9{u oa o 8{u oa o **AR0 {x ( {x { 3{x } }w 8{x { 3s z{x } {x ( {w 9!oXt sqt }w 8{w **A DO0 8  oYo {p to{p ot ot  **0 /  oYo  o[o9  o&**0  (~ **0 - oYo  o[o9  o&**0 /  oYo  o[o9  o&**0 /  oYo  o[o9  o&**0 - oYo  o[o9  o&**N(sr }y *"}y *0 {y t( **0 {y **0 o*Y(#**0 T {y ot ֍   o 8{y o oX  :**0l(9 :89rps z809 o89 o8*>(}{ *6to}z *6to}z *"}{ *0w 9o 8s o9ooo8.o9ooU o8 t~s z**0 {z u**0 {z u **0 {z t**0 {z t **0 {z u**0 {z u **0 {z to>**0 {z **0 {{ **0 **0  o94ooW 9:8 ooV }{ 8^o94oo9:8 oo}{ 8{{ 9t~s z89*8**0 oo **R(sp} *Z}| }} }~ *0^ 9o 8s {| }| {} 9{} too}} 8**0 { **0 {~ **0 { **0 {| **0 {} **0 {| o**0:  {} 9#{} o9:8 8**0  **0x {} 9c{} oto 8 o ( t  oh ` o : u9 uo 8**AGX03  } o {} 9ts\ {} oto 8o ( t of 9sof ook 9 of oo_ 8A9&ts( 9:8  8of o8o :Zu9 uo 9( { o 8 o 9% o` t(({ o 89 o_ 8 o` t} 8{ o **A*0 { **"(*"} *0  { to 8K o ( t  og 9+of ooj 9of o 88 o : u9 uo **Art0< 9o 8s { tooRo**0 { **0 **0$  { oS9:8 **0 o*%(#**"( *0 P o ֍   o  8o9 ot X  :**0 9o 8s to 8% o ( t tooo & o : u9 uo **A!Gh0 Q  o 9*8t( o } { o9:8 **0 Q  o 9*8t( o } { o9:8 **0 T   o  8+o9 o9:8 X  :**"(*"} *0< 9o 8s { tooo**0  { **0 { o **0 2 o* (#9o,p(#:8**0$  { o 9:8 **0+ s ( ( o o (a s   8   8v~ s      o : :89~  o } 8~  o }  X:| X :X           (                 (   (     (   (    (  (  ( ( (((~ o } ~ o } *0 (   oo { oo { oo { oo { oo { oo { oo { oo { oo {  oo {  oo {  oo {  oo {  oo { oo { ts }   oo { oo { oo { oo { oo { oo { oo { oo { oo {  oo {  oo { ts }   oo { oo { oo { oo { oo { oo { oo { oo { ts } } { &({ '(  o {  o {  o {  o {  o {  o {  o {  o {  o {   o {  { 1({ ?({ @( o { o { o { { E( o { { \( o { o { o { o { o { { c( o { o { o { o { { o({ }( o { o { o { o { o { o { o { {  (   o {  o {  o {  o {  o {  o {  {  (   o {  o {  {  ({  (   o {  o {  o {  o {  o {  o {  {  (   o {  o {  o {  o {  {  (   o {  o {  o {  o {  o {  o {  o {  o {  *0 e  ~ o 9*8o { (29  89~ o 8**0  o**0 { o **0  :8&*8:8'*8:81*8:8?*8n:8rkps z8P:8@*89:8E*8":8rkps z8:8 *8 :8\*8 :8c*8:8o*8:8}*8 :8 *8w:8 *8]:8 *8D :8 *8* :8 *8rkps z8*0  &:8*8u':8*8_1:8*8I?:8*82@:8*8E:8*8\:8 *8c:8 *8o:8*8}:8*8 :8*8 :8 *8w :8*8] :8 *8C :8 *8) :8*8rkps z8*0  o**0R  :8oo { *8q:8oo { *8M:8oo { *8):8oo { *8:8rkps z8:8oo { *8:8oo { *8:8rkps z8~:8oo { *8Z :8oo { *85 :8oo { *8:8oo { *8:8oo { *8 :8oo { *8:8oo { *8~:8oo { *8Z :8oo { *85 :8oo { *8rkps z8*0  &:8*8s':8*8]1:8*8G?:8*81@:8*8E:8*8\:8*8c:8*8o:8*8}:8 *8 :8 *8 :8 *8x :8 *8^ :8 *8D :8*8* :8*8rkps z8*0  &:8*8u':8*8_1:8*8I?:8*82@:8*8E:8*8\:8 *8c:8 *8o:8*8 :8 *8 :8*8 :8*8s}:8*8] :8*8D :8 *8* :8 *8rkps z8*0Rm  &:8oo { *8D':8oo { *81:8oo { *8?:8oo { *8@:8oo { *8E:8oo { *8\:8oo { *8fc:8oo { *8Ao:8oo { *8 :8oo { *8 :8oo { *8 :8oo { *8}:8oo { *8 :8oo { *8W :8oo { *8/ :8oo { *8*8*0bF oo { (29&*8!oo { (29'*8oo { (291*8oo { (29?*8oo { (29@*8oo { (29E*8roo { (29\*8Ooo { (29c*8,oo { (29o*8 oo { (29 *8oo { (29 *8oo { (29 *8oo { (29}*8too { (29 *8Noo { (29 *8(oo { (29 *8**0  o^o^o**0  oI  o { (29*8o 9oi 8o 9oi 8(  (  9()*8i( 9( :89*8;( 9 ( :89 (2*8  o**0 ~ o {  **00 ~ o {  ::8 **0 j { to 8*o ( t  (29  -8o :u9 uo *AQQ0 l { to 8*o ( t  (29  /8o :u9 uo **AQQ0t { to 82o ( t  o( 9  /8o :u9 uo **AYY0 (o**0! oo { (2:!oo { (2:8:!oo { (2:8:!oo { (2:8**0" oo { (2:!oo { (2:8:!oo { (2:8:!oo { (2:8**0 '# o 9rY po; o *8**0';$ o o{  o( { o( `9*8s to 8o ( t to  81 o ( t (29o &8 o : u9  uo o :qu9 uo o 9*8o t **A4|UV0F%  t;(   8!~ qo } X :*0& o( ( 9 Q*8o9*8o9ooH ( o:89o *8iooH (  o(  oH (29 Q*89 :8 Q8:8 FQ8:8 YQ8:8(; Q8q:8~ AQ8P:8#Q8+:8 \Q8 :8 Q8 :8!Q8:8 ]Q8 :8"^Q8:8Q8x:8 _Q8\ :8 `Q8? :8!aQ8rkp(rkps z8*8oH o9*8 :8:p:f:\:R :G :< :1 :& :::8(9 Q*88 :8 :Z:P:F:< :1 :& : ::8(f AQ*8 ::8r(9 sJ sW ( 9!sJ sW ( :89sJ AQ*8*88  :8  :e :[ :Q :G  :<  :1  :&  :  : :8(c ^Q*8i :8Y(9 #9(9 #G:89(c ^Q*8*88:8   : :8Y(9   #o@9 #:89( FQ*8*8v :8f(f   sW ( 9 ~ ( :89( FQ*8*88:8   : :8Y(9 #_@9#`:89(A ]Q*8*8| :8l(f sW ( 9  sW ( :89(A ]Q*8*88:8 ::8Y(9 #@9#:89(B \Q*8*8:8o(f  sW ( 9  sW ( :89(B \Q*8*88:8 ::8Y(9 #@9#:89(C _Q*8*8v:8f(f  sW ( 9~ ( :89(C _Q*8*88 :8Q:8:.:$: ::8(a Q*8 ::8Y(9 #A9#:89(a Q*8*8:8o(f  sW ( 9  sW ( :89(a Q*8*88] :8 ::8Y(9 #A9#:89(d `Q*8*8r:8b(f sW ( 9~ ( :89(d `Q*8*88_ :8Q:8:.:$: ::8(a Q*8 ::8Y(9 #C9#:89(b Q*8*8:8o(f  sW ( 9  sW ( :89(b Q*8*88 :8 ::8Y(9   #C9 #:89(e aQ*8*8r:8b(f !!sW ( 9!~ ( :89(e aQ*8*88"":%":" :" :8(e #rkp(8,":%":" :" :8(b $rkp(8":8rkp(8":8rkp(8":8rkp(8":8rkp(8l":8rkp(8M" :8rkp(8.":8rkp(8rkp(8rkp(*06' ooH (   :": : :8((e ':8+ !9 FQ*8*8 :8+ !9 _Q*8*8 :8+ !9 `Q*8*8b :8 aQ*8@}:89 s sW ( 9 ]Q*8*8 :8< s sW ( 9 \Q*8*8\:8< s sW ( 9 Q*8*8\c:8< s  sW ( 9 Q*8*8rkps z88i:": : :8.(b ':8N!9!:89FQ*8*8 :8N!9!:89_Q*8*8_ :8N!9!:89`Q*8*8 :8asX ~ ( 9!sX sW ( :89aQ*8*8}:8N!9!:89]Q*8*8, :8N!9!:89\Q*8*8\:8N!9!:89Q*8*8mc:8M!9!:89Q*8*8rkps z88rkps z8*0' ( oo o o o 9%rpo (< rp(< s z8o 9o u9D o to[o9:8 9 s z88 rpo (< r2p(< s z8!o~= rtpo (< ( &o{t9**0") s o{o" o &**(7 *( *( *0)s s s s *0 * ~ o **0 + ~ o **0 , ~ o **0 - ~ o **(7 *06. ~ 9(+ 8~ **(7 *0*/ 9 (+*8**00 *01 ( ( **0 2 (r **0 3 Ы( **0 4 (N **[lSystem.Resources.ResourceReader, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089System.Resources.ResourceSetPADPADyzyzyzyzyzyzyzyzyzyzyzyzyzyzyzyzyzyzyzyzyzyzyzyzyzyzyzyzyzyzyzyzyzzzzz2zzzzzzzщ{Ѝ{э{ҍ{Ӎ{ԍ{Ս{֍{׍{؍{ٍ{0{1{2{3{4{5{{P{Q{R{S{q{v{w{P{Q{S{V{ PQRSTUVWXYPQRSTUVWXY0123567<pqrstuvw~5SUVWRSUVW0123456789PQRSUVW[pqrstuvwz{89>PQRSTUVWZ[pqrtuvwxy0123567>?pqxy|}~PQRSUWXYprs236PSTY1345<qrsuv45Vqtu~        4 5 9 : ; < > ?                               0 1 3 4 6 7 ; R S V p r u v }                  t u y z { } ~ 56PQRSTVW\]pqrstuvw|}01345PQRSTUVW\]pqrstz{]22222222222222T6U6Z6[6\6]6^6_66666666666666666666PQRSTUVW\]ГѓғӓԓՓ֓דړۓ01prstuvwz{դPQRSTUVWѰ԰հװ0123456<=pvwxyz{|}aaaddddddddddܧdݧdާdߧddddddddddd~ojT|T|ƓT|ΓT|T|T|T|T|T|3333333344#424A4}4n4_4P44444445544@5O5"515^5m55|555555566666677 7/7>7\7M7z7k777]6!666506?6N6{66l662222222223$33B333`3Q3~3o3// 0/'00E060/(//7/. /.,, --*-9-H-W-f-u-8.G..).t..V.e...-------- .-**++***,+;+..,+,+ ,++++:,I,+w+++J+h+Y++,,,,,v,g,X,,,..////s//d/F/U/,J;hYw +:vgXI* 9HWuf )8GteV  (  F 7 d U s "1@0?!N]^Om|>M\ /kz{ly[j=L.-<KZix4%CRpaSD5&qbo~B3`Q$}A2#n_Pt) ( '6EG8eVdsFU7rcT +:vgXI h w ; , Y J uf9*WH     . = [ L y j ] l { ! 0 ? N -   <   z k \ M > / K Z i x   "1_PA2}nQBo`3$~#p|m^O@   &D5 TE6'crsd7(UFeVG8) tbqSaRC4%4#"""q"#%#"#"""""D"S"&"5"!!""E!T!6!!'! ! b"!!!!!!!r!c!&151D1S10011b1q1p2R2a242C22%20000c0T00r0001111111121Z*i*x*****))))-****K*<*L)[).)=)))j)y)))(((((((())) (((\(M(>(/(z(k('''''''l'{'N']''%%%%%&&"&$$$$%%#%A%2%P%n%_%%}%%%B$$$$3$~$o$`$Q$$$$$p#a#R#########$#C#0'?''!'&'&&&&&&&|&m&^&O&@&1&9-998.8778877778988888y888L8=8j8[8<9)6]jPCwX 200012001200612007O2009|201120142016201732019Z 30001 30002 30003 30004 30005 30006% 30007/ 300089 30009C 30010M 30011W 30012a 30013k 30014u 30015 30016 30018 30019 30020 30021 30022 30023 30024 30025 30026 30027  30028 30029 30030) 300313 30032= 30033G 30034Q 30035{ 30036 30037 30038 30039 30040 30041 30043 30044 30045 30046 30049 30050  30051 30052! 30053+ 300575 30058\ 30059f 30060 30062 30064 30065 30066$ 30067b 30068 30069 30070 30071 30072 30074 30075 30081 30082 30083 30084 30085 30086 30087" 30088, 300896 30090z 30091 30092 30093 30094 30095 30096 30097 30098F 30099P 30101 30103 30105 30106 30107 30108 30109 30110 30111 30112 30113 30121  30122 30123 30124( 301252 30126< 30127F 30128P 30129Z 30130d 30131n 30132x 30133 30134 30135 30136 30137 30138 30139 30140 30141 30142 30143 30144 30145 30146 30147" 30148, 301496 30154@ 30157J 30166T 30175^ 30176h 30177r 30178| 30179 30180 30181 30182 30183 30184 30185$ 30186. 301888 30192B 30193L 30195V 30196` 30197j 30198t 30199 30200 30201 30202 30203 30204 30205 30206 30207> 30208x 30209 30210 30213 30215 30217= 30218G 30220Q 30224[ 30225e 30230 30231 30232 30233 30234 30235 30237 30238 30239 30240 30241p 30242z 30243 30244 30246 30247 30248 30249 30251 30252 30253 30256 30257 30258 30260 30266 30267 30268 30269$ 30270. 30272O 30273Y 30274c 30275m 30277w 30278 30280 30281 30282 30283 30284 30287 30288 30289 30290% 30293/ 302949 30296C 30297M 30298W 30299a 30300k 30301u 30302 30303 30305 30306 30307 30308 30310 30311 30321 30332 30333 30337 30338 30345 30354& 303570 30359: 30360D 30361N 30362X 30363b 30364l 30366v 30367 30368 30369 30370 30371 30375 30376 30377 30379 30380 30381 30382 30383 30384 30385  30387 30389n 30390x 30392 30393 30395 30396 30397 30398 30399" 30401, 304086 30412@ 30413J 30414T 30415^ 30420h 30423 30424 30429 30430 30431 30433 30434 30435 30436 30437 30438  30439 30441V 30442` 30443j 30444t 30445~ 30451 30452 30454 30455 30456( 30458I 30460S 30461] 30464g 30465q 30466{ 30467 30468 30469 30470 30471 30474 30476 30479 304801 30481; 30487E 30490O 30491Y 30493c 30494m 30495w 30497 30500 30501 30502 30503 30504 30505 30506 30507 30508  30509 30512! 30516l 30517 30518  30519 30520 30521) 30522o 30523y 30524 30526 30528 30529 30530 30532 30533 30542 30544 30545 30547 30548 30549  30550 30554  30555* 305604 30561> 30562H 30563R 30565\ 30566f 30567p 30568z 30569 30572 30574 30576 30577 30578 30579 30580 30581  30582i 30583s 30584} 30585 30587 30588 30590 30591 30593 30594 30597 30598 30599 30600 30601  30602 30603 30604' 306071 30610; 30611E 30613O 30614Y 30615c 30616m 30617w 30618 30619 30620 30621 30622 30623 30624 30625 30626& 306270 30628: 30629D 30630 30631 30632 30633 30634 30635 30636 30637 30638 30639  30640* 30641` 30642j 30643t 30644~ 30645 30647 30648 30649 30650 30651 30652 30653 30654 30655 30656 30657 30658  30659 30660 30661( 306622 30663< 30664F 30665P 30666Z 30667d 30668n 30670x 30671 30672 30674 30675 30676 30677 30678 30679 30680 30681 30683 30685 30686 30687 30688 30689 30690" 30691, 30694f 30695p 30696z 30697 30698 30699 30700 30701 30702 30703 30704 30705 30706 30707 30708 30709 30710 30711 30712 30713$ 30714. 307158 30716B 30717L 30718V 30719` 30720j 30721t 30722~ 30723 30724 30725 30726 30728 30730 30731 30732 30733 30734 30735 30736 30737 30738O 30739} 30741 30742 30743 30744 30747 30748 30749 30750 30751 30752! 30753! 30754! 30755%! 30756/! 307579! 30758C! 30759M! 30760W! 30761a! 30762k! 30763u! 30764! 30765! 30766! 30767! 30768! 30769! 30770! 30771! 30772! 30780! 30781! 30782" 30783$" 30784." 307858" 30786B" 30787L" 30788V" 30789`" 30790j" 30791t" 30796~" 30800,# 308016# 30802@# 30803J# 30804T# 30805^# 30807h# 30808r# 30809|# 30810# 30811# 30812# 30814# 30815# 30816# 30817# 30818# 30819# 30820# 30821# 30822# 30823# 30826$ 30827$ 30828$ 30829&$ 308300$ 30906:$ 30907D$ 30908N$ 30909X$ 30910b$ 30911l$ 30912v$ 30914$ 30915$ 30916$ 30917$ 30918$ 30919$ 30920$ 31007$ 31011$ 31013$ 31014$ 31019$ 31020$ 31021% 31023 % 31024% 31025 % 31026*% 310274% 31028T% 31029^% 31030h% 31031r% 31033|% 31035% 31040% 31041% 31042% 31043% 31044% 31047% 31048% 31049% 31051% 31052% 31053% 31054% 31055& 31058& 31059& 31060&& 310610& 31063:& 31064D& 31065N& 31066X& 31067b& 31068l& 31069v& 31070& 31071& 31072& 31073& 31074& 31075& 31076& 31077& 31080& 31082& 31083& 31084& 31085& 31086' 31087 ' 31088a' 31089k' 31090u' 31091' 31092' 31093' 31094' 31095' 31096' 31097' 31098' 31099' 31100' 31101' 31102' 31103' 31104( 31105 ( 31106( 31107( 31108)( 311123( 31127l( 31130( 31400( 31401( 31403( 31404( 31405( 31406( 31407( 31408) 31409 ) 31410) 31411 ) 31412*) 314134) 31415>) 31416H) 31417R) 31418\) 31419f) 31420p) 31421z) 31500) 31501) 31502) 31503) 31504) 31505) 31506) 31507) 31508) 31509) 31510* 31511* 31512* 31513%* 31514/* 315159* 31516C* 31517M* 31518W* 31519a* 31520k* 31521u* 31522* 31523* 31524* 31525* 31526* 32000* 32001* 32002* 32004* 32005* 32006* 32007* 32008* 32009+ 32010 + 32012+ 32013+ 32014)+ 320153+ 32016=+ 32017G+ 32019Q+ 32020[+ 32021e+ 32022o+ 32023y+ 32024+ 32025+ 32026+ 32027+ 32028+ 32029+ 32030+ 32031+ 32032+ 32033+ 32034+ 32035+ 32036(, 320372, 32038<, 32039F, 32040P, 32041Z, 32042d, 32043n, 32044x, 32045, 32046, 32047, 32048, 32049, 32050, 32051, 32052- 32053 - 32054- 32055- 32056(- 320572- 32058<- 32059F- 32060P- 32061Z- 32062d- 32063n- 32064x- 32065- 32066- 32067- 32068- 32069- 32070- 32071- 32085- 32098. 32101>. 32102. 32103. 321048/ 32105/ 32106/ 3220080 32201B0 32203L0 32204V0 32205`0 32300j0 32301t0 32302~0 323040 324001 32500%1 32501/1 3250491 32505C1 32506M1 32507W1 32508a1 32509k1 33000u1 330011 330021 330031 330041 330051 330061 330071 330081 330091 330101 330111 330121 330131 330142 33015 2 330162 33017F2 330182 330192 330202 330212 330222 330232 330242 330252 330262 330272 330282 330292 330302 330313 33032 3 330333 330343 33035)3 3303633 36000=3 36001G3 36002Q3 36003[3 36004e3 36005o3 36006y3 360073 360083 360093 360103 360113 360123 360133 360143 360153 360163 360173 400003 400033 400044 400054 400074 40008#4 40009-4 4001074 40011A4 40012K4 40014U4 40018_4 40019i4 40020s4 40021}4 400224 400234 400244 400254 400264 400274 400284 400294 400304 400314 400324 400334 400344 40035 5 400365 400375 40038'5 4003915 40040;5 40041E5 40056O5 41000u5 410015 410025 410035 410045 420005 420015 420025 420035 420135 420145 420155 420245 42101+6 4210256 42103?6 42104I6 42200S6 42300]6 42301g6 42302q6 42303{6 423046 423056 423066 423076 423086 423096 423106 423116 423126 423136 423146 423156 900006 90001(7 90002A7 90003j7 900047 900057 900067 900077 900087 900098 900108 90011>8 90012O8 90013s8 900148 900158 90016 9 90017(9 90018?9 90019V9 90020g9 900219 900229 900239 999979 99998: 99999:warning: '{0}': not most specific.file not found: {0}Option '{0}' requires ':{1}'+the response file '{0}' could not be opened+the option {0} was not recognized - ignored(No files to compile! Cannot do anything!1The response file '{0}' has already been included+Code page '{0}' is invalid or not supported%The library '{0}' could not be found.,the option '{0}' cannot have the value '{1}'.There cannot be any statements in a namespace.Could not find the type '{0}'.CHANGEME7Character constants must contain exactly one character.CHANGEMECHANGEMECHANGEMECHANGEMECHANGEMECHANGEMECHANGEMECHANGEMECHANGEMECHANGEMECHANGEMECHANGEMECHANGEMECHANGEMECHANGEMECHANGEMECHANGEMECHANGEMECHANGEME&Property must end with 'End Property'.CHANGEMECHANGEMECHANGEMECHANGEMECHANGEMECHANGEMECHANGEMECHANGEME(An escaped identifier must end with ']'. Syntax error. Overflow.Symbol is not valid.CHANGEMECHANGEMECHANGEMEToo many errors.CHANGEMECHANGEMECHANGEMECHANGEMECHANGEMECHANGEMECHANGEMECHANGEMECHANGEME%Too many arguments provided to '{0}'.CHANGEME,The expression is not a constant expression.Q>w$Y$$$$$+4; Ye e 1EgRx6Nj$$) Uei e<  A Z  $ * 7 M  q Cfk*;[iA$m$zv$>#*18F$g 5NV$m$$$$ p$p> 2Ciy ;W$M 3R7>S\gq e C>>>)^>d G a   C   !#!8%$=%$tS2%$t%pF%$(\%$*l%$,|%$(0%$08%$L>%$P?%$tL%$X &$Z5 &$aK3&$tcpK&$9fT&$fn^&$9o f&oHt&$YuK&$9K&$L&$YO&$YO&$pKO&$YNT&$9^T&$Y`Z '$YZ'$YZ,'$YZ6'$9ZE'YbP'$bd'$9l{'$m'$x'$'$'$'$'$'$9 (Y($;($U($q($($($ ($($ $($=)$P)$Q/)UD)$YX)$ [n)$"])$"_)$#q)$#t)$*)$,*$.0*$.D*$/a*$(1{*$1*$1*$3*$5*$7+$7+$83+$9::+$9;$M;D+$Y;U+$9Da+$Py+$P+$9P+$R+$9Z+Y_$+$9h$+$m%+$9m++$bm,+$Fn3,$Hn4,$wA5,$xBI,$xC[,$xDs,$yH,$a,$ht,$9,$9,$,$ ,$-$-$9-,-$9@-$N-$d-$9p-$Y-$9-$!-$!-$!-$!-$!!-$!".$!".$!-".$!/-.$!0>.$!1F.$!5N.$!>X.$!?g.$!@w.$!@}.$!H.$!I.$!M.$\!R.$"Y.$$_.$%i/$,~/$-1/$.I/$92U/9Bb/9Bq/$B/$B/$C/$E/$F/$H/$Ik$J 0$W&0$X90$Z#G0$j['g0$[,r0$[1}0$\>0$^F0$_L0$g^0$ha0$jh0$km1$ly$1$l{91$pU1$ pl1$ t1$t1$w1$x1$y1$z1$z2$z2$~<2$~T2$~b2$V u2$2$2$2$2$2$2$2$!2$*3$,&3$:33$KG3$oZ3$vn3$w3$3$3$n3$43$<4$4)4$94$ E4$U4$c4$9z4$ 4$ 4$,% 4$' 4$,0 4$,2 4$,4 5$,6 05$8 C5$,> a5$,@ v5$,B 5$,D 5$F 5$M 5$FV 5$0X 5$0a 5$j 5$0p 6$0z 6$ $6$ 36$ B6$ P6$ _6$0 p6$0 }69 6Y 6$ 6$0  6$  6$ 6$ 6$ 7$ &7$ <7$ P7$ \7$% i7$% x7$' 7$( 7$) 7$- 7$- 7$0- 7$.# 7$0/( 7$&1/ 7$10 8$0;< 8$0<B -8$0>I ;8$AQ I8$D[ Y8$Ec d8$Gk x8$Lv 8$O} 8$P 8$P 8$R 8$R 8$9S 8Y~ 8Y 9Y 9Y (9Y 09Y ;9$ D9Y U9$9 \9$ d9$ t9$9 z99 9$ 9$" 9$N1 9$= 9$}> 9$9A 9$J 9$YL 9$YL 9$9 L :$f P :$ S $:$ X 2:$ ^ F:$, e W:$ { k:$ |:$ :$ :$ :$ :$ :$ :$ :$ :$ ;$ ;$ +;$ :;$ N;$ _;$ l;$ ;$ ;$ ;$ ;$ ;$ ;$ ;$ <$P !<$P  1<$P  A<$P  Q<$P " `<$P + o<$P 3 ~<$P ; <$P C <$ K <$P T <$P \ <$P d <$P l <$P u =$P =$P !=$P 3=$d H=$d Z=$ u=$ =$ =$ =$( =$@ =$@ =$@ =$ >$ >$ (>$ ?>$ N>$ _>$  r>$  >$ >$,  >$9  >$ . >$9 7 >$z Q >$ X >$9 o >$ s >$9 >} X ?$9 Y?$ [&?$ k=?$ nT?$9 q[?Y h?$  p?5  u?$9 z?$9> ?$@ '?$F Q?$8G V?$hI c?$4O y?$<W ?$Z ?$ Z @$Z *@$[ =@$] K@$f^ Z@$^ q@$a @$4b @$-c @$<d @$d @$9e @$e @$g @$8j !A$j % A$p NA$Zp Q)A$-p T8A$y NA$z WA$| eA$ ~A$: A$ A$ A$Y A$9 A$ A$ A$9 A9 B9 B0(B0:B0GB0YB0dB1mB1~B1B1B1B1B1B1C1%C1CC1]C1zC1C1C!1C!1C1C1D)1,G2Ea 2G2H3Ic4If4Jk4 Jk4,J7Jo4DJo4If4Jk4Kk4K55K65Ky65M~6M~6Nk4"N7>N7PN7nN7NNN"7NJ7ON7Nk4NNON7)On7Nk4iO7O7O7O7NNO7O7P7(P7OP"7wPk4Pf4Qk4NNNk47Jo4DJo4,JQ$Q7GQk4iQ7K`85wR8Rc4R8R9Rk4Q5K95)S99S9[S7T1!Tp:1T1HTu:QTz:YTk4gT1{T5G2_=_= _c4_c4_c4a *a_c4V;=Vf=V=Vi_=V* =V=Vn_=Vv_=V$=V{_=V#=V4=V=V_=V_=V_=V_V_V___2a_=V* =V_=V=a_c4V_=V_=V_=V_=V_=V_=V_=V`=V`=V`=V`=V#`=V0`=V:`=VI`=VX`=Va`=Vk`=Vw`=V`=V`=V`=V`=V`=V`=V`=V`=V`=V`=V`=V`=V`=V`=V`=Va=Va=V =Va=V;=Vf=V =Va=Va=V#a=V)a=V/a=V5a=V;a=V@a=V=VEa=VJa=VPa=VUa=VZa=Vca=Vja=Vqa=Vva=V{a=Va=Va=Va=Vi_=V* =Va=Va=Va=Va=V=Va=Va=Va=Va=V =Va=Va=Va=V=Va=Va=Va=Va=V$=Vy=Va=Va=Vb=V b=V b=Vb=V b=Vn_=V#b=V-b=V0b=V6b=V:b=V>b=Vv_=VCb=VHb=VKb=V=VOb=VVb=V9=V^b=Vbb=V =V+=V$=Vgb=Vjb=Vmb=Vvb=V =V}b=Vb=Vb=Vb=Vb=Vb=Vb=Vb=V=Vb=Vb=V{_=V#=Vb=Vb=V4=Vb=V =Vb=Vb=VX=Vb=Vb=Vb=Vb=Vb=V_=V_=V_=Vc=V c=Vc=Vc=Vc=V%c=V =V*c=V-c=V*=V0c=V9c=VVd >Vd >Vd >Vd >Ve >V!e >V7e >VLe >V^e >Vne >V~e >Ve >Ve >Ve >e>e>a_c4V_K>V_K>V_K>V_K>V_K>V_K>V`K>V`K>V`K>V`K>V#`K>V0`K>V:`K>VI`K>VX`K>Va`K>Vk`K>Vw`K>V`K>V`K>V`K>V`K>V`K>V`K>V`K>V`K>V`K>V`K>V`K>V`K>V`K>VfK>V(fK>V9fK>VIfK>V[fK>VmfK>V|fK>VfK>VfK>VfK>VfK>VfK>VfK>VgK>VgK>V0gK>VJgK>V_gK>VqgK>VgK>VgK>VgK>a_c4VP>VPcP>V P>a_c4V U>V>bU>VKbU>V U>VgU>V*cU>V-cU>V*U>V0cU>V9cU>VVU>VKcU>VU>VPcU>VVcU>V\cU>VicU>VcU>VcU>VgU>VgU>a_c4V_Z>VgZ>VgZ>VhZ>VhZ>VhZ>V+hZ>V9hZ>VFhZ>VShZ>V`hZ>VnhZ>V|hZ>VhZ>VhZ>VhZ>V,Z>VhZ>VhZ>Qeh_>a_c4V_>V7e>VLe>Ve>Ve>Ve>Vi>ip:)ik4ip:#j>Xk$@kk4ip:ip:k1kt@kp:5Al@Rl2a_c4Vq@Vq@Vq@Vq@V9@Vq@Vq@V@Va @V]@V r@kp:NAQ#jArk4kp:^rANkro4srAr1rANAt CtCtk4r1t6CuWCkp:^rAu7Al\Ckp:^rAiuCsu7r1rARk4)S9kr>DRk4 v1Rl2_p: vD+vD:vN7AlDBv1wn7wN7w1kp:wR8w7EHTu:ip:)ik4wp:#jANxE)ik4k1k1"c4YxE#yF6yAEyk4Ty Cky1y1y1ip:)ik4ip:)ik4:vN7t C)ik46zqG)ik4Gz\C)ik4Gz\C)ik4w7EwG)ik4WzGa_c4V`HV`HV`HV`HVzHVzHVzHVzHG2zHzHzH{H*{!H3{!HG{!HY{!Hv{o4Rk4{&HEuo4|MJ|RJ|VJ|_J}k4}#}1;}7G2|OKnOK|TKa_c4VNTKVTKV TKVTKVTKVTKVTKVÀTKk4CC p:?K6IKNk4qL7L7NN"7k4k4A=xL|LLLʂLقLk4LAM MQ1LnMф15MMQ#jANAA(M<1r1I1pN"7A>*@17|O`8`8LO‰O͉7EQ>1APG2<15d1q1tٝcMdQc4Qc4Qc4Q/c4QIc4;92[da_c4V3dV3dV3dV3dV̟3dVڟ3dV3dV3dV3dV3dV3dV!3dV.3dV:3dVG3dVT3dVa3dVo3dV~3dV3dV3dV3dV3dVà3dVϠ3dVܠ3dV3dV3dV3dV3dV3dV+3dV93dVG3dVU3dVd3dVt3dV3dV3dV3dV3dV3dVơ3dVӡ3dVߡ3dV3dV3dV3dV3dV"3dV03dV>3dVL3dV[3dVk3dVy3dV3dV3dV3dV3dV¢3dVТ3dVݢ3dV3dV3dV3dV3dV%3dV43dVC3dVR3dVb3dVs3dV3dV3dV3dV3dV3dV3dVǣ3dVѣ3dVܣ3dV3dV3dV3dV 3dV3dV"3dV.3dV;3dVI3dVU3dVa3dVn3dV{3dV3dV3dV3dV3dV3dVĤ3dVФ3dVݤ3dV3dV3dV3dV3dV3dV-3dV:3dVE3dVQ3dV]3dVj3dVt3dV3dV3dV3dV3dV3dV3dV¥3dVΥ3dVڥ3dV3dV3dV3dV 3dV3dV&3dV33dVA3dVL3dVX3dVc3dVo3dV|3dV3dV3dV3dV3dV3dVȦ3dV֦3dV3dV3dV3dV 3dV3dV*3dV63dVC3dVO3dV\3dVj3dVw3dV3dV3dV3dV3dV3dV˧3dVۧ3dV3dV3dV3dV3dV3dV(3dV43dV?3dVK3dVX3dVd3dVq3dV}3dV3dV3dV3dV3dV3dVΨ3dVۨ3dV3dV3dV3dV3dV3dV+3dV83dVF3dVS3dVa3dVn3dV|3dV3dV3dV3dV3dVũ3dVѩ3dVީ3dV3dV3dV3dV3dV3dV'3dV43dV@3dVM3dVY3dVf3dVs3dV3dV3dV3dV3dV3dVŪ3dVӪ3dV3dV3dV3dV3dV3dV"3dV/3dV=3dVJ3dVX3dVf3dVt3dV3dV3dV3dV3dV3dVʫ3dV٫3dV3dV3dV3dV 3dV3dV&3dV43dVA3dVO3dV]3dVk3dVz3dV3dV3dV3dV3dV3dVЬ3dVܬ3dV3dV3dV3dV3dV3dV+3dV83dVF3dVT3dVb3dVq3dV3dV3dV3dV3dV3dV˭3dVح3dV3dV3dV3dV3dV3dV-3dV;3dVJ3dVY3dVh3dVx3dV3dV3dV3dV3dVǮ3dVخ3dV3dV3dV3dV3dV"3dV13dVA3dVP3dV`3dVp3dV3dV3dV3dV3dV3dVί3dVܯ3dV3dV3dV3dV3dV3dV+3dV83dVF3dVS3dVa3dVo3dV}3dV3dV3dʰڰ.@Sfzűֱ 4KbvŲ۲)p:|RJ1Yfip:6yARl2)ik4p:71QRc4#yFûg׻g)ik4hehhԼhhhh#h0hG2>hQhjhiiU+irfkk58lDmIc4D9m11mmEyk47#jmmmCm1"mip:n1nn 88AJ7|LR9p:ok4r1Rl2-pbfR8RF‰opp:pipt@B=|LT0qd5qMR9}k4 r^\rGFKpEyk4OpNrfK>|LR9M M{sR9p:Rl2k4ss"7t#yF|Lûgt/tw7EG11u|LNsutn7J7)u>1FuR9Vu6yAQk4olow19u|Lûgo5pvNANsuw#w(w21W1f4iuxtQ|Lٝk455(B01 x%x*k4,J6Ot9c4NymE5^13yc415fEyk4Qp:p:1p:p:5p:>p:Fp:Op:5p:6{_>p:p:=p:31<{F1w|LRFp:k47E=1Cp:Rp:b1l1p:2|Hp:^=i|}p:p:l11}Zp:pp:p:|l1k4I11}]28p:a_c4V^V}V]}V }f}p:$RJ0}:1f)1|LûgR9ip:K7E 1f1)16}m1118~#jAip:6yAc41 Jk4Jk4v~:1<~ 1ip:Gp:N~[~P1p:p:IRJ|L>1RF6yAVu<17ET1bk4t75p:l1p:1p:RFDmEyk4R=R9=3AEyk4$k47k4Q5c4Eyk4)ik4|LA!;92n{G2 -191LY1c1r ~ 111111%4%?1L^kx11*a_c4VVV_a_c4Vx V a_c4VjbVa_c4VjbVa_c4VNVVVa_c4V*V*V*(ƃ1˃:ЃCՃH3QPVڃd߃mFkwa_c4V_V"V*V>V3tVEVRVoVVVa~_2G25:[E1Q1 G24:^r?QQۇa_c4V ۇVۇVaۇa_c4VVVVVVVVV#V,V6V@VJVTV^VhVrV|VVVVVVVVVVVVVVVVV&V0V:VDVNVXVbVlVvVVVVVVVVVVVVVVV VV V*V4V>VHVRV\VfVpVzVVVVVVVVVVVVVVVVV$V.V8VBVLVVV`VjVtV~VVVVVVVVVVVVVV VVV(V2V<VFVPVZVdVnVxVVVVVVVVVVVVVVVVV"V,V6V@VJVTV^VhVrV|VVVVVVVVVVVVVVVVV&V0V:VDVNVXVbVlVvVVVVVVVVVVVVVVV VV V*V4V>VHVRV\VfVpVzVVVVVVVVVVVVVVVVV$V.V8VBVLVVV`VjVtV~VVVVVVVVVVVVVV VVV(V2V<VFVPVZVdVnVxVVVVVVVVVVVVVVVVV"V,V6V@VJVTV^VhVrV|VVVVVVVVVVVVVVVVV&V0V:VDVNVXVbVlVvVVVVVVVVVVVVVVV VV V*V4V>VHVRV\VfVpVzVVVVVVVVVVVVVVVVV$V.V8VBVLVVV`VjVtV~VVVVVVVVVVVVVV VVV(V2V<VFVPVZVdVnVxVVVVVVVVVVVVVVVVV"V,V6V@VJVTV^VhVrV|VVVVVVVVVVVVVVVVV&V0V:VDVNVXVbVlVvVVVVVVVVVVVVVVV VV V*V4V>VHVRV\VfVpVzVVVVVVVVVVVVVVVVV$V.V8VBVLVVV`VjVtV~VVVVVVVVVVVVVV VVV(V2V<VFVPVZVdVnVxVVVVVVVVVVVVVVVVV"V,V6V@VJVTV^VhVrV|VVVVVVVVVVVVVVVVV&V0V:VDVNVXVbVlVvVVVVVVVVVVVVVV V V V V* V4 V> VH VR V\ Vf Vp Vz V V V V V V V V V V V V V V V V V$ V. V8 VB VL VV V` Vj Vt V~ V V V V V V V V V V V V V V V V V( V2 V< VF VP VZ Vd Vn Vx V V V V V V V V V V V V V V V V V" V, V6 V@ VJ VT V^ Vh Vr V| V V V V V V V V V V V V V V V V V& V0 V: VD VN VX Vb Vl Vv V V V V V V V V V V V V V VV VV V*V4V>VHVRV\VfVpVzVVVVVVVVVVVVVVVVV$V.V8VBVLVVV`VjVtV~VVVVVVVVVVVVVV VVV(V2V<VFVPVZVdVnVxVVVVVVVVVVVVVVVVV"V,V6V@VJVTV^VhVrV|VVVVVVVVVVVVVVVVV&V0V:VDVNVXVbVlVvVVVVVVVVVVVVVVV VV V*V4V>VHVRV\VfVpVzVVVVVVVVVVVVVVVVV$V.V8VBVLVVV`VjVtV~VVVVVVVVVVVVVV VVV(V2V<VFVPVZVdVnVxVVVVVVVVVVVVVVVVV"V,V6V@VJVTV^VhVrV|VVVVVVVVVVVVVVVVV&V0V:VDVNVXVbVlVvVVVVVVVVVVVVVVV VV V*V4V>VHVRV\VfVpVzVVVVVVVVVVVVV1G221p:p:)ik4= k4_1R=Gp:b=p:%p:_2)ik4ip:k9Xk4r1p:p7 I1p:p:R_f'6Cip:ip:p:p ip:R91ip:)ik4G2?i?s?+k4d'k4|k4k4k4k4k4k4#k48k4Dk4Vk4bk4tk4k4k4k4k4k4k4k4k4k4 k4k4.k4B7\k4ik4wk4k4k4k4k4k4k4k4 k4 k44 7` 7 k4 7 k4 7!k4!k4*!k47U>7>7>7>7?7H?7y?7?7?7 @7:@7b@7@7@7@7 A7FF>6'_>6 '_>6F_>6F_>6F_>6F_>6F_>6F_>6G_>6$G_>65G_>HGAlDr1G1G2W\H`ф1VHiVHiHc4J7=Tc4|Lp:oRl2O1WTtQfTc4pTx|T}T}G2TTa_c4VUVGVdQU QU QU QU QU QU QU QU QU U>Uc4V>V=VA*VF:V IV WV1cVIqVQOKzVc4VVVfV1VfV>VZ>V2V`W`Wd#Wk4Wh>WOK_W7Z>h=p?2h>G\>N\=W\=c\F6o\:]Z>+]2MQiux`eģ`ʣxaFa17VxbVbbb7b1VcVcVc|MJt5cccc=cVdd4|L^e^t6CRk4<gGG2"R5Eyk4R5Eyk4)S9qV3hbhc4hc4VfifKA57Jo4DJo4eCc4k9=k7ekk4k7<R5Eyk4|LAm \mc4wmm8n®NLn}Yn}fn}tn!'n0a_c4V Vp V_  p1p1p1p1p(1p2$ ,]D!*D11">DM1P#WDh1#oDh1#Dr1$Dy1<$D1 l$D1 $D $%D1 <%Dr1 H%E1 d%Er1 % E* %.E1 %H32>H33@ I34 B4I35TCO3?OD4@QQ4BQ,x4DQ,4FQ,4IRF FK4RF *KlRF *KRD kJ4KRD J4KSDJKPSF m*KdSFKLTFKdTFoKTDJ*KTDJ*KTDJ*KTDJ*KTDJ*KTDJ*KTDp#*K UF K0UF )FKUF 1KUF LFKVF K0VF R*KDVKVF KKVFK4W,4LXW,4MtWFoOWDJ*OWDJ*OWDJ*OWDJ*OWDJ*OWDJ*OXDp#*OXFO0XDJODXF R*OXXF m*OlXD kJ4OXD J4OXF OXF )FODYF 1OXYF LFOYF O$ZOZF KOZ,5OZ,]PZK QZf L*R[5R0[G3RL[L+5Rd[a ,L75R[F &R[F wR[g R\g S<\FAUx\FwU\k5U\{5Z\F^\F |L5`4]F LF`P]F L`h]F L5`]F *`]F*`]FOa]Fa^FL aL^F *a^F #*a^F "a^F 1a4_F C a\_FFax_F L5a_,6a_K b_f L*c_M6c_G3c`F (6cD`F wch`2pc`g d`g e`Ypga?ph4aFipaF LFkaF Lkaf L75kaF*kaFlO*nF Dn,7oF P*poF L*oFppFpqF rF wlrF ~rF LFrF wrF P7s,7sF EtFuF wvF K8wF FTwFwD kJ4zD J4|DJ|Q|F}F *}F R*0}F m*D}F )F}F LFPF HDJ*\F tF * FO(FH,]dK hF L*G35a ,L75ԁLe8F Q F &F wFQg 0g TFAFwk5F$F |L5`F LF|F LF Q8ЇF F L5 F *`F*FO؈F& F0FL pF *F #*ԉF F "(F 1hF C F R8̊FF, 9,9T, 9,(9܋K G3F >O*F 89F DF*Fg Fg 4FtF{ F FlF C0ЏF LFHF  ĐF 7ܐF FF\,]xK |F P*F L*G3ؑ5F P7R9(f L75DF ~XF R*F *F wR8g tg p̓F wp k5LFF LFF ȔF L9<F*TFShFF{ FF HF F "F 1F C $FFF9̗,9F KF*4FFԚS:F EF6$F S@F *TF R*hS*xF m*F wF )FțDJ FU<F LFXF EF F C F FF @F SB:tFԞDJ*,~:,:dT5|r:T*T1T:ȟT*T*U*4UL*U*d4U*|>UHU:RU:ȠG3wH:wH:TwH:,2 U ; V1 G3 $+VFĢ& 6V*,e ;,l ';0;dTVA;hG;xdVO;}VU;TVO;dV ;VO;Gd;VU;VG;VG;4Vj;l WG;Wt;@WG;ĦJWU;ZWU;deWU; rWU; ԧWU;$WU;tWU;ĨWU;WU;XWU;WU;0WU;XU; XU; dXU;"XU;$<%XU;&9XU;(IXU;*TXU;,L]XU;.iXU;0{XO;2 XU;3|XU;5خXU;7(XU;9xXO;;X;<$X;>hX;@XO;BܰX;CpXU;EıYO;Gر Y;H Y;JX-Y;M;Y;PFY;SԳfYU;V$rYU;XtYU;ZĴYU;\YU;^dYU;`YU;bYU;dTZU;f&ZU;h2ZU;jDGZU;lfZU;nrZU;p4ZU;rZU;tԸZU;v$ZU;xtZU;zĹZU;|[U;~d&[U;2[U;G[U;Tf[U;r[U;~[;|[U; ;@ <T[;[ <[U;<[U;h[$<[;[ < ;\U;D\;3\U; C\U;pO\;`\U;p\U;dNR<\[<\d<\k<<\r<t\{<\<\<$\<\<,\<t\<\<\<\<(\<\<\<\=\=@\<\=\=\=<#]O;0]:=TL]G=dL]P=n]X=t]X= n]j=Xn]r=n]{=8]=]{=]{=8]{=]U;^=,^=B^O; ]j= J^O;]r=R^j=R^X=d^U;R^{=(v^=d^r=^U;4^U;^U;!^U;#H^O;%^=&,=(,_)T!_` )_"),)_+HF+,=+ ,>/4d*2Ld*2ddF2,2_"2e>2e&>3e3>4heD>5,6_"6hj>6h|>8h>:e>;8e><ph>=,]>,>?D:itAF*BOi>B Oi>C,Ti>EHYiFDnimGTF iH,H,]HF i*IF iFIF iFIpOi>I|CtJ>KFmMi:Ni>NF*OD,]OX,>P /j?RH Mj ?S| Mj?U gj)?W gj8?X gj??Ywj8?ZiF[0jF[Oi?[j\?\Tj*\j*\j?\Ct\?]0?_Fma0F*bP@blcc,]c,)@dOi3@fOi?gtk:@hDnimh,V@iF k*lDniml D:itmdF in|,b@nD:itp$F iq@F k*qPDnimq,]rkl@sTi>tDnimu@,y@vXk@yp lyCtylz l:z ,@z85|PG3|lF k*|ql|l |y@}l@~4l@~Ll@~dl@~| m@~+m@~@m@~Tm A~mmA~m!A~ m-A~$m*~<m*~Tm*~ln*~=n*~[n*~~n*~n*~n*~n*~n*~o*~3o*~ LoNA~ Ct~X ,Ax F k* jA rA LF  l: QA ,r !>r!l8!,At!,B!,B!,"B!r1!r7B"F k*"r*,"Ct"rt"rA,# l:D#l#s8$s5$4sB:$Gs`B%Ts*`%mslB%msB&|sF&s4&slB&sB(s*(sBP*tl*tB*5*,C*r**Ct+Yi,t,t@-l$- l:@-RU\-,;Cp-EC-,aC-,qC-,xC-F k*-rA@.)u7X.Ct/rA0 l:l0>u70KuC0l0,>0,Ch1,C1rA1F k*1sCp3u*3l4)u74rt4rA5 l: 5s!D@5s/D`5,CD|5,MD5,]5,WDT6,_Dl6,46uiD6i:6u*<8u*X8lp8u|8,]8,D8,D8,D89,DX9,>|9,>9,D9,D9,D:,qC4:,Dh:,D:,D:,D;F k*;Ct=vE=v*=v=v E=vE>w6,>lD>uP>,,FE>,PE>,V@>,D>,]E?RU: ?i:8?w:P?jAh?F k*@x8A!x}E8bi::bD:it:(cDnim;<ci:>dDnim>8dD:it?|iF i@i,E@iDnimBiD:itC(j,AGD\j z6FtjF iFjDnimFjD:itGj,KGHkF k*J$kF qlJ@kDnimJ|lD:itKlF iLl,]LlF*MlD:itMmDnimN@mF iO`mF qlOtmFwHhGOm,]Pmkl@Qm!z>R$n+z>S\nDnimTn,vGUnF iFW4oF k*WPoF qlWloDnimWoD:itX pF iY8p,GYHpF k*[dpF ql[pDnim[qD:it\qF i]r,G]rF iF_|rF k*_rF ql_rDnim_sD:it`sF ias,]atkl@bctDnimdt,De,uD:itgHuGhuGjv,GlvF k*nvF qlnvDnimnxwD:itozF ipz,pz`zGpzkz*3pz4H qz,rz4HGrd|,tp|zv|zv|' v|7 v|,+Hw|{y}G3y}{4Hy0}{4HyH}{@Hy`}{yL{yԁ{HyԆ{1z؆{1{{H|| I~P)|I~x)|'IX)|oI>|IČU|Il|oIDl|'I,, ,J,,J8,JH JX|4,1,=J4,FJ`,hJl,oJx,6OivJOiJ\}ȑo}ԑ }}J &,}J<}JTApf(F }0}2}Jf }}Eؒf ~wF '~Jf ?~*FR~Fb~J(t~*F~B:ܓf ~JF*F~mFmF~*0Ct~F~*HF~*~*ܗ*,2G3}1 ܚ1 ***d***P-*@*ȩR*ܩf*y*0,8,L!K)KتK6K0,8,L_"XKY8fK`> ,, Lج,LF *0Fg HFg حFOXF L*tF &F LFF 0F whFwF Q,+HF*F-*,6(OiPLenLu6 ,hJ8OiLXLpL l32p̶Yp?p AL8OLD]L\nLhLLF }0LLطF*8a* f~mTFmf~*ȹ~*Ct,],Mк,hJ,oJ,6 %*87MHOiM]1f d.Mf w:M f yhJ,F L*F}0f PMf LFF*FmDCt,hJ,oJȽ,6sMF }0F b~J0F ~B:LF*xF~mFmоF~*Ct\F R~x,]_"s*W*f1uMjF4:ML5d|sF|OiM@G3\jAtQA Yi*Dž*ׅh!\=Mr*bFN4x0d4ss5)u7{RN ,uN$FFPOhg?zwG3C04Gs`BL5h*ŇNއ***(*@,NjA0QALMwda8y**(,hJD܉$O\1h0OOiDO,Oi^OOikOOiOtLR**F }0'e8:e8(M`[Oxo~JF*f~mFmPf~*Ct0,oJ<9X,]h,O OiO FOӊ*wHO8LFP,]`, Pp,2$9*J*e*s15]F*8,2`,PƋ%P4OPsP,P!xBP"H_P$P(<P)xQ*ߌ-Q, EQ-T3bQ/HwQ0]Q18rQ2Q3Q4Q5hÍQ6׍ R7R8L4R9IR:+^R;0?sR<|TR=iR>R?R@RAh؎SCSDP.SE/JSGG_SH `tSISJSKSLԏSMTNXTO|/TP&ATQ8STRhRkTSaUUu:Vu UV4uhGWX2UX UY UZ U[ U\hΐ U]$ې U^t U_ U`| Ua Ub Uc ) Ud` 2 Ue!C Uf!VUg$"oUh#UiL#Uj#Uk#ӑUl%Vn\)FVp*XlVu+oVz,oV~-V-V.VD/ϒW 0.W0EW1 fW 2%~W2;W3YW3yW`4W$5 X7IX7eXD8}X:,X<EX8=YX=rY<>Y\?7Y?UY`@ޔsYDBcA,DFhGcFFGcIFJ,cKĞ*Nܞ1N5O]O *P$1P0,cQLFUdcU|,dU .MW,dW_$d[*\81\Hڞ*]d1]t*^1^<*_H1_̠T*`j1`,a_"al>8damHddVdg̤bdi̳bdkbdmbdo8bdqTbdsp%bdu=bdwPbdyĥabd{sbd}bdbd4bdPĴbdlشbdbdbdئ bdbd(-bdP=bdxTkdlkdbḑbdbdkd ˵bd<ߵbdXbdtbdbd4bdJbd̨_rd@rdrd|dhdd̳Զddd0dHdd\)eDIe4W e<e.e$w=e Ne^eNexqehƷ~ePշe@NePe8e\e@#e(3eCNeFSeFjeF*F*FeFFeFL75FL*Fd.MFEfFr:F fF F`FG3F)FFmFU9*FtFʸF*F*FtF~*F}0FL*Fw:MFyhJF~JF?~*FR~Fb~JF~B:F~wF}}EF'~JF(FLFF~mFF fF&fFF#,fF6*FFFG*,],] ,ifF*p`txt8ufT,]f`fffmctF*,]",/8OiJ DB2 \F* ,] ,f F* Oif wH`LFPFla*d*3,]*F iF Oif0F k*F qli:F iD:it+z>kl@F*lDnimT˺4g[g4g&4g4@*_**A ,],F i*<F iFhOigxLF > F*!,g! ,]$,Oig%<7'TF*'l,]'xg(F k*(F*(POig(hOih+Oih-4,)h0t,Gh4CR<7D:it:Xuh;@DnimBF iC,2C_"D'iD@˽'iF۽8iHTiHI biJ$KJ<|iJT0iJKiLZKLG3LyiL8yiN8*Q*Q jQ R ɾ*S ݾS KS KTH@jU?IjW8QojX{yjZj\8 ja jfjj ko,˿+ktH?kwxhkzUrk|}k,fYkfek, fYk\fekt,6OikFmTi>F~m ,],,f<OifHTi>d3|,]F*OilOi lFm*T,llCtTklkll4>tkl>,]5F*OilOil wH}a/Ij Fm L*< elX ~*x l > ,] F*H!OimX!wHa!Ym!gl"/Ijt"Fm">@#,]L#,+m\#F*l#Oix#wH}b#~#Fm#FF $>T$,]`$F*$Oi?m$wHab4%/Ij%ggm%Fm%FF@&>X&,]d&,m|&-U &j` &U*&9*'Fm,'YD'jP'{m'Oim'wH`h(m((F*\)Fm|/Ct\1Rnt2,]2Oi>2wHa2Fm3F*83i:P3>h3,]t3Oin3wH`4Fm4jn4n5,`5Ct85mnP5Fm5,]5 46>L6wHn67BP7,]`7wH~` 880o`9Ti>9,]9,9Fm9F*9:6:F:::;m ;aD;f]goh;,hJt;Oio?6o0?CoH?PolAsoAo BTi>B,]BOi lBwHaB7BCFm$CF*\C,]xCr*COioCTi>CqlPDF*(EmFf~mLGCt\Gf~*@IFmlIf eIf IF }0ILI pI:Jf eJ,](JOip4JD&pLJ,hJXJOi;p(KF* tKFm Kmo KTi>Lo,L,hJ8LOi\pPLTi>LlFLF*8M,]PMOiuphMpMpMpMpMp(Np@Np|N*NCtNFmN,]NF* |O,] O! !Ow"p!OOip!PFm#RF*$@R,hJ$LROiq%RTi>. S~$q/(S,hJ/4SOi:q0SOiRq7SF L*=SrnL=SL= Tgq=$Tsq==TF~m>(V,hJ?4V,q@VTi>FV~$qGV,]GV,qHWOiqM(WOiqSLWOiqYpWFwHV_W.M`X p`XF R8`dXF `|XFN`ZFmaHZ,]bTZmrclZOircxZFmdZF*eZTi>eZ,]fZ,(rg[,2ri[ k4[Oin[F*od\,]op\Oibrp|\)jrq\F*q\Ti>q\3r4],hJr@]Ti>s|],hJt]Oiru]Ti>x],]y]Oirz]4s0| ^`@|(^s|D^v7|`^Y|x^!F|^w"p|^Fm|_F*}\_*}_,hJ}_Ti>~_,hJ`Ti>@`,]L`,f\`Oifh`Ti>`3`,]`raDra48bcrLc@ c,sc,#sc*sd:s0d*Hd Hs`d7Mxdsd*d"Hsd8Nsd?NseI&eaUsxf,hJfTi>f,]fOiqsfLf p gFmgF*dgf LFg,sg,sg,s hs8hOis`hwHsi*8iqlPif d.Mhi89isi7i i-siLFi"1 jf PM$ja BFvrtwlF,wieHwfx*{F*{,hJ{Ti> |,hJ|,oJ$|,6u`|OiJp|OiDu|OiVu|F '~J|F~* }*}Ct}F*<~Fm~*~Ti>$,]0,xu,u,uOiu0OiuTFwHVuLF R8hF xrtuFmF*(Nf LF,],u`,v,*v |Oi^OOiDOSe8̄*X!x}Epef eԅ**0+*TF }0pf  p@*JAvІAF*f~m(Fm(f~*xb*dutCt::Tt <t!Ti>"Pf e#hf*#d,]#p,v$ĔL&ܔOit&0t(HA*(df LF(,](,])}5*F**̕Oi]*:+i+0Ct+dFm,*-ؗ:-*-g-0,]-<,].HFm/|F0v0̘Oiv0ܘOiv2wH`4xTi>5ؙ,]6B 78Ti>9PwHv:,];F*<hOiv<xwH-Q>kl@? Ti>@XFmAQAB,vBOiwDf uI FG*IlF*IF*I؝F*I,vIOi-wKLCwQdOwQ|*Q*QF  fQD dwQ(kwR@F R,wRFG*SlF*S4S)T`;*TF*Tܧ,vTDFVX0OVبOi*xVz*[1[$+5\<5\H+5]`5]l^,f F^D2^\G^hL_f *_F L*_F }0_ԪF )F_F*__\_a i`̫&f`wOx`a &faVxa bxa,F  fbDD dwbta fcf #,fcf 6*cĬFG*cجF*c(F*cįF*c#chFmdCtehF*f8xfFfP*fl*f*f *ft *fܴ9*f*f*f0*fFPMf,f ,]g,whOiyhyiF*i$,8yiT,Cyl,Nyo,Yyr*u1u(*v5*vLvtX*vغ  vv4dvpttyv*v1vwĻwлYi*xdyx̿y|d/y Uyvy5zNzy~z~z\z,], P ,z Oif0wHb Y$\zP\*h!5w"3fL**{{8*XLFL%>,]F* Oi({$Oi3{::Ct R{Fm,] f0,]<F*Oib@:!:+>CtTFm,F*d,]pf,]f,]f,]f$,]0Oiu{PF*4CtFmTi>(,]4fX,]df,]f,]f,]Oi>$e:<p*CtFmF*,]_"::,nLDF*Oi{Ct@Fm0,]<!mX,]dR|`*k{F* Oi{$Ct$Fm{,]L F:Oi|CtF*Fm@|\,]hF*xOiMCtFm,2nLD,]P|:h:F*OiX| CtFm**,]:,Oil|<CtF* (Fm u| u| ,] F* Ct Fm ,,] 8<| POi| \Ct Fm <F* l,] xOi> Ct Fm D,| TF* dCt dFm $ ~nL < ,] H ,] T : l : } Oi} &}E  5t h Ct F* Fm ,] : | :  : 0} HF* xOiD}  m* |* x* Y} Y}" Y}$ Y}& :it( Ct) <Fm* ,}+ 2x6. !x}E. !,f. !F*0 (!Ct0 \!Fm1 !32 !,]2 !:3 !E23 !S}3 "Oi}3 8"Ct8 #Fm9 t%F*: <&F cF*: h&,f: x&F*< &>< &Ct= 'Fm> '? h'3? ',]? 'L@ 't@ ' p@ 'i:@ 'F*@ (Oi}@ ($OD )*D $)R^tD )]tE (*CtF *G *FmG ,,,~H T,F*M ,CtM -FmN .,`O .Oi1P .*Q .*Q .Ti>Q /,`R /Oi1S /*T 8/*T P/Ti>T /,`U /Oi1V /*W /Ti>W 0,]X 0F*Y 0=~Y 0jAY 0OiI~Y 0Ct[ ,2Fm\ |2,]] 2F*^ 3Oif^ 3t` ,4ta 4 *b 4Ctb 5Fmc 9,~d ,9,]e 89k~f P9F*f 9Oi~f 9 *h 9Cth 9Fmi :,~j (:F*l 8:Ctl H;Fmm p;,]n |;Oi>o ;Ctp <Fmq =F*r 8=,]r D=c:s `=r:s x={~s =F*s >Ois >Ctu >Fmv 0?,]w BCt BFm pC,] |C2 CS COii CCt DFm 0EF* E,] E,] EJAv EL FA $F@* RFF 8R,| HR nL `RwHb RY RF* RFm RLF S> S,] 0SOi @SwH.W S p SnL S `TFm pTF* T,] T,8 TOiE TwHb HUL `Ua xUxA U{ UY UF* WLF W,c ,WL5 DWF* XOir XOiy ,XY DXFm \X,] hXF* xXTi> XF i XDnim XLF Y,> YD:it YF i YDnim Y,] YOi YF iF XZFwHhG ZL Zt ZF i H\F* \FF \D:it |_F k* _F ql _Ti> _Dnim g j? Xj  mv# o| |p8| |sG t, t> tҁ tdg t7B 8u Pu,2 `uYim |u,2 dv_" vG3 v4 vF ve@ vL wL wL 0wX HwX `wF xwF w/* w<* wPd w^* wi* xyp x| 8x Px hxF x x* x* x* x* x* y* (y"F @y2F Xy@ yM* y[F ylF yxL yF z* zF 4z* LzL dz zĂ zЂ \|# 0~ p @:# \BЂ Uh `k uL ,  F Д   & 02 H > `J l)Q C 5] <i Gu ̕Xu ki |*  T ̖ 8 X* * )* <7* <G* p RĄ gʄ 4tF F } 0 T* * \1 B ,F ,  4^ PF l 3 * F HF Բ G3 , ˅ 0؅ H# ܵ p,` FF ,] ̶G3 K 4 ! 3# \6 , , ܸ, f ,d \,k ,FJ ,Ą (,r ,1 F F к Ժ,` ,z \, f LF л* FF  | ȼ# `* *# D9H \SH x ! Ծ," m#" # @$ ͆& ؿ&( 4( l=+ . H/ N 2 d4 ,6 , 6 ,18 ,9 ,D9 D,[< l,l@ D 8D Pr:D hrD G3D FFD ,,D <E T,E tFH FH '*H ,H G3J #J \,K hD:itN F `nLO (F k*O @F qlO ,O F iR PD:itR hF `nLS |F k*S F qlS ,S $DlmV D:itW DF `nLX XDnimX pF k*Y F qlY ,]Y ,Z F *] F*] TIj] |^ ^ ^ ^ Ti>^ :_ ` H.` xDlm` PDnima lB*b F Xb F qb F k*b Oib@b 0F id F`nLd H,d TD:itg F ih F `nLh $F k*h <F qlh @,h LDlmk `D:itl 8F `nLm LF k*m HF qlm ,m D:itp F `nLq F k*q F qlq ,q D:itt F `nLu F k*u F qlu ,u (D:itx `F `nLy tF k*y F qly ,y D:it| F `nL} F k*} F ql} ,} D:it F `nL F k* F ql , F * Dnim D:it F i F k* F `nL , D:it F i `F `nL tF k* F ql , D:it F k* F `nL , D:it F X F `nL F k* F ql \, hD:it F `nL F k* F ql , D:it  F `nL $ F k* < F ql ", "D:it 0$F `nL D$F k* \$F ql ,), 8)D:it \+F `nL p+F k* +F ql t/, /D:it 1F `nL (1F k* @1F ql 1, 2F i P2D:it h3F `nL |3F k* 3F ql 6, $6D:it (7F `nL <7F k* T7F ql $;, 0;D:it =F X 4=F `nL H=F k* `=F ql ?, ?D:it @F `nL @F k* @F ql xC,] COi1 CFwHhG CF i CF ql D,] DF* 0DOi pFD:it F IDnim 0J4Ӊ JF k* KF ql $LF i DL,> PL,] \LD:it xLDnim L4Ӊ M PF ql RF i 8R,> DR,] PRD:it lR TDnim U4Ӊ LVF k* VF ql XF i $X,> 0X,] ],] ]D:it ]Dnim ]4Ӊ ^ daF k* aF ql bF i c,> c,] cD:it 4cDnim c4Ӊ d gF ql hF i h,> h,] hD:it iDnim Pi4Ӊ j PmF ql nF i n,> n,] oD:it $oDnim to4Ӊ 8p @sF ql tF i t,> t,] uDnim Xu4Ӊ lu vD:it vF k* 0vF i Pv,> `v,] lvF iF! v=! yF*$ yi:$ yOi>$ yF k*% & z,]( zD:it) {Dnim* P{4Ӊ+ |- F ql/ F i/ ,>/ Ā,]1 ЀD:it2 Dnim3 <4Ӊ4 6 F ql8 F i8 ,>8 ,]: ̆D:it; Dnim< 84Ӊ= ć? 8F qlA ȋF iA ,>A ,]C D:itD DnimE l4ӉF H pF k*J F qlJ F iJ ,]J ,V@K ȑF*N 8OiN HOiDP XD:itR S tV DW DnimZ $F i[ <F ql[ F k*[ D nL[ ,>[ ̤,]] ؤD:it^ Dnim_ D4Ӊ` b $F qld F id Ԫ,>d ,]f D:itg Dnimh X4Ӊi k $F qlm F im ԰,>m ,]o D:itp Dnimq X4Ӊr t F qlv F iv ж,]v ܶOiw OiDy D:it{ ,D nL| @,]| LOi} XD:it D nL ȹ,] ԹF* POip `F i D:it $Dnim +z> 4!z> Tkl@ , Dnim Ծ,] F* Oi‹ D:it DDnim F ql F k* ȿF i ,] F* wHP Dnim TF iF h,] tF iF Oif D:it tTi> F* Dnim FwHhG ,] (F iF <D:it ,] F iF D:it Dnim (,] 4F iF HD:it h,;C EC Dnim ,] F* Oi> D:it TTi> pkl@ Dnim ,* F i $,] 0,> @F* \Oi> hD:it Ti> i: Dnim F i F ql F k* ,] F iF LF k* hF ql F* Oip FwHhG D:it \F i xDnim kl@ !z> ,+z> Lg: d{p |F ,] !z> +z> kl@ 0Dnim d,] pF* Oi D:it Dnim F k* F i ,] Oi> D:it HF k* F ql F `nL ,,] 8Oi> DD:it ,F ql F `nL ,] Oi> D:it F ql @F `nL T,] `F* |Oi> i: : F`nL Ti> F k* Dnim   0. PF i h,2 xG3 y Ij Ij 0  Hc  6 $Oi D D D' D6 FD @FS D,2 P[C> D' D tD6 D D xFD FS ,` ,> Dc r: c f CH F )F C:M Ca Cc d   H! `!` l!a C !a C` !C5 "C Ef d"& "F G3 #CF #C 5] #Fm $Ct h$FU9* $f ʸ $D %,` 0%] %G3 %F  %m &t &* 8&,я &,ڏ &D & E '!Ep '/EF '@E1 'QE X(Fm x( ( (' (Oi3 (dE* $){E* h)E* )T* )C )* ,*EV +El ,EF ,EF d,_" p2WG 2lG 3G H3,] T3 32 H4LoE `4Gk l4F i 4F k* 4F ql 4ct 06D:it d6Gm 6G* 6G 6G* 7u* 7G1 ,7G1 \7fm t7FwHhG 7Dnim 7G 8H: 8H: ,9,H: :QH; ;zH: x=F iF =,2 =_" >Hn >Iz AI O RJߑQ TJߑR VKߑS X5KߑT \YAKߑU ZJKߑV [xߑW ]TKX ]jKZ ^jK\ ,_wK-^ _jK?` `jK[c |ajKe bjKh bjKk LcjKm xcKo dKq dKr dKs dKt eK u |ed%v eI5w ex fOz fjKY| dg L~ LhL j2L lGLܕ LqfLkl hq qvL% tLp `tL duLߑ Tv5 v lw wLʖ PxLۖ xL 8{L/ {LL {L` H|L ||M |=M }JMߗ @~_M ~rM M0 (t: PtR ܂ts (M: ht M N N 'NŘ `'N ̆U 9N' 9NF DNb Ĉ tN1 }Ny N N ̊Ny ` N O͙ ,Oՙ O G3 (.Od; \AO AO HOh HO YO dO \dO mOe xO O O" O" O Бbe O  O7  PG hP P  )P< 2PG ;PC HPC QPC ̘ZPG cP 0uP  Pm PP| |P P ԛP 4PÚ `PԚ Q ,Q QQ  ^Q6 vQS Q @y:! Q # DQi& {( Q, W:. ț0 Rߛ2 4 5 l6 7 +8 rK: @:RS< xRR\? ̲mRzA $RB 4RE RH R؜L RN PtO tR RU R V  SW xS/Z +SP[ 0ASq\ TSP] мfSq^ t_ `b d @f h j S*l Sߑp |S~q Ss Su ,1y ,z  ?Ԟz ,]{ ,+m| Oi~ $ql `IT xf e f  F }0 F L* L : F* df~m Fm f~* <f e T,oJ `Oi) Ti> ,oJ OiN XTi> ,2 T ! ! 1 z ,z  1 G3 TC T T T U* tUʟ (KU LKU KU WU WU KU <,2 ,s W W W* |Hi3 W <W PW  X LX X t(X 3X  HCX OX ,^X rX X TX bb3 X 3 X Xɠ X X* X> pXѠ XѠ YѠ %YѠ 9YѠ NYѠ cYѠ (yYѠ Y* @Y> pY* YѠ Y* Y1 ,Y Yݠ Y Y  Z3 Z* ,ZѠ \%Z3 :Z PZ3 lZZ3 ddZr uZ tZ Z |Z Z Zɡ Z: <Z: TZ֡ lZ֡ @[֡ X[֡ [ (*[* D5[ d=[ڡ F[3 S[ \[ k3 p[O [: [ [   @, t, * \ɠ (\# @C+ \4 \* $FF << TC @iF Xi< p\#  ] f , f 9]o 9]* FF $E]m L[] pp] ] ] ] ] 4] `] ]Ţ ^Ϣ ^٢ &^ <7^ hI^ [^m^m^^FX^*iF^nLd*d*nL `nL<^*hr*^^*4^P _*h_*,_*:_֡J_*F8Z_ 3Xj_x}_*F*'8 *Nsl *.  *6  *@D!*L!*ZP"*j"*|$#*,$d-@$*#/t$F*0$*1%_*2%_*2%_*28&_*2T&_*2&9H2&SH4&_F6& `F6 ',26<'`ӣ7T'`7`'`8x'Oi8,(:(;)<*=h+>@,?,Fm@-`*AH.G0A/-*B/-B0F*C1C2*D3D4a*EL5a0EL6a*F6*F|7*F8*F8a*F8*F9+aF$:CaFD< F@>RaF ?baդIlA{aMDaPPDa*RDaRTEaUSELFTF"1TFU,F .MUDF,}UFCtWFmXFFmXFTi>YF,vZFOi\GbFd0Gb*dG.b5dGF df\,hJg\OiJh,]OiJi]bm ^bn^f jeo^F ~B:o^F }0o^f Seo^F*o,_ co_F~mo`c5p a,c*p(aFmpbF~*qcCtqeDctrdg_cs@hTi>shF b~JthF R~th,vth,v`iOivJ{ifx*~,nFG*~nTi>~n~JnF o,voOi4odpoFG*o#dnLo?doF*pF*pTi>8qTdnLPqF xqF L*Fuq,]q,]qOi9qd@sdktd tFmtt,]tLtw"tOitdtFmtLFuTi>LuTihu,]tuOiuOièuFmue*ue*u-eʨ v?e(vf LFXv,]dveܨLwe4xPy,]\y, Phye yOi`yeECyeye*ye*yFmD{f.`{*f{|{Df*{^f*{LF|,]|,2(|Oi@4|FmP|kCh|Ti>|,v|OiL|F |F L*|gb|FG*T}Ti>},2}9Ht}SHt}9H}}SH}~F*,~FF@~F ET~F 6gFh~F |~F )F~DJ~DPg,~d~g ~g ~Fo|g#0 SDXglFDg( c gǩDg> F gѩ DJ*4gݩHDJ*\DJ*pDJ*FDJ*DJ*F C ԀF LFF FF ,v&h*F*ȁFG*Ti>LF tF L*a*p,MЃ3#  ,",]OiĄOiԄwHbXu*tYLF^f*f.F ̊,Pk3 ifp[O4,iQLI3dZ:7ik<HPHFi|ԍYihi |i'i*ix,i* Hi  i i i jDj$jMԐ$j1jXjjĪjϪ `jڪ#yj&j*(j(jN)̔jN* jN+Lj,j.j 1<j'3j'4 ,]56wH4b6X,7dwH 9F*:4,hJ:,];k<f L*<5<(G3<DFF<\L:M<ta k75<kR< F K=dK =hF E>F S>S*>F *>F R*>F m*> F w>LF )F>hF LF>F E>F 6gF>F >DJ>ؠDPg,>hdCg Dȡg EFoG |gG\#I SJآLgMPFOkޫOXkQkSk0U4kEWD kJ4Y̨D J4Y4Y[dDg(\bt cc eحk۬fgǩiDg>jF gѩpDJ*p4gݩppDJ*xDJ*xDJ*xаFxDJ*zDJ*z0F C zXF FztF zF*z*{F *| F SB:|HF" |F"~̵F F"&LF#-FOlF6FԸFF!#4,F1#<lF1#GF4D;#*tFL#D]#*Fy`Dp#*xFUFUF̽FF)lLF "hF 1F LF 9l~F ilX,]lOixF*kTi>̿,,ޭ,4OitOi뭖OiwHFbdl*l*lFll*c*LF< 5TYlFm|F*<FFX,]pOiwHV#/ S$m9<LTmElf LFF*FmEm_T6l,]xOi n<wHWnFmF*>,]`wHȮ #߮l#t#殪,,]8OiDwHVrFmTi>F*0_"4,2nDn\nxn¯P oЯ!oޯ:oޯIo쯹H^opo`~oo oo0o08oo`oCoIooPpIj!pO9prTNp{LlpͰ,Hpx,,,_"q<+qH8qTAq`8,@v$,uqqF*Fy0FF#DRD7iD7D7DDRDD7DDDEFFFFFFFE#D$FFNG[GFGGGF;9Ea 3+EHLHEHLHnH}HHh?HHHHHHHHHHHHHHHHDHDHYJeJ#DYJeJYJeJKYJ#DYJK#DL=LEL=LSLWLbLiLtLWLbLiLtLEL=LSLKLM=LEL=LMMEL=LSLM#DL=LEL=LSLEL=LSLDWLbLtLSL#DNANN#DOANN#D0OF#DPANNMM#DQANKQ#DL=LEL=LSLWLbLiLtLEL=LSLQRR#DERR#DERRRLSL=LEL=LEL=L#DLM=LEL=LMMSLWLbLStLEL=LSLDWLbLStLSLSLSSLDSWASSSKFFD]UeU]UsUyUU]UU;9UVVFFUFE^VFFFVFFFFFFFFF&W4WFFRWFRWFRWFRWFWFWFWFWFWFWFWFWFWFWFWFWF-XF-XF-XF-XF-XF-XFFXFXFXFXFFFXFXFFFFFFYFYYFUVFUVFUVFUFUFUFUFUFUFUFUFUFUFUFUFUFUFUFUFUFUFUFUFUFUFUFUFUFUUVFF[FFFFFFFFFFFF[FFFFFFFFYJ)\F)\FYJFYJ)\FYJFYJFYJ\F\\F\F\F\\F\F\\F\F\\F\\F\F\F\\F\Fa Fa Fa Fa Fa Fa Fa Fa Fa Fa FFB]Fa]Fa]F]F]F]F]F]F2F2F2F]F]&W4WF"^3^FF]FF]F]F]F]F]FGF]F^FVFVF^FF^Da _a uddda ud_eeee;9heheeeh#D#D>F>F8AaiF#D>FFiFD#D#D8@j@jF@jFFFiLFjFFjFkFt9#D#DgkgkjF#D>kFF#D>FF#DhAF#D8Fbl#DDlF#D8NEDD#D8F#D8r#D8rr#D8rrrFFxsxsDssssNt,tF#DqFai#D9#Db8rbl>FD#D8#D8u#D8ussFD#D#DWA#D#D#D#DD#D#Div#D]#D]8#D}Hvv#Da vvi#Da blblblblblblFD#Dw#Dw#Dw8#D>i#Dw8#DwjFF#D#D$iFFNG[GFGGGF#D^VF#D^Vt9F#DiF#D(FFFFFFqxFqxxFqyyxFqFqFqFqFq#D(FF#D#DaiP'#DNA'NA''FF#D>FF#D>FF#D(FF#D]FF#D;(FF#DFFz#DhAAF#DqFF#D(FF#D(FF#DhAF#D]FF]F#D(FFDSvzzz~zzD;9U+{{||E9|E|EEEEE||||||EEuR#D#D#Dg0u2M}g0u2M}W}DDD}DFFF;9NA999jH#DANN#DAN=LEL=L;9#Dg0u2O[rW}#Dg0u2,DMMMDDDFFF#D#D#D#D#DCLu2EEDFF#D#D#DFFF#DDjN #DR@#DDg0u2E\Rg0u2E\Rg0u2M}c @g0u2@FFF#D#D#D,Uh,Uhz#D#DU#DDD;9;9#D[f#DF#DF#D#DF#DF[f#D#D#Dό#D#D)#D#D#D#D#D#D#D#D#D#D#D#D#D#D#D#D#D#D#DҎ#DF#D$#DF#D#D#D#D#D#D#D#D#D#D#D!G#DF#D#DFFFFFFFFFFFFFF#D#D#D#D#D#DF#DF#DF'7H#DF'7H#DN#D#D#D#D#D#D#D#D#D#D#DF#Dg0u2#DF#DF#DF#D#DF#DF#DF#D#D#D#DF#DF#DF#DF#D#D#DFu2#D#DF#Du2F#Du2F#DF#D#D#D#D#D#D#D#D#D#D!G#D#D#D#D#D#D!G#D!G#D!G#D#D!G#D!G#D#D!G#D!G#D!G#D!G#D!G#D!G#D!G#D#D!G#D!G#D#D#D#D#D#Dg09#Dg09#D#Dg09#Dg09#Dg09#Dg09><#D#D#D#D#D#D#D#D#D#D#D#Dg0#D#Dg0#Dg0#D#Dךܚ#D#D#D#D#D#D#D#D#D#D#D#D#D#D#D#D#D#D#D#D#D#D#D#D#D#D#D#Du#Dg09#DWNG[G#DGGG#D#D~DDD;9g09zK;9g0;9g;9DDDDD_bgijȳijȳijȳijȳijȳijȳijȳijȳijȳijȳijȳijȳijȳijȳijȳijȳijȳijȳijȳijȳijȳijȳijijijȳijȳijȳijijȳijȳijȳijȳijȳijȳijȳ_ij_ijȳ_;9_ijȳ__ijȳijȳyijyeijȳy"i":":":":":":":":":":":":":":":":":":DDFFFD}F#D#DHSE#Du2O[FF#DFչFչFF#DD<#D#Dz?z?z#D>'FAhF]U]U]U)\]Uai#DE>A#DR>#DR>#D@//)\ )\  #DF)\>F)\\F)\eJFFo{@x)\F;9EK9EEjE{j990ƄjƄ]UR#DOANN#DANN#DAN#DNANN#DPANN#D0O#DQ#DYJ#DYJeJacSLacSL#Dg0u22<O[FAF#D#D+h+hA#D3\FF;9)\;9)\>A#D!!z?FA#D0/z?FA#D#DeJeJzFA#D/z?FA#D#Djt9D@&0zFF#D>zFA#DS3zF#DFF#D}HAz#DzA#D#DFHךt9#Dg0u2,h!NA <mmmA#D8zF#Dg0u2,NA;AFFFF#D0#Dg0u2mb2!NA<FmA#Dg0u2,NAA#D`bbDDDFF#D#DҎ+F#Dg0u22,T2/2! NAA#Dg0u22,T2/2g0u22T2/M}AF#D#DEY\RUA#D#DEr\RU,A2!NAU,A2!NAU,A2!NAUzF#DךFA#D#D#D11FA#D#A#DA#Dg0u2M}A#DҎ+F#DA#DA#D#D+h+hA#DHESu2&CCCCC)4#DA#D,NAF#D#DE0O#DE0Og0u22NA;zDD^^FF#D#DYzAEFF#D2@F#D#DED,/z#Dg0u2,2vz^rA#DA#D#D#DEYg0u2M}<g0u2M}1<g0u2M}<FFA#D#DEr#DEr#DEr,A2,A2zF#D#Dg0u2G3NAn3'#Dg0u2G3NAn3'#Dg0,NAn3'g0u2Eg0u2EFFFFFFFFA#D#D,,/#D#DoFF#D#DF, 0. 0zA#DEa Az#Dz?NzhAF#D9Lu2uEA#D9Lu2uEA bDKj#D9Lu2uEhDDDDDDDDEFFt9#DAEhEhEhEhDDDh#%h#h#h#h#h#jh#h#bh#bhh#D#DU#DҎ+Ҏ+znDA#Daa8FFF#D#DDFF#D#D#D#D#DX_Kk"FFA#D#D#D#D#DXFF#D FF#DF#Dw~<FF#D]NAc<FF#D%FF#DW}FF#DW}FF#DFF#D(9FF#DTFF#DuFF#D#D6 <FFF#D6!5GZ<Fp?Fp?Fp?Fp?FFF]8#D FF#D_ir{FF#DAFF#D,/NA>FFFF#DFSbFF#DxA#DA#DA#DajFF#D>'FFFF#D#D/~FF#DFFF#D>FF#DFF#DFF#DFF#DW}FF#DxFF#D&/FF#D#D,NA'n333FF#DW}FF#DW}FF#DW}FFF#DNA/zA#DNAzFA#DNAzF#D#Dz4 Az4 Az#DEEF#DAF#DFF#D, AzDFAF#3E3EhDt9t9D;9F;98 )1PbhUD8dwHH;9ha t9U9E#D#DWEEUvzvzvzvz#D#DE#DEaEE#D #D#D#D9EZ99;99U;99rU;99rU,`;9F#DV[F#DV[F#DV[FFF#D#DV[AFFFV[#DV[F#DV[FF#DV[F#DV[F#DV[F#DV[F#DV[F#DV[hFF#DV[F#DV[F#DV[F#DV[F#DV[F#DV[F#DV[F#DV[F#DV[F#DV[F#DV[F#DV[F#Da z#DF#DmbF#D9|bF#D#D}HiFa iD#D#D>F>FFF^#D>#DFFF^>F#D>#DF>FFF^#D>#DF>FFF^#D>#DFFF^>F#D>#DFFF^>F#D>#DFFF^>F#D>#DFFF^>F#D>#DFF^>FF#D>#D#DOk>F#D>#DFFF^>F#D>#DFFF^>F#D>#DFFF^>F#D>#DFFF^>F#D#D>k>k>kFF>kFFk^F#D>#DFFF^>F#D>#DFFF^>F#D>#DFFF^>F#D>k>kF#D>kF#D)FFAAh#DҎ+F#DNAFF#DzF#Da FAFz#DF#DFF#DF#DF#D>FAhF#D#D>>FAF#DҎ+zFFhdA#DAAhF#D>-bFF#D>F#D>F#D>F#D>FAF;9<KEjjEjE;9E#D#DUDDDFF#D#DFFbD#DbD#DW}E&EDF' bDEa a E#DDFFd-DhFzFaiai;9IE0O\RF2HEL,I4I>F]UR]UuRu;9]Uw]UI]U]UIך;9III_IIIII;9*J*J;9]U;9*J*J*J*J;9jE;9jE;9uRRRRRRRuNEEuE]UKEKEKEhKEhjEjE;9jKYYLr;9;9xsEFjF@xjF@xjF8jF;9ai;9]UL]URRXjX]UuN]URN#DQAN#DAN#DLAN;9L\R;9\R;9\R;9L;9\M;9\M9;9RMM]UMM]UMMMMM]UMMMMha Kk;9N]Usksk?eJ]UF]UF[NiNa 9NNNFNNNFNFNFj8z9a a N;9U9]U999Ou2PDPDPDPa PFbP]QBQ]UUV;9j;9Ҏ+;9QQ]U#b;9Q#DQkhR RRR;9X;92j,R,R,R]UR;9r;9rHR#D2j;9RR;9RR]UjRR;9R]U]U,tF]U,tbg0R;9MMRbaba]U,tR]UR]Uu]UuS]Uw]Uw;9SSR;9R;9UST95T#D#Dg0,;FF#Dg0u2<A#Dg0u2<A;9a a a a T9U&U6U9Ur9r9Ur9Ur9rcU9;9;9W}WWhU{eeeeeeeeeeeYYYeHZa Wha Wa Wa Wa Wa Wa W$[h\\\\\\U;9;9\;9;9Uu?z?U,UUUhUa Ua Ua Ua Ua Ua Ua Ua Ua Ua Ua Ua Uh__MMMMKMMK_MMK__MMK___MMK____MMK_____h,SLSLz?z?#DDjg0Fh}h}vaEkU"UKD#Dg0FFA#D9Lu2LuEA`8AFPA#DW}g0u2M}<#D#DFFFFA#D9#DEu2r\RLu2M}A#D9Lu2uEQA#D#DdK^FFA#D,+FA#DF#DE#D#DUvzF#D#D~FA#D9Lu2uEA1A;92g4g2g4g4g2g4g2gSSbLcgrgS=LEL=LgSSgSSggSgSbLcgrgSgSSSgSbLgrggWLbLggrgtLgEL=L#D9A#Dt9t9EWK3h8h#DNANAzF#Dz4I8zhn#D9A;9iDAiAiiYi9iiiijji,9i9i=j9iOj9=jinjijihiiiijji,iji#Dz#Dz#DLSbLcgrgS=LEL=LgSSgSSggSSSISIS`MSSgSbLcgrgSgSSkSSgSbLgrggWLbLggrgtLgEL=LSSkllSkllgSgSKSKSQ#D~A#D@;8#D@;8zF#D,eASzFm#DAzFA#DzAr#DAzFA;9;9W}W}Vohh]UUV]UUV;9oo;9ooEpDh`pDh`ppgEqqS   Z ggghlx zz|}}@@@($s{ ,]k! $*)6$$,M,,`4,`<,DDLLD$L$<$ $T;*THDRLR    IeIq\,\$II\IIIiI T,$\LLDD$llq,  %+1?FyJ*R|,`|br|m|R|}|qyYYFqF1VFFYFY*Y*,Y ,Y6$Y)F,,LFYUYUYc*YoY~Y,!*!*1, q11"1C I,  yXy`"QwI! &YyY,BI MIwY S ]7LFD,Fhm,hpp w ~Y0YEYR*dYm*YwYYYY6d, F,19, 9*9& !L ,a q*g g {   F, {    ,`m}    , $   & ,% 2 * /Il 9Q~ 1I i& i IDi i i i i i i i i i i i i i i i ii i i i i i  i0 i4 ILi: iD IUiL iP I]iW ia Yh *Yt *i i i i i i i i i i i i i i i i. i6 iB iQ iY ie it i| i i i i i i Y *9 i i "i I fi i i i i i* i4 i> iH iR i\ if iq iw i i i i i i i i  r xi Ii Ii Ii iiii#i,i5i>iGiPIiYI ` , , ,h!`! !y!!iI )iY*Y* *iI *i I#Qii&I.*I +I*i<C0iNiVi^ifI6initi}iiiiiiiii iiiiiiii iii$i.i4ICi;iBiHiNiX ^L T9,uF*Zaf 6  d$,1$ , ,6Y 6,$,6 I*g IHQH*9 !wYEYdYt*Ya1YYaa1a,$}$},/8$4HV,brJ4S,m,m,<S<HV$/8$,,},,,,`,,e,,zLHL,$THT,$L;*T;*~ Y\$ d,`dmdd}l,dbrl6br|9*9#*9OJ#Yc(c? JVVV ]*mtz (?,$d , N,6Z$^*J!Om, VV,!!,!,!!!!,! ,!,!$,$$4,!!!,D,!T,!\,`d$l,`t$|,`$,!!,$6,!$,!,! , $  ,$,!!$,$$$a ,$  4,64$444,2 d7 ,D,D$DD))D ?I L,]TTT,] YC dd NTm d,mld$dYc t/8J |m||},|,t,`,`Yc JrF)F$ LF!  ) )+td}Y*#m}Y}m  SHVm}}mSHVYOm},`,`,,,`*md6ddd NYc@ NA?T Ie ,,$$,Y}x }x a}x }x }x i}x Q}x }x q}x Q, mm,,],`  $,6]  Q  ,,]  $,m 3#4 @ <,S <$,M mLq^*Y*Yc4 f y> A?D !q Q,L iU U ,]* T,   FQLFQ Mi ,],],]*\\,\$ 6\*@ @   4mI a@ @ $@ S           @ @   Y Yc  t  ll6Y> )Z,$  121?   ,]*     m*         ,]iO lml*    \J  1YpYc N <,]<*<m    |*|m ihdd\m\*L,],,LL $ $& &       m       C    P U dZ ` ze ,\,p v ,} , F! J#) !    )  ), ) @9T   )# e )  ) y, \). E m Y   9  \,# # Y$1)*!C* g !xF!F)F!F1 F1,1(7 QSQHAGB q,H |V ,i $}x Y  Y  ) y y  ,`    m}l$br l,,1Zm$},,`, ,1,Y  9$ )7 ,<F$DLT  J ] f p ,YyY  Y0)     12p   y6Y0>q     S   ^,$$,x ~),, ,,,YI*9 J+  9")1D ))Y6!U*IU*,$!d*Id*Y{*!*Y*Y*I*Y*Y*!*I*Y*!*I*Y*,$d,6 N$,$$$$9$!*4,6441!*4,49$ w &ALFiwi &iAiLFU LLLJL$e j {F"&F,-4 <CCddD,6DDS1?pdl N6dJsL,y]yF  t a ! 1I! e ' 7 |, , W  m}v F  F  1 * !D 9$ ,,,6,9$ 1\F1F yF F F) @ @ @ @ @ 4t@ @ @ @ @ @ @ @ A!FI!FQ!FY!Fa!FY!,)! "1q,q"q ' "i,)"/q<"9Fy,MyF"TU"^yc"yl"yw"y,b"j,,@ t,$,`$m} "i(@ i?@ ",]m*,]        mY,,`"S $ "$ ,,],  ,$ , $@ @  Y" Y"Y"&Y#-Y!#4Y1#<Y1#GY;#*YL#Y]#*Yp#*Y" ,1F###Ut,]t#\#\m*$/8$}$,#o U ,,w,$, JLF,,4v$<v$Dv$Lv$4,<,D,L,T$A?A?,1 ,1Q,1A,1Y,1a,1,1,1!,1),,1,11,9,1A,I,9,Q,a,Qi,q,y,,1,,,*Œ* ]goEHHH  / F04]8_@HDaHfLkPpTuXzYH\`dhlptx|HHH H$).38=BG LQV[` e$j(o,t0y4~8<@DHLPTX\`dhlpqtuHx| #(-27<AFKPUZ_di nsx} $(,048<@DHLPTX\`dhlptx|  "',16;@EJOTY^chmrw|  $(<@]D_HLPTX\`dhlptfp  %*/49>CHM RW\aW f$k(p,u0z48<@DH LPT\6`;dUlp#t2xs| ",16;@EJw|Hafkpuz  H$a(f,k0p4u8zxH|afkpuzHHHafp   u  H a f k p u z  Hu Hy  H a f k p  H a f k p u z        $ ( , 0 4 8 < @ D H L P T X \ ` d h l p t x |     % * / 4 9 H > C H M R W \ a f k p u z                    $ ( , 0 4 8 < @ D H L P T X \ $` )d .h 3l 8p =t Bx G| L Q V [ ` e j o t y ~                               $ ( , #0 (4 -8 2< 7= H@ <D AH FL KP PT UX Z\ _` dd ih nl sp xt }x |                                 " ',16 ;@EJO T$Y(^,c0h4m8r<w@|DHLPTX\`dhlptx| !&+05:?DINSX]bglqv { $(,048<@DHLPTX\`dhlptx|  %*/49H>HCHHMRW\afkpuzAHHaf15aei]Haf HaHa$H(a0H4a8f<kDHHaLfHafkpuzHaf $"(',,01468;<@@EDJHOLTPYT^Xc\h`mdrhwl|ptx| !&+05:? DINSX ]$b(g,l0q4v8{9H<@DHLPTX\`dhlptx|  %*/49>CHMRW\afkpuz  $(,048<@DHLPTX\`dhlp t x |    $ ) . 3 8 = B G L Q V [ ` e j o t y ~                      $ ( , 0 4 8 <!@!D !H!L!P!T!X#!\(!`-!d2!h7!l$C$H$M$R$W$\$a$f$k$p$u$z$$ $$$$$ $$$($,$0$4$8$<$@$D$H$L$P$T$X$\$`$d$h$l$p%t%x %|%}H%%%$%)%.%3%8%=%B%G%L%Q%V%[%`%e%j%o%t%y%~%%%%%%%%%%%%%% %%%%% %$%(%,%0%4%8%<&@&D &H&L&P&T&X#&\(&`-&d2&h7&l<&pA&tF&xK&|P&U&Z&_&d&i&n&s&x&H}&&&&&&&&&&H&&&&&&&&&&&&&&&&& H ' '''' '$"'('',,'01'46'8;'<@'@E'DJ'HO'LT'PY'T^'Xc'\h'`m'dr'hw'l|'p't'x'|'''''''''''''''''''''''(H( ((((!(&(+(0( 5( :( ?( D( I( N( S( X( ]($ b(( g(, l(0 q(4 v(8 {(< (@ (D (H (L (P (T (X (\ (` (d (h (l (p (t (x (| ( ( ( ( ( ( ( ( ( ( ) ) ) ) ) ) ) %) *) /) 4) 9) H >) C) H) M) R) W) H \) a) f) k) H p)!u)!z)!) !)!)!)!)!) !)$!)(!),!)0!)4!)8!).$C.$H.$M.$R.$W.$\.$a.$f.$k.$p.%u.%z.%. %.%.%.%.%. %.$%.(%.,%.0%.4%.8%.<%.@%.D%.H%.L%.P%.T%.X%.\%.`%.d%.h%.l%.p%/t%/x% /|%/%/%/%/%$/%)/%./%3/%8/%=/%B/%G/%L/%Q/%V/%[/%`/%e/%j/%o/%t/%y/%~/%/%/%/%/%/%/%/%/%/%/&/&/&/ &/&/&/&/&/ &/$&/(&/,&/0&/4&/8&/<&0@&0D& 0H&0L&0P&0T&0X�\&(0`&-0d&20&H&H&H&H-'H')]*H++,G8,H<,a@,fD,b0H,e0L,h0P,k0T,n0X,\,q0`,t0d,w0(-z0,-0<-0@-0D-0d-00.H4.a8.fE.Ha.H.H10H3H3H3703]4Y44]U6Y6a6e667m79H;H;H;HHI>Ha>Hy>H>H>H>H.-.#-.+-.3-.;-ױ.C-.K-.S-.[-#c-ac-ak-Mc-ac-aC-ack-M k-M k-M s-W#k-M !zAz#az0z>{-azLzZzjzv!zAzazzzѳzzz!z"Az6Ck-MD{-aazHzXzkz{zz s-s!zAzaz̴z۴zzzz!!z4AzFazVzdzpz{zz!zAzazzεzܵzzs-z!zAzaz,z:zGzTze-zt!zAzazzzzɶz׶z!zAzazz(z3zBzOz\!zkAzwazzzzzzɷ!zٷAzazzzz!z.z>!zIAz\azlzwzzzz!zAzʸaz׸z両zzzz!z&Az6azHzTzazmz} z! zA za z z¹ z͹ zܹ z!z!!zA!za!z0!z?!zN!z\!zk"zw "s-!"zA"za"zc"k-M"z"z"zϺ"zۺ#z!#zA#za#z#z#z+#z;#zJ#k-M$z[!$ziA$zxa$z$z$z$k-M$z$z%z̻!%zػA%za%z컁%z%z%z %z&z!!&z+A&z5a&z?&zI&zS&z]&zg'zq 's-!'z{A'za'z'z'z'z'z(zļ!(zϼA(zڼa(z弁(z(z(z(z)z!)z()s-в*4!*=A*Ga*P*Z*c*m*v+!+A+a+++.-a23ɽ!3a333303D4Z 4s-!4mA4a444ž444-X4-;5 5-X5-;!5#5-;#5-a#5-aA54C5-XC5S-a5Gc5-Xc5-5Z5t556;s- ;s-$J{-a Q-Q{-a@[s-俠`-ai-aq{-as-s--as--a-a -a-a-S-gɩ-x-RZa!RZaARZXaRZXRZaRZaRZaRZaRZa!RZaARZaaRZaRZaRZaRZaRZaRZa!RZaARZaaRZaRZaRZaRZaRZaRZa!RZaARZaaRZaRZaRZaRZaRZaRZa!RZaARZaaRZaRZaRZaRZaRZaRZa!RZaARZaaRZaRZaRZaRZaRZaRZa!RZaARZaaRZaRZaRZaRZaRZaRZa!RZaARZaaRZaRZaRZaRZaRZaRZa!RZaARZaaRZaRZaRZaRZaRZaRZa!RZaARZaaRZaRZaRZaRZaRZaRZa!RZaARZaaRZaRZaRZaRZaRZaRZa!RZaARZaaRZaRZaRZaRZaRZaRZa!RZaARZaaRZaRZaRZaRZaRZaRZa!RZaARZaaRZaRZaRZaRZaRZaRZa!RZaARZaaRZaRZaRZaRZaRZaRZa!RZaARZaaRZaRZaRZaRZaRZaRZa!RZaARZaaRZaRZaRZaRZaRZaRZa!RZaARZaaRZaRZaRZaRZaRZaRZa!RZaARZaaRZaRZaRZaRZaRZaRZa!RZaARZaaRZaRZaRZaRZaRZaRZa!RZaARZaaRZaRZaRZaRZaRZaRZa!RZaARZaaRZaRZaRZaRZaRZaRZa!RZaARZaaRZaRZaRZaRZaRZaRZa!RZaARZaaRZaRZaRZaRZaRZaRZa!RZaARZaaRZaRZaRZaRZaRZaRZa!RZaARZaaRZaRZaRZaRZaRZaRZa!RZaARZaaRZaRZaRZaRZaRZaRZa!RZaARZaaRZaRZaRZaRZaRZaRZa!RZaARZaaRZaRZaRZaRZaRZaRZa!RZaARZaaRZaRZaRZaRZaRZaRZa!RZaARZaaRZaRZaRZaRZa{-aRZaRZa!RZaARZaaRZaRZaRZaRZaRZaRZa!RZaARZaaRZaRZaRZaRZaRZaRZa!RZaARZaaRZaRZaRZaRZaRZaRZa!RZaARZaaRZaRZaRZaRZaRZaRZa{-a!RZaARZaaRZaRZaRZaRZaRZaRZa!RZaARZaaRZaRZaRZaRZaRZaRZa!RZaARZaaRZaRZaRZaRZaRZaRZa!RZaARZaaRZaRZaRZaRZaRZaRZa!RZaARZaaRZaRZaRZaRZaRZaRZa!RZaARZaaRZaRZaRZaRZaRZaRZa!RZaARZaaRZaRZaRZaRZaRZaRZa!RZaARZaaRZaRZaRZaRZaRZaRZa!RZaARZaaRZaRZaRZaRZaRZaRZa!RZaARZaaRZaRZaRZaRZaRZaRZa!RZaARZaaRZaRZaRZaRZaRZaRZa!RZaARZaaRZaRZaRZaRZaRZaRZa!RZaARZaaRZaRZaRZaRZaRZaRZa!RZaARZaaRZaRZaRZaRZaRZaRZa!RZaARZaaRZaRZaRZaRZaRZaRZa!RZaARZaaRZaRZaRZaRZaRZaRZa!RZaARZaaRZaRZaRZaRZaRZaRZa!RZaARZaaRZaRZaRZaRZaRZaRZa!RZaARZaaRZaRZaRZaRZaRZaRZa!RZaARZaaRZaRZaRZaRZaRZaRZa!RZaARZaaRZaRZaRZaRZaRZaRZa!RZaARZaaRZaRZaRZaRZaRZaRZa!RZaARZaaRZaRZaRZaRZaRZaRZa!RZaARZaaRZaRZaRZaRZaRZaRZa!RZaARZaaRZaRZaRZaRZaRZaRZa!RZaARZaaRZaRZaRZaRZaRZaRZa!RZaARZaaRZaRZaRZaRZaRZaRZa!RZaARZaaRZaRZaRZaRZaRZaRZa!RZaARZaaRZaRZaRZaRZaRZaRZa!RZaARZaaRZaRZaRZaRZaRZaRZa!RZaARZaaRZaRZaRZaRZaRZaRZa!RZaARZaaRZaRZaRZaRZaRZaRZa!RZaARZaaRZaRZaRZaRZaRZaRZa!RZa@-ARZaaRZaRZaRZaRZaRZaRZa!RZaARZaaRZaRZaRZaRZaRZaRZa!RZaARZaaRZaRZaRZaRZaRZa-RZa!RZaARZaaRZaRZaRZaRZaRZaRZa!RZaARZaaRZaRZaRZaRZaRZaRZa!RZaARZaaRZaRZaRZaRZaRZaRZa!RZaARZaaRZaRZaRZaRZaRZaRZa!RZaARZaaRZaRZaRZaRZaRZaRZa!RZaARZaaRZaRZaRZaRZaRZaRZa!RZaARZaaRZaRZaRZaRZaRZaRZa!RZaARZaaRZaRZaRZaRZaRZaRZa!RZaARZaaRZaRZaRZaRZaRZa RZa! RZaA RZaa RZa RZa RZa RZa RZa RZa! RZaA RZaa RZa RZa RZa RZa RZa RZa! RZaA RZaa RZa RZa RZa RZa RZa RZa! RZaA RZaa RZa RZa RZa RZa RZa RZa! RZaA RZaa RZa RZa RZa RZa RZaRZa!RZaARZaaRZaRZaRZaRZaRZaRZa!RZaARZaaRZaRZaRZaRZaRZaRZa!RZaARZaaRZaRZaRZaRZaRZaRZa!RZaARZaaRZaRZaRZaRZaRZaRZa!RZaARZaaRZaRZaRZaRZaRZaRZa!RZaARZaaRZaRZaRZaRZaRZaRZa!RZaARZaaRZaRZaRZaRZaRZaRZa!RZaARZaaRZaRZaRZaRZaRZaRZa!RZaARZaaRZaRZaRZaRZaRZaRZa!RZaARZaaRZaRZaRZaRZaRZaRZa!RZaARZaaRZaRZaRZaRZaRZaRZa!RZaARZaaRZaRZaRZaRZaRZaRZa!RZaARZaaRZaRZaRZaRZaRZaRZa!RZaARZaaRZaRZaRZaRZaRZaRZa!RZaARZaaRZaRZaRZaRZaRZaRZa!RZaARZaaRZaRZaRZaRZaRZaRZa!RZaARZaaRZaRZaRZaRZaRZaRZa!RZaARZaaRZaRZaRZaRZaRZa RZa! RZaA RZaa RZa RZa RZa RZa RZa!RZa!!RZaA!RZaa!RZa!RZa!RZa!RZa!RZa"RZa!"RZaA"RZaa"RZa"RZa"RZa"RZa"RZa#RZa!#RZaA#RZaa#RZa#RZa#RZa#RZa#RZa$RZa!$RZaA$RZaa$RZa$RZa$RZa$RZa$RZa%RZa!%RZaA%RZaa%RZa%RZa%RZa%RZa%RZa&RZa!&RZaA&RZaa&RZa&RZa&RZa&RZa&RZa'RZa!'RZXA'RZXa'RZX'RZX'RZX'RZX'RZX(RZX!(RZXA(RZXa(RZX(RZX(RZX(RZX(RZX)RZX!)RZXA)RZXa)RZX)RZX)RZX)RZX)RZX*RZX!*RZXA*RZXa*RZX*RZX*RZX*RZX*RZX+RZX!+RZXA+RZXa+RZX+RZX+RZX+RZX+RZX,RZX!,RZXA,RZXa,RZX,RZX,RZX,RZX,RZX-RZX!-RZXA-RZXa-RZX-RZX-RZX-RZX-RZX.RZX!.RZXA.RZXa.RZX.RZX.RZX.RZX.RZX/RZX!/RZXA/RZXa/RZX/RZX/RZX/RZX/RZa0RZa!0RZaA0RZaa0RZa0RZa0RZa0RZa0RZa1RZa!1RZaA1RZaa1RZa1RZa1RZa1RZa1RZa2RZa!2RZaA2RZaa2RZa2RZa2RZa2RZa2RZa3RZX!3RZaC-6C-X M- c-a@c-a`c-ac-ac-ac-ac-a d-ar-ar-a${{-ad{{-a{{-a${-a-j-a--XD{-a{-a{-aD{-a{-a-as-s- s--as-s--as--a-as-@-a`-a-a-a-a -a@-a@s-`s-{-a@--a-a -a@-a`-a-a-a- {-ad{-a{-aD{-ad{-a{-a{-a{-a-@-a`-a-a-a-a s-& ---!-a!-X "-a@"-a`"-a"-a"-X"-a"-X"-a#-a #-a@#-a@#-X`#-a`#-X#-a#-X#-a#-X;1X11111111111111122-262>2\21g2u22111 3311333%33931b3n33n333333333344!4)4)47411K41311444144411111114444413343111111144114445454331%5 315=5C54L5L5U5`533454451145511555451"6 3.6366<6<66666C63I6=51P6V65P6_6g616=56 3%5663664<6L56C63461P66665P6_634C5:7331A7e744461371773:77447774 8388846411138;8314K8441 3%5=5k866q848<688`56C68448454148481175P6_683 3/9>9J91L5L5544Q9Z94e94n9591 3%599=579949L5L57`57J9444e961n949J99J95594649:6":(:441111441:e949:4544H:T:1%5:1::11311::: 3:::3 3;111:;]; 3;;;66566;;;<<3/<5<66=1.>:>3d>u>11>3>1111>3133111:1>110?0?G?v????????1??11 @44@@F@11131311C614@313:%5 3C63@@@@@@@AAA'A3A111111119AEA111TAC61A3:A33>B1141EB:UB665/B1F1F3F:11136:1G311631113UG1311133:C64444131G313UG13413GG3C6141GG131G3GH4 3:H:HFHLH|HHHI!I1IvIIIvII'J63JJJJJ1;:7J11J1J1116691JK 3YKYK_KkKkKyKyK3KkKK1K13KKKK3KKK31,LL591C5434:71LdL>"6LL3666666LLLJLL1111L111(M4M@MFMVM3111xMJ}M/<111M?:11M3@M%533M 3AAMMM#N#N#N#N#N-N1LNJ6659ZN36?:76 3JfB%51N1111NAA:7wELNNNN*O:OROROOL99Jk8k866O66J1O1O193>1O3111%514P[PPPPPPQQ6QQQkQQQQQQQQR(R=RRRgR|RRRRRR S"S9SSShS}SSSSST&T8TJT\TtT UU)U)U;U)UGU_UkUtU_U_UtU_UtUtUUtUtUUUUUUV!V[VV1VVVVW7WNWoWWWWW X,XVXnXXXXX Y"YCYaYYYYYZ&Z&Z]ZuZZZZZZ[[7[I[\[l[[[[[[[\+\B\f\\)U\\\]6]N]o]]]]]^^:^1[^^^^^_"_1 31L_z_______`!`:`O`a`1`1`````` a aB111oo1o11Q91o3JLp: p-pSp111oooF1pppp111ppfp1qoq1>LmqyqoqVMoqq4MpwE3q1r111pPrL111qr11?ooJ@6693FfB11oo13rrrrr3sBs1Bs3sBs11J^soLp113VMVMss134Ms43s3VM3p1s119"t1KMt;ctit?t1tF11(ML1tctt31otFou1oVMJ1hu1119ou(M(M(MuLwE3tu1113VMk81;oo33919J3p1lAGv111Qv196Xv8o pcv(ML(Mt13%51:v1v1:1g13nv1v1v1vC644A4u1111IwUw11[wuwwwwwwwww3:O11515;x36L11J3133IxIx\xixixox11uxxK8x1x1x111111xxxy%y?111dyjy1oy3|y14y1yy z(z>zWzpzzzzz3z1%53L11P {1{11A{::1Y{8:1::fd{1::::1{11:)U:::{1{1d>::>1{{111{1{1{LF:|11#|1)|B|>::O|1e|111:e|11{|{|1|1||11111||>:: };1!}0}11:|:: }11jyjy1b}b}1b}l}1}6;1113:1}}111111113Ltp:1*O11113 ~1'~1~111111111C~AS~11{~11~~~11111~1~1~1::11111111:O|>11111^y11lLA1F1*O4O|%511:O|111O|;:11Fl 38313>31131"p>+11O33A {3X3%5j3111331313L13131*JTEiÁ:ف41/ 3:3FRRR^^3311j11v311111133133R3131RʂւGSn1R43 ,8DWco{{o114411160?ф 9Pj333%3133 3҅4߅3 3,1<(M(M(M3313KCKC11111311KCÆ׆ކQ{(M 3331 3%>14:E>1NbE>11k11333M1E>1E>1NE>1E>1NE>1NE>1N11831>E3>1N#1>.M<>1:E>1NE>1NE>1HE>1as>14:E>1NE>1a.M<>1:E>1N331131C6C61333111‰1܉13113111&3151J1n93111]311i‰x311311311111331:111311͊311i‰݊3111܉131 1%L3X1>11d311t31134>1>1311C6C61113ɋ31P1331111Ћ3131ً31KCC6111C6113111:133131313C611:f311C6C611113E1nj>Enj>En9>1:11ΌM<3M<3 333395"6DQY(MNW@Mgcpwp}%5, 3cC6C6C644 3p111񏲂31!-1111IO\q33>1EI613C611111C6 )U,)UC30?1K414֑1֑'EepM<111111 eђ1ܒ111-RjjǓLkKK3ϔ115.?11kŕ6616x??; Aitw+1B^K413ؘ 41PksÙ?o 3 3C6C6311 AL3V\b333b43t̚ߚ;B11K4^sӛ$5ho1C611)6YzC5C5ӝ:7>qڞVM34o3J1L:O|1 p;oco 3444ٟ111:%{n3C6334͠41111111֠1֠o1111^d^d111 +~áС(M(M^d^d^d^d^d13⡜3>(M31͠'{8133K33'113wwwwwwwwwwwwwwwwww31 >11>>113#11^d13%3\13111111111111111111133ݣ &7DS`m|1ɤC6>1\34M111F511֥1oVM/3"o>A1Gu111L1311111Ш3 zpKC311$4 {1131I1A1h1o1111137333A5.,L,L3@6366636(D9ש1311111133311oA11 Jf1$133141m%5-13F":31O%5311 {1o43>W3(Mr;161C611(MC61C611Q91111111);1%5 33@M=5Z4h511ss4449:g64{L584I6ǫr:O44Zwʬ14611C6C6115441$,7?P6?H7\4j??4C6C6C6814e934e9r5e91ʭ1?11F113%53113&44?LK311Qf6111?Ѯ11111;w31ɯׯ3{du>>1%1;kkk111sX;ְBNZfpoy1433   ) ; F UZ_ahw(*+,-.01345678#9*:/;7=ABBDFEIFKHMIOJRLTMXN[Q_RbTcVdZh[y^|`}b~fghijklmnoprstuxyz{|~ $%',./089;<=ACDMNOPTVW\]abegnoqwz   %')*,-/2457> ? A C G JMSUWX]_!#$%(),-./0123456789:;<=>?@ABCDE FGJKLMNO!P$Q&R(S*T,U/V1W3X5Y8Z<[>\@]B^C_DaEbHcIdJeKfLgMhNiPjTl[m]n`obpdqksltxuzwx{~ 9:CJKLPF2F2F2F2F2F2F2G2 G2G2!G2;9Q3aHW32H3IX4I]494K21K2DK4WK4bK2zKW3K4K4E4KW3K2KW3K2bK2DK4WK4zKW3K4K4E4KW3KW3L2#D5;9Q3K5L5g05LW3 M5E4MW3$M5K26M2FM2`M5K46kM 6L2s,m6;9Q3g0s6LW3E4MW3K5`M5K46L2M7L5K7;9Q3#D5g0 7LW3M7 NW3E4MW3`M5K46g05LW3E46M2kM 6g0 7E4 NW3LW3M7OO2\O7P2L2PW3g07E4LW3P7<T8LW3KW394DK4WK4NZ81K2K2bK2K4E4zKW3KW3K2L2;9Q3#D5L5K8.R8g05LW3 M5E4MW3AR8\RW3$M5K26M2FM2`M5K46gR8;9Q3OO2g0s9\O7Ry9E40OW3R4R7P2L2;9Q3#D5P7,9K5g07S2 S2LW3E4PW3MW3`M5K46KW3WA^:*d:S41K2K2S2bK2LW3K4E4<T8zKW3694KW3 Tj:]U5U:U2eU:U2U2yU2UW3sU2U2U:U;F;;9Q3;9Q3GV2;9Q3C_=_7a 4d2d2ud4iW3j2H4j4>:H4 k4"k24k2j@H@Kk4Rk4gkP@k2iW3iW3k2@7lW3W38:#D5;9Q3k2_o7moZAo`AofAolAorAoxAo~ApApA-pAFpA[p2up2p2p2p2p2q2"q27q2Pq2rq2q2q2blAk2jAE48:NAPrW3W3rBk23t28:W3:u2u2W3k2w%E,w2Cw7Ww+Efw1Eyw7W3F;>:@x:jAk2)8EN78:W3iW3qZAk2_o7iW3@ Gy2iW3>:iW3>:iW3]7iW3k2_o7iW3iW3_o7H4k2_o7iW3k2_o7iW3H4k2_o7iW3k2_o7iW33+Gz4;9Q3s|Iy|I|JYZ8\RW3"Kg05i,K*y9W}2;E6K1=K3^2Y:ACKQ2%j:M}IK_8;9Q3W}KKHKHL6M2L2g05E4\RW3LW3.R8OsLm6mL\%L7lW3ÃL̓LڃL*y9,LM2L\MLbML2*y9u2hME4ƄM*y9ACK%j:Y:t2t2`N k4,tbM#D5t4W3;9Q3jANA43t2†jNԆy9ct8Ot 6Xu7шZ8@6KZ8;9Q3Ry9rtC#D523 Ot2H2U2m2jANAy6K8}OOMS2 S2*y988c8vO 8M}IK#D9,4hP2E4222#D5t2;9Q3Ν2#D5294zKdg0\M22g222eF%e2je NW3l%fK5L2L\M<fU:#Df;9Q3K4׸4*y9L2LbMM}IK3^2Y:ACK%j:6K;E1=KE42f8fu>fzKW3)ADfS294H]fHcffP2$2E4,4r2d2z?]42H4k2_o7>:iW3'Aj2H4E4R4hk2iW3k kjk+k9k<k;9Q3Hk+h]4\lgkl!52l2l0%m/leJ4/mj=22@inW3&0onunW3>:Sn3nךnBH]fRk4Kk4ך{ooo8B3t2_o7je NW3*y9,LNAp;:l%fU4p2o Gp`pbpbpҎf+pM}*qL22sL,LT2q/qM}*q!\MNApgR8\RW3ך"rf1VrM#xr?Z8cty9@f>fx8f8f)ADfS2x2f22 22 22'2?2W2u2hMZ8A,y222/7;zH2h4W3Ҏ5+]4>LP2b2p{~"{2E4a::::X:: :sL2w2~{]LNA Gc:%sL::222:#D|(9|usL: :6>}E2G:Z|5:!:6>}2N7E ]4:_2{}!G22]4,L/tNAp>:2W322222ap~jA/2~~/2::*!G22:/2n3zv,L'A2NA G233O5:2VEc:NA G/lW3E4NAsLW3E4NApsLd:W3W3 AAz4"{W3E4E5W3iW3E4iW3H4,LiW3k2_o7HKk4;9Q3y4X:442222U9b 4'52:2A2G2O2X2g4s4}244 ?42424>x~I/T?-8h?A>A 24547…4ƅ+2h4a 4;9Q3HH;9Q3HJpU94E4a2H#H*uȇ9·U:rՇ;9Q3ȇ4,4`2;9Q3hsLk2_o7iW3hsLk2_o7hsLk2_o72W3W3ۈۈ-XW3ۈۈۈk2iW3hsLiW3hsLk2_o7hsLk2_o7hsLk2_o7hsLk2_o7hsLk2_o7hsLk2_o7hsLk2_o72iW3k2hsLiW3hsLk2_o7k2hsLۈhsLk2_o7hsLk2_o7hsLk2_o7hsLk2_o7hsLk2_o7hsLk2_o7iW3hsLk2_o7hsLk2_o7ۈhsLk2_o7hsLk2_o7iW3_o7iW3k2a 7_o7iW3k2k2_o7iW3_o7iW3k2_o7iW3k2_o7iW3k2_o7iW3_o7iW3_o7iW3_o7iW3k2iW3H4>:k2_o7iW3_o7iW3_o7iW3k2_o7iW3iW3_o7k2$sL_o7iW3_o7iW3_o7iW3$sL$sLiW3_o7k2iW3H4H4H4H4H49QCJ2iW3>:iW3_o7k2H4k2_o7iW3ό:p4k2iW3k2_o7hsL_o7hsL_o7hsL>:hsLk2ۈ-XW3ۈiW3;9Q3U:K4#Df DfD5<fT?;9Q3(D4A׸4;9Q3#DfFD4F} 'F22F2CF2U2bYFb4dF4bl%EiW3k2_o7H2u2H4;9Q3TQ3+TΞ_o74je NW3*y9L2,L;:l%fjU-;9Q3tU7U4U4[2IX4[4[[4[:[\\]4\P1\:=\7,'E]UY\b]2H4Hf\UH4`sLhsLhsL'`74`g+h4gƅh,4D`2P`2\`2h`2x`4`4agaqE4jqg0\Mך` G2fF%e%j:*y9euc 6c2ACKY:M}IK2f&*fdsL~dW3dsL2fL2Aud,L+dE4Ue2ce2ue֨eE4$fxfQCfW3f2f2f:f"{f2f2E4~2fL21n<T8 h4zKW3K4!h6E494KW32fL2t9H]fu2W3E4f2f:fh2whinNA5WA^:W3NA5E42h\f2f"{2f\]4\Pi[:k2L2#D5;9Q3KbM,5KW3*d:S4S21K2K2bK2LW3K4E4<T8 h4zKW3DK4WK4!h694KW3K2 Tj:`M5K4MW3Slxl~ԭl2l2 m Gm.m29m2E4NA5W3)A~S4m,LeAE4*d:,nrQqlO$r$x]q~iq        ,-.<>!@#V%W'X)Y+Z-\/g1h3i5j7k9l;n=|?}A~CEGIKMOQSUWY[]_acegikmoqsuwy{}    !"#$%& ' - .0123:;<=E!F#G%H'I)M+N-O/P1Q3R5S7T9U;V=W?`AaCbEkGlImKqMuOvQxSyUzW{Y|[}]~_acegikmoqssuwy{}JMNQRSknopvu    !#%'')+-/13579;=?ACC E GIKMOQSSUW Y![#]"]3_5a6c7e8g9i:k<m;mCoDqEsFuGwHyI{J}MOT`abdz{} )26:;<=>@ F G JKMLRQTSVUWXYf!j#l%k%m'n)o+p-w/x1y3z579;;=?ACEGIKMOQSUWY[]_acegikmoqsuwy{} !"$#&%'(,124356789:;<>@ABCDEFK L Q [Z]defghjkm!n#o%p'})+-/13579;=?ACEGIKMOQSUWY[]_ac e g i i kmoq!s"u%w+y8{9}:;@AIMPWXYZ[\]`gkoqpsrut|}     %&'2!8#B%C'D)E+F-J/Q1R3S5T7U9V;W=X?YAZC[E\G]I^K_M`OmQqSsUtWuYx[{]|_acegikmoqsuwyy{}            ! * , + H O P Q Y Z [ b c d o q r u x y {          ! # % ' ) + - / 1 3 5 7 9 ; = ? A C E G I K M O Q S U W Y [ ] _ a c e g i) k* m1 o2 q3 s4 u5 w7 y8 {= }C F L N R S V X \ ^ a f g h o p q r s u w {                                                               ! ! # % ' ) + - / 1 3 5 7 9 ; = ? A C E G I K M O% Q& S3 U5 W6 YD [E ]F _G aH cK eM gN iO kQ mU oV qW sY u[ w\ y] {a }c d g j k l m p q u v w y z } ~                                                                   ! # % % ' ) + - / 1 3 5 7 9 ; = ?! A( C) E* G1 I2 K9 M: OA QB SI UJ WM YP [R ]Z _[ ab cc ej gk ir ks mt o q s u w y { }                                             : 9 ; < C B E D F G H I J K O S T \ ^ ] _ a b c e  f  g  h  i k m n  w  v  x  y  z           ! # ^% _' `) a+ b- c/ d1 e3 j5 r7 y9 {; |= }? A C E G I K M O Q S U W Y [ ] _ a c e g i k m o q s u  w  y  {  }      ! % & ) ( * N M O P S X [ h i j k o p w x                                                                ! # %  ' $) '+ &+ (- )/ +1 33 W5 X7 Y9 [; \= ^? `A aC bE cG dI eK fM gO hQ iS jU kW }Y ~[ ] _ a c e g i k m o q s u w y { }                   @ > T@ n> @ > $@ *> @ > Zz Zv Zt Zx Zl Zj Z~ Z` gg~ g` hB hf hh hd hh| l ~ l ` ~ { }  xz ~ ` 8 : < | B | @| P| 8 : ~ ` < | 4v ~6       Z \ 4 $J| srF stH sxP sJ sL sD sN sR sV sT sX {8 {: {~ {` {< 2 0 P|  @  > !| .@WgpyZj ks{#-AJ[p d=FO^gv '/8GOW`hq  " * = N W _ b ~   * 2 : j r W _  , ` n v  - 5 H a Tc kr HO[d6qxc  e}_ $C6s_s'&21>=\[qp"!yx~ssDss*sTs1 sssssssss s s1"s3"s+79;=W_w}=WY=io'1[o{7}7Xp77777AXz7?h h h   ' )/! 5& W_ ach m ~    !  z  zz h h          =        !#%'+-3h 5' =?ACMo= q= suwh y}   #0#   ~ ! ! W! ; h m     ! # % ) + - / 1 3 5 7 q      h h = =      C E ! mscorlibList`1System.Collections.Generic.ctorIEnumerableSystem.CollectionsIEnumeratorGetEnumeratorget_CurrentRuntimeHelpersSystem.Runtime.CompilerServicesGetObjectValueAddMoveNextIDisposableSystemDisposeIEnumerable`1AddRangeIndexOfInsertFindFirstParentNullable`1LabelSystem.Reflection.Emitget_HasValueget_ValueRemoveILGeneratorDefineLabelBeginExceptionBlockLocalBuilderTypeDeclareLocalMarkLabelToArrayBeginExceptFilterBlockBeginCatchBlockEndExceptionBlockOpCodeOpCodesRetEmitget_Countget_Itemget_IndexObjectDateTimeStringBooleanMicrosoft.VisualBasicConversionsMicrosoft.VisualBasic.CompilerServicesToBooleanToDoubleToStringToDateConcatIndentedTextWriterSystem.CodeDom.CompilerWriteLineOperatorsCompareStringTypeCodeEnumCompareStringComparisonEqualsIEqualityComparer`1Dictionary`2ValueCollectionget_ValuesContainsKeyGetTypeGetTypeCodeDoubleMathPowInt32RoundInt64ParseConditionalCompareObjectEqualConditionalCompareObjectNotEqualConditionalCompareObjectGreaterConditionalCompareObjectLessConditionalCompareObjectGreaterEqualConditionalCompareObjectLessEqualExceptionget_Messageget_StackTraceget_Namespaceget_ContainsGenericParametersget_IsGenericParameterMemberInfoSystem.ReflectionTypeAttributesget_AttributesGetInterfacesget_FullNameNotSupportedExceptionget_NameMakeArrayTypeget_IsArrayGetElementTypeEmptyTypesMakeByRefTypeConstructorInfoMethodBaseget_IsStaticget_IsGenericMethodget_LengthModuleEventInfoGetHashCodeMethodInfoGetOtherMethodsMemberTypesget_MemberTypeget_MetadataTokenget_ModuleFieldInfoget_Nowget_TicksFieldBuilderget_DeclaringTypeGetRawConstantValueMethodAttributesBindingFlagsBinderCallingConventionsParameterModifierGetConstructorTypeBuilderFieldAttributesget_FieldTypeGetFieldParameterInfoget_Positionget_DefaultValueStaticLocalInitFlagDefaultMemberAttributeget_MemberNameMonitorSystem.ThreadingEnterStateIncompleteInitializationExitPropertyInfoGetGetMethodGetSetMethodget_PropertyTypeGetIndexParametersPropertyAttributesGetPropertyAssemblyget_Assemblyget_IsGenericTypeset_Itemget_IsGenericTypeDefinitionGetGenericTypeDefinitionMakeGenericTypeget_BaseTypeGetMembersStringBuilderSystem.TextAppendget_Charsset_LengthArrayEmptyInvalidOperationExceptionGetGenericMethodDefinitionMethodBodyGetMethodBodyDBNullValueGetCustomAttributesGetOptionalCustomModifiersGetRequiredCustomModifiersGetValueGenericTypeParameterBuilderget_UnderlyingSystemTypeStack`1PeekClearPushGetUpperBoundFormatSubstringPopDecimalZeroISymbolDocumentWriterSystem.Diagnostics.SymbolStoreMarkSequencePointSetLocalSymInfoBeginFinallyBlockBrfalseBrtrueBrLeaveSubSub_OvfSub_Ovf_UnOrAndXorNotRemCeqLdc_I4_0CltCgtCgt_UnAdd_OvfMulMul_OvfShrShlDivget_ParameterTypeDupLdftnLdvirtftnInitobjNegNewobjCastclassIsinstget_IsByRefget_IsEnumConv_U1Conv_Ovf_U1Conv_Ovf_U1_UnConv_I1Conv_Ovf_I1Conv_Ovf_I1_UnConv_U2Conv_Ovf_U2Conv_Ovf_U2_UnConv_I2Conv_Ovf_I2Conv_Ovf_I2_UnConv_U4Conv_Ovf_U4Conv_Ovf_U4_UnConv_I4Conv_Ovf_I4Conv_Ovf_I4_UnConv_U8Conv_Ovf_U8Conv_Ovf_U8_UnConv_I8Conv_Ovf_I8Conv_Ovf_I8_UnConv_R8Conv_R4CallBoxLdarg_0get_IsValueTypeget_ReturnTypeLdtokenConstrainedCallvirtEmitCallNewarrLdelemaLdelem_U1Ldelem_I1Ldelem_U2Ldelem_I2Ldelem_U4Ldelem_I4Ldelem_I8Ldelem_R4Ldelem_R8Ldelem_RefLdobjStelem_I4Stelem_I1Stelem_I2Stelem_I8Stelem_R4Stelem_R8Stelem_RefStobjStelemBitConverterGetBytesToInt64Ldc_I8Ldc_R8Ldc_R4Ldc_I4_M1Ldc_I4_1Ldc_I4_2Ldc_I4_3Ldc_I4_4Ldc_I4_5Ldc_I4_6Ldc_I4_7Ldc_I4_8Ldc_I4_SLdc_I4ToInt32TruncateConvertToUInt64ToSingleLdstrToIntegerToLongToUIntegerToULongToDecimalToCharStringsAscWLdnullget_IsClassget_IsInterfaceMinusOneLdsfldOneLdlocaget_LocalTypeLdfldaLdsfldaget_IsLiteralLdargaget_MemberLdarg_1Ldarg_2Ldarg_3Ldarg_SLdargLdarga_SLdind_U1Ldind_I1Ldind_U2Ldind_I2Ldind_U4Ldind_I4Ldind_I8Ldind_R4Ldind_R8Ldind_RefLdlocNopLdfldStlocStind_I1Stind_I2Stind_I4Stind_I8Stind_R4Stind_R8Stind_RefStargSwitchStsfldStfldUnboxUnbox_AnyThrowGetBitsByteAttributeToUpperInvariantget_EventHandlerTypeIsNothingPredicate`1RemoveAllget_IsInitOnlyDecimalConstantAttributeDateTimeConstantAttributeget_CanWriteMakeGenericMethodGetParametersGenericParameterAttributesget_GenericParameterAttributesGetConstructorsget_IsPrimitiveGetArrayRankSystem.XmlXmlWriterWriteStartElementGetFieldsIsAssignableFromWriteAttributeStringWriteStringWriteEndElementTextWriterSystem.IOget_Indentset_IndentTryGetValueKeyValuePair`2Containsget_KeyIDictionary`2MethodImplAttributesDefineMethodOverrideRuntimeTypeHandleGetTypeFromHandleIsDefinedAppendLineEnvironmentget_NewLineReplaceStringCollectionSystem.Collections.SpecializedCopyToget_IsGenericMethodDefinitionMethodBuilderGetGenericArgumentsGetMethodEventBuilderEventAttributesDefineEventSetAddOnMethodSetRemoveOnMethodSetRaiseMethodSetParentResolveTypeReferencesResolveCodeGenerateCodeDefineMethodSetReturnTypeSetParametersSetImplementationFlagsGetILGeneratorCreateArrayMaxget_IsOptionalget_ListPropertyBuilderDefinePropertySetSetMethodSetGetMethodParseListICollection`1CharSplitInvokeLastIndexOfRemoveAtBitArrayNotImplementedExceptionAscChrInt16SByteSingleUInt16UInt32UInt64ToByteModuleBuilderGetArrayMethodGetNestedTypesget_LocationAssemblyNameGetNameFileExistsLoadFromGetExecutingAssemblyPathGetDirectoryNameCombineGetTypesget_IsPublicStartsWithKeyCollectionget_KeysCultureInfoSystem.GlobalizationActivatorCreateInstanceConsoleCustomAttributeBuilderAssemblyBuilderSetCustomAttributeEnumBuilderConstructorBuilderParameterBuilderget_Parentm_ListEnumeratorIEnumerator`1DefineFieldSetConstantToObjectCharSetSystem.Runtime.InteropServicesContainsNameGetSpecificMembersToGenericParameterGetModuleParameterTokenget_TokenParameterAttributesDefineParameterBne_Un_SIsCreatedDefineNestedTypeDefineTypeAddInterfaceImplementationSetValueCreateTypeFoundIsFoundAsGetNestedTypeEndsWithGetAddMethodGetRemoveMethodBrfalse_SGetRaiseMethodRethrowArrayListCopyEncodingget_DefaultStreamGetManifestResourceStreamStreamReaderReadToEndWriteAllTextGetFullPathReadAllLinesIOExceptionDirectoryGetFilesGetDirectoriesGetFileNameLCaseCompareMethodGetCurrentDirectoryget_InvariantCultureIFormatProviderNumberStylesGetEncodingDebuggerSystem.Diagnosticsget_IsAttachedset_CurrentDirectoryGetInvalidFileNameCharsIndexOfAnyInStrget_CurrentDirectoryDirectoryInfoCreateDirectoryGetExtensionAppDomainget_CurrentDomainAssemblyBuilderAccessDefineDynamicAssemblyDefineDynamicModuleISymbolWriterGetSymWriterThreadget_CurrentThreadGetCultureInfoset_CurrentCultureResolveEventHandleradd_TypeResolveremove_TypeResolveSaveget_IsOutFileVersionInfoGetVersionInfoAssemblyInformationalVersionAttributeget_ProductNameget_FileVersionget_InformationalVersionget_LegalCopyrightToLowerInvariantResourceReaderSystem.ResourcesIResourceReaderIResourceWriterResourceAttributesDefineResourceDictionaryEntryAddResourceFileModeFileAccessFileShareFileStreamDefineManifestResourceSetEntryPointGetMethodsGetAssembliesDirectorySeparatorCharVersionedIsNumericConversionValTryParseSortICollectionArgumentNullExceptionGetCustomAttributeJoinToLowerToSByteToShortToUShortSubtractRemainderMultiplyIsSubclassOfFindFirstParentOfCodeBlockNegateFinalizem_ParentUTF8EncodingGuidDefineDocumentStrCompMemoryStreamStringSplitOptionsIEqualityComparerHashtableget_IsSpecialNameChrWGetGenericParameterConstraintsget_IsAssemblyget_IsFamilyOrAssemblyget_IsNestedFamORAssemget_IsFamilyget_IsNotPublicget_IsNestedget_IsNestedFamilyget_IsNestedAssemblyget_IsPrivateget_IsNestedPrivateget_IsNestedPublicget_IsHideBySigQueue`1DequeueEnqueueGetMethodImplementationFlagsIListDebugGetEntryAssemblyget_FriendlyNameBreakTrimArgumentOutOfRangeExceptionHexOctget_RawDefaultValueIList`1StringComparerget_OrdinalIgnoreCaseTimeSpanDefineLiteralTraceListenerWriteget_IndentLevelset_IndentLevelResourceManagerGetObjectConditionalAttributeget_ConditionStringUnicodeCategoryGetUnicodeCategoryOverflowExceptionget_EndOfStreamReadInformationUBoundDebuggableAttributeDebuggingModesAssemblyProductAttributeAssemblyVersionAttributeAssemblyCompanyAttributeAssemblyCopyrightAttributeAssemblyTrademarkAttributeget_Productget_Versionget_Companyget_Copyrightget_TrademarkDefineVersionInfoResourceGetFileNameWithoutExtensionset_NameSetPublicKeyStrongNameKeyPairset_KeyPairBufferBlockCopyop_Subtractionget_TotalDaysget_Hourget_Minuteget_SecondVersionset_VersionDefineConstructorDefineEnumm_IndexN_AddTypeFilterFindInterfacesMemberFilterFindMembersGetDefaultMembersGetEventsInterfaceMappingGetInterfaceMapGetMemberIsContextfulImplIsInstanceOfTypeIsMarshalByRefImplIsValueTypeImplArgumentExceptionSetBaseTypeConstraintSetInterfaceConstraintsSetGenericParameterAttributesDefineGenericParametersGetValuesGetResolveEventArgsApplicationBaseMicrosoft.VisualBasic.ApplicationServicesComputerMicrosoft.VisualBasic.Devicesget_GetInstanceUserm_ThreadStaticValuevbncvbnc.MyCodeBlockImplicitCodeBlockCodeGeneratorConditionalConstantConditionalConstantsConditionalExpressionArrayTypeDescriptorByRefTypeDescriptorConstructorDescriptorEventDescriptorFieldDescriptorGenericConstructorDescriptorGenericFieldDescriptorGenericParameterDescriptorGenericPropertyDescriptorGenericTypeDescriptorMethodDescriptorParameterDescriptorPropertyDescriptorTypeParameterDescriptorEmitInfoEmitStackEmitterDecimalFieldsBuiltInDataTypesConstantsEnumStringAttributeIntegerBaseKSKSEnumStringAttributeLiteralTypeCharacters_CharactersLiteralTypeCharactersModifierMasksUnaryOperatorsBinaryOperatorsTokenTypeTypeCharactersCharactersAddressOfExpressionDelegateUnresolvedTypeArgumentArgumentListArrayInitializerExpressionBoxExpressionCachedExpressionCastExpressionEventAccessClassificationExpressionClassificationClassificationsLateBoundAccessClassificationMethodGroupClassificationMethodPointerClassificationNamespaceClassificationPropertyAccessClassificationPropertyGroupClassificationTypeClassificationValueClassificationVariableClassificationVoidClassificationCompilerGeneratedExpressionGenerateCodeDelegateLoadLocalExpressionLoadElementExpressionValueOnStackExpressionLateBoundAccessToExpressionLateBoundAccessToPropertyAccessExpressionDelegateOrObjectCreationExpressionDeRefExpressionGetRefExpressionLateBoundAccessToValueExpressionLoadFieldExpressionMethodGroupToValueExpressionNothingConstantExpressionOperatorExpressionPropertyAccessToValueExpressionPropertyGroupToPropertyAccessExpressionPropertyGroupToValueExpressionSimpleExpressionVariableExpressionVariableToValueExpressionDumperDumperXMLMemberVisibilityMemberCacheMemberVisibilityEntriesMemberCacheEntriesMemberCacheEntryMethodBaseDeclarationMyGeneratorMyTypesMyGroupDataNamespaceDictionaryNothingTypeDictionaryTypeListGenericMethodDescriptorExpressionResolveInfoIHasImplicitMembersIHasImplicitTypesEventHandlerDeclarationEventDeclarationMemberDeclarationMethodDeclarationMethodResolverMemberCandidatePropertyDeclarationPropertyHandlerDeclarationIdentifierParsedObjectParserParseDelegate_Parent`1ExpressionParseInfoParseTypeInfoParseAttributableInfoResolveInfoTypeCombinationsTypeConverterIConstructorMemberICreatableTypeIFieldMemberIMemberDescriptorIAttributableDeclarationIAttributableNamedDeclarationIBaseObjectIDefinableTypeIEmittableIDefinableMemberIMemberIMethodINameableINonTypeMemberIPropertyMemberITypeBaseListNamedBaseList`1RegularEventHandlerDeclarationCompoundAssignmentStatementBlockStatementIdentifierOrKeywordInvocationOrIndexExpressionNamedArgumentPositionalArgumentArrayCreationExpressionTypeManagerTypeComparerMemberComparerCustomEventHandlerDeclarationAliasClauseArrayElementInitializerArrayNameModifierArraySizeInitializationModifierArrayTypeModifierArrayTypeModifiersAttributeArgumentExpressionAttributeArgumentsAttributeListAttributePositionalArgumentListAttributesBaseList`1OperatorDeclarationBoundListConstantDeclarationConstantDeclarationsConversionOperatorDeclarationCustomEventDeclarationEventAccessorDeclarationsEventHandlesListEventMemberSpecifierExternalFunctionDeclarationExternalSubDeclarationFunctionDeclarationFunctionSignatureHandlesClauseHandlesOrImplementsInterfaceBasesInterfaceEventMemberDeclarationInterfaceFunctionDeclarationInterfaceMemberSpecifierInterfacePropertyMemberDeclarationInterfaceSubDeclarationLibraryClauseMemberDeclarationsModifiersMustOverridePropertyDeclarationOperandParameterParameterListParametersOrTypeParameterIdentifierRegularEventDeclarationRegularPropertyDeclarationSubDeclarationSubSignatureVariableDeclarationVariableIdentifierVariableIdentifiersVariableInitializerVariableInitializerListVariablePropertyInitializerVariablePropertyInitializerListIdentifierOrKeywordWithTypeArgumentsGenericTypeDeclarationPartialTypeDeclarationTypeDeclarationIModifiableRestorablePointTypeArityListTypeNameResolutionInfoQualifiedIdentifierAddOrRemoveHandlerStatementAddAssignStatementAssignmentStatementConcatAssignStatementDivisionAssignStatementIntDivisionAssignStatementLShiftAssignStatementMidAssignStatementMultiplicationAssignStatementPowerAssignStatementRShiftAssignStatementSubtractionAssignStatementCallStatementCaseClauseCaseClausesCaseStatementCatchStatementContinueStatementDoStatementElseIfStatementEndStatementEraseStatementErrorStatementExitStatementExpressionListForEachStatementForStatementLoopCounterDataLoopCounterTypesGotoStatementIfStatementLabelDeclarationStatementLoopControlVariableOnErrorStatementOptionCompareStatementOptionExplicitStatementOptionStrictStatementRaiseEventStatementRedimClauseRedimClausesReDimStatementResumeStatementReturnStatementSelectStatementStatementStopStatementSyncLockStatementThrowStatementTryStatementUsingDeclaratorsUsingDeclaratorUsingStatementWhileStatementWithStatementArrayTypeNameBuiltInTypeNameConstraintConstructedTypeNameGetTypeTypeNameInstanceExpressionMissingExpressionSimpleNameExpressionExpressionsCodeFilesCommandLineDebugTypesOptionCompareTypesOptionExplicitTypesOptionStrictTypesTargetsVBVersionsCompilerCompilerSequenceDefineDefinesGlobalNamespaceIndexIndexListInternalExceptionNamespaceNamespacesTooManyErrorsExceptionvbncExceptionMessageMessageAttributeMessageLevelMessagesResourceResourcesAndAlsoExpressionAndExpressionBinaryAddExpressionBinaryExpressionBinarySubExpressionConcatExpressionEqualsExpressionExponentExpressionGEExpressionGTExpressionIntDivisionExpressionIs_IsNotExpressionLEExpressionLikeExpressionLShiftExpressionLTExpressionModExpressionMultExpressionNotEqualsExpressionOrElseExpressionOrExpressionRealDivisionExpressionRShiftExpressionXOrExpressionBooleanLiteralExpressionBuiltInTypeExpressionCaseComparisonExpressionCaseRangeExpressionConstantExpressionCBoolExpressionCByteExpressionCCharExpressionCDateExpressionCDblExpressionCDecExpressionCIntExpressionCLngExpressionCObjExpressionConversionExpressionCSByteExpressionCShortExpressionCSngExpressionCStrExpressionCTypeExpressionCUIntExpressionCULngExpressionCUShortExpressionDirectCastExpressionTryCastExpressionDictionaryAccessExpressionDotAccessExpressionGetTypeExpressionGlobalExpressionLiteralExpressionMeExpressionMyBaseExpressionMyClassExpressionNamespaceExpressionNewExpressionParenthesizedExpressionMemberAccessExpressionTypeExpressionTypeOfExpressionUnaryNotExpressionUnaryMinusExpressionUnaryPlusExpressionUnaryExpressionTypeCacheBaseTypeCacheBaseObjectBaseObjects`1CodeFileEnumsExpressionHelperStopExceptionMainEnumMemberDeclarationPropertyGetDeclarationPropertySetDeclarationReportReportLevelsScannerDataSpanTokenAssemblyDeclarationAttributeBlockClassDeclarationConstructorDeclarationDelegateDeclarationEnumDeclarationIConstructableMemberImplementsListMemberImplementsClauseImportsAliasClauseImportsClauseImportsClausesImportsNamespaceClauseImportsStatementInterfaceDeclarationMissingTypeModuleDeclarationNameables`1Proxy_NameablesNonArrayTypeNameSimpleTypeNameStructureDeclarationtmTypeArgumentListConstraintListTypeDescriptorTypeImplementsClausesTypeNameTypeParameterTypeParameterConstraintsTypeParameterListTypeParametersTypeResolutionConversionTypeTypeConversionInfoMyApplicationMyComputerMyProjectThreadSafeObjectProvider`1MyWebServicesm_Variablesm_StaticVariablesm_Statementsm_BlockStatementsm_Sequencem_Labelsm_FirstStatementm_HasStructuredExceptionHandlingm_HasUnstructuredExceptionHandlingm_HasResumeEndUnstructuredExceptionHandlerVB_ActiveHandlerVB_ActiveHandlerLabelVB_ResumeTargetUnstructuredResumeNextHandlerUnstructuredResumeHandlerUnstructuredSwitchHandlerEndResumeNextExceptionHandlerVB_CurrentInstructionUnstructuredExceptionHandlersUnstructuredExceptionLabelsEndMethodLabelm_InternalExceptionLocationm_EndOfMethodLabelParentget_BlockStatementsFindStaticVariableslistAddStatementAfterAfterAddStatementBeforeBeforeAddStatementAddLabellblAddVariablevarAddVariablesget_EndOfMethodLabelget_FirstStatementset_FirstStatementvalueget_StatementsRemoveStatementget_HasResumeset_HasResumeget_HasUnstructuredExceptionHandlingset_HasUnstructuredExceptionHandlingget_HasStructuredExceptionHandlingset_HasStructuredExceptionHandlingget_LabelsFindLabelNameGenerateUnstructuredStartInfoGenerateUnstructuredEndMethodget_UpmostBlockCreateLabelForCurrentInstructionget_Variablesget_IsOneLinerFindVariableBlockStatementsEndOfMethodLabelFirstStatementStatementsHasResumeHasUnstructuredExceptionHandlingHasStructuredExceptionHandlingLabelsUpmostBlockVariablesIsOneLinerm_CodeGeneratorMulticastDelegateTargetObjectTargetMethodBeginInvokeIAsyncResultAsyncCallbackDelegateCallbackDelegateAsyncStateEndInvokeDelegateAsyncResultm_Compilerget_Compilerget_ConstantTypeget_IsDefinedAsBooleanAsDoubleAsStringAsObjectAsDateDumpop_EqualityConst1Const2op_InequalityConstantTypeCopyFromCloneConstantkeyItemm_Scannerget_CurrentConstantsNextTokenget_CurrentTokenRuleIdentifierResultRuleExponentRuleUnaryNegationRuleMultiplicationAndRealDivisionRuleIntegerDivisionRuleModRuleAdditionSubtractionStringConcatRuleStringConcatRuleArithmeticBitshiftRuleRelationalRuleNotRuleAnd_AndAlsoRuleOr_OrElseRuleXorRuleExpressionCurrentConstantsCurrentTokenm_Ranksm_ElementTypeDescriptorm_ElementTypem_ArrayTypem_FullNamem_AllMembersm_AllDeclaredMembersElementTypeRanksget_AllDeclaredMembersget_AllMembersGetAttributeFlagsImplHasElementTypeImplIsArrayImplIsByRefImplIsCOMObjectImplIsPointerImplIsPrimitiveImplget_TypeInReflectioncContainsGenericParametersIsGenericParameterAllDeclaredMembersAllMembersIsGenericTypeDefinitionBaseTypeFullNameMetadataTokenUnderlyingSystemTypeIsGenericTypeTypeInReflectionm_ByRefTypem_DeclarationDeclarationDumpMethodInfoReturnValueget_IsSharedget_Declarationget_Declaration2inheritattributeTypeobjinvokeAttrbinderparameterscultureget_MethodHandleRuntimeMethodHandleget_ReflectedTypeget_CallingConventionget_ConstructorInReflectionIsSharedDeclaration2DeclaringTypeMethodHandleReflectedTypeCallingConventionIsGenericMethodIsGenericMethodDefinitionMemberTypeConstructorInReflectionget_EventDeclarationnonPublictickscounterget_FieldInReflectionabget_FieldHandleRuntimeFieldHandleFieldInReflectionFieldHandleFieldTypem_ClosedTypem_OpenConstructorDescriptorm_OpenConstructorm_ClosedConstructorDescriptorm_ClosedConstructorm_TypeParametersm_TypeArguments$STATIC$GetParameters$16981$resultOpenConstructorTypeArgumentsClosedTypem_OpenFieldDescriptorm_OpenFieldm_ClosedFieldOpenFieldm_InfoParameterTypeget_IsParamArrayIsParamArrayDefaultValuem_OpenPropertyDescriptorm_OpenPropertym_ClosedPropertyDescriptorm_ClosedProperty$STATIC$GetGetMethod$18252$result$STATIC$GetGetMethod$18252$result$Init$STATIC$GetSetMethod$18352$result$STATIC$GetSetMethod$18352$result$Init$STATIC$GetIndexParameters$18523$result$STATIC$get_PropertyType$18443$resultOpenPropertyget_IsDefaultget_PropertyInReflectionIsDefaultPropertyTypePropertyInReflectionm_OpenTypeDescriptorm_OpenTypem_Name$STATIC$GetInterfaces$19184$result$STATIC$get_BaseType$21320$result$STATIC$get_BaseType$21320$result$InitOpenTypeget_TypeArgumentstypeArgumentsget_MethodInReflectionGetBaseDefinitionget_ReturnTypeCustomAttributesICustomAttributeProviderget_ReturnParameterMethodInReflectionReturnTypeCustomAttributesReturnTypeReturnParameterm_Parameterm_Positionm_Operandm_TypeNamem_TypeParamPositionMemberRawDefaultValueget_PropertyDeclarationget_CanReadGetAccessorsindexGetConstantValueCanReadCanWritem_TypeParameter$STATIC$MakeArrayType$28231$cache$STATIC$MakeArrayType$28231$cache$InitobindingAttrget_TypeParameterget_GenericParameterPositionget_IsVisiblerankget_DeclaringMethodGenericParameterPositionIsVisibleDeclaringMethodm_IsRHSm_RHSExpressionm_IsExplicitConversionm_Methodm_Stackm_DesiredTypem_InExceptionFilterm_Contextget_Contextget_InExceptionFilterset_InExceptionFilterget_RHSExpressionget_IsOptionCompareTextget_IntegerOverflowChecksget_IsExplicitConversionget_DesiredTypeget_IsRHSget_IsLHSget_ILGenget_Stackget_MethodContextRHSExpressionIsRHSIsExplicitConversionDesiredTypeLocationInExceptionFilterIsOptionCompareTextIntegerOverflowChecksIsLHSILGenStackSwitchHeadFromTypeToTypeCheckStackEmptyMessageOnErrorStackStateget_IsStackEmptyIsStackEmptyFreeLocalLocalEmitBeginExceptionFilterEmitBeginCatchExceptionTypeEmitEndExceptionBlockEmitBeginExceptionBlockEmitBeginFinallyBlockEmitPopEmitBranchIfFalseEmitBranchIfTrueEmitBranchEmitBranchOrLeaveFromStatementToStatementEmitLeaveEmitSubSubTypeEmitSubOvfEmitSubOvfUnEmitSubOrSubOvfOrSubOvfUnEmitOrOrTypeEmitAndAndTypeEmitXOrXorTypeEmitNotNotTypeEmitModModTypeEmitEqualsCompareTypeEmitNotEqualsEmitGEEmitGTEmitGT_UnEmitLEEmitLTEmitAddOperandTypeEmitAddOrAddOvfEmitAddOvfEmitMultEmitMultOvfEmitMultOrMultOvfEmitIsEmitRShiftOpTypeEmitLShiftEmitIntDivEmitRealDivEmitIsNotCreateLocalPopParametersParamsEmitDupEmitLoadVftnEmitInitObjEmitNegEmitNewConstructorParameterTypesEmitCastClassEmitIsInstEmitValueTypeToObjectConversionEmitConv_U1EmitConv_U1_OverflowEmitConv_U1_Overflow_UnderflowEmitConv_I1EmitConv_I1_OverflowEmitConv_I1_Overflow_UnderflowEmitConv_U2EmitConv_U2_OverflowEmitConv_U2_Overflow_UnderflowEmitConv_I2EmitConv_I2_OverflowEmitConv_I2_Overflow_UnderflowEmitConv_U4EmitConv_U4_OverflowEmitConv_U4_Overflow_UnderflowEmitConv_I4EmitConv_I4_OverflowEmitConv_I4_Overflow_UnderflowEmitConv_U8EmitConv_U8_OverflowEmitConv_U8_Overflow_UnderflowEmitConv_I8EmitConv_I8_OverflowEmitConv_I8_Overflow_UnderflowEmitConv_R8EmitConv_R4EmitConversionEmitLoadMeTypeOfMeEmitCallOrCallVirtEmitLoadTokenEmitConstrainedEmitConstrainedCallVirtConstrainedTypeEmitCallVirtEmitNewArrEmitLoadElementAddressArrayTypeEmitLoadElementLoadElementEmitStoreElementEmitStoreObjectEmitLoadObjectElementsEmitLoadI8ValueITypeToPushOnStackEmitLoadR8ValueEmitLoadR4ValueEmitLoadI4ValueEmitLoadValueEmitLoadValueAddressEmitLoadValueConstantOrValueAddressEmitLoadNullEmitLoadDateValueDateValueEmitLoadDecimalValuedecimalValueEmitLoadVariableLocationVariableEmitLoadVariableFieldGetParameterPositionEmitLoadParameterEmitLoadParameterAddressEmitLoadIndirectByRefTypeIsLeaveNecessaryEmitRetOrLeaveCurrentStatementHasReturnValueEmitRetEmitNopEmitStoreVariableEmitStoreIndirectEmitSwitchEmitStoreFieldEmitBoxSourceTypeEmitUnboxEmitUnbox_AnyEmitLdobjEmitThrowSwitchVersionedMethodsUnversionedMethodValueTypeScaleSignHiLoMidSignAsBitget_AsByte_Byte_Int32_Int32_Int32AsByte_Byte_Int32_Int32_Int32value__DateIntegerLongShortUShortUIntegerULongNEWLINEENDOFFILEENDOFCODE.cctorm_Valuem_TagTagget_TagOctalNoneAnsiAutoByRefByValConstDefaultDimFriendInheritsMustInheritMustOverrideNarrowingNotInheritableNotOverridableOptionalOverloadsOverridableOverridesPartialParamArrayPrivateProtectedPublicReadOnlyShadowsSharedStaticUnicodeWideningWithEventsWriteOnlyAddHandlerAddressOfAndAlsoAliasAsCaseCatchCBoolCByteCCharCDateCDecCDblCIntClassCLngCObjContinueCSByteCShortCSngCStrCUIntCULngCUShortCTypeDeclareDelegateDirectCastDoEachElseElseIfEndEraseErrorEventFalseFinallyForFunctionGlobalGoToHandlesIfImplementsImportsInInterfaceIsIsNotLetLibLikeLoopMeModMyBaseMyClassNewNextOfOnOperatorOptionOrElsePropertyRaiseEventReDimREMRemoveHandlerResumeReturnSelectSetStepStopStructureSyncLockThenToTrueTryTryCastTypeOfUsingUntilVariantWhenWhileWithLTGTNotEqualLEGEExclamationMultMinusPowerRealDivisionIntDivisionNumeralLBraceRBraceLParenthesisRParenthesisDotCommaColonShiftLeftShiftRightConcatAssignAddAssignMinusAssignRealDivAssignIntDivAssignPowerAssignMultAssignShiftLeftAssignShiftRightAssignNumberOfItemsm_FriendlyValuem_IsKeywordm_IsSymbolFriendlyValueIsKeywordIsSymbolget_IsKeywordget_IsSymbolget_FriendlyValueShortCharacterUnsignedShortCharacterIntegerCharacterUnsignedIntegerCharacterLongCharacterUnsignedLongCharacterIntegerTypeCharacterLongTypeCharacterSingleCharacterDoubleCharacterDecimalCharacterSingleTypeCharacterDoubleTypeCharacterDecimalTypeCharacterm_Charactersm_TypesIsIntegralchrGetBuiltInTypeGetTypeCharacterExternalMethodModifiersCharSetModifiersAccessModifiersVariableModifiersConstantModifiersLocalModifiersParameterModifiersTypeModifiersClassModifiersStructureModifiersEventModifiersProcedureModifiersMustOverrideProcedureModifiersMustOverridePropertyModifiersPropertyModifiersInterfacePropertyModifierConstructorModifiersOperatorModifiersInterfaceEventModifiersInterfaceProcedureModifiersConversionOperatorModifiersConstructorModifierXOrIsTrueIsFalseCharLiteralDateLiteralDecimalLiteralSingleLiteralDoubleLiteralStringLiteralInt16LiteralInt32LiteralInt64LiteralUInt16LiteralUInt32LiteralUInt64LiteralEndOfCodeEndOfFileEndOfLineKeywordSymbolm_DataTypesTypeCharacterToTypeTypeCharacterIsTypeCharacterresultGetDataTypeStringTypeCharacterm_Expressionm_ExpressionTypeGenerateCodeInternalInitIsMeResolveDelegateTypeResolveExpressionInternalget_ExpressionTypeExpressionTypeget_IsNamedArgumentget_AsStringget_AsTypeStringDestinationget_Expressionset_ExpressionIsNamedArgumentAsTypeStringm_ArgumentsReplaceArgumentsNewArgumentsReplaceAndVerifyArgumentsVerifyArgumentsFillWithOptionalParametersget_ArgumentsTypesAsStringArgumentsToTypesget_HasNamedArgumentsget_HasPositionalArgumentsget_ArgumentsTypesparamsArgumentsTypesAsStringHasNamedArgumentsHasPositionalArgumentsLengthCountm_InitializersInitializersget_Initializersm_DestinationTypeDestinationTypeget_IsConstantIsConstantm_LocalCreateAndParseTom_EventInfom_InstanceExpressionget_EventInfoget_EventTypeget_Typeget_InstanceExpressionEventTypem_Classificationm_ConstantValueClassificationget_ConstantValueset_ConstantValueThrowIfNoTypeget_AsLateBoundAccessget_AsEventAccessget_AsMethodGroupClassificationget_AsMethodPointerClassificationget_AsNamespaceClassificationget_AsPropertyAccessget_AsPropertyGroupget_AsTypeClassificationget_AsValueClassificationget_AsVariableClassificationget_AsVoidClassificationget_IsLateBoundClassificationget_IsEventAccessClassificationget_IsMethodGroupClassificationget_IsMethodPointerClassificationget_IsNamespaceClassificationget_IsPropertyAccessClassificationget_IsPropertyGroupClassificationget_IsTypeClassificationget_CanBeValueClassificationget_CanBePropertyAccessClassificationget_IsValueClassificationget_IsVariableClassificationget_IsVoidClassificationget_ClassificationConstantValueAsLateBoundAccessAsEventAccessAsMethodGroupClassificationAsMethodPointerClassificationAsNamespaceClassificationAsPropertyAccessAsPropertyGroupAsTypeClassificationAsValueClassificationAsVariableClassificationAsVoidClassificationIsLateBoundClassificationIsEventAccessClassificationIsMethodGroupClassificationIsMethodPointerClassificationIsNamespaceClassificationIsPropertyAccessClassificationIsPropertyGroupClassificationIsTypeClassificationCanBeValueClassificationCanBePropertyAccessClassificationIsValueClassificationIsVariableClassificationIsVoidClassificationEventAccessLateBoundAccessMethodGroupMethodPointerPropertyAccessPropertyGroupVoidm_LateBoundTypeset_Argumentsget_LateBoundTypeset_LateBoundTypeLateBoundTypem_Parametersm_Groupm_CallingTypem_Resolvedm_ResolverParametersMethodsLogResolutionMessagemsgget_Parametersget_ResolvedGenerateCodeAsValueReclassifyToValueget_ResolvedMethodInfoget_ResolvedConstructorget_ResolvedMethodget_Resolverget_SuccessfullyResolvedSetMethodslstget_MethodNameget_Groupset_GroupResolveInterfaceGroupgrpcodedMemberget_IsLateBoundResolveGroupSourceParametersFinalSourceArgumentsShowErrorsShrinkGroupIsAccessibleCallerResolvedResolvedMethodInfoResolvedConstructorResolvedMethodResolverSuccessfullyResolvedMethodNameGroupIsLateBoundm_MethodGroupm_ResolvedMethodm_DelegateTypeget_DelegateTypeget_MethodGroupm_Namespacem_LateBoundExpressionm_Propertyget_ResolvedPropertyget_Propertyset_PropertyResolvedPropertym_Membersm_ResolvedPropertyMembersget_IsResolvedIsResolvedget_MyGroupget_CanBeExpressionget_IsTypeParameterset_TypeMyGroupCanBeExpressionIsTypeParameterm_IsLiteralNothingm_Constantm_EnumVariablem_Field$STATIC$get_IsConstant$48487$recursiveEnumVariableParentAndValueget_ReclassifiedClassificationget_Value_IsLiteralNothingget_Value_ConstantValueget_Value_Constantget_Value_EnumVariableget_Value_FieldReclassifiedClassificationValue_IsLiteralNothingValue_ConstantValueValue_ConstantValue_EnumVariableValue_Fieldm_ParameterInfom_FieldInfom_LocalBuilderm_Variablem_ArrayVariablemethodparametervariableArrayVariableExpressionget_ArrayVariableget_ParameterInfoget_LocalBuilderget_FieldInfoArrayVariablem_Delegatem_LateBoundAccessget_LateBoundAccessEmitLateIndexGetEmitLateGetEmitLateIndexSetEmitLateSetEmitArgumentsargumentsEmitCopyBackscopyBackHintscopyBacksEmitStoreBacksCopyBacksarrayEmitLateCallm_NonArrayTypeNamem_ArgumentListm_ResolvedTypem_MethodClassificationm_IsDelegateCreationExpressionm_IsValueTypeInitializerm_IsGenericConstructorget_NonArrayTypeNameget_IsDelegateCreationExpressionIsDelegateCreationExpressionget_FieldNewParentIsUnaryMeIsBinaryMem_PropertyAccessm_PropertyGroupm_Dumperget_Dumperset_DumperObjXmlWriterTabStringIndentUnindentIndentLevelPublicProtectedPublicProtectedFriendPublicFriendAllm_Cachem_CacheInsensitivem_FlattenedCachem_FlattenedCacheInsensitivem_Cache2m_CacheInsensitive2m_FlattenedCache2m_FlattenedCacheInsensitive2m_ShadowedInterfaceMembersm_BaseReloadget_Cacheget_FlattenedCacheget_FlattenedCache2LoadFlattenFlattenWithLogMsgLogExtendedIsHiddenbaseMemberVisibilityGetBaseCacheLookupFlattenedFromLookupFlattenedMembersLookupMembersFlattenedLookupCacheFlattenedCacheFlattenedCache2compareCapacityDictionaryEntryGetAllMembersm_Signaturem_Codem_MethodAttributesm_MethodImplAttributesm_ReturnTypem_ParameterTypesm_DefaultReturnVariablem_MethodOverridesSignatureCodeget_ParameterTypesset_ParameterTypesset_ReturnTypeget_MethodAttributesset_Attributesget_MethodImplAttributesflagsget_MemberDescriptorget_Codeset_Codeget_DefaultReturnVariableget_GetParametersget_HandlesOrImplementsget_HasReturnValueget_ILGeneratorget_MethodBuilderget_HasMethodBodyget_MethodDescriptorget_SignatureResolveMemberDefineMemberget_MethodOverrideResolveOverridesDefineOverridesIsPropertyHandlesHandlerGeneratePropertyHandlersMemberDescriptorDefaultReturnVariableHasMethodBodyMethodOverridem_ProjectCodem_MyTypem_GlobalMyget_ProjectCodeGenerateGenerateMyApplicationGenerateMyUserGenerateMyFormsGenerateMyWebServicesGenerateGroupCollectionClassTypeToCollectGenerateMyLogGenerateMyComputerGenerateMyRequestGenerateMyResourcesGenerateMyResponseGenerateMySettingsProjectCodeCustomWebWebControlWindowsWindowsFormsWindowsFormsWithCustomSubMainCreateInstanceMethodDisposeInstanceMethodDefaultInstanceAliasAddTypeAddNamespaceGetAllDictionariesEmptyDictionaryTypesAsArrayToTypeListm_OpenMethodDescriptorm_OpenMethodm_ClosedMethodDescriptorm_ClosedMethod$STATIC$GetParameters$75614$result$STATIC$get_ReturnType$75450$resultOpenMethodLHSTypeCreateImplicitMembersCreateImplicitTypesm_HandlerTypeHandlerTypeEventNameget_HandlerTypeget_EventParentEventParentm_Descriptorm_Identifierm_ImplementsClausem_AddMethodm_RemoveMethodm_RaiseMethodm_EventTypem_BuilderImplementsClauseget_EventBuilderget_EventDescriptorset_EventTypeget_AddMethodset_AddMethodget_RemoveMethodset_RemoveMethodget_RaiseMethodset_RaiseMethodget_Identifierget_ImplementsClauseAddMethodRemoveMethodRaiseMethodm_DeclaringTypem_CustomAttributesm_Modifiersm_GeneratedCodeget_GeneratedCodeAddModifierModifierCustomAttributesRenameget_CustomAttributesset_DeclaringTypeget_ModifiersGeneratedCodem_MethodBuilderget_DescriptorDescriptorLOGMETHODRESOLUTIONm_Candidatesm_InitialCandidatesm_Callerm_ArgumentsTypesAsStringm_ResolvedCandidatem_ShowErrorsm_IsLateBoundget_ShowErrorsset_ShowErrorsget_Candidatesget_Callerget_MethodDeclaringTypeInitialGroupget_CandidatesLeftResolveInternalSelectLessGenericRemoveInaccessibleExpandParamArraysRemoveInapplicableRemoveNarrowingExceptObjectRemoveNarrowingSelectMostApplicableget_ResolvedCandidateget_ResolvedMemberP1P2P3CandidatesMethodDeclaringTypeCandidatesLeftResolvedCandidateResolvedMemberm_Memberm_DefinedParametersm_DefinedParametersTypesm_ExactArgumentsm_TypesInInvokedOrderm_IsParamArrayget_TypesInInvokedOrderget_ExactArgumentsget_DefinedParametersget_DefinedParametersTypesget_IsParamArrayCandidateget_ParamArrayExpressionget_IsAccessibleget_IsApplicableget_IsNarrowingExceptObjectget_IsNarrowingIsNarrowingInternalExceptObjectget_InputParametersget_ParamArrayParameterExpandParamArrayDefineApplicabilityResolveUnresolvedExpressionsSelectOutputArgumentsTypesInInvokedOrderExactArgumentsDefinedParametersDefinedParametersTypesIsParamArrayCandidateParamArrayExpressionIsApplicableIsNarrowingExceptObjectIsNarrowingInputParametersParamArrayParameterm_Getm_Setm_MemberImplementsClausem_Handlersm_HandlesFieldget_HandlesFieldset_HandlesFieldget_HandlersSetMethodPropertySignatureget_GetDeclarationget_SetDeclarationget_GetMethodget_PropertyBuilderget_SetMethodHandlesFieldHandlersGetDeclarationSetDeclarationm_TypeCharacterget_TypeCharacterget_HasTypeCharacterHasTypeCharacterm_HasErrorsCheckTypeReferencesNotResolvedCheckCodeNotResolvedget_CodeResolvedget_TypeReferencesResolvedget_HasErrorsset_HasErrorsset_ParentCodeResolvedTypeReferencesResolvedHasErrorsTokenReaderParseEventAccessorDeclarationsParseCustomEventMemberDeclarationParseInterfaceEventMemberDeclarationParseParametersOrTypeParseRegularEventDeclarationParseCustomEventHandlerDeclarationParseGlobalExpressionParseBuiltInTypeExpressionParseMemberAccessExpressionFirstExpressionParseIdentifierOrKeywordWithTypeArgumentsParseDictionaryAccessExpressionFirstPartParseCByteExpressionParseCBoolExpressionParseCCharExpressionParseCDateExpressionParseCDblExpressionParseCDecExpressionParseCIntExpressionParseCLngExpressionParseCObjExpressionParseCSByteExpressionParseCShortExpressionParseCSngExpressionParseCStrExpressionParseCUIntExpressionParseCULngExpressionParseCUShortExpressionParseVariableIdentifierParseRaiseEventStatementParseInvocationOrIndexExpressionFirstParseParenthesizedExpressionParseUnaryMinusExpressionParseCTypeExpressionGetKeywordParseUnaryNotExpressionParseUnaryPlusExpressionParseArrayInitializerExpressionParseLoopControlVariableParseNewExpressionParseDelegateOrObjectCreationExpressionParseArgumentListParseNamedArgumentParseMyClassExpressionParseMyBaseExpressionParseMeExpressionParseSimpleNameExpressionParseCodeBlockParseExpressionListParseExpressionParseGetTypeExpressionParseIdentifierParseExponentParseUnaryPlusMinusParseMultDivParseIntDivParseModParsePlusMinusParseConcatParseBitshiftParseComparisonParseNotParseAnd_AndAlsoParseOr_OrElse_XorParseAddressOfExpressionParseTypeOfExpressionParseLiteralExpressionParseBooleanLiteralExpressionParseVariableIdentifiersParseConstructorMemberParseRegularPropertyMemberDeclarationParsePropertySetMemberParentSignatureParentImplementsParentModifiersParsePropertyGetMemberParseSubSignaturem_ParameterListParseFunctionSignatureParseTypeParametersParseTypeParameterParseTypeParameterConstraintsParseConstraintParseParameterParseParameterIdentifierParseImplementsClauseParseInterfaceMemberSpecifierParseConstantMemberDeclarationsParseConstantDeclarationsParseMustOverridePropertyMemberDeclarationParseConversionOperatorDeclarationParseEnumMemberDeclarationEnumIndexParseOperandParseOperatorDeclarationParseFunctionDeclarationParseSubDeclarationParseHandlesOrImplementsParseHandlesClauseParseEventMemberSpecifierParseInterfaceSubDeclarationParseInterfaceFunctionDeclarationParseExternalSubDeclarationParseExternalFunctionDeclarationParseAliasClauseParseLibraryClauseParseConstantDeclarationParseLocalDeclarationStatementParseVariableMemberDeclarationParseVariableDeclaratorsParseVariableDeclaratorParseInterfacePropertyMemberDeclarationParseLabelDeclarationStatementParseThrowStatementParseStopStatementParseResumeStatementParseReDimStatementParseOnErrorStatementParseGotoStatementParseExitStatementParseEndStatementParseContinueStatementParseEraseStatementParseReturnStatementParseRedimClausesParseRedimClauseParseErrorStatementParseMidAssignmentStatementParseWhileStatementParseWithStatementParseUsingDeclaratorParseUsingStatementParseSyncLockStatementParseDoStatementConditionIsWhileParseDoStatementParseTryStatementParseCatchStatementParseIfStatementParseElseIfStatementParseSelectStatementParseCaseStatementParseCallStatementParseForEachStatementParseForStatementParseCaseClauseParseAddOrRemoveHandlerStatementParseImportsStatementsParseImportsStatementstrParseClassDeclarationParseDelegateDeclarationParseEnumMembersParseEnumDeclarationParseInterfaceDeclarationParseModuleDeclarationParseStructureDeclarationRootNamespaceassemblyParseFileHeaderParseOptionCompareStatementParseOptionStrictStatementParseOptionExplicitStatementParseImportsClausesParseImportsClauseParseImportsAliasClauseParseImportsNamespaceClauseParseAssemblyDeclarationParseAttributesParseAttributeBlockParseAttributeListParseAttributeParseAttributeArgumentsListParseMethodParseVariablePropertyInitializerParseIdentifierOrKeywordParseAttributeArgumentExpressionParseGetTypeTypeNameParseArrayCreationExpressionParseArrayElementInitializerParseVariableInitializerParseArrayNameModifierParseArraySizeInitializationModiferParseInterfaceBasesParseTypeImplementsClausesParseBoundListParseNonArrayTypeNameParseConstructedTypeNameParseTypeArgumentListParseTypeNameParseArrayTypeModifiersParseArrayTypeModifierParseSimpleTypeNameParseQualifiedIdentifierParseBuiltinTypeNameParseModifiersValidModifiersParseInterfaceMembersParseTypeMembersParseTypeDeclarationParseAssemblyMembersdeclarationsm_IsLeftSidem_IsInTypeOfLeftSideIsInTypeOfget_IsLeftSideset_IsLeftSideget_IsInTypeOfset_IsInTypeOfIsLeftSidem_BaseTypem_Attributesm_Bitsc_SkipFunctionReturnVariablec_CanFailc_CanBeLateCallc_CanBeImplicitSimpleNamec_EventResolutionDefaultInfoSkipFunctionReturnVariableCanFailCanBeImplicitSimpleNameget_CanBeImplicitSimpleNameset_CanBeImplicitSimpleNameget_CanBeLateCallset_CanBeLateCallget_SkipFunctionReturnVariableset_SkipFunctionReturnVariableget_CanFailset_CanFailget_IsEventResolutionset_IsEventResolutionCanBeLateCallIsEventResolutionSHIFTEmpty_EmptyEmpty_ObjectEmpty_DBNullEmpty_BooleanEmpty_CharEmpty_SByteEmpty_ByteEmpty_Int16Empty_UInt16Empty_Int32Empty_UInt32Empty_Int64Empty_UInt64Empty_SingleEmpty_DoubleEmpty_DecimalEmpty_DateTimeEmpty_StringObject_EmptyObject_ObjectObject_DBNullObject_BooleanObject_CharObject_SByteObject_ByteObject_Int16Object_UInt16Object_Int32Object_UInt32Object_Int64Object_UInt64Object_SingleObject_DoubleObject_DecimalObject_DateTimeObject_StringDBNull_EmptyDBNull_ObjectDBNull_DBNullDBNull_BooleanDBNull_CharDBNull_SByteDBNull_ByteDBNull_Int16DBNull_UInt16DBNull_Int32DBNull_UInt32DBNull_Int64DBNull_UInt64DBNull_SingleDBNull_DoubleDBNull_DecimalDBNull_DateTimeDBNull_StringBoolean_EmptyBoolean_ObjectBoolean_DBNullBoolean_BooleanBoolean_CharBoolean_SByteBoolean_ByteBoolean_Int16Boolean_UInt16Boolean_Int32Boolean_UInt32Boolean_Int64Boolean_UInt64Boolean_SingleBoolean_DoubleBoolean_DecimalBoolean_DateTimeBoolean_StringChar_EmptyChar_ObjectChar_DBNullChar_BooleanChar_CharChar_SByteChar_ByteChar_Int16Char_UInt16Char_Int32Char_UInt32Char_Int64Char_UInt64Char_SingleChar_DoubleChar_DecimalChar_DateTimeChar_StringSByte_EmptySByte_ObjectSByte_DBNullSByte_BooleanSByte_CharSByte_SByteSByte_ByteSByte_Int16SByte_UInt16SByte_Int32SByte_UInt32SByte_Int64SByte_UInt64SByte_SingleSByte_DoubleSByte_DecimalSByte_DateTimeSByte_StringByte_EmptyByte_ObjectByte_DBNullByte_BooleanByte_CharByte_SByteByte_ByteByte_Int16Byte_UInt16Byte_Int32Byte_UInt32Byte_Int64Byte_UInt64Byte_SingleByte_DoubleByte_DecimalByte_DateTimeByte_StringInt16_EmptyInt16_ObjectInt16_DBNullInt16_BooleanInt16_CharInt16_SByteInt16_ByteInt16_Int16Int16_UInt16Int16_Int32Int16_UInt32Int16_Int64Int16_UInt64Int16_SingleInt16_DoubleInt16_DecimalInt16_DateTimeInt16_StringUInt16_EmptyUInt16_ObjectUInt16_DBNullUInt16_BooleanUInt16_CharUInt16_SByteUInt16_ByteUInt16_Int16UInt16_UInt16UInt16_Int32UInt16_UInt32UInt16_Int64UInt16_UInt64UInt16_SingleUInt16_DoubleUInt16_DecimalUInt16_DateTimeUInt16_StringInt32_EmptyInt32_ObjectInt32_DBNullInt32_BooleanInt32_CharInt32_SByteInt32_ByteInt32_Int16Int32_UInt16Int32_Int32Int32_UInt32Int32_Int64Int32_UInt64Int32_SingleInt32_DoubleInt32_DecimalInt32_DateTimeInt32_StringUInt32_EmptyUInt32_ObjectUInt32_DBNullUInt32_BooleanUInt32_CharUInt32_SByteUInt32_ByteUInt32_Int16UInt32_UInt16UInt32_Int32UInt32_UInt32UInt32_Int64UInt32_UInt64UInt32_SingleUInt32_DoubleUInt32_DecimalUInt32_DateTimeUInt32_StringInt64_EmptyInt64_ObjectInt64_DBNullInt64_BooleanInt64_CharInt64_SByteInt64_ByteInt64_Int16Int64_UInt16Int64_Int32Int64_UInt32Int64_Int64Int64_UInt64Int64_SingleInt64_DoubleInt64_DecimalInt64_DateTimeInt64_StringUInt64_EmptyUInt64_ObjectUInt64_DBNullUInt64_BooleanUInt64_CharUInt64_SByteUInt64_ByteUInt64_Int16UInt64_UInt16UInt64_Int32UInt64_UInt32UInt64_Int64UInt64_UInt64UInt64_SingleUInt64_DoubleUInt64_DecimalUInt64_DateTimeUInt64_StringSingle_EmptySingle_ObjectSingle_DBNullSingle_BooleanSingle_CharSingle_SByteSingle_ByteSingle_Int16Single_UInt16Single_Int32Single_UInt32Single_Int64Single_UInt64Single_SingleSingle_DoubleSingle_DecimalSingle_DateTimeSingle_StringDouble_EmptyDouble_ObjectDouble_DBNullDouble_BooleanDouble_CharDouble_SByteDouble_ByteDouble_Int16Double_UInt16Double_Int32Double_UInt32Double_Int64Double_UInt64Double_SingleDouble_DoubleDouble_DecimalDouble_DateTimeDouble_StringDecimal_EmptyDecimal_ObjectDecimal_DBNullDecimal_BooleanDecimal_CharDecimal_SByteDecimal_ByteDecimal_Int16Decimal_UInt16Decimal_Int32Decimal_UInt32Decimal_Int64Decimal_UInt64Decimal_SingleDecimal_DoubleDecimal_DecimalDecimal_DateTimeDecimal_StringDateTime_EmptyDateTime_ObjectDateTime_DBNullDateTime_BooleanDateTime_CharDateTime_SByteDateTime_ByteDateTime_Int16DateTime_UInt16DateTime_Int32DateTime_UInt32DateTime_Int64DateTime_UInt64DateTime_SingleDateTime_DoubleDateTime_DecimalDateTime_DateTimeDateTime_StringString_EmptyString_ObjectString_DBNullString_BooleanString_CharString_SByteString_ByteString_Int16String_UInt16String_Int32String_UInt32String_Int64String_UInt64String_SingleString_DoubleString_DecimalString_DateTimeString_StringLikeDefinedTypesLikeResultTypeLikeOperandTypeConcatResultTypeConcatDefinedTypesConcatOperandTypeModResultTypeModDefinedTypesIntDivResultTypesIntDivDefinedTypesRealDivResultTypesRealDivDefinedTypesAddResultTypeAddDefinedTypesSubResultTypeSubDefinedTypesMultResultTypeMultDefinedTypesShortcircuitResultTypeShortcircuitDefinedTypesLogicalOperatorResultTypeLogicalDefinedTypesRelationalOperandTypesRelationalDefinedTypesExponentResultTypesExponentDefinedTypesNotOperatorResultTypeNotDefinedTypesUnaryPlusResultTypeUnaryPlusDefinedTypesUnaryMinusResultTypeUnaryMinusDefinedTypesShiftDefinedTypesShiftResultTypeConversionResultTypeGetErrorNumberForBinaryOperationopleftrightGetErrorNumberForConversiontp1tp2ImplicitGetConversionResultTypeGetExpOperandTypeop1op2GetEqualsOperandTypeGetLTOperandTypeGetGTOperandTypeGetLEOperandTypeGetGEOperandTypeGetNotEqualsOperandTypeGetShiftResultTypeGetModResultTypeGetLikeResultTypeGetLikeOperandTypeGetConcatResultTypeGetConcatOperandTypeGetRealDivResultTypeGetIntDivResultTypeGetExpResultTypeGetEqualsResultTypeGetLTResultTypeGetGTResultTypeGetLEResultTypeGetGEResultTypeGetNotEqualsResultTypeGetUnaryMinusResultTypeGetUnaryPlusResultTypeGetAndResultTypeGetOrResultTypeGetXorResultTypeGetUnaryNotResultTypeGetOrElseResultTypeGetAndAlsoResultTypeGetMultResultTypeGetBinaryAddResultTypeGetBinarySubResultTypeGetIsIsNotOperandTypeGetIsIsNotResultTypeGetUnaryResultTypeGetBinaryResultTypeGetUnaryOperandTypeoperandGetBinaryOperandTypeGetBinaryOperandDefinedTypesGetArrayCharGetResultTypeGetTypeCodeOfCharGetCharOfTypeCodecodeConvertToSourceConvertToBooleanSourceTypeCodeConvertToByteConvertToCharConvertToDateTimeConvertToDBNullConvertToDecimalConvertToDoubleConvertToEmptyConvertToInt16ConvertToInt32ConvertToInt64ConvertToObjectConvertToSByteConvertToSingleConvertToStringConvertToUInt16ConvertToUInt32ConvertToUInt64get_ConstructorBuilderget_ConstructorDescriptorget_CreatedCreatedget_FieldBuilderget_FieldDescriptorset_Locationget_ObjectIDObjectIDDefineTypeHierarchyget_TypeAttributesget_TypeBuilderget_Membersget_TypeDescriptorget_IsNestedTypeResolveTypeIsNestedTypeCreateRemoveHandlerCodeCreateAddHandlerCodem_CompoundExpressionResolveStatementLSideRSideCheckIndexedStatementInvocationExpressionResolveIndexedStatementCreateTypeConversionm_EndLabelget_EndLabelset_EndLabelBlockget_CodeBlockEndLabelm_Tokenget_IsIdentifierIsIdentifierm_AscWExpressionm_InvocationMethodm_IsLateBoundArrayget_IsLateBoundArrayResolveIndexInvocationVariableTypeResolveLateBoundArrayInvocationResolveArrayInvocationResolveDelegateInvocationResolvePropertyGroupInvocationResolveReclassifyToValueThenIndexResolveMethodInvocationget_ArgumentListIsLateBoundArrayCanBeMem_ArrayNameModifierm_ArrayElementInitializerget_ArrayElementInitalizerInitializerElementsArrayBoundsEmitArrayCreationasimEmitArrayConstructorEmitElementInitializerInitializerCurrentDepthElementIndexIndicesArrayElementInitalizerm_Assembliesm_TypesByNamespacem_TypesByNamespaceAndNamem_TypesByNamem_TypesByFullNamem_ModulesByNamespacem_Namespacesm_ModuleTypesm_GenericTypeCachem_TypeDescriptorsOfTypesm_TypeDescriptorsOfTypes2m_MemberDescriptorsOfMembersm_MemberDescriptorsOfMembers2IsTypeNamedIsTypeFullnamedget_TypesByNameGetCacheContainsCacheget_Assembliesget_Typesget_TypesByNamespaceGetTypesByNamespaceAndNameget_Namespacesget_ModuleTypesOnlyCreatedTypesInListLoadReferencedAssembliesLoadReferencedLoadAssemblyFilenameLoadTypeLoadReferencedTypesLoadCompiledTypesGetModulesByNamespaceGetTypesByNamespaceRegisterReflectionTypeReflectionTypeGetRegisteredTypeRegisterReflectionMemberReflectionMemberGetRegisteredMemberMakeGenericFieldMakeGenericConstructorMakeGenericPropertyMakeGenericParameterOpenParameterGenericArgumentsget_GenericTypeCacheTypesByNameAssembliesTypesByNamespaceModuleTypesGenericTypeCacheEquals1xyGetHashCode1m_StringLiteralget_StringLiteralm_VariableInitializerListm_ElementsSetElementsget_ElementsGetRegularInitializerindicesAddInitializerm_ArrayModifierget_ArrayModifierArrayModifierCreateArrayTypeOriginalTypeget_IsArrayTypeModifiersget_AsArrayTypeModifiersget_IsArraySizeInitializationModifierget_AsArraySizeInitializationModifierIsArrayTypeModifiersAsArrayTypeModifiersIsArraySizeInitializationModifierAsArraySizeInitializationModifierm_BoundListm_ArrayTypeModifiersget_BoundListget_ArrayTypeModifiersget_Ranksm_IsAssemblym_IsModulem_SimpleTypeNamem_AttributeArgumentsm_ResolvedTypeConstructorm_Fieldsm_FieldValuesm_Propertiesm_PropertyValuesm_IsResolvedm_InstanceGetArgumentget_IsModuleget_SimpleTypeNameget_ResolvedTypeset_ResolvedTypeget_AttributeArgumentsIsAssemblyIsModuleget_AttributeInstanceget_AttributeTypeGetAttributeBuilderResolvedTypeAttributeInstanceAttributeTypem_AttributePositionalArgumentListm_VariablePropertyInitializerListPositionalArgumentListget_PositionalArgumentListget_VariablePropertyInitializerListget_AsExpressionsAsExpressionsFindAttributesObjectsNewObjectGetEnumerator2m_Operand1m_Operand2Operand1Operand2ReturnTypeAttributesget_Operand1get_Operand2IsOverloadableBinaryOperatortokenIsOverloadableUnaryOperatorIsOverloadableOperatorm_Expressionsget_Expressionsm_ConstantExpressionm_FieldBuilderm_FieldTypeResolveConstantValueget_TypeNameget_ConstantExpressionm_ConstantDeclarationsget_DeclarationsDeclarationsm_OperatorIsOverloadableConversionOperatorget_Operandget_AddHandlerset_AddHandlerget_RemoveHandlerset_RemoveHandlerget_RaiseEventset_RaiseEventDefineMembersm_Firstm_Secondm_Eventget_FirstSecondCharsetModifierm_CharsetModifierm_LibraryClausem_AliasClauseget_CharsetModifierget_LibraryClauseget_AliasClausem_ReturnTypeAttributesget_ReturnTypeAttributesResolveTypeParametersm_Clauseget_Clauseget_HandlesClauseClausem_BasesBasesget_Basesget_AsTypesAsTypesm_1m_2m_ResolvedMemberget_ResolvedEventInfoget_ResolvedPropertyInfoResolveEarlyResolvedEventInfoResolvedPropertyInfoget_MemberDeclarationstypesm_ModifierMaskMaskIsKSKSToMaskget_Emptyget_MaskAddModifiersget_AccessibilityMaskget_Isget_IsAnyGetMethodAttributeScopeGetFieldAttributeScopeIsPublicAccessibilityMaskIsAnym_ParameterIdentifierm_ParameterTypem_ParameterAttributesm_ParameterBuilderget_HasConstantValueget_ParameterAttributesset_ParameterAttributesget_ParameterBuilderget_ImplNameDefineInternalBuilderHasConstantValueImplNamem_ParameterInfosDefineParametersget_AsParameterInfoToTypeArrayResolveParametersOptionalParametersAsParameterInfoset_Identifierget_ArrayNameModifierm_ParametersOrTypem_ImplicitEventDelegatem_ElementsCreatedDefineEventTypeget_EventFieldCreateImplicitElementsEventFieldm_HandlesOrImplementsDefineHandlesOrImplementsget_IsMustOverrideIsMustOverridem_ReturnParameterCloneToClonedSignatureget_TypeParametersm_VariableIdentifierm_IsNewm_NewExpressionm_VariableInitializerm_StaticInitBuilderm_WithEventsRedirectm_HandledEventsIsNewget_HasInitializerget_StaticInitBuilderget_VariableTypeget_VariableTypeOrTypeBuilderget_IsLocalVariableget_IsFieldVariableget_IsStaticVariableget_IsNewget_VariableInitializerDefineStaticMemberDefineLocalVariableEmitStoreEmitThisIfNecessaryEmitStaticInitializerEmitVariableInitializerHasInitializerStaticInitBuilderVariableTypeOrTypeBuilderIsLocalVariableIsFieldVariableIsStaticVariableget_HasArrayNameModifierHasArrayNameModifierm_Initializerget_Initializerget_InitializerExpressionget_IsRegularInitializerget_AsRegularInitializerget_IsArrayElementInitializerget_AsArrayElementInitializerInitializerExpressionIsRegularInitializerAsRegularInitializerIsArrayElementInitializerAsArrayElementInitializerm_IdentifierOrKeywordm_AttributeArgumentExpressionget_AttributeArgumentExpressionDefineTypeParametersm_PartialDeclarationsm_MainDeclarationm_TypeImplementsClauses$STATIC$ResolveType$214299$recursive$STATIC$ResolveTypeReferences$214665$recursiveget_MainPartialDeclarationget_Implementsget_IsPartialget_IsMainPartialDeclarationset_TypeBuilderget_PartialDeclarationsAddPartialDeclarationCheckUniqueTypeGetInheritedTypesCheckForPartialKeywordMainPartialDeclarationIsPartialIsMainPartialDeclarationPartialDeclarationsm_TypeDescriptorm_ImplementedTypesm_DefaultInstanceConstructorm_DefaultSharedConstructorm_BeforeFieldInitm_TypeBuilderm_EnumBuilderm_FinalTypem_AddHandlersget_DescriptiveTypeget_AddHandlersTypeArgumentCountget_BeforeFieldInitset_BeforeFieldInitget_DefaultInstanceConstructorset_DefaultInstanceConstructorget_DefaultSharedConstructorset_DefaultSharedConstructorFindDefaultConstructorsget_ImplementedTypesset_ImplementedTypesset_BaseTypeget_BaseType2set_Membersget_Members2get_EnumBuilderset_EnumBuilderget_TypeBuilder2SetDefaultAttributeget_StaticVariablesget_IsDelegateget_HasInstanceConstructorsget_HasSharedConstantFieldsget_HasSharedFieldsWithInitializersDescriptiveTypeAddHandlersBeforeFieldInitDefaultInstanceConstructorDefaultSharedConstructorImplementedTypesBaseType2Members2TypeBuilder2StaticVariablesIsInterfaceIsClassIsDelegateIsValueTypeIsEnumHasInstanceConstructorsHasSharedConstantFieldsHasSharedFieldsWithInitializersget_AsTypeArrayAsTypeArraym_FoundObjectsFromWherem_IsImportsResolutionm_Qualifierm_TypeArgumentCountm_IsAttributeTypeNameget_IsAttributeTypeNameset_IsAttributeTypeNameget_IsGlobalget_FoundOnlyOneObjectFoundAsTypeFoundIsTypeget_FoundObjectget_FoundObjectsget_IsImportsResolutionset_IsImportsResolutionget_TypeArgumentCountset_TypeArgumentCountResolveQualifiedNameQualifierR1R2ResolveQualifiedNameInternalRShowErrorCheckCurrentFunctionForTypeParametersCheckNestedTypesOrTypeParametersCheckOutermostNamespaceCheckModulesmoduletypesCheckNamespaceCheckNamespacesCheckImportsAliasCheckImportsResolveUnqualifiedNameRsIsAttributeTypeNameIsGlobalFoundOnlyOneObjectFoundObjectFoundObjectsIsImportsResolutionResolveAsTypeNameAsAttributeTypeNameTypeArityset_Secondget_FirstAsIdentifierget_IsFirstIdentifierget_IsFirstGlobalget_FirstAsGlobalget_FirstAsQualifiedIdentifierget_IsFirstQualifiedIdentifierCanBeQualifiedIdentifierFirstAsIdentifierIsFirstIdentifierIsFirstGlobalFirstAsGlobalFirstAsQualifiedIdentifierIsFirstQualifiedIdentifierm_EventHandlerm_IsAddHandlerEventHandlerIsAddHandlerget_Eventget_EventHandlerm_LSidem_RSideget_LSideget_RSideset_RSidem_Targetm_Startm_Lengthm_SourceTargetStartget_TargetIsExcludedRelationalOperatorsm_Expression1m_Expression2m_Comparisonm_ComparisonExpressionget_Expression1get_Expression2get_ComparisonExpression1Expression2ComparisonResolveStatementsm_IsElsem_Clausesm_StartCodeget_StartCodeget_IsElseget_ClausesIsElseClausesParentAsSelectStatementStartCodem_Whenm_ExceptionTypem_VariableDeclarationget_Variableget_WhenParentAsTryStatementm_ContinueWhatm_ContainingStatementContinueWhatget_ContinueWhatm_PreConditionm_PostConditionm_IsWhilem_NextIterationget_PreConditionget_PostConditionPreConditionPostConditionget_NextIterationget_IsUntilget_IsWhileNextIterationIsUntilm_Conditionget_ConditionConditionParentAsIfStatementm_Targetsget_Targetsm_ErrNumberErrNumberm_ExitWhatm_ContainerExitWhatget_ExitWhatm_LoopControlVariablem_InExpressionm_NextExpressionm_Enumeratorget_NextExpressionget_InExpressionget_LoopControlVariableInExpressionNextExpressionget_EnumeratorGenerateCode_LoadCurrentLoopVariablem_LoopStartExpressionm_LoopEndExpressionm_LoopStepExpressionm_NextExpressionListm_LoopTypem_IsDecimalget_LoopStepExpressionget_NextExpressionListget_LoopEndExpressionget_LoopStartExpressionLoopStartExpressionLoopEndExpressionLoopStepExpressionNextExpressionListIsNegativeStepIsPositiveStepIsKnownStepEmitLoadAddressCounterEmitLoadCounterEmitStoreCounterInstanceExpressionEmitStoreCounterm_GotoWherem_DestinationGotoWhereget_GotoWherem_FalseCodem_ElseIfsm_OneLinerget_FalseCodeget_ElseIfsFalseCodeTrueCodeOneLinerElseIfsm_Labelm_LabelBuilderget_LabelBuilderget_LabelLabelBuilderGetVariableDeclarationget_IsVariableDeclarationIsVariableDeclarationm_IsResumeNextm_IsGotoMinusOnem_IsGotoZerom_ResolvedLabelIsResumeNextIsGotoMinusOneIsGotoZerom_IsBinaryBinaryget_IsBinaryget_IsTextIsBinaryIsTextm_OffOffget_Offget_IsOnIsOnm_Rankm_IsObjectArraym_AssignStatementGenerateCodeForNewArrayGenerateCodeForPreserveget_IsPreserveIsPreservem_IsPreservem_Testm_CachedTestm_Casesget_CachedTestget_Testget_CasesTestCasesCachedTestget_FindParentCodeBlockFindParentCodeBlockm_Lockget_LockLockm_Exceptionm_Catchesm_FinallyBlockget_FinallyBlockget_CatchesCatchesTryBlockFinallyBlockm_IsVariableDeclarationUsingVariableUsingVariableTypem_Constructorget_VariableDeclarationm_UsingResourcesget_UsingResourcesUsingResourcesm_WithExpressionm_WithVariablem_WithVariableExpressionWithExpressionget_WithVariableget_WithVariableExpressionGenerateVariableCodeWithVariableWithVariableExpressionCanBeArrayTypeModifierIsBuiltInTypeNamem_SpecialSpecialget_Specialget_SpecialConstraintAttributeSpecialConstraintAttributem_QualifiedIdentifierm_TypeArgumentListm_OpenResolvedTypem_ClosedResolvedTypeget_OpenResolvedTypeget_ClosedResolvedTypeget_TypeArgumentListget_QualifiedIdentifierOpenResolvedTypeClosedResolvedTypem_TypeArityGetTypeClassificationmemberstypeCreateMeExpressionGetMeClassificationResolveAliasImportsimpsResolveImportsSetClassificationOfModuleMembersfoundPATTERNCHARSm_lstResponseFilesm_lstFileNamesm_lstAllArgsm_strOutm_strTargetm_lstModulesm_lstRecursem_lstReferencesm_lstLinkResourcesm_lstResourcesm_strWin32Iconm_strWin32Resourcem_bOptimizem_bRemoveIntChecksm_eDebugInfom_bNoWarnm_bWarnAsErrorm_lstDefinem_lstImportsm_eOptionExplicitm_eOptionStrictm_strRootNamespacem_eOptionComparem_bHelpm_bNoLogom_bQuietm_bVerbosem_bNoConfigm_NoVBRuntimeRefm_strBaseAddressm_strBugReportm_Encodingm_bDelaySignm_strKeyContainerm_strKeyFilem_lstLibPathm_strMainm_bNetCFm_strSDKPathm_bUTF8Outputm_VBVersionget_VBVersionget_Outget_Modulesget_Recurseget_Referencesget_LinkResourcesget_Resourcesget_Win32Iconget_Win32Resourceget_Optimizeget_RemoveIntChecksget_DebugInfoget_NoWarnget_WarnAsErrorget_Defineget_Importsget_OptionExplicitget_OptionStrictget_RootNamespaceget_OptionCompareget_Helpget_NoLogoget_Quietget_Verboseget_NoConfigget_NoVBRuntimeRefget_BaseAddressget_BugReportget_Encodingget_DelaySignget_KeyContainerget_KeyFileget_LibPathget_Mainget_NetCFget_SDKPathget_UTF8Outputget_ResponseFilesget_AllArgumentsAsArrayget_FilesParseResponseFileAddFilesInDirdirrelativepathpatternSetOptionstrNamestrValueAddFileParseInternalArgsGetFullPathsFileNameIsPatternget_AllArgumentsVBVersionOutModulesRecurseReferencesLinkResourcesWin32IconWin32ResourceOptimizeRemoveIntChecksDebugInfoNoWarnWarnAsErrorOptionExplicitOptionStrictOptionCompareHelpNoLogoQuietVerboseNoConfigNoVBRuntimeRefBaseAddressBugReportDelaySignKeyContainerKeyFileLibPathNetCFSDKPathUTF8OutputResponseFilesAllArgumentsAsArrayFilesAllArgumentsPDBFullTextWinexeLibraryV7V7_1V8m_OutFilenamem_Reportm_Helperm_Parserm_CommandLinem_tmm_TypeManagertheAssm_TypeCacheSequenceTimem_TypeResolverm_SymbolWriterVerifyConsistencyget_OutFileNameget_TypeCacheget_SymbolWriterget_TypeManagerget_Reportget_Parserget_CommandLineset_CommandLineget_Scannerget_tmget_Helperget_TypeResolverget_TypeResolutionget_NameResolverget_EmittingDebugInfoHasPassedSequencePointPointCreateTestOutputFilenameTestTypeCompileOptionsCompile_CalculateOutputFilenameCompile_CreateAssemblyAndModuleBuildersCompile_ParseCompile_ResolveGenerateMyShowExceptionInfoexIsMainMethodget_LogoShowLogoShowHelpAddResourcesSetMainFindMainClassFindMainMethodMainClassGetSystemDirOutFileNameSymbolWriterTypeResolverNameResolverEmittingDebugInfoLogoScannedConditionalCompiledParsedDefinedTypesDefinedInheritsAndImplementsDefinedMembersm_Symbolm_ObjectValueget_ObjectValueget_ValueAsDoubleget_ValueAsStringget_ValueAsDateget_ValueAsBooleanget_SymbolObjectValueValueAsDoubleValueAsStringValueAsDateValueAsBooleanm_lstCollectionsGetAllNamesBaseget_GetAllTypeBasesGetAllTypeBasesValuesrecursivem_MessageInnerExceptionstrMsgStopOnInternalExceptionm_GlobalPreviousget_Globalop_ConcatenatensABRemoveGlobalm_HashedFindNamespaceChildget_NamespacesAsStringAddAllNamespacesIsNamespaceonlyExactIsNamespaceExactNamespacesAsStringm_LocationMESSAGEFORMATWITHLOCATIONMESSAGEFORMATget_LevelLevelm_LevelWarningVBNC2001VBNC2006VBNC2007VBNC2009VBNC2011VBNC2014VBNC2016VBNC2017VBNC2019VBNC20001VBNC30001VBNC30002VBNC30003VBNC30004VBNC30005VBNC30006VBNC30007VBNC30008VBNC30009VBNC30010VBNC30011VBNC30012VBNC30013VBNC30014VBNC30015VBNC30016VBNC30018VBNC30019VBNC30020VBNC30021VBNC30022VBNC30023VBNC30024VBNC30025VBNC30026VBNC30027VBNC30028VBNC30029VBNC30030VBNC30031VBNC30032VBNC30033VBNC30034VBNC30035VBNC30036VBNC30037VBNC30038VBNC30039VBNC30040VBNC30041VBNC30043VBNC30044VBNC30045VBNC30046VBNC30049VBNC30050VBNC30051VBNC30052VBNC30053VBNC30057VBNC30058VBNC30059VBNC30060VBNC30062VBNC30064VBNC30065VBNC30066VBNC30067VBNC30068VBNC30069VBNC30070VBNC30071VBNC30072VBNC30074VBNC30075VBNC30081VBNC30082VBNC30083VBNC30084VBNC30085VBNC30086VBNC30087VBNC30088VBNC30089VBNC30090VBNC30091VBNC30092VBNC30093VBNC30094VBNC30095VBNC30096VBNC30097VBNC30098VBNC30099VBNC30101VBNC30103VBNC30105VBNC30106VBNC30107VBNC30108VBNC30109VBNC30110VBNC30111VBNC30112VBNC30113VBNC30121VBNC30122VBNC30123VBNC30124VBNC30125VBNC30126VBNC30127VBNC30128VBNC30129VBNC30130VBNC30131VBNC30132VBNC30133VBNC30134VBNC30135VBNC30136VBNC30137VBNC30138VBNC30139VBNC30140VBNC30141VBNC30142VBNC30143VBNC30144VBNC30145VBNC30146VBNC30147VBNC30148VBNC30149VBNC30154VBNC30157VBNC30166VBNC30175VBNC30176VBNC30177VBNC30178VBNC30179VBNC30180VBNC30181VBNC30182VBNC30183VBNC30184VBNC30185VBNC30186VBNC30188VBNC30192VBNC30193VBNC30195VBNC30196VBNC30197VBNC30198VBNC30199VBNC30200VBNC30201VBNC30202VBNC30203VBNC30204VBNC30205VBNC30206VBNC30207VBNC30208VBNC30209VBNC30210VBNC30213VBNC30215VBNC30217VBNC30218VBNC30220VBNC30224VBNC30225VBNC30230VBNC30231VBNC30232VBNC30233VBNC30234VBNC30235VBNC30237VBNC30238VBNC30239VBNC30240VBNC30241VBNC30242VBNC30243VBNC30244VBNC30246VBNC30247VBNC30248VBNC30249VBNC30251VBNC30252VBNC30253VBNC30256VBNC30257VBNC30258VBNC30260VBNC30266VBNC30267VBNC30268VBNC30269VBNC30270VBNC30272VBNC30273VBNC30274VBNC30275VBNC30277VBNC30278VBNC30280VBNC30281VBNC30282VBNC30283VBNC30284VBNC30287VBNC30288VBNC30289VBNC30290VBNC30293VBNC30294VBNC30296VBNC30297VBNC30298VBNC30299VBNC30300VBNC30301VBNC30302VBNC30303VBNC30305VBNC30306VBNC30307VBNC30308VBNC30310VBNC30311VBNC30321VBNC30332VBNC30333VBNC30337VBNC30338VBNC30345VBNC30354VBNC30357VBNC30359VBNC30360VBNC30361VBNC30362VBNC30363VBNC30364VBNC30366VBNC30367VBNC30368VBNC30369VBNC30370VBNC30371VBNC30375VBNC30376VBNC30377VBNC30379VBNC30380VBNC30381VBNC30382VBNC30383VBNC30384VBNC30385VBNC30387VBNC30389VBNC30390VBNC30392VBNC30393VBNC30395VBNC30396VBNC30397VBNC30398VBNC30399VBNC30401VBNC30408VBNC30412VBNC30413VBNC30414VBNC30415VBNC30420VBNC30423VBNC30424VBNC30429VBNC30430VBNC30431VBNC30433VBNC30434VBNC30435VBNC30436VBNC30437VBNC30438VBNC30439VBNC30441VBNC30442VBNC30443VBNC30444VBNC30445VBNC30451VBNC30452VBNC30454VBNC30455VBNC30456VBNC30458VBNC30460VBNC30461VBNC30464VBNC30465VBNC30466VBNC30467VBNC30468VBNC30469VBNC30470VBNC30471VBNC30474VBNC30476VBNC30479VBNC30480VBNC30481VBNC30487VBNC30490VBNC30491VBNC30493VBNC30494VBNC30495VBNC30497VBNC30500VBNC30501VBNC30502VBNC30503VBNC30504VBNC30505VBNC30506VBNC30507VBNC30508VBNC30509VBNC30512VBNC30516VBNC30517VBNC30518VBNC30519VBNC30520VBNC30521VBNC30522VBNC30523VBNC30524VBNC30526VBNC30528VBNC30529VBNC30530VBNC30532VBNC30533VBNC30542VBNC30544VBNC30545VBNC30547VBNC30548VBNC30549VBNC30550VBNC30554VBNC30555VBNC30560VBNC30561VBNC30562VBNC30563VBNC30565VBNC30566VBNC30567VBNC30568VBNC30569VBNC30572VBNC30574VBNC30576VBNC30577VBNC30578VBNC30579VBNC30580VBNC30581VBNC30582VBNC30583VBNC30584VBNC30585VBNC30587VBNC30588VBNC30590VBNC30591VBNC30593VBNC30594VBNC30597VBNC30598VBNC30599VBNC30600VBNC30601VBNC30602VBNC30603VBNC30604VBNC30607VBNC30610VBNC30611VBNC30613VBNC30614VBNC30615VBNC30616VBNC30617VBNC30618VBNC30619VBNC30620VBNC30621VBNC30622VBNC30623VBNC30624VBNC30625VBNC30626VBNC30627VBNC30628VBNC30629VBNC30630VBNC30631VBNC30632VBNC30633VBNC30634VBNC30635VBNC30636VBNC30637VBNC30638VBNC30639VBNC30640VBNC30641VBNC30642VBNC30643VBNC30644VBNC30645VBNC30647VBNC30648VBNC30649VBNC30650VBNC30651VBNC30652VBNC30653VBNC30654VBNC30655VBNC30656VBNC30657VBNC30658VBNC30659VBNC30660VBNC30661VBNC30662VBNC30663VBNC30664VBNC30665VBNC30666VBNC30667VBNC30668VBNC30670VBNC30671VBNC30672VBNC30674VBNC30675VBNC30676VBNC30677VBNC30678VBNC30679VBNC30680VBNC30681VBNC30683VBNC30685VBNC30686VBNC30687VBNC30688VBNC30689VBNC30690VBNC30691VBNC30694VBNC30695VBNC30696VBNC30697VBNC30698VBNC30699VBNC30700VBNC30701VBNC30702VBNC30703VBNC30704VBNC30705VBNC30706VBNC30707VBNC30708VBNC30709VBNC30710VBNC30711VBNC30712VBNC30713VBNC30714VBNC30715VBNC30716VBNC30717VBNC30718VBNC30719VBNC30720VBNC30721VBNC30722VBNC30723VBNC30724VBNC30725VBNC30726VBNC30728VBNC30730VBNC30731VBNC30732VBNC30733VBNC30734VBNC30735VBNC30736VBNC30737VBNC30738VBNC30739VBNC30741VBNC30742VBNC30743VBNC30744VBNC30747VBNC30748VBNC30749VBNC30750VBNC30751VBNC30752VBNC30753VBNC30754VBNC30755VBNC30756VBNC30757VBNC30758VBNC30759VBNC30760VBNC30761VBNC30762VBNC30763VBNC30764VBNC30765VBNC30766VBNC30767VBNC30768VBNC30769VBNC30770VBNC30771VBNC30772VBNC30780VBNC30781VBNC30782VBNC30783VBNC30784VBNC30785VBNC30786VBNC30787VBNC30788VBNC30789VBNC30790VBNC30791VBNC30796VBNC30800VBNC30801VBNC30802VBNC30803VBNC30804VBNC30805VBNC30807VBNC30808VBNC30809VBNC30810VBNC30811VBNC30812VBNC30814VBNC30815VBNC30816VBNC30817VBNC30818VBNC30819VBNC30820VBNC30821VBNC30822VBNC30823VBNC30826VBNC30827VBNC30828VBNC30829VBNC30830VBNC30906VBNC30907VBNC30908VBNC30909VBNC30910VBNC30911VBNC30912VBNC30914VBNC30915VBNC30916VBNC30917VBNC30918VBNC30919VBNC30920VBNC31007VBNC31011VBNC31013VBNC31014VBNC31019VBNC31020VBNC31021VBNC31023VBNC31024VBNC31025VBNC31026VBNC31027VBNC31028VBNC31029VBNC31030VBNC31031VBNC31033VBNC31035VBNC31040VBNC31041VBNC31042VBNC31043VBNC31044VBNC31047VBNC31048VBNC31049VBNC31051VBNC31052VBNC31053VBNC31054VBNC31055VBNC31058VBNC31059VBNC31060VBNC31061VBNC31063VBNC31064VBNC31065VBNC31066VBNC31067VBNC31068VBNC31069VBNC31070VBNC31071VBNC31072VBNC31073VBNC31074VBNC31075VBNC31076VBNC31077VBNC31080VBNC31082VBNC31083VBNC31084VBNC31085VBNC31086VBNC31087VBNC31088VBNC31089VBNC31090VBNC31091VBNC31092VBNC31093VBNC31094VBNC31095VBNC31096VBNC31097VBNC31098VBNC31099VBNC31100VBNC31101VBNC31102VBNC31103VBNC31104VBNC31105VBNC31106VBNC31107VBNC31108VBNC31112VBNC31127VBNC31130VBNC31400VBNC31401VBNC31403VBNC31404VBNC31405VBNC31406VBNC31407VBNC31408VBNC31409VBNC31410VBNC31411VBNC31412VBNC31413VBNC31415VBNC31416VBNC31417VBNC31418VBNC31419VBNC31420VBNC31421VBNC31500VBNC31501VBNC31502VBNC31503VBNC31504VBNC31505VBNC31506VBNC31507VBNC31508VBNC31509VBNC31510VBNC31511VBNC31512VBNC31513VBNC31514VBNC31515VBNC31516VBNC31517VBNC31518VBNC31519VBNC31520VBNC31521VBNC31522VBNC31523VBNC31524VBNC31525VBNC31526VBNC32000VBNC32001VBNC32002VBNC32004VBNC32005VBNC32006VBNC32007VBNC32008VBNC32009VBNC32010VBNC32012VBNC32013VBNC32014VBNC32015VBNC32016VBNC32017VBNC32019VBNC32020VBNC32021VBNC32022VBNC32023VBNC32024VBNC32025VBNC32026VBNC32027VBNC32028VBNC32029VBNC32030VBNC32031VBNC32032VBNC32033VBNC32034VBNC32035VBNC32036VBNC32037VBNC32038VBNC32039VBNC32040VBNC32041VBNC32042VBNC32043VBNC32044VBNC32045VBNC32046VBNC32047VBNC32048VBNC32049VBNC32050VBNC32051VBNC32052VBNC32053VBNC32054VBNC32055VBNC32056VBNC32057VBNC32058VBNC32059VBNC32060VBNC32061VBNC32062VBNC32063VBNC32064VBNC32065VBNC32066VBNC32067VBNC32068VBNC32069VBNC32070VBNC32071VBNC32085VBNC32098VBNC32101VBNC32102VBNC32103VBNC32104VBNC32105VBNC32106VBNC32200VBNC32201VBNC32203VBNC32204VBNC32205VBNC32300VBNC32301VBNC32302VBNC32304VBNC32400VBNC32500VBNC32501VBNC32504VBNC32505VBNC32506VBNC32507VBNC32508VBNC32509VBNC33000VBNC33001VBNC33002VBNC33003VBNC33004VBNC33005VBNC33006VBNC33007VBNC33008VBNC33009VBNC33010VBNC33011VBNC33012VBNC33013VBNC33014VBNC33015VBNC33016VBNC33017VBNC33018VBNC33019VBNC33020VBNC33021VBNC33022VBNC33023VBNC33024VBNC33025VBNC33026VBNC33027VBNC33028VBNC33029VBNC33030VBNC33031VBNC33032VBNC33033VBNC33034VBNC33035VBNC33036VBNC36000VBNC36001VBNC36002VBNC36003VBNC36004VBNC36005VBNC36006VBNC36007VBNC36008VBNC36009VBNC36010VBNC36011VBNC36012VBNC36013VBNC36014VBNC36015VBNC36016VBNC36017VBNC40000VBNC40003VBNC40004VBNC40005VBNC40007VBNC40008VBNC40009VBNC40010VBNC40011VBNC40012VBNC40014VBNC40018VBNC40019VBNC40020VBNC40021VBNC40022VBNC40023VBNC40024VBNC40025VBNC40026VBNC40027VBNC40028VBNC40029VBNC40030VBNC40031VBNC40032VBNC40033VBNC40034VBNC40035VBNC40036VBNC40037VBNC40038VBNC40039VBNC40040VBNC40041VBNC40056VBNC41000VBNC41001VBNC41002VBNC41003VBNC41004VBNC42000VBNC42001VBNC42002VBNC42003VBNC42013VBNC42014VBNC42015VBNC42024VBNC42101VBNC42102VBNC42103VBNC42104VBNC42200VBNC42300VBNC42301VBNC42302VBNC42303VBNC42304VBNC42305VBNC42306VBNC42307VBNC42308VBNC42309VBNC42310VBNC42311VBNC42312VBNC42313VBNC42314VBNC42315VBNC90000VBNC90001VBNC90002VBNC90003VBNC90004VBNC90005VBNC90006VBNC90007VBNC90008VBNC90009VBNC90010VBNC90011VBNC90012VBNC90013VBNC90014VBNC90015VBNC90016VBNC90017VBNC90018VBNC90019VBNC90020VBNC90021VBNC90022VBNC90023VBNC99997VBNC99998VBNC99999m_Filenamem_Publicget_Filenameget_Publicm_IsLinkedResourcesLinkedResourcesLExpRExpget_KeywordResolveExpressionsm_LeftExpressionm_RightExpressionget_IsOverloadableGetValueTypetpget_LeftTypeget_RightTypeget_LeftTypeCodeget_RightTypeCodeValidateBeforeGenerateCodeget_OperandTypeget_OperandTypeCodeDoOperatorOverloadingget_RightOperandTypeCodeget_LeftOperandTypeCodeIsOverloadableLeftTypeRightTypeLeftTypeCodeRightTypeCodeOperandTypeCodeRightOperandTypeCodeLeftOperandTypeCodem_Keywordm_DesiredNothingTypem_Fromm_Toset_ValueValidateGetTypeConversionfromExprm_ResolvedDestinationTypem_IsStringToCharArrayGenerateUserDefinedConversionCodeEmitStringToCharArrayGenerateCTypeCodeget_GetKeywordm_FirstPartm_SecondPartm_DefaultPropertym_WithStatementSecondPartm_NSget_IsArrayCreationExpressionIsArrayCreationExpressionTmget_FirstExpressionget_SecondExpressionget_CompleteNameSecondExpressionCompleteNamem_Isget_ExpressionTypeCodeExpressionTypeCodeGetByRefTypeGetArrayTypeInitInternalInitOptimizationsInitAssembliesInitVBNCTypesInitInternalVBInitInternalVBMembersvbruntimewinformsSystem_MonoTypeSystem_RuntimeTypeSystem_Reflection_Emit_TypeBuilderSystem_Reflection_Emit_TypeBuilderInstantiationSystem_Reflection_Emit_SymbolTypeSystem_BooleanSystem_Boolean_ArraySystem_ByteSystem_Byte_ArraySystem_CharSystem_Char_ArraySystem_DateTimeSystem_DecimalSystem_DoubleSystem_Int32System_Int64System_ObjectSystem_Object_ArraySystem_Object_ByRefSystem_Int16System_SingleSystem_StringSystem_String_ByRefSystem_String_ArraySystem_String__ctor_ArraySystem_SByteSystem_UInt16System_UInt32System_UInt64System_Int32_ArraySystem_EnumSystem_ValueTypeSystem_DelegateSystem_MulticastDelegateSystem_AsyncCallbackSystem_IAsyncResultSystem_Collections_IEnumeratorSystem_Collections_IEnumerator__get_CurrentSystem_Collections_IEnumerator__MoveNextSystem_Collections_IEnumerableSystem_Collections_IEnumerable__GetEnumeratorSystem_IDisposableSystem_IDisposable__DisposeSystem_RuntimeTypeHandleSystem_TypeSystem_Type_ArraySystem_Type__GetTypeFromHandle_RuntimeTypeHandleSystem_VoidSystem_ExceptionSystem_ArraySystem_DBNullSystem_Array__SetValueSystem_Array__GetValueSystem_Array__CreateInstanceSystem_ActivatorSystem_Activator__CreateInstanceSystem_ArgumentExceptionSystem_Collections_Generic_IList1System_Collections_Generic_ICollection1System_Collections_Generic_IEnumerable1System_Reflection_AssemblyVersionAttributeSystem_Reflection_AssemblyProductAttributeSystem_Reflection_AssemblyCompanyAttributeSystem_Reflection_AssemblyCopyrightAttributeSystem_Reflection_AssemblyTrademarkAttributeSystem_Reflection_AssemblyKeyNameAttributeSystem_Reflection_AssemblyKeyFileAttributeSystem_Reflection_AssemblyDelaySignAttributeSystem_Diagnostics_ConditionalAttributeSystem_Diagnostics_DebuggableAttributeSystem_Diagnostics_DebuggableAttribute_DebuggingModesSystem_Diagnostics_DebuggableAttribute__ctor_DebuggingModesSystem_ParamArrayAttributeSystem_ParamArrayAttribute__ctorSystem_Nullable1System_Runtime_CompilerServices_RuntimeHelpersSystem_STAThreadAttributeSystem_STAThreadAttribute__ctorSystem_IntPtrSystem_Runtime_CompilerServices_DateTimeConstantAttributeSystem_DateTime__ctor_Int64System_Decimal__ctor_Int32System_Decimal__ctor_Int64System_Decimal__ctor_DoubleSystem_Decimal__ctor_SingleSystem_Decimal__ctor_UInt64System_Decimal__ctor_Int32_Int32_Int32_Boolean_ByteSystem_Decimal__ZeroSystem_Decimal__OneSystem_Decimal__MinusOneSystem_Runtime_CompilerServices_DecimalConstantAttributeSystem_Runtime_CompilerServices_DecimalConstantAttribute__ctor_Byte_Byte_UInt32_UInt32_UInt32System_Runtime_CompilerServices_DecimalConstantAttribute__ctor_Byte_Byte_Int32_Int32_Int32System_Decimal__Compare_Decimal_DecimalSystem_DateTime__Compare_DateTime_DateTimeSystem_Decimal__Add_Decimal_DecimalSystem_Decimal__Subtract_Decimal_DecimalSystem_Decimal__Divide_Decimal_DecimalSystem_Decimal__Multiply_Decimal_DecimalSystem_Decimal__Remainder_Decimal_DecimalSystem_Decimal__Negate_DecimalSystem_Reflection_DefaultMemberAttributeSystem_Reflection_DefaultMemberAttribute__ctor_StringSystem_ConvertSystem_Convert__ToSingle_DecimalSystem_Convert__ToDouble_DecimalSystem_Convert__ToBoolean_DecimalSystem_Convert__ToByte_DecimalSystem_Convert__ToSByte_DecimalSystem_Convert__ToInt16_DecimalSystem_Convert__ToUInt16_DecimalSystem_Convert__ToInt32_DecimalSystem_Convert__ToUInt32_DecimalSystem_Convert__ToInt64_DecimalSystem_Convert__ToUInt64_DecimalSystem_String__Concat_String_StringSystem_Diagnostics_DebuggerSystem_Diagnostics_Debugger__BreakSystem_Reflection_MissingSystem_Reflection_Missing__ValueSystem_Threading_MonitorSystem_Threading_Monitor__Enter_ObjectSystem_Threading_Monitor__Exit_ObjectSystem_Runtime_CompilerServices_RuntimeHelpers__GetObjectValue_ObjectSystem_MathSystem_Math__Round_DoubleSystem_Math__Pow_Double_DoubleSystem_Runtime_InteropServices_DllImportAttributeSystem_Windows_Forms_FormSystem_Windows_Forms_ApplicationSystem_Windows_Forms_Application__RunSystem_Delegate__CombineSystem_Delegate__RemoveMS_VB_CompareMethodMS_VB_CS_ConversionsMS_VB_CS_ProjectDataMS_VB_CS_LikeOperatorMS_VB_StringsMS_VB_CS_StringTypeMS_VB_MyGroupCollectionAttributeMS_VB_CallTypeMS_VB_InformationMS_VB_Information__IsNumericMS_VB_Information__SystemTypeNameMS_VB_Information__TypeNameMS_VB_Information__VbTypeNameMS_VB_InteractionMS_VB_Interaction__CallByNameMS_VB_CS_VersionedMS_VB_CS_Versioned__IsNumericMS_VB_CS_Versioned__SystemTypeNameMS_VB_CS_Versioned__TypeNameMS_VB_CS_Versioned__VbTypeNameMS_VB_CS_Versioned__CallByNameMS_VB_CS_StandardModuleAttributeMS_VB_CS_OperatorsMS_VB_CS_ObjectFlowControlMS_VB_CS_ObjectFlowControl_ForLoopControlMS_VB_CS_UtilsMS_VB_CS_OptionCompareAttributeMS_VB_CS_OptionTextAttributeMS_VB_CS_StaticLocalInitFlagMS_VB_CS_StaticLocalInitFlag__StateMS_VB_CS_StaticLocalInitFlag__ctorMS_VB_CS_DesignerGeneratedAttributeMS_VB_CS_IncompleteInitializationMS_VB_CS_NewLateBindingMS_VB_CS_LateBindingMS_VB_CS_IncompleteInitialization__ctorMS_VB_CS_NewLateBinding__LateGet_Object_Type_String_Array_Array_Array_ArrayMS_VB_CS_NewLateBinding__LateSet_Object_Type_String_Array_Array_ArrayMS_VB_CS_NewLateBinding__LateIndexGet_Object_Array_ArrayMS_VB_CS_NewLateBinding__LateIndexSet_Object_Array_ArrayMS_VB_CS_NewLateBinding__LateCall_Object_Type_String_Array_Array_Array_Array_BooleanMS_VB_CS_ProjectData__EndAppMS_VB_CS_ProjectData__CreateProjectError_Int32MS_VB_CS_ProjectData__ClearProjectErrorMS_VB_CS_ProjectData__SetProjectError_ExceptionMS_VB_CS_ProjectData__SetProjectError_Exception_Int32MS_VB_CS_Conversions__ToBoolean_ObjectMS_VB_CS_Conversions__ToChar_ObjectMS_VB_CS_Conversions__ToDate_ObjectMS_VB_CS_Conversions__ToByte_ObjectMS_VB_CS_Conversions__ToSByte_ObjectMS_VB_CS_Conversions__ToShort_ObjectMS_VB_CS_Conversions__ToUShort_ObjectMS_VB_CS_Conversions__ToInteger_ObjectMS_VB_CS_Conversions__ToUInteger_ObjectMS_VB_CS_Conversions__ToLong_ObjectMS_VB_CS_Conversions__ToULong_ObjectMS_VB_CS_Conversions__ToSingle_ObjectMS_VB_CS_Conversions__ToDouble_ObjectMS_VB_CS_Conversions__ToDecimal_ObjectMS_VB_CS_Conversions__ToBoolean_StringMS_VB_CS_Conversions__ToChar_StringMS_VB_CS_Conversions__ToDate_StringMS_VB_CS_Conversions__ToByte_StringMS_VB_CS_Conversions__ToSByte_StringMS_VB_CS_Conversions__ToShort_StringMS_VB_CS_Conversions__ToUShort_StringMS_VB_CS_Conversions__ToInteger_StringMS_VB_CS_Conversions__ToUInteger_StringMS_VB_CS_Conversions__ToLong_StringMS_VB_CS_Conversions__ToULong_StringMS_VB_CS_Conversions__ToSingle_StringMS_VB_CS_Conversions__ToDouble_StringMS_VB_CS_Conversions__ToDecimal_StringMS_VB_CS_Conversions__ToDecimal_BooleanMS_VB_CS_Conversions__ToString_DecimalMS_VB_CS_Conversions__ToString_BooleanMS_VB_CS_Conversions__ToString_CharMS_VB_CS_Conversions__ToString_DateTimeMS_VB_CS_Conversions__ToString_ByteMS_VB_CS_Conversions__ToString_Int32MS_VB_CS_Conversions__ToString_UInt32MS_VB_CS_Conversions__ToString_Int64MS_VB_CS_Conversions__ToString_UInt64MS_VB_CS_Conversions__ToString_SingleMS_VB_CS_Conversions__ToString_DoubleMS_VB_CS_Conversions__ToString_ObjectMS_VB_CS_Conversions__ToGenericParameter_ObjectMS_VB_CS_Conversions__ChangeType_Object_TypeMS_VB_CS_Conversions__ToCharArrayRankOne_StringMS_VB_CS_LikeOperator__LikeString_String_String_CompareMethodMS_VB_CS_LikeOperator__LikeObject_Object_Object_CompareMethodMS_VB_CS_StringType__MidStmtStr_String_Int32_Int32_StringMS_VB_CS_ObjectFlowControl__CheckForSyncLockOnValueType_ObjectMS_VB_CS_ObjectFlowControl_ForLoopControl__ForLoopInitObj_Object_Object_Object_Object_Object_ObjectMS_VB_CS_ObjectFlowControl_ForLoopControl__ForNextCheckDec_Decimal_Decimal_DecimalMS_VB_CS_ObjectFlowControl_ForLoopControl__ForNextCheckObj_Object_Object_ObjectMS_VB_CS_ObjectFlowControl_ForLoopControl__ForNextCheckR4_Single_Single_SingleMS_VB_CS_ObjectFlowControl_ForLoopControl__ForNextCheckR8_Double_Double_DoubleMS_VB_CS_Utils__CopyArray_Array_ArrayMS_VB_CS_Operators__ConditionalCompareObjectEqual_Object_Object_BooleanMS_VB_CS_Operators__ConditionalCompareObjectNotEqual_Object_Object_BooleanMS_VB_CS_Operators__ConditionalCompareObjectGreater_Object_Object_BooleanMS_VB_CS_Operators__ConditionalCompareObjectGreaterEqual_Object_Object_BooleanMS_VB_CS_Operators__ConditionalCompareObjectLess_Object_Object_BooleanMS_VB_CS_Operators__ConditionalCompareObjectLessEqual_Object_Object_BooleanMS_VB_CS_Operators__CompareString_String_String_BooleanMS_VB_CS_Operators__ConcatenateObject_Object_ObjectMS_VB_CS_Operators__AddObject_Object_ObjectMS_VB_CS_Operators__AndObject_Object_ObjectMS_VB_CS_Operators__DivideObject_Object_ObjectMS_VB_CS_Operators__ExponentObject_Object_ObjectMS_VB_CS_Operators__IntDivideObject_Object_ObjectMS_VB_CS_Operators__LeftShiftObject_Object_ObjectMS_VB_CS_Operators__ModObject_Object_ObjectMS_VB_CS_Operators__MultiplyObject_Object_ObjectMS_VB_CS_Operators__NegateObject_ObjectMS_VB_CS_Operators__NotObject_ObjectMS_VB_CS_Operators__OrObject_Object_ObjectMS_VB_CS_Operators__PlusObject_ObjectMS_VB_CS_Operators__RightShiftObject_Object_ObjectMS_VB_CS_Operators__SubtractObject_Object_ObjectMS_VB_CS_Operators__XorObject_Object_ObjectMS_VB_CS_Operators__LikeObject_Object_Object_CompareMethodMS_VB_CS_Operators__LikeString_String_String_CompareMethodMS_VB_CS_Operators__CompareObjectEqual_Object_Object_BooleanMS_VB_CS_Operators__CompareObjectNotEqual_Object_Object_BooleanMS_VB_CS_Operators__CompareObjectGreater_Object_Object_BooleanMS_VB_CS_Operators__CompareObjectGreaterEqual_Object_Object_BooleanMS_VB_CS_Operators__CompareObjectLess_Object_Object_BooleanMS_VB_CS_Operators__CompareObjectLessEqual_Object_Object_BooleanGetVBTypem_ObjectIDObjectIDStopNextIDget_FileFindTypeParentFindMethodFindFirstParent_ITypeget_pParentset_pParentget_ParentAsParsedObjectget_ParentLocationTreeNewIDpParentParentAsParsedObjectParentLocationTreem_UTF8Throwm_FileNamem_RelativePathm_Importsm_OptionExplicitm_OptionStrictm_OptionComparem_SymbolDocumentm_ConditionalConstantsm_ConditionalConstantsLinesRelativePathAddConditionalConstantsLineGetConditionalConstantsget_UTF8Throwget_RelativePathset_RelativePathget_SymbolDocumentget_IsOptionExplicitOnget_IsOptionStrictOnget_IsOptionCompareBinaryget_CodeStreamDoesLineEndWithLineContinuationLineNumberget_FileNameget_FileNameToReportUTF8ThrowSymbolDocumentIsOptionExplicitOnIsOptionStrictOnIsOptionCompareBinaryCodeStreamFileNameToReportstrSpecialkeywordLookupstrSpecialFriendlyCastTargetsCastExpressionTargetsCCUnaryOperatorsCCBinaryOperatorsBuiltInTypeTypeNamesFloatingPointTypeNamesIntegralTypeNamesNumericTypeNamesPrimitiveTypeNamesm_KSAttributesGetKSStringAttributeGetStringAttributeGetKSm_Resolvingset_ClassificationResolveExpressionStartResolveget_IsResolvingset_IsResolvedEndResolveResolveAddressOfExpressionGetObjectReferenceDereferenceByRefReclassifyToPropertyAccessExpressionReclassifyMethodPointerToValueExpressionReclassifyToValueExpressionIsResolvingm_SharedCompilersALLMEMBERSALLNOBASEMEMBERS$STATIC$GetSequenceNumber$378334$numberIsMethodm1IsConstantMethodFilterCustomAttributesInheritiIsOnMSIsOnMonoVerifyValueClassificationIsReflectionTypeIsReflectionMemberIsEmittableMemberGetBaseMembersGetParameterTypesctormemberGetNamesCompareNameValue1Value2CompareNameStartWholeOrdinalCompareNameOrdinalIsTypeDeclarationfirstIsFieldDeclarationIsIntrinsicTypeIsEnumFieldDeclarationIsEventDeclarationIsPropertyDeclarationIsMethodDeclarationGetMembersOfTypesGetInstanceConstructorsFilterExternalInaccessibleIsProtectedFriendIsProtectedOrProtectedFriendIsFriendOrProtectedFriendIsProtectedIsFriendIsPrivateFilterByTypeArgumentsFilterByNameFilterByName2collectionFilterToModulesGetDefaultConstructorConstructorsHasOnlyOptionalParametersHasParametersGetDefaultGenericConstructortnEmitIntegerArrayEmitStoreArrayElementEmitLoadArrayElementEmitArgumentsAndCallOrCallVirtGetInvokeMethodHasDefaultPropertyDefaultPropertiesGetDefaultMemberAttributeIsShadowsApplyTypeArgumentsOpenParametersGetConversionOperatorsNamesGetWideningConversionOperatorsGetNarrowingConversionOperatorsGetOperatorsGetUnaryOperatorsOpGetBinaryOperatorsGetNamespaceParentIsAccessibleExternalCalledTypeCallerTypeCalledMethodAccessabilityIsNestedFieldAccessabilityCreateGenericTypenameTypenameGetDelegateArgumentsdelegateTypeResolveGroupExactDumpDefineIsTypeConvertibleToAnyTypesToSearchTypeToFindAddCheckDefineCollectionCollectionDefineMembersCollectionResolveCodeCollectionResolveTypeReferencesCollectionResolveStatementCollectionGenerateCodeCollectionCloneExpressionArrayget_SharedCompilerAssertAssertNotNothingAssertTypeAddErrorAddWarningIsBootstrappingIsDebuggingErrorRecoveryNotImplementedIndirectedStopStopIfDebuggingParseLinestrLinegetTypeAttributeScopeFromScopeisNestedBinToIntDecToDblget_USCultureDecToIntHexToIntIntToHexIntIntToBinIntToOctOctToIntGetSequenceNumberValueToCodeConstantGetTypeOrTypeBuilderGetCtorOrCtorBuilderCtorGetMethodOrMethodBuilderGetPropertyOrPropertyBuilderPropertiesGetFieldOrFieldBuilderFieldsSetTypeOrTypeBuilderGetTypeOrTypeBuildersOnlySuccessfulIsAssignableGetMostEncompassedTypesIsFirstEncompassingSecondIsNullableTypeBaseClassDerivedClassDoesTypeImplementInterfaceGetEnumTypeEnumTypeFromExpressionCompareTypesTypes1Types2t1t2IsParamArrayParameterAccessibilityLogAddMessageconditionGetOptionalValueExpressionArgumentsToExpressionsIsFirstLessGenericMNIsFirstMoreApplicableMTypesNTypesIsLiteral0ExpressionexpGetMethodAccessibilityStringGetMethodAttributesGetVisibilityGetVisibilityStringGetPropertyAttributesGetEventAttributesGetPropertyAccessGetEventAccessconstructorAddMembersDerivedClassMembersBaseClassMembersIsHideBySigGetOverloadableSignaturesGetCombinationShowClassificationErrorActualClassificationExpectedSharedCompilerUSCultureCmdArgsm_EnumIndexget_EnumIndexm_MessageCountMAXERRORSm_Resourcesm_Messagesm_SavedMessagesm_ReportLevelm_Listenersget_ListenersLookupErrorCodeErrorCodeget_MessageCountget_Errorsget_WarningsShowSavedMessagesShowMessageHelperFirstParametersSubsequentParametersShowMessageSaveMessageSaveItListenersMessageCountErrorsWarningsAlwaysnl0nlAnlDnl2028nl2029nlTabCOMMENTCHAR1COMMENTCHAR2COMMENTCHAR3m_TotalLineCountm_TotalCharCountm_CurrentLinem_CurrentColumnm_CodeFilem_CodeFileIndexm_PreviousCharm_CurrentCharm_EndOfFilem_PeekedCharsm_Readerm_TokensSeenOnLinem_Filesm_Peekedm_LastWasNewlinem_Currentm_CurrentTypeCharacterm_CurrentTokenTypem_CurrentDatam_ProjectConstantsm_CurrentConstantsm_Evaluatorm_ConditionStackm_Methods$STATIC$GetNumber$396140$Builder$STATIC$GetNumber$396140$Builder$InitIsConditionallyExcludedCalledMethodAtLocationIsDefinedAtLocationget_IfdOutLoadProjectConstantsResetCurrentConstantsParseConstParseIfParseElseIfParseElseParseEndIfCheckEmtpyStackParseRegionParseEndRegionParseExternalSourceParseEndExternalSourceParseEndOfLineParseEndget_TokensSeenOnLineget_TotalLineCountget_TotalCharCountIsNewLineIsUnderscoreCharacterIsIdentifierCharacterIsNumericCharacterIsOperatorCharacterIsSeparatorCharacterIsCombiningCharacterIsFormattingCharacterIsAlphaCharacterIsLineContinuationIsWhiteSpaceIsCommentEatLineNewLineCharAlsoEatNewLineIsSingleNewLinechr1chr2EatCommentEatWhiteSpaceGetDateCanStartIdentifierGetEscapedIdentifierGetIdentifierEscapedGetStringGetNumberGetIntegralTokenExtractIntExtractUIntExtractShortExtractUShortExtractLongExtractULongGetCurrentLocationget_CurrentLocationget_CurrentCharNextCharget_PreviousCharPeekCharPeekCharsCharsIsLastCharIncLineNewTokenGetNextTokenNextFileNextUnconditionallyget_CurrentTypeCharacterget_GetLocationget_TokenDataget_TokenTypeIfdOutTokensSeenOnLineTotalLineCountTotalCharCountCurrentLocationCurrentCharPreviousCharCurrentCurrentTypeCharacterGetLocationTokenDatam_Linem_Columnm_EndColumnm_FileIndexCommandLineSpanFileIndexStartLineStartColumnEndColumnFromLocationToLocationget_Lineget_Columnget_FileIndexget_HasFileIncludePathget_EndColumnSpanToColumnHasFilem_TokenTypem_TokenObjectIsSomethingCreateIdentifierTokenCreateEndOfCodeTokenCreateEndOfLineTokenCreateEndOfFileTokenCreateKeywordTokenCreateDateTokenCreateCharTokenCreateDecimalTokenCreateSingleTokenCreateDoubleTokenCreateInt16TokenCreateInt32TokenCreateInt64TokenCreateUInt16TokenCreateUInt32TokenCreateUInt64TokenCreateStringLiteralCreateSymbolTokenIdentiferOrKeywordIdentifierIsSpecialget_AsSpecialIsIdentifierOrKeywordget_LiteralValueIsLiteralget_IntegralLiteralIsDateLiteralIsIntegerLiteralIsCharLiteralget_CharLiteralIsStringLiteralget_DateLiteralget_DecimalLiteralIsDecimalLiteralAnySpecialdefghget_IsEndOfCodeget_IsEndOfFileget_IsEndOfLineget_IsEndOfLineOnlyIsEndOfStatementget_FriendlyStringget_SpecialStringAsSpecialLiteralValueIntegralLiteralIsEndOfCodeIsEndOfFileIsEndOfLineIsEndOfLineOnlyFriendlyStringSpecialStringm_TypeDeclarationsm_GroupedClassesget_GroupedClassesset_GroupedClassesget_TypeDeclarationsResolveTypesResolveMembersDefineTypesEmitAttributesSetAdditionalAttributesSetFileVersionSignWithKeyFileSignWithKeyFileMonoblobSetVersionShowInvalidVersionMessageCreateTypesIsDefinedHereFindTypeGroupedClassesTypeDeclarationsm_Inheritsm_CreatedImplicitMembersget_InheritsCreateBaseImplicitMembersGetBaseDefaultConstructorAddInitializeComponentCallCreateMyGroupMembersConstructorNameSharedConstructorNamem_ConstructorBuilderm_DefaultBaseConstructorm_BaseCtorCallCreateTypeConstructorCreateDefaultConstructorResolveFlagsget_ExplicitCtorCallget_HasExplicitCtorCallEmitVariableInitializationCreateDefaultCtorCallExplicitCtorCallHasExplicitCtorCallSTR_InvokeSTR_EndInvokeSTR_BeginInvokem_Invokem_BeginInvokem_EndInvokem_QualifiedNamem_ConstantsEnumTypeMemberNameget_Constantsget_EnumConstantTypeKeywordget_EnumConstantTypeget_QualifiedNameEnumConstantTypeKeywordEnumConstantTypeQualifiedNamem_ImplementsListImplementsListDefineImplementsget_ImplementsListget_NamespaceClauseNamespaceClauseget_IsAliasClauseget_IsNamespaceClauseget_AsAliasClauseget_AsNamespaceClauseIsAliasClauseIsNamespaceClauseAsAliasClauseAsNamespaceClauseGetNamespacesGetModulesm_Objectget_Objectget_NamespaceImportedget_TypeImportedget_IsNamespaceImportget_IsTypeImportget_AsConstructedTypeNameget_AsQualifiedIdentifierget_IsQualifiedIdentifierget_IsConstructedTypeNameNamespaceImportedTypeImportedIsNamespaceImportIsTypeImportAsConstructedTypeNameAsQualifiedIdentifierIsQualifiedIdentifierIsConstructedTypeNamem_InterfaceBasesget_InterfaceBasestmget_AssemblyQualifiedNameGetConstructorImplcallConventionmodifiersGetEventnameGetInterfaceignoreCaseGetMethodImplGetPropertiesGetPropertyImplreturnTypeget_GUIDInvokeMembertargetargsnamedParametersAssemblyQualifiedNameGUIDAddAttributethisargget_IsSimpleTypeNameget_AsSimpleTypeNameIsSimpleTypeNameAsSimpleTypeNameChangeQualifiedIdentifierqiget_IsBuiltInTypeNameget_AsBuiltInTypeNameAsBuiltInTypeNamem_TokenListm_RestorePointsm_CurrentIndexm_PreviousReaderset_Currentget_ReaderPeekTokenJumpGetRestorablePointRestoreToPointIgnoreRestoredPointAcceptSequenceksget_IsCurrentTokenValidGotoNewlineReportErrorFindNewLineAndShowErrorGotoAnySpecialsStopOnNewlineEatNewLinesAcceptIfNotErrorSpecial1Special2AcceptIfNotInternalErrorMessageParametersMessageParameterAcceptNewLineEOFIsErrorAcceptEndOfStatementOnlyColonAcceptEndOfFileAcceptIdentifierAcceptStringLiteralAcceptIntegerLiteralAcceptAcceptAnyKeywordsAcceptAllIsCurrentTokenValid$STATIC$MakeArrayType$435562$cache$STATIC$MakeArrayType$435562$cache$Init$STATIC$MakeByRefType$435637$result$STATIC$MakeByRefType$435637$result$InitClearCacheget_MemberDeclarationCreateListFilterIsMatchSearchedNamefilterfilterCriteriamemberTypeinterfaceTypeMakePointerTypeget_StructLayoutAttributeStructLayoutAttributeget_TypeHandleTypeHandleget_IsNonArrayTypeNameget_IsArrayTypeNameget_AsNonArrayTypeNameget_AsArrayTypeNameget_IsNotArrayIsNonArrayTypeNameIsArrayTypeNameAsNonArrayTypeNameAsArrayTypeNameIsNotArrayIsArraym_TypeParameterConstraintsm_GenericParameterPositionm_GenericParameterConstraintsget_TypeParameterBuilderget_TypeParameterConstraintsDefineParameterConstraintsTypeParameterBuilderm_ConstraintListClassConstraintget_ConstraintsConstraintsm_GenericParametersBuiltInTypesNumericTypesIntegralTypesvalCanBeContainBym_ImplicitlyConvertedIntrinsicTypesGetIntrinsicTypesImplicitlyConvertibleFromBuiltInTypeToTypeIsBuiltInTypeTypeCodeToBuiltInTypeBuiltInTypeToTypeCodeTypeCodeToTypeDescriptorTypeCodeToTypegetTypeIndexspecialKeywordToTypeCodeKeywordToTypeTypeToKeywordIsImplicitlyConvertibletpFromtpToIsExplicitlyConvertibleIsNumericTypeIsIntegralTypeIsSignedIntegralTypeIsUnsignedIntegralTypeGetIntegralTypeGetSmallestIntegralTypesetImplicitimplicitCheckNumericRangedesiredTypeCheckIntegralRangesenderLookupTypeExplicithasPrecisionLossBinaryAddResultm_AppObjectProviderm_ComputerObjectProviderm_UserObjectProviderm_MyWebServicesObjectProviderget_Applicationget_Computerget_Userget_WebServicesApplicationWebServicesGetInstanceCreate__Instance__instanceDispose__Instance__AssemblyTitleAttributeAssemblyDescriptionAttributeCLSCompliantAttributeComVisibleAttributeGuidAttributeOptionTextAttributeParamArrayAttributeObsoleteAttributeStandardModuleAttributeFlagsAttributeDebuggerHiddenAttributeEditorBrowsableStateSystem.ComponentModelEditorBrowsableAttributeSTAThreadAttributeGeneratedCodeAttributeHideModuleNameAttributeHelpKeywordAttributeSystem.ComponentModel.DesignCompilerGeneratedAttributeThreadStaticAttributeMyGroupCollectionAttributevbnc.Errors.resourcesvbnc.vbnc.rspTT1T2!VB$ActiveHandlerVB$ResumeTarget'VB$CurrentStatement = +Unhandled comparison!9Wrong conditional type code.OShouldn't happen, Nothing is a keyword.]Shouldn't happen, True and False are keywords. []&%System.RuntimeType1TypeBuilderInstantiation+.,;Not a generic type definition{0}, QThe compiler supposes a conversion from to  is valid.Missed option: !Skipped option: Missed case: SUSIUILUL%FRD!#@/Unknown typecharacter: %&@!#$Nothing(Nothing) VB$tmp#No type was found9SourceParameters is nothing._Method group is beeing resolved more than once.+Nothing to resolve...oA late bound expression does not have a constant value.+Delegate problems 3, >+Delegate problems 4, (){Property group resolution failed (unrecoverably), showing logCFailed to resolve property group.m_Parent Parent TypeCaching type: _MYTYPEGlobal..MyGlobal.My <Global.System.CodeDom.Compiler.GeneratedCode("MyTemplate", "8.0.0.0")> _g <Global.Microsoft.VisualBasic.HideModuleName> _7 Friend Module MyProject <Global.System.ComponentModel.EditorBrowsable(Global.System.ComponentModel.EditorBrowsableState.Never)> _ <Global.System.Runtime.InteropServices.ComVisible(False)> _ Friend NotInheritable Class ThreadSafeObjectProvider(Of T As New) <Global.System.ComponentModel.EditorBrowsable(Global.System.ComponentModel.EditorBrowsableState.Never)> _q <Global.System.Diagnostics.DebuggerHidden> _9 Public Sub New()' End Sub Private m_Context As New Global.Microsoft.VisualBasic.MyServices.Internal.ContextValue(Of T)k Friend ReadOnly Property GetInstance As T' Gete Dim tmp as T = m_Context.ValueU If tmp Is Nothing Then tmp = Global.System.Activator.CreateInstance(Of T)[ m_Context.Value = tmp5 End If= Return tmp/ End Get1 End Property <Global.System.Runtime.CompilerServices.CompilerGenerated> _U <Global.System.ThreadStatic> _g Private Shared m_ThreadStaticValue As Ty If (m_ThreadStaticValue Is Nothing) Then m_ThreadStaticValue = Global.System.Activator.CreateInstance(Of T)] Return m_ThreadStaticValue# End Class End ModuleNamespace MyEnd Namespace$GLOBALMY$<MyGenerator>%_MYAPPLICATIONTYPEConsoleWindowsWindowsFormsGlobal.Microsoft.VisualBasic.ApplicationServices.ConsoleApplicationBaseGlobal.Microsoft.VisualBasic.ApplicationServices.ApplicationBaseGlobal.Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase <Global.System.ComponentModel.EditorBrowsable(Global.System.ComponentModel.EditorBrowsableState.Never)> _= Friend Class MyApplication# Inherits <Global.System.ComponentModel.EditorBrowsable(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _m <Global.System.Diagnostics.DebuggerHidden()> _m Friend Shared Sub Main(ByVal Args As String())} Global.System.Windows.Forms.Application.SetCompatibleTextRenderingDefault(Global.Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.UseCompatibleTextRendering)m $GLOBALMY$.MyProject.Application.Run(Args) End Sub End ClassQ Private Shared ReadOnly m_AppObjectProvider As ThreadSafeObjectProvider(Of $GLOBALMY$.MyApplication) = New ThreadSafeObjectProvider(Of $GLOBALMY$.MyApplication) <Global.System.ComponentModel.Design.HelpKeyword("My.Application")> _ Friend Shared ReadOnly Property Application As $GLOBALMY$.MyApplicationu <Global.System.Diagnostics.DebuggerHidden()> _ Getm Return m_AppObjectProvider.GetInstance' End Get) End Property_MYUSERTYPEWebqGlobal.Microsoft.VisualBasic.ApplicationServices.WebUserkGlobal.Microsoft.VisualBasic.ApplicationServices.User Private Shared ReadOnly m_UserObjectProvider As ThreadSafeObjectProvider(Of Z) = New ThreadSafeObjectProvider(Of Z)Z <Global.System.ComponentModel.Design.HelpKeyword("My.User")> _a Friend Shared ReadOnly Property User As o Return m_UserObjectProvider.GetInstance_MYFORMS1System.Windows.Forms.dllw <Global.System.ComponentModel.EditorBrowsable(Global.System.ComponentModel.EditorBrowsableState.Never)> _ <Global.Microsoft.VisualBasic.MyGroupCollection("System.Windows.Forms.Form", "Create__Instance__", "Dispose__Instance__", "My.MyProject.Forms")> _ Friend NotInheritable Class MyForms <Global.System.ThreadStatic> _ Private Shared m_FormBeingCreated As Global.System.Collections.Hashtable <Global.System.ComponentModel.EditorBrowsable(Global.System.ComponentModel.EditorBrowsableState.Never)> _ <Global.System.Diagnostics.DebuggerHidden> _ Public Sub New() End Sub <Global.System.Diagnostics.DebuggerHidden> _ Private Shared Function Create__Instance__(Of T As {Global.System.Windows.Forms.Form, New})(ByVal Instance As T) As T If Instance IsNot Nothing AndAlso Instance.IsDisposed = False Return Instance End If Dim TType As Type = GetType(T) If m_FormBeingCreated Is Nothing Then m_FormBeingCreated = New Global.System.Collections.Hashtable() ElseIf m_FormBeingCreated.ContainsKey(TType) Then Throw New InvalidOperationException("There is a reference to a default instance from the constructor of a form, which leads to infinite recursion. Please refer to the form itself using 'Me' from within the constructor.") End If m_FormBeingCreated.Add(TType, Nothing) Try Return Global.System.Activator.CreateInstance(Of T)() Catch ex As Global.System.Reflection.TargetInvocationException Throw New Global.System.InvalidOperationException("See inner exception", ex.InnerException) Finally m_FormBeingCreated.Remove(TType) End Try Return Nothing End Function <Global.System.Diagnostics.DebuggerHidden> _ Private Sub Dispose__Instance__(Of T As Global.System.Windows.Forms.Form)(ByRef instance As T) instance.Dispose() instance = CType(Nothing, T) End Sub <Global.System.ComponentModel.EditorBrowsable(Global.System.ComponentModel.EditorBrowsableState.Never)> _ Public Overrides Function Equals(ByVal o As Object) As Boolean Return MyBase.Equals(Global.System.Runtime.CompilerServices.RuntimeHelpers.GetObjectValue(o)) End Function <Global.System.ComponentModel.EditorBrowsable(Global.System.ComponentModel.EditorBrowsableState.Never)> _ Public Overrides Function GetHashCode() As Integer Return MyBase.GetHashCode End Function <Global.System.ComponentModel.EditorBrowsable(Global.System.ComponentModel.EditorBrowsableState.Never)> _ Friend Function [GetType]() As Type Return GetType(MyForms) End Function <Global.System.ComponentModel.EditorBrowsable(Global.System.ComponentModel.EditorBrowsableState.Never)> _ Public Overrides Function ToString() As String Return MyBase.ToString End Function End Class  Private Shared ReadOnly m_MyFormsObjectProvider As ThreadSafeObjectProvider(Of MyForms) = New ThreadSafeObjectProvider(Of MyForms) <Global.System.ComponentModel.Design.HelpKeyword("My.Forms")> _q Friend Shared ReadOnly Property Forms As MyFormsu Return m_MyFormsObjectProvider.GetInstance_MYWEBSERVICES <Global.System.ComponentModel.EditorBrowsable(Global.System.ComponentModel.EditorBrowsableState.Never)> _ <Global.Microsoft.VisualBasic.MyGroupCollection("System.Web.Services.Protocols.SoapHttpClientProtocol", "Create__Instance__", "Dispose__Instance__", "")> _ Friend NotInheritable Class MyWebServices <Global.System.ComponentModel.EditorBrowsable(Global.System.ComponentModel.EditorBrowsableState.Never)> _ <Global.System.Diagnostics.DebuggerHidden> _ Public Sub New() End Sub <Global.System.Diagnostics.DebuggerHidden> _ Private Shared Function Create__Instance__(Of T As New)(ByVal instance As T) As T If (instance Is Nothing) Then Return Global.System.Activator.CreateInstance(Of T) End If Return instance End Function <Global.System.Diagnostics.DebuggerHidden> _ Private Sub Dispose__Instance__(Of T)(ByRef instance As T) instance = CType(Nothing, T) End Sub <Global.System.Diagnostics.DebuggerHidden> _ <Global.System.ComponentModel.EditorBrowsable(Global.System.ComponentModel.EditorBrowsableState.Never)> _ Public Overrides Function Equals(ByVal o As Object) As Boolean Return MyBase.Equals(Global.System.Runtime.CompilerServices.RuntimeHelpers.GetObjectValue(o)) End Function <Global.System.Diagnostics.DebuggerHidden> _ <Global.System.ComponentModel.EditorBrowsable(Global.System.ComponentModel.EditorBrowsableState.Never)> _ Public Overrides Function GetHashCode() As Integer Return MyBase.GetHashCode End Function <Global.System.Diagnostics.DebuggerHidden> _ <Global.System.ComponentModel.EditorBrowsable(Global.System.ComponentModel.EditorBrowsableState.Never)> _ Friend Function [GetType]() As Type Return GetType(MyWebServices) End Function <Global.System.Diagnostics.DebuggerHidden> _ <Global.System.ComponentModel.EditorBrowsable(Global.System.ComponentModel.EditorBrowsableState.Never)> _ Public Overrides Function ToString() As String Return MyBase.ToString End Function End Class 9 Private Shared ReadOnly m_MyWebServicesObjectProvider As ThreadSafeObjectProvider(Of MyWebServices) = New ThreadSafeObjectProvider(Of MyWebServices) <Global.System.ComponentModel.Design.HelpKeyword("My.WebServices")> _ Friend Shared ReadOnly Property WebServices As MyWebServices Return m_MyWebServicesObjectProvider.GetInstance3 <Global.System.ComponentModel.EditorBrowsable(Global.System.ComponentModel.EditorBrowsableState.Never)> _ <Global.Microsoft.VisualBasic.MyGroupCollection("{1}", "Create__Instance__", "Dispose__Instance__", "")> _ Friend NotInheritable Class {0} <Global.System.ComponentModel.EditorBrowsable(Global.System.ComponentModel.EditorBrowsableState.Never)> _ <Global.System.Diagnostics.DebuggerHidden> _ Public Sub New() End Sub <Global.System.Diagnostics.DebuggerHidden> _ Private Shared Function Create__Instance__(Of T As New)(ByVal instance As T) As T If (instance Is Nothing) Then Return Global.System.Activator.CreateInstance(Of T) End If Return instance End Function <Global.System.Diagnostics.DebuggerHidden> _ Private Sub Dispose__Instance__(Of T)(ByRef instance As T) instance = CType(Nothing, T) End Sub <Global.System.Diagnostics.DebuggerHidden> _ <Global.System.ComponentModel.EditorBrowsable(Global.System.ComponentModel.EditorBrowsableState.Never)> _ Public Overrides Function Equals(ByVal o As Object) As Boolean Return MyBase.Equals(Global.System.Runtime.CompilerServices.RuntimeHelpers.GetObjectValue(o)) End Function <Global.System.Diagnostics.DebuggerHidden> _ <Global.System.ComponentModel.EditorBrowsable(Global.System.ComponentModel.EditorBrowsableState.Never)> _ Public Overrides Function GetHashCode() As Integer Return MyBase.GetHashCode End Function <Global.System.Diagnostics.DebuggerHidden> _ <Global.System.ComponentModel.EditorBrowsable(Global.System.ComponentModel.EditorBrowsableState.Never)> _ Friend Function [GetType]() As Type Return GetType(MyWebServices) End Function <Global.System.Diagnostics.DebuggerHidden> _ <Global.System.ComponentModel.EditorBrowsable(Global.System.ComponentModel.EditorBrowsableState.Never)> _ Public Overrides Function ToString() As String Return MyBase.ToString End Function End Class Private Shared ReadOnly m_LogObjectProvider As ThreadSafeObjectProvider(Of Global.Microsoft.VisualBasic.Logging.AspLog) = New ThreadSafeObjectProvider(Of Global.Microsoft.VisualBasic.Logging.AspLog) <Global.System.ComponentModel.Design.HelpKeyword("My.Application.Log")> _ Friend Shared ReadOnly Property Log As Global.Microsoft.VisualBasic.Logging.AspLog Get Return MyProject.m_LogObjectProvider.GetInstance End Get End Property _MYCOMPUTERTYPEgGlobal.Microsoft.VisualBasic.Devices.ServerComputer[Global.Microsoft.VisualBasic.Devices.Computer7 Friend Class MyComputer1 Public Sub New()O Private Shared ReadOnly m_ComputerObjectProvider As ThreadSafeObjectProvider(Of $GLOBALMY$.MyComputer) = New ThreadSafeObjectProvider(Of $GLOBALMY$.MyComputer) <Global.System.ComponentModel.Design.HelpKeyword("My.Computer")> _ Friend Shared ReadOnly Property Computer As $GLOBALMY$.MyComputerw Return m_ComputerObjectProvider.GetInstance <Global.System.ComponentModel.Design.HelpKeyword("My.Request")> _ Friend Shared ReadOnly Property Request As Global.System.Web.HttpRequest Get Dim current As Global.System.Web.HttpContext current = Global.System.Web.HttpContext.Current If current IsNot Nothing Then Return current.Request Else Return Nothing End If End Get End Property  <Global.System.ComponentModel.Design.HelpKeyword("My.Response")> _ Friend Shared ReadOnly Property Response As Global.System.Web.HttpResponse Get Dim current As Global.System.Web.HttpContext current = Global.System.Web.HttpContext.Current If current IsNot Nothing Then Return current.Response Else Return Nothing End If End Get End Property /MethodOnTypeBuilderInst!MonoGenericClassMethodBuilder add_remove_ raise_No candidates: iExpanding paramarrays resulted in fewer candidates: ENo non-narrowing (except object): %No non-narrowing: )No most applicable: #No less generic: Does '5' have no type references? CustomCFound more than one Get Property.CFound more than one Set Property.Preserve-1Midyreport error BC30081, 'if' must end with a matching 'end if'5Enum type must be integralExplicit StrictCompare Text BinaryOffAssembly'Hanging attributes.I'End Namespace' without 'Namespace'.XXXXXXXXXXXXXXXXX-XXBXBBBBBBBBBBBBBB-BXXXXXXXXXXXXXXXXX-XXBXDDDDDDDDDDDDDD-DXBXDDDDDDDDDDDDDD-DXBXDDDDDDDDDDDDDD-DXBXDDDDDDDDDDDDDD-DXBXDDDDDDDDDDDDDD-DXBXDDDDDDDDDDDDDD-DXBXDDDDDDDDDDDDDD-DXBXDDDDDDDDDDDDDD-DXBXDDDDDDDDDDDDDD-DXBXDDDDDDDDDDDDDD-DXBXDDDDDDDDDDDDDD-DXBXDDDDDDDDDDDDDD-DXBXDDDDDDDDDDDDDD-DXBXDDDDDDDDDDDDDD-D-------------------XBXDDDDDDDDDDDDDD-DXXXXXXXXXXXXXXXXX-XXBXBBBBBBBBBBBBBB-BXXXXXXXXXXXXXXXXX-XXBXSSSSSSSSSSSSSS-SXBXSSSSSSSSSSSSSS-SXBXSSSSSSSSSSSSSS-SXBXSSSSSSSSSSSSSS-SXBXSSSSSSSSSSSSSS-SXBXSSSSSSSSSSSSSS-SXBXSSSSSSSSSSSSSS-SXBXSSSSSSSSSSSSSS-SXBXSSSSSSSSSSSSSS-SXBXSSSSSSSSSSSSSS-SXBXSSSSSSSSSSSSSS-SXBXSSSSSSSSSSSSSS-SXBXSSSSSSSSSSSSSS-SXBXSSSSSSSSSSSSSS-S-------------------XBXSSSSSSSSSSSSSS-SXXXXXXXXXXXXXXXXX-XXBXBXBBBBBBBBBBBX-BXXXXXXXXXXXXXXXXX-XXBXFXFHHJJLLPNOPX-OXXXXXXXXXXXXXXXXX-XXBXFXFHHJJLLPNOPX-OXBXHXHGHIJKLMNOPX-OXBXHXHHHJJLLPNOPX-OXBXJXJIJIJKLMNOPX-OXBXJXJJJJJLLPNOPX-OXBXLXLKLKLKLMNOPX-OXBXLXLLLLLLLPNOPX-OXBXPXPMPMPMPMNOPX-OXBXNXNNNNNNNNNOPX-OXBXOXOOOOOOOOOOOX-OXBXPXPPPPPPPPPOPX-OXXXXXXXXXXXXXXXXX-X-------------------XBXOXOOOOOOOOOOOX-OFGHIJKLMNOPXXXXXXXXXXXXXXXXX-XXBXBXBBBBBBBBBBBX-BXXXXXXXXXXXXXXXXX-XXBXFXHHJJJLLLLLLX-LXXXXXXXXXXXXXXXXX-XXBXHXGHJJJLLLLLLX-LXBXHXHHIIJKLMLLLX-LXBXJXJIIJJLLLLLLX-LXBXJXJIJIJKLMLLLX-LXBXJXJJJJJLLLLLLX-LXBXLXLKLKLKLMLLLX-LXBXLXLLLLLLLLLLLX-LXBXLXLMLMLMLMLLLX-LXBXLXLLLLLLLLLLLX-LXBXLXLLLLLLLLLLLX-LXBXLXLLLLLLLLLLLX-LXXXXXXXXXXXXXXXXX-X-------------------XBXLXLLLLLLLLLLLX-LFGHIJKLMXXXXXXXXXXXXXXXXX-XXBXBXBBBBBBBBBBBX-BXXXXXXXXXXXXXXXXX-XXBXOXOOOOOOOONOOX-OXXXXXXXXXXXXXXXXX-XXBXOXOOOOOOOONOOX-OXBXOXOOOOOOOONOOX-OXBXOXOOOOOOOONOOX-OXBXOXOOOOOOOONOOX-OXBXOXOOOOOOOONOOX-OXBXOXOOOOOOOONOOX-OXBXOXOOOOOOOONOOX-OXBXOXOOOOOOOONOOX-OXBXNXNNNNNNNNNOOX-OXBXOXOOOOOOOOOOOX-OXBXOXOOOOOOOOOOOX-OXXXXXXXXXXXXXXXXX-X-------------------XBXOXOOOOOOOOOOOX-ONOPXXXXXXXXXXXXXXXXX-XXBXBBBBBBBBBBBBBB-BXXXXXXXXXXXXXXXXX-XXBXFXFHHJJLLPNOPX-OXBXXSXXXXXXXXXXXX-SXBXFXFHHJJLLPNOPX-OXBXHXHGHIJKLMNOPX-OXBXHXHHHJJLLPNOPX-OXBXJXJIJIJKLMNOPX-OXBXJXJJJJJLLPNOPX-OXBXLXLKLKLKLMNOPX-OXBXLXLLLLLLLPNOPX-OXBXPXPMPMPMPMNOPX-OXBXNXNNNNNNNNNOPX-OXBXOXOOOOOOOOOOOX-OXBXPXPPPPPPPPPOPX-OXBXXXXXXXXXXXXXXX-S-------------------XBXOSOOOOOOOOOOOS-SFGHIJKLMNOPSXXXXXXXXXXXXXXXXX-XXBXBXBBBBBBBBBBBX-BXXXXXXXXXXXXXXXXX-XXBXDXDDDDDDDDDDDX-DXXXXXXXXXXXXXXXXX-XXBXDXDDDDDDDDDDDX-DXBXDXDDDDDDDDDDDX-DXBXDXDDDDDDDDDDDX-DXBXDXDDDDDDDDDDDX-DXBXDXDDDDDDDDDDDX-DXBXDXDDDDDDDDDDDX-DXBXDXDDDDDDDDDDDX-DXBXDXDDDDDDDDDDDX-DXBXDXDDDDDDDDDDDX-DXBXDXDDDDDDDDDDDX-DXBXDXDDDDDDDDDDDX-DXXXXXXXXXXXXXXXXX-X-------------------XBXDXDDDDDDDDDDDX-DXXXXXXXXXXXXXXXXX-XXBXBXBBBBBBBBBBBX-BXXXXXXXXXXXXXXXXX-XXBXDXFHHJJLLLLLLX-DXXXXXXXXXXXXXXXXX-XXBXFXFHHJJLLLLLLX-LXBXHXHGHIJKLMLLLX-LXBXHXHHHJJLLLLLLX-LXBXJXJIJIJKLMLLLX-LXBXJXJJJJJLLLLLLX-LXBXLXLKLKLKLMLLLX-LXBXLXLLLLLLLLLLLX-LXBXLXLMLMLMLMLLLX-LXBXLXLLLLLLLLLLLX-LXBXLXLLLLLLLLLLLX-LXBXLXLLLLLLLLLLLX-LXXXXXXXXXXXXXXXXX-X-------------------XBXDXLLLLLLLLLLLX-LDFGHIJKLMXXXXXXXXXXXXXXXXX-XXBXBBBBBBBBBBBBBB-BXXXXXXXXXXXXXXXXX-XXBXDXFHHJJPLPNOPX-DXBXXEXXXXXXXXXXXX-SXBXFXFHHJJPLPNOPX-OXBXHXHGHIJKLMNOPX-OXBXHXHHHJJPLPNOPX-OXBXIXJIJIJKLMNOPX-OXBXJXJJJJJPLPNOPX-OXBXPXPKPKPKLMNOPX-OXBXLXLLLLLLLPNOPX-OXBXPXPMPMPMPMNOPX-OXBXNXNNNNNNNNNOPX-OXBXOXOOOOOOOOOOPX-OXBXPXPPPPPPPPPPPX-OXBXXXXXXXXXXXXXXQ-Q-------------------XBXDSOOOOOOOOOOOQ-SDEFGHIJKLMNOPQSXXXXXXXXXXXXXXXXX-XXBXBXBBBBBBBBBBBX-BXXXXXXXXXXXXXXXXX-XXBXOXOOOOOOOOOOOX-OXXXXXXXXXXXXXXXXX-XXBXOXOOOOOOOOOOOX-OXBXOXOOOOOOOOOOOX-OXBXOXOOOOOOOOOOOX-OXBXOXOOOOOOOOOOOX-OXBXOXOOOOOOOOOOOX-OXBXOXOOOOOOOOOOOX-OXBXOXOOOOOOOOOOOX-OXBXOXOOOOOOOOOOOX-OXBXOXOOOOOOOOOOOX-OXBXOXOOOOOOOOOOOX-OXBXOXOOOOOOOOOOOX-OXXXXXXXXXXXXXXXXX-X-------------------XBXOXOOOOOOOOOOOX-OO'XBXDXFGHIJKLMLLLX-L'XBXFXFGHIJKLMNOPX-O'XBXFXFHHJJLLPNOPX-OFHJLNOPXXXXXXXXXXXXXXXXX-XXBXFXFGHIJKLMLLLX-LXXXXXXXXXXXXXXXXX-XXBXFXFGHIJKLMLLLX-LXXXXXXXXXXXXXXXXX-XXBXFXFGHIJKLMLLLX-LXBXFXFGHIJKLMLLLX-LXBXFXFGHIJKLMLLLX-LXBXFXFGHIJKLMLLLX-LXBXFXFGHIJKLMLLLX-LXBXFXFGHIJKLMLLLX-LXBXFXFGHIJKLMLLLX-LXBXFXFGHIJKLMLLLX-LXBXFXFGHIJKLMLLLX-LXBXFXFGHIJKLMLLLX-LXBXFXFGHIJKLMLLLX-LXXXXXXXXXXXXXXXXX-X-------------------XBXFXFGHIJKLMLLLX-LXXXXXXXXXXXXXXXXX-XX0X00000000000000-0XXXXXXXXXXXXXXXXX-XXIXI1000000000001-0XIX1I222222221111-0XIX04I00000000001-0XIX040I0000000001-0XIX0400I000000001-0XIX04000I00000001-0XIX040000I0000001-0XIX0400000I000001-0XIX04000000I00001-0XIX040000000I0001-0XIX0100000000I001-0XIX01000000000I05-0XIX010000000000I1-0XIX1111111111161I-0-------------------XIX00000000000000-IobjSome error...CArray dimensions are not correct.sArray argument must be implicitly convertible to Integer.ACannot convert implicitly from ' ' to '' AscW := .ctorSet?Loaded '' (+Microsoft.VisualBasicGet%They are the same!:SInvalid member type for attribute value: IsTrueop_TrueIsFalseop_Falseop_Additionop_UnaryPlusop_Subtraction!op_UnaryNegationop_Multiply%op_IntegerDivisionop_Divisionop_Concatenateop_Likeop_Modulusop_BitwiseAndop_BitwiseOrop_ExclusiveOrop_Exponentop_LeftShiftop_RightShiftop_Equalityop_Inequalityop_GreaterThanop_LessThan+op_GreaterThanOrEqual%op_LessThanOrEqual#op_OnesComplement!Conversion from  failed.7Conversion from Nothing to ?Constant value is not constant!/No constant expression.op_Implicitop_ExplicitEntryPointSetLastErrorCharSetImplemented method has not the same signature as the interface method1InternalSetConstantValuem_methodBuilderm_pdTokenSystem.VariantiOptional parameters must have a constant expression.MOptional expressions must be constant.sNon-optional parameters cannot have constant expressions.CParameter type must be specified.GParameter type should be specified.EventHandler EventEVariable type should be specified.Cannot specify array modifier on both type name and on variable name.$STATIC$$ $Init_No identifier: Cannot mix partial class declarations with partial structure declarationsnamespace<Default>mPartial classes must inherit from only one base class. class module enumstructuredelegateinterface type%m_constructorCountAttribute Found ? members in type or namespace ''Qualifying member '' resolves to ' objects (R = )Could not resolve: 'CCould not resolve (>1 results): 'ACould not resolve (no result): 'expression MidTmpkException type does not inherit from System.ExceptionEach expression in an If...Then...Else statement must be classified as a value and be implicitly convertible to Boolean3Unknown LoopCounterType: maxvar$stepvar$startvar$loopobj$Infinite loopVariableiNo structured exception handling in the same method. InvokeRedim clause must be classifiable as a property access or variable.mRedim Preserve clause must be classifiable as a value.WithVariable9Invalid instance expression.+(Of <type arguments>)I members for SimpleNameExpression = >#.MemberType=,DeclaringType=If the identifier matches the name of an accessible type or type member in more than one import, a compile-time error occurs.vbnc.rspvbnc.vbnc.rsp/Default response file ']' was not loaded because it couldn't be found.out targettexe winexelibraryaddmodulerecursereferencerlinkresourcelinkresresourcereswin32iconwin32resourceoptimize+optimizeoptimize-!removeintchecks+removeintchecks!removeintchecks- debug+ debug- debug fullpdbonly nowarnwarnaserror+warnaserrorwarnaserror- defined= =Trueimportsoptionexplicit+optionexplicitoptionexplicit-optionstrict+optionstrictoptionstrict-]Warning: Option Strict Off will probably fail.rootnamespaceoptioncompare text binary help nologo quietverboseverbose+verbose-noconfigbaseaddressbugreportcodepage<number>delaysign+delaysign-keycontainerkeyfile"libpath main netcf-.NET Compact Frameworksdkpathutf8output+utf8outpututf8output-novbruntimereferrorreportG/errorreport isn't implemented yet.vbversion77.18)Unknown vb version: A, will use default vbversion (8)debug.rsp-/GNo errors, but compilation failed? 1Consistency check failedI errors, but compilation succeeded? .output.xmldllnetmodulekvbnc crashed nearby this location in the source code.ResolveCodeResolve'CreateImplicitTypesResolveTypes+ResolveTypeReferences+CreateImplicitMembersResolveMembersFinishedResolve en-usmscorlib.dll3Microsoft.VisualBasic.dll9Error creating the assembly!WAssembly '{0}' saved successfully to '{1}'.ShowErrorsThere were  errors and  warnings.-Compilation successful%Unexpected error: Main version  (Mono g Visual Basic Compiler Options e >>> Output file options >>>/out:<filename> Sets the file name of the output executable or library./target:exe Create a console application (this is the default). (Short form: /t)i/target:winexe Create a Windows application.c/target:library Create a library assembly./target:module Create a module that can be added to an assembly.e >>> Input files options >>>/addmodule:<filename> Reference metadata from the specified module./recurse:<wildcard> Include all files in the current directory and subdirectories according to the wildcard specifications./reference:<file_list> Reference metadata from the specified assembly. (Short form: /r)a >>> Resources options >>>#/linkresource:<resinfo>Links the specified file as an external assembly resource. resinfo:<file>[,<name>[,public|private]] (Short form: /linkres)/resource:<resinfo> Adds the specified file as an embedded assembly resource. resinfo:<file>[,<name>[,public|private]] (Short form: /res)/win32icon:<file> Specifies a Win32 icon file (.ico) for the default Win32 resources.}/win32resource:<file> Specifies a Win32 resource file (.res). >>> Debug and code generation options >>>Y/optimize[+|-] Enable optimizations.u/removeintchecks[+|-] Remove integer checks. Default off.e/debug[+|-] Emit debugging information./debug:full Emit full debugging information (default).U/debug:pdbonly Emit PDB file only.u >>> Errors and warnings options >>>Q/nowarn Disable warnings.a/warnaserror[+|-] Treat warnings as errors._ >>> Language options >>>/define:<list> Declare global conditional compilation symbol(s). list:name=value,... (Also: /d)/imports:<list> Declare global Imports for namespaces in referenced metadata files. list:namespace,.../optionexplicit[+|-] Require explicit declaration of variables.s/optionstrict[+|-] Enforce strict language semantics./rootnamespace:<string>sets the root Namespace for all type declarations.}/optioncompare:binary Do binary string comparisons. (Default)e/optioncompare:text Do text string comparisons._ >>> Various options >>> s/help Show this help message. (Also: /?)/nologo Do not show the compiler copyright banner./quiet Specifies a quiet mode - only errors will be shown.[/verbose Show verbose messages./noconfig Disable the automatic inclusion of the vbnc.rsp response file._ >>> Advanced options >>>/baseaddress:<number> Specifies the base address of the library or module (in hex).]/bugreport:<file> Create bug report file./codepage:<number> Specifies the codepage to use when opening source files./delaysign[+|-] Specifies whether to delay-sign the assembly using only the public portion of the strong name key./keycontainer:<string> Specifies a strong name key container. *Not supported yet.*/keyfile:<file> Specifies a strong name key file. *Not supported yet.*/libpath:<path_list> Lists the directories to search for metadata references. (Delimited by semi-colons.K/main:<class> Specifies the entry method of the assembly. Can be a Main sub or function, or a class that inherits from System.Windows.Forms.Form. (Also: /m)/netcf Specifies the .NET Compact Framework as the target. *Not supported*./sdkpath:<path> where the .Net Framework (mscorlib.dll) is located./utf8output[+|-] Emit the output from the compiler in UTF8 encoding. *Not supported yet* .resx.resources7Skipped setting Main method0corlib.dllICannot compute the system directory. True False/Invalid date constant: 3Invalid string constant: 'Invalid constant: '' (Type= Global9Got nothing for base type = cThere has been an internal error in the compiler.There has been an internal error in the compiler caused by the line: eThere has been an internal error in the compiler: gThere has been an internal error in the compiler: '+ caused by the line: Namespace Name: K%LOCATION% : %MESSAGELEVEL% %MESSAGE%5%MESSAGELEVEL% : %MESSAGE%%LOCATION%%MESSAGE%%MESSAGELEVEL% publicprivate=The file '{0}' does not exist.Divide by zeroCType (%narrowing operator+Cannot convert from 'SOperator CType is not defined for types '' and 'Me MyBaseMyClassaFound a namespace and a type with the same name.1Could not resolve name ' Huh?GValue must be value classification.mscorlib)System.Windows.FormsSystem.MonoType_System.Reflection.Emit.TypeBuilderInstantiationCSystem.Reflection.Emit.SymbolTypeESystem.Reflection.Emit.TypeBuilderSystem.BooleanSystem.ByteSystem.CharSystem.DateTimeSystem.DecimalSystem.DoubleSystem.Int32System.Int64System.ObjectSystem.Int16System.SingleSystem.StringSystem.SByteSystem.UInt16System.UInt32System.UInt64System.Enum!System.ValueTypeSystem.Delegate1System.MulticastDelegate)System.AsyncCallback'System.IAsyncResult=System.Collections.IEnumeratorget_CurrentMoveNext=System.Collections.IEnumerableGetEnumerator%System.IDisposableDispose1System.RuntimeTypeHandleSystem.Type#GetTypeFromHandleSystem.Void!System.ExceptionSystem.ArraySystem.DBNullSetValueGetValueCreateInstance!System.Activator1System.ArgumentExceptionESystem.Collections.Generic.IList`1QSystem.Collections.Generic.ICollection`1QSystem.Collections.Generic.IEnumerable`1USystem.Reflection.AssemblyVersionAttributeUSystem.Reflection.AssemblyProductAttributeUSystem.Reflection.AssemblyCompanyAttributeYSystem.Reflection.AssemblyCopyrightAttributeYSystem.Reflection.AssemblyTrademarkAttributeUSystem.Reflection.AssemblyKeyNameAttributeUSystem.Reflection.AssemblyKeyFileAttributeYSystem.Reflection.AssemblyDelaySignAttributeOSystem.Diagnostics.ConditionalAttributeMSystem.Diagnostics.DebuggableAttributekSystem.Diagnostics.DebuggableAttribute+DebuggingModes5System.ParamArrayAttribute#System.Nullable`1]System.Runtime.CompilerServices.RuntimeHelpers3System.STAThreadAttributeSystem.IntPtrsSystem.Runtime.CompilerServices.DateTimeConstantAttribute ZeroOneMinusOneqSystem.Runtime.CompilerServices.DecimalConstantAttributeAddSubtract DivideMultiplyRemainder NegateQSystem.Reflection.DefaultMemberAttributeSystem.ConvertToSingleToDoubleToBoolean ToByteToSByteToInt16ToUInt16ToInt32ToUInt32ToInt64ToUInt64 Concat7System.Diagnostics.Debugger Break3System.Reflection.Missing Value1System.Threading.Monitor Enter ExitGetObjectValueSystem.Math RoundPowcSystem.Runtime.InteropServices.DllImportAttribute3System.Windows.Forms.FormASystem.Windows.Forms.ApplicationRunCombine RemoveGMicrosoft.VisualBasic.CompareMethodeMicrosoft.VisualBasic.CompilerServices.ConversionseMicrosoft.VisualBasic.CompilerServices.ProjectDatagMicrosoft.VisualBasic.CompilerServices.LikeOperator;Microsoft.VisualBasic.StringscMicrosoft.VisualBasic.CompilerServices.StringTypeaMicrosoft.VisualBasic.MyGroupCollectionAttribute=Microsoft.VisualBasic.CallTypeCMicrosoft.VisualBasic.InformationCMicrosoft.VisualBasic.InteractionaMicrosoft.VisualBasic.CompilerServices.Versioned}Microsoft.VisualBasic.CompilerServices.StandardModuleAttributeaMicrosoft.VisualBasic.CompilerServices.OperatorsqMicrosoft.VisualBasic.CompilerServices.ObjectFlowControlMicrosoft.VisualBasic.CompilerServices.ObjectFlowControl+ForLoopControlYMicrosoft.VisualBasic.CompilerServices.Utils{Microsoft.VisualBasic.CompilerServices.OptionCompareAttributeuMicrosoft.VisualBasic.CompilerServices.OptionTextAttributeuMicrosoft.VisualBasic.CompilerServices.StaticLocalInitFlagMicrosoft.VisualBasic.CompilerServices.DesignerGeneratedAttributeMicrosoft.VisualBasic.CompilerServices.IncompleteInitializationkMicrosoft.VisualBasic.CompilerServices.NewLateBindingeMicrosoft.VisualBasic.CompilerServices.LateBindingIsNumericSystemTypeNameTypeNameVbTypeNameCallByName StateLateGetLateSetLateIndexGetLateIndexSetLateCall EndApp%CreateProjectError#ClearProjectErrorSetProjectError ToChar ToDateToShortToUShortToIntegerToUInteger ToLongToULongToDecimalToString%ToGenericParameterChangeType%ToCharArrayRankOneLikeStringLikeObjectMidStmtStr7CheckForSyncLockOnValueTypeForLoopInitObjForNextCheckDecForNextCheckObjForNextCheckR4ForNextCheckR8CopyArray;ConditionalCompareObjectEqualAConditionalCompareObjectNotEqual?ConditionalCompareObjectGreaterIConditionalCompareObjectGreaterEqual9ConditionalCompareObjectLessCConditionalCompareObjectLessEqualCompareString#ConcatenateObjectAddObjectAndObjectDivideObjectExponentObjectIntDivideObjectLeftShiftObjectModObjectMultiplyObjectNegateObjectNotObjectOrObjectPlusObject!RightShiftObjectSubtractObjectXorObject%CompareObjectEqual+CompareObjectNotEqual)CompareObjectGreater3CompareObjectGreaterEqual#CompareObjectLess-CompareObjectLessEqual): 3ResolveInfo ignored for 'The class E does not implement GenerateCode()9 does not implement Define()   _]There was an exception during code generation./Use the other overload.5<String representation of # not implemented>StringsChr ChrWAscTypeBuilderSymbolType System!m_parameterTypes-System.Reflection.Emitop_LogicalNotop_LogicalAndop_LogicalOr'op_SignedRightShift+op_UnsignedRightShiftCA namespace starting with a dot??`1<no message written yet>WA warning message should have been shown: 'SelfCompile.exertGError recovery not implemented yet.straInvalid binary number: cannot contain character en-US[Invalid hex number: cannot contain character 1_Invalid octal number: cannot contain character """cvalue__ ByRef Optional ParamArray {}!Protected FriendProtected Friend PublicPrivate<unknown>Sub New(5MethodBuilderInstantiationSymbolMethodMonoArrayMethodExpected got #Compilation took 1Failed compilation took get_ set_ valuevbnc.ErrorsCould not find the error message corresponding with the error code: !Expected 'Const'Expected '='Expected 'If'#Expected 'ElseIf'Expected 'Else' Region#Expected 'Region'/Expected string literalExternalSource3Expected 'ExternalSource'Expected '('Expected ','1Expected integer literalExpected ')')Expected end of lineExpected 'End''End' what?kExpected 'If', 'ElseIf', 'Else', 'Const' or 'Region'.ICurrent character is not a new line.EEatComment called with no comment.'Invalid character: , Location: Uuhexadecimal octalUnknown base: <Internal>)(in the commandline){0} ({1},{2})({0},{1})<Token>END OF CODEEND OF FILEEND OF LINEEMPTY TOKENnot a symbol Type 5 is not a definable object DEBUG)Can't find keyfile: ASystem.Security.Cryptography.RSAQMono.Security.Cryptography.CryptoConvertFromCapiKeyBlob'ToCapiPublicKeyBlob-FromCapiPrivateKeyBlob%Invalid key file: , got error: *'InitializeComponentuWeird MyGroupCollectionAttribute, should have 4 arguments.mWeird MyGroupCollectionAttribute, non-string argument?m_GProperty can only be set to Nothing .cctoruBase class does not have an accessible default constructor]Base class does not have a default constructorTargetObjectTargetMethod!DelegateCallback%DelegateAsyncState'DelegateAsyncResultEndInvokeBeginInvoke<Missing>Location: -Not an identifier?????)Not an identifier???%Not an identifier? ITypeyBoth NonArrayTypeName and ArrayTypeName cannot be specified. Type '{' was been referenced while compiling, but it wasn't found...Found type A, but it isn't a TypeDescriptor!wCompiler cannot decide between several types with the name  z\V40       T   0  !   !! )- ! ! -1 1   ?_ : = z\V4 ==]a ae i   -U-    - ---  --     <  =   - -   -      --         -  4e--        1! 1 1- 1 1-   1  1  1  1 1         1     1 1)   1  1! ]   ! ! - $  - - z\V4  -  5 e-X eT` ed 9T`  9d a =d =A -E--      e i-  - - UY- Q p  X Q -$ A %    ||T ]--p0 a   4 4     DT888 8  $8t(( (    \| |h a aPp  U - --- - e- ea- -  e-tet  9-te e 9eDa --      - -  0    --   8\      0  P - h   $@   $0      )! t                       !%  -15 % Q--    =e   Ee }  -    (  p - --     QQQ    Y ] - ] -t) -e Ap    UUau y }=    e   ee<     -1     }==   }te -  -T TT 0  -    -   -  e-U-   &'1?@E\co}<NewLine><EndOfFile><EndOfCode>      !"#$%()*+,-./023456789:;<=>ABCDFGHIJKLMNOPQRSTUVWXYZ[]^_`abdefghijklmnpqrstuvwxyz{|~      @ @ @G%AI@I@A@& %&@!#$                                                                                                                                                       J%LOCATION% : %MESSAGELEVEL% %MESSAGE%4%MESSAGELEVEL% : %MESSAGE%!N1u2u3u4u5u6u7u8u9u:u;uu?u@uBuCuDuEuFuGuHuIuJuKuLuMuNuOuPuQuRuSuTuUuVuWuXuYu[u\u]u^uaubucudueuiujukulunupuqurusutuuuvuwuxuzu{uuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuvvvvv v v vvvvvvvvvvvv v!v"v#v$v&v'v(v)v+v,v-v0v1v2v4v:v;vv@vAvBvCvEvFvHvIvJvKvLvOvPvQvRvUvVvXvYvZv[v\v]v^v_vavbvcvdvfvgvqv|v}vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvwwwwwwww w wwwwwwwwww!w$w%w&w'w(w)w*w+w,w-w0w4w5w6w7w8w9w:w;ww@wAwBwDwEwNwPwQwSwTwUwVwZw[w`wawbwcwewfwgwhwiwlwnwpwqwrwswtwuwvwwwxwyw{w|w~wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwxxxxxxxx x x x xxxxxxxxxxxxxxxx x!x"x#x$x%x&x'x(x)x*x+x,x-x.x/x0x1x2x3x4xx?x@xAxBxCxDxExFxGxLxPxQxRxSxTxUxWxXxYxZx[x\x^x_x`xaxbxcxdxexfxgxjxkxlxmxnxxxxxxxxxxxxxxxy#y%y&y+y,y-y/y0y1y2y3y4y5y6y7y9y;y@yAyByCyDyGyHyIyKyLyMyNyOyRySyTyUyWyXyYyZy[y\y]y^y_y`yaybycydyeyhyjykylymynyoypyqyrysytyuyvywyxyyyzy{y|y}y~yyyyyyyyyyzzzzzzzzzzzzzzzzzzzz { {{{{{{{{{{{{{{{{{{{ {!{"{#{${%{&{}}}}}}}} } } } }}}}}}}}}}}}}}}}}} }!}"}#}$}%}&}'}(})}*}+},}-}.}/}0}1}2}3}4}5}6}7}8}9}:};}<}=}>}?}@}A}B}C}D}E}F}G}U}b}e}f}g}h}i}j}}}}}},~-~.~0~~~~~~~~~~    @CDEGHIJKLNRSTUVWXYZ[\]^_`abcdefghix()*+,(uvwxؤ<=>?@ABCDEFGHIJK________________________*(No message provided)  ( ) '  .ctor .cctor InvokeEndInvokeBeginInvokevalue__ T 0 !)!! 00 0  0     a !           X))!!!!   X)!  T T      0!   T  X p p pp-  == P UUUUUUUp-           UU-            xx}     -  t- t - T  ------  t ---     AA           YY-Y    -- ==-    -( ----0 --- -P --- }- ------}- -- - - ) A   | - |     --    --  e- T4 - --   - \   X  % \\   XXX X- X-%\  -- !XX )X-)))X!XX-!!p X!- X!)X-) XX-XX X- X-- UU) --X --UU-- X X--UUUX-X -X X X -X X -X X-X -XX X -XX XUUX UXUX UXUXX XX -U-UU))UU)X=XXXdXX)XXX -U  XX! X htx  hhhh xx -p-xxx   h  X       .-\\ (@  -- ---@    X- X    L L L LL  L -     --             l l   lll<      -     ! --   l  <  - -        X     + --- -  t <   t tt t t     - -              0 )-)-X--XX) - ) )  X))<X)!0X)) !)tX ))))\ - \ \ - \\ --)--$ --\1X)---XX))      X pX) X  --)P PPP 1 T`\X p- `` \\/`````` `d X-XX XH``````9T` 9T`d ` Td- XX- d-d dT= d`d9T` 9T``9d 9dd dd9d 9dd  dd: dd9T` 9T``9d 9dd`\ a a ` dd   A <       A AA   Q - X-!!T T  AQp x xp xp   -- --- -H --- ---} x x xx,0U 0 UU ,,    00<U,0  x   <<  <Q HHQAAH   l    , -     DD W+D--@@<@ -D]T  T T |  - 0 0 ]] < -- T]     h p  TTTTx <\0 < \ <0 TTTx   h 0 000l |||4 0 00 , ,, 4 44 8 88 < << @ @@ D DD H HH L LL T TT X XX \ \\ ` `` h hh l ll p pp ` H4 888     dxdd|x     L  `|`D DD \ @< < <<    HHHl /px\X`dhtx|lx ($T      <x|8  x   |       < <$ 0 0 0    |    p444 4 44x| | ` 0 00, \\4`P   <0 <  |  | < x| <  <   0   4H < < < xX <" xX| X XX     |   % | \ <              x   x      8   ppp $ $$ ( ((  \               \           x TTT DDDD D DD<D   \x<     $ $$$x HHH PPP dddx  $ <DD        <D<<< 8 8884@ 8 444@ 444@ @ @@P @@@DP8  p ppp`x xxx,tD (((4t 444 t tt <<<|DP DDD\\` \ \\$    \ ```ld dddl \\ xxx\\  \\\`8l 888Pl lll |||\l, lllhh h hh ```0P PPP  PPP  00x   H< < <- <  <<< ,P<p P    p  pi pp xUUUUUUUUUUUUUxUUx UxUU Upx--UUUUUxxUUUUUUU UUU- UUUUUUUUU=U=UUUUU U UUUUU U UUU U UUUUU U U U   ((  00     tt   x  x%%   8 @\X    4   - -p  - --p      `\ \\ \`\ - -d X-d( X- - -)$ X )- -- -\x e e-eD e-t et e e e-X - - e- e- X-X   xx   --- - --- t      } - -- <  -t ---- 9-t 9-t  9 9 8---88 --- - -- 4---44 @---@@ <-<< D-- DD---- -- -- eD eD e- x eD -- -   x$ $    - .--)XX p--- \  $$$ l d`` ll ddldl ldd  hh hllh--h hh h h`x - `` xx `xpp DX(   <  -}`xtt, ,xx  ,,,p p p p pt  t  p p-ppp     x| x   | } ||0|    | \0T TTT TT TT TTT  4 4 4 <THPT4 xX| X xX xX  XX pxX <-- - - | |    0  0  \ \ \\\  \4 88 T T -  T  xx   < |  - |  |   #--  Q  -   -   \    `  ```  0   ((|, <-  0 0    -      |  |  \    !!!< - t t t 4t((t(t , ,,(  l00  88x x 88 xx  8 88  8 8 88-- 8 ---- 8 -\ 8x 8     tp  pp        ---  L 8 P  -  LP8 L L@84--  -- h ( - -- - ---- - < <8 1@8 @ --@ @ -    PP  L-  PP PP   X - ) 88 x x    \!! !x$ x !  %  ( x x0x  -!!) !!!  X  !!))))X!!U      !  `| 8   H HH H --)!,H\ --- (\D     !         -)!       \  .)!!))!! \l ,,,0 |x44-xP Pl Pl88 L- P | P< lH --`$ (d-h-  # <- < 8@) 8   MPhX|D`d\l ll hh MM  XX || DD `` dd \\   PP }} M      .         lhMX|D`d\PTH=   HH   TT T  hh   t  T}l} } " %}!) )%<Q%QH} << <<<<   HTht p = xx xx x xx xx e             e           p  p p       p  UU!!! ----XU --UU-UU--UUUU  UUUUUU-UU+  U --UUUU --UUU x XXU XUU -UU--UUUU  --UUUU UU!! h x  - -X-UU- -UU UU-U-U -UU UUUU -UU -U-U UU -U-U UU UU  - U-UU UU UU  | -UU X- - X--&---- U UU UU   UU   UU(-< <p4';---0-d0t |U' U-d - -- -- --t - --- 4----------------------------------------------------Ck-----------------------------------------------------------------------------------------------------------    8  <           QQQ    < << }   <a|4xxxxxxxxxxx|-- x|x|pYpx}  -y]p --  -ptp -t -    p- --  --p-Q --p-Q -- --  Upt Up-Utp-- -pp- p -p -- ---l    E ----- -  - --p---    - 8 - ---- ptttttt X --)X X---XX --X-X9))-X)))-9pt  P- t   - ----ll-----#-------- ---pe--p-- pe-  p-ep-e p------ - p-- --  --  p- -#p------ Qp---A ---A---            X iX-    p      ---t(HP P0 0- ------ --p-- ------ UpUUU pUU -- -p---- -- tt-TD-- p   pL- -  ppp ((  p p ----p p < < Tp--T -- <  u  p  p p-2    p - UU p-,=p=}=}=}=}}=}=}  $x$ 0| 0                e e e p     x             x  F$ th tthhh}}}  t  hh  tt  t t  tt  tt  t t  t t   x           p  p p    pp        x  =                     =    x xx xxx xxxx xxxxx xxxxxx xxxxxxx xxxxxxxx xxx   x <tt t t t <<  t < <  < < <   < < <   < p -  9 /-----} p }======}}<<  < << t<| p ||| <\x t " p H Oppt--<ee  p|< < \H8Hl|HHHH((8Hl|HX< (A8 <  -AT <  <  <-3|A x    , , # Q  ,,,@ @@ @@ 4 @ 444 8  8 @ 8 L 888 <  -LL-   -   QQ Q p ` 8\\ `8 P 0``T 00      DD D x x x xx x x x x     --| ll| 4 ppp44  4 x  --(  ----               ---- --< - QQ t--4 ----4 --4    E EEE\ \ \ \ \ \, ,|| ,,,T  TT   --4  ---4 -Tp p --4  ppp        - e-U;UUUUUUUUUUUU,-------------- Up- UUU -hhUhUUhUh -U-UhhUx -x x- tt -- pUU pUU U h --- ------ - UU -H%hUUUUUU UU U U U U U U U U  h UU h h  - U    0Visual Basic.Net CompilerRolf Bjarne KvingeE@Copyright (C) 2004-2008 Rolf Bjarne Kvinge. All rights reserved.)$E63DDBCD-287F-42FE-A6B9-59ECBE91701D ItemDEBUGCONSTRUCTORACCESSDEBUGEVENTACCESSDEBUGFIELDACCESSDEBUGMETHODACCESSDEBUGPARAMETERACCESSDEBUGPROPERTYACCESS DEBUGDo not use this! NONE Ansi Auto ByRef ByVal ConstDefault DimFriendInherits MustInherit MustOverride NarrowingNotInheritableNotOverridableOptional Overloads Overridable OverridesPartial ParamArrayPrivate ProtectedPublicReadOnlyShadowsSharedStaticUnicodeWidening WithEvents WriteOnly AddHandler AddressOfAndAlso Alias And AsBoolean Byte Call Case Catch CBool CByte CChar CDate CDec CDbl Char CInt Class CLng CObjContinueCSByteCShort CSng CStr CUInt CULngCUShort CType DateDecimalDeclareDelegate DirectCast DoDouble Each ElseElseIf End Enum Erase Error Event Exit FalseFinally ForFunction GetGetTypeGlobal GoToHandles If ImplementsImports InInteger Interface Is IsNot Let Lib Like Long Loop Me ModModuleMyBaseMyClass Namespace New Next NotNothingObject Of OnOperatorOption OrOrElseProperty RaiseEvent ReDim REM RemoveHandlerResumeReturn SByteSelect Set ShortSingle Step StopString Structure SubSyncLock Then Throw To True TryTryCastTypeOfUInteger ULongUShort Using UntilVariant When While With Xor < > = <> <= >= ! & * + - ^ / \ # { } ( ) . . , : << >> &= += -= /= \= ^= *= <<= >>=S USI UIL UL%&FRD!#@ op_UnaryPlusop_UnaryNegationop_OnesComplement op_BitwiseAndop_Like op_Modulus op_BitwiseOrop_ExclusiveOr op_LessThanop_GreaterThan op_Equality op_Inequalityop_LessThanOrEqualop_GreaterThanOrEqualop_Concatenate op_Multiply op_Additionop_Subtraction op_Exponent op_Divisionop_IntegerDivision op_LeftShift op_RightShiftop_Trueop_False'"Use GenerateCode(EmitInfo, Type())DEBUGMETHODRESOLUTIONNo code to resolve here.Call Define(BuilderCall ResolveStatement -^YThrows NotImplementedException() - The class you are using does not override this method!Call ResolveExpression EXTENDEDDEBUGDEBUGMETHODADDUse another overloadDEBUGTYPEACCESS MyTemplate8.0.0.0My.Application My.Computer My.UserMy.WebServices a4System.Web.Services.Protocols.SoapHttpClientProtocolCreate__Instance__Dispose__Instance__ #/I/vKVD<0HX4VS_VERSION_INFO?DVarFileInfo$TranslationStringFileInfo007f04b0< ProductVersion0.0.0.5908HCompanyNameRolf Bjarne KvingeTProductNameVisual Basic.Net CompilerALegalCopyrightCopyright (C) 2004-2008 Rolf Bjarne Kvinge. All rights reserved.4 InternalNamevbnc.exe,FileDescription LCommentsVisual Basic.Net Compiler8 FileVersion0.0.0.5908< OriginalFilenamevbnc.exe,LegalTrademarks 0mono-basic-2.4.2/class/lib/bootstrap/Microsoft.VisualBasic.dll0000644000175000001440000114600011213247520023650 0ustar builderusersMZ@ !L!This program cannot be run in DOS mode. $PELI!  @ @ O   d H.text  `.rsrc@@.reloc @B% @@ Z N  _CorDllMainmscoree.dll@ Ht&( *F( ( o *F( ( o *0 ( **0,{9( s }8{**0 ( o **0'{9s}8{**0 ( o **:( }*0?{( o o 9*8 **0{o o **0{o o **0' o+ 9 o *8~ **0' o+ 9 o *8~ **0 {o ( **0 ( o ts **0' o+ 9 o *8~ **0( **0'o+ 9 o *8~ **0'o+ 9 o *8~ **0{o o **0(! **(" *0s# z*0s# z*0s# z*($ *"(% *&(& *&(' *(*0 5(( ts) o* 9 o+ 8o, **s# z*0s# z*(C*0s# z*s# z*"(- *0 {**"}*($ *"(% *&(' *&(& *:(. }*0 {**V(/ }}*0 {**"}*0 {**( *s# z*0s# z*0s# z*0s# z*s# z*0 s# z*s# z*0!s# z*0"s# z*"(N*0/(}}}}sv}*0#**of*0 ${**"}*0 %{**"}*0 &{**"}*0 '{**"}*0({t**0){o0 **6{o1 *0 *{**"}*0+(2 **0 ,{**"}*(3 *s# z*s# z*s# z*0-s# z*0 >oZ9$ocoZ9 s-z88oZ(4 *s# z*0.s# z*s# z*0/s# z*s# z*f{ (5 tO} **f{ (6 tO} **f{!(5 t }!**f{!(6 t }!**f{"(5 t}"**f{"(6 t}"**f{#(5 t}#**f{#(6 t}#**f{$(5 t }$**f{$(6 t }$**:(7 }%*0]0{%oW :8 (8 85(2 o9 9 (8 8(2 o: o1 8*( *019*8u%9y%q%*8u&9y&q&*8u'9y'q'#*8u(9y(q(*8u)9y)q)*8u*9'y*q*s; ~< (= *8u,9'y,q,s; ~< (= *8u-9y-q-!*8u.9y.q.*8u+9!y+q+~< (= *8u 9t (z*8rps> z*029r p 8rp(}9*8o? rp(}9*8o? rp(}9*8( #9  =8 1,u0 r)p(9rSp(@ tsA z*At3,0( *0T39  B8(B 1,u0 r)p(9rcp(@ tsA z*A&&,00=49*8u%9(C (D *8(D **( *095oE (F :8t (*8 s# z8*0 6oG **( *0579*8r p(}9*8oH **0;89*8u 9t (*8(I **( *09oJ 9*8(K **0A:9rmps> z8֍4  9 8(**0 ;sL **0 <sM **0 =(y**0 >(z**0 ?(}**0 @(|**0 A(**0 B(**0C9r p(*8( oE oN 9 t*8 ( oE oN 9((*8rypoE oO (P rp(P sQ z*0"D9r p 8oG **0 E(**0 F(**0 G(**0 H(**0 I(**0 J(**0 K(**0 L**0 M(**0 N(**0 O(-**0 P(.**0 Q(R **0 R(S **0 S(**0 T(**0 U(**0 V(**0 W(**0 X(&**0 Y(**0 Z(,**0 [(!**0 \($**0 ](***0 ^( **0 _()**0 `(#**0 a('**0 b(T **0 c(U **0dt6(V **0et6(W **0ft6(X **0 g(Y **0 h(Z **0 i([ **0 j(\ **0 k(] **0 l(^ **(_ *( *0m(***0ns# z*0o(***0 p(+**&(&*2('*2((*0 (*:(*( *(*( *0q(**0 r(**0 s(**0 t(**0 u(**( *0 v(**0 w(**($ *"(% *&(& *( *0%xrp (` (P (9 ( **(_ *(_ *( *0 y(**0 z9*8oE (F :o:f:] :S :I:@ :6 :,:" :::8*8~:8*8h:8t # (a *8<:8'y4q4(# (a *8*8*0$P{o? rp(}:8 rp*8#rp(}:8 r)p*8rAp(}:8 rMp*8rgp(}:8 rqp*8rp(}:8 rp*8rp(}:8 rp*8orp(}:8 rp*8Kr p(}:8 rp*8'r5p(}:8 rGp*8rcp(}:8 rmp*8rp(}:8 rp*8rp(}:8 rp*8rp(}:8 rp*8srp(}:8 r p*8Or)p(}:8 r7p*8+rSp(}:8 rap*8*8*0|9 r}p*8u89 rp*8oE ob 9 rp 8r p oE oO o? rSp(}:8 rp 82rp(}:8 rp 8 rp(}:8 rp 8rp(}:8 rp 8rp(}:8 rp 8rp(}:8 r+p 8yr5p(}:8 rCp 8Trp(}:8 rcp 8/rAp(}:8 rOp 8 rp(}:8 rSp 8rgp(}:8 r[p 8rep(}:8 rwp 8r)p(}:8 rp 8vrp(}:8 rp 8Qrp(}:8 rp 8,rp(}:8 rp 8 8 (P **0{}o? o? rpoc 9o? od 8 rSp(}:8 rp 8# rp(}:8 rp 8 rp(}:8 rp 8 rp(}:8 rp 8 rp(}:8 rp 8 rp(}:8 r+p 8o r5p(}:8 rCp 8K rp(}:8 rcp 8' rAp(}:8 rOp 8 rp(}:8 rSp 8 rgp(}:8 r[p 8 rep(}:8 rwp 8 r)p(}:8 rp 8s rp(}:8 rp 8O rp(}:8 rp 8+ rp(}:8 rp 8 8**( *0 {~9*8u 9t (*8u99y9q9*8rp(9oE (rwp(@ sQ z*0t6(e **09(f +&u0 r)p(9rwp(@ sQ z*A&0( *09 ~g *8~< **09 ~< *8(**0 9 ~< *8oE (F :8 ~g y%q%(h (i *8:8y(q((j *8:8y'q'(k *8q:8y+q+*8Q :8y&q&(l *8,:8y.q.(m *8 :8y-q-(n *8 :8y:q:(o *8:8t (*8:8y)q)(p *8y:8y;q;(q *8U :8y*q*(r *80 :8y,q,(s *8 st z8*0N9 ~< *8( +&u r)p(9rp(@ sQ z*A&&0 (**0t6(u **( *0"9#*8(**0k9#*8u%9#(v Z*8u 9t (*8(v **0 (**0^9( o ow 8( ,'u r)p(9rp(@ sA z*A55'0 (**0'9#*8t6(x **0 (a **( *0MoE oy 9:rpoO (P r?p(P oO (P rWp(P s> z8*0s# z*0s# z*0s# z*0 s((z + s ((z }((z }((z }QQP({ {{(**0P~< (= 9 (= 9*8*8(= 9*8**0@( t+ P( {(|  +Q {{(**0>"99*8*89*8**0B#99*8*89*8**( *( **0~***($ *"(% *&(& *( *0_9  M8oE (F :8y%q%(} 8:8y(q( 8:8y'q'(~ 8:8y+q+( ݛ8a :8y&q& v8<:8y.q. Q8 :8y-q-( '8 :8y:q:( 8:8t ( 8:8y)q) ݳ8y:8y;q; ݎ8T :8y*q*( d8* :8y,q,( :8 u rpoE oO (P rp(P sQ z*A-- 0J9*8( ,'u r)p(9rp(@ sA z*A!'( *0 {**0 {**0 {**0s"**0s# z*0(v:o :89*8( QPt3Po t} o 9 s z8o 9o 9t9bo o o9=to ښo ( 9rps> z88889 s z8s z8 o 8' o ֍@         o  8 9n   Po:8    80:88:8  888 X   :o 9/ Pt3oPt3 o } *8 9 s z8X:**0 o**0+;P`9*8t3 { { Po t {Po o 9o ֍Q8  Po  8o9Po 9uoE ob 9P 8N t   o  8P  o  X   :8889P 8t&( 9o o 99moE ob 92 tto ( P8"oE o 9P 888 P 8o9 8 X:U*0s# z*0s# z*0RXo 9*8o 9 }89*8o t o ښo 9o o 9*8o ֍ o 8t&( o `9'o 9o 8*8D~ 9o :89o 8X:U*8o o9xo 9c9   o   8et &(   9  o 9 8?88  o 9*8    X   :8o ښoE ob 9o o 9*8o o ښto ( t֍(4t 8to X:88*8o 8At&( o `9*8X:**0o ֍& o 8 X:9*8o ֍    o   8o  X :o o  o  8E o 9/t ( 9*8 8 X   :**0)ao o 9*8Po o Po 9o ֍Q8  Po 83o9  8,8PooX : 9o 9$oE ob 9 P*88oo   (      8  ֚o o   X   :Po  8*0P9*8oE 9*8o 9 o 8o o _9(F :8(%*8:8((*8|:8()*8]:8(4*8>:8(9*8:8('*8:8(+*8 :8(&*8:8(.*8 :8(-*8 :8(**8_:8(;*8@ :8(,*8  :8(:*8(K *8 ( 9 (*8 ( o _9(F :8(%*8 :8((*8| :8()*8] :8(4*8> :8(9*8 :8('*8 :8(+*8  :8(&*8 :8(.*8  :8(-*8  :8(**8_ :8(;*8@  :8(,*8  :8(:*88**06o o    o o o ( ( 8o o o   o!   o! _9 9  o8   o9zoo `9S_99880_9 8_9 88883 _98 _989*8 :8 8J:89*88%:89*88X:G `9o o o o `9To oo o_9*89*89*888 **0O9;_9*8&_9*8_9*88o**0:9*8(F (F o o _9K _91 _99*8*888o o `9o 94( 9*8_9*88?o 94( 9*8_9*888&o 9*8o 9*8**09*8(F (F o o _99*8*89*89*8o 9*8o 9*8(  ( _9*8'(  ( _9*8o 9*8o 9*8*08o 9!9oE *88**0o 9o 8no 9.o9o o 8 o 80o o9o ښo o 8*o 9 o 8**0o 9*8o 9o  8o  o  8uE9*8X  :**0?9*8o ֍@   o 8 o o ֍    o   8  o   X   : o 8,t( 9  88X: 9  8 X :*9*8t֍@(4t  **0oO rQpoc 9tF o ob 9*r[po }P}}Q*8rmpo 9  }P}}Q*88**0o ֍@     o 8|o  9kP o9$ 9 8A88(o9 888P o  :8"@   88 :89 88 :8  :88b :8  8> :8 8 :8 88X:v9*84 _9 s z8t֍@(4t  **0:> o o _9*8o o o o_9*8o ښo 9lo 8 o 9 8X:o o 9*88o 9*8 o 9o9*8*8   o   8 o  9 8  oE    oo  9*8 9 8S:8 8::8 8$:89 88  X   ::o o _9. o o99 88*8**0o! _9*8**0.9*89*89*8(F (F o o _9*8o o _9*8o o _9f`9*8`9*8___99*8*88o 9G_9*89*8( 9*8*8o 99*8*89ob 9*8*8o 9*8o 9*8**( *( *0s**>(*&*0PoE ob 9 5 rpo &8!o 5 oO o &*&(&*0k 9 oE 8 }( ($t=o &/ u> } ($t=o &*A)@ >0(( u *A 0 9 oE 8 } s  t=( o (  o9 o o o ( 8 uIs z*A\yI0coE ob 9% 5 rpst=o *8*o 5  oO st=o **( *0H9!*8u%9!( *8( **0W9!*8(( ,'u r)p(9r+p(@ sA z*A.'( *0 0oE oE (F (F :8-9 89 8 8:89 8 8:83`9 89 8 8b :89``9 89 8 8 :8< ``9 89 8 8:85 `9 89 8 8 :85 `9 89 8 8C:89 8 8:8 8 **0>_9*89(G 89(G 8u'u'`9;(v (v 9*89*8*8u:u:`9;( ( 9*89*8*8u+u+`9G({  ({    (= 9*8  (= 9*8*8>u-u-`9;(  (    9*8  9*8*8u&u&`9;(  (  9*8 9*8*8u.u.`9;( ( 9*89*8*83u9u9`9((( *8u u `9( ( o *8u4u4`9(I (I ( *8|u(u(`9(D (D ( *8Bu%u%`9( ( ( *8(2z*0rps t**0s t**0s# z*0toE (F  :8(.*8E:8(}،&*8#:8#(Z'*8:8~g ((i +*8 :8(،&*8:8(،.*8 :8!(-،-*8b :8"(Z:*8<:8"(v #(Z( *8 (2z8*0'9*8(y%*st z*0B9 &*89 &*8oE (F  oE (F (0:8(y( _%*8%:8(}(D _(*8:8f 9#(v Z 8(v 9#(v Z 8(v ( ( _-*8:8l 9~g ({ (i 8({ 9~g ({ (i 8({ ( ( _-*8  :8\ 9(  8(  9(  8(   (  ( _&*8:8\ 9(  8(  9(  8(   (  ( _.*85 :8l 9!( 8( 9!( 8( ( ( _-*8 :8(( (  ( ( _-*8:8f 9#(v Z 8(v 9#(v Z 8(v ( ( _-*8 st z8*0D9( -*89( -*8oE (F  oE (F (0:8(y( `%*8%:8(}(D `(*8:8f 9#(v Z 8(v 9#(v Z 8(v ( ( `-*8:8l 9~g ({ (i 8({ 9~g ({ (i 8({ ( ( `-*8  :8\ 9(  8(  9(  8(   (  ( `&*8:8\ 9(  8(  9(  8(   (  ( `.*85 :8l 9!( 8( 9!( 8( ( ( `-*8 :8(( (  ( ( `-*8:8f 9#(v Z 8(v 9#(v Z 8(v ( ( `-*8 st z8*0F9( -*89( -*8oE (F  oE (F (0:8(y( a%*8^:8(}(D a(*87:8f 9#(v Z 8(v 9#(v Z 8(v ( ( a-*8:8l 9~g ({ (i 8({ 9~g ({ (i 8({ ( ( a-*8E :8\ 9(  8(  9(  8(   (  ( a&*8:8\ 9(  8(  9(  8(   (  ( a.*8n :8l 9!( 8( 9!( 8( ( ( a-*8 :8a 9"( Z 8( 9"( Z8(  ( ( a-*8:8f 9#(v Z 8(v 9#(v Z 8(v ( ( a-*8 st z8*06_9 &*89(G 89(G 8u'u'`9 (v (v X'*8 u:u:`9 ( ( X:*8u+u+`9$({  ({    (| +*8u-u-`9 (  (    ֌-*8Nu&u&`9 (  (  ֌&*8u.u.`9 ( ( ֌.*8u(u(`9(D (D ֌(*8u%u%`9(( (  ( ( ֌.*8Ru u _u4u4_`u u4_`u4u _`9( ( (P *8u u `9t( ( r p(}9 rp8r p(}9 rp8( ( X'*85rpoE oO (P rp(P oE oO (P (3z*05/_9 &*89(G 89(G 8u%9!(  (} ( ڌ&*8u%9#( ( (} ڌ&*8yu'u'`9 (v (v Y'*8;u:u:`9 ( ( Y:*8u+u+`9$({  ({    ( +*8u-u-`9 (  (    ڌ-*8}u&u&`9 (  (  ڌ&*8?u.u.`9 ( ( ڌ.*8u(u(`9(D (D ڌ(*8u u `9t( ( r p(}9 rp8r p(}9 rp8( ( Y'*85rpoE oO (P rp(P oE oO (P (3z*04_9 &*89(G *89(G *8u'u'`9 (v (v Z'*8u:u:`9 ( ( Z:*8Cu+u+`9$({  ({    (i +*8u-u-`9 (  (    ،-*8u&u&`9 (  (  ،&*8u.u.`9 ( ( ،.*8Gu(u(`9(D (D ،(*8 u%u%`9(( (  ( ( ،.*8u u `9t( ( r p(}9 rp8r p(}9 rp8( ( Z'*85rpoE oO (P rp(P oE oO (P (3z*040_9 &*89(G rp(3z89(G s z8u'u'`9 (v (v ['*8u:u:`9 ( ( [:*8Su+u+`9*({  ({   (  ( ['*8 u-u-`9"(  (   l l['*8u&u&`9"(  (  ll['*8u.u.`9"( ( ll['*8Ku(u(`9(D (D ll['*8u%u%`9*( (  ( l( l['*8u u `9t( ( r p(}9 rp8r p(}9 rp8( ( ['*85rpoE oO (P rp(P oE oO (P (3z*0k_9 &*89(G 89(G 8(v (v ( '**0s# z*0s# z*0s# z*0s# z*0s# z*0(# (# (.**0Zu89r p 8u89r p 8(# (# (P **0s# z*0u(9(C (*8du%9( %*8Bu-9( -*8 u+9(l +*8u.9( .*8u&9( &*8u'9( '*8u:9( :*8vu 9r p( *8Uu49( 4*83u99*8rpoE oO (P (3z*( *0=}s  o o o o o o o o o   o   o   o   o   o o o o  o o o o o o o o o o o  o  o  o  o  o o o o o o o o o o o o o o o  o  o  o  o  o o o o o o o o o o o o o o  o   o   o   o  o   o o o o o o o o o o o o o o o  o  o  o  o  o o o o o o o o o o o o o o  o   o   o   o  o   o o o o o o o o o o o o o o o   o   o   o   o   o o o o o o o o o o o o o o  o   o   o   o  o   o o o o o o o o o  o o  o o  o o   o   o   o   o   o o o o o o   o  o  o   o  o   o   o   o   o    o    o    o   o    o  o  o  o   o  o   o  o  o   o  o   o   o   o   o    o    o    o    o    o  o  o  o   o  o   o  o  o   o  o   o   o   o   o    o    o    o   o    o  o  o  o   o  o   o  o  o  o  o  o   o  o   o   o    o   o    o    o  o  o  o   o  o   o  o  o   o  o   o   o   o   o    o    o    o    o    o  o   o  o   o  o o o o o o o o o o  o  o  o  o  o o o o o o o o o o o o o o o  o  o  o  o   o o o o o o o o o o o o o o o  o  o  o  o  o o o o o o  o o o o o o o o o   o   o   o   o   o o o o  o o o o o o o o o o o  o  o  o  o  o o o o o o s o o o o o o o o o  o  o  o  o  o o o o o o o o o o o o o o o  o  o  o  o  o o o o o o o o o o o o o o o  o  o  o  o  o o o o o o o o o o o o o o  o   o   o   o  o   o o o o o o o o o o o o o o o  o  o  o  o  o o o o o o o o o o o o o o  o   o   o   o  o   o o o o o o o o o o o o o o  o   o   o   o  o   o o o o o o o o o o o o o o  o   o   o   o  o   o o o o o o o o o  o o  o o  o o   o   o   o  o   o o o o o o  o  o  o   o  o   o   o   o   o    o    o    o   o    o  o  o  o  o  o  o  o  o   o  o   o   o   o   o    o    o    o   o    o  o  o  o  o  o  o  o  o   o  o   o   o   o   o    o    o    o   o    o  o  o  o  o  o  o  o  o  o  o  o   o  o   o   o    o   o    o    o  o  o  o  o  o  o  o  o   o  o   o   o   o   o    o    o    o    o    o  o   o  o  o  o o o o o o o o o o  o  o  o  o  o o o o o o o o o o o o o o o  o  o  o  o   o o o o o o o o o o o o o o o  o  o  o  o  o o o o o o o o o o o o o o o  o  o  o  o  o o o o o o o o o o o o o o o  o  o  o  o  o o o o o o s o o o o o o o o o  o  o  o  o  o o o o o o o o o o o o o o o  o  o  o  o  o o o o o o o o o o o o o o o  o  o  o  o  o o o o o o o o o o o o o o o  o  o  o  o   o o o o o o o o o o o o o o o  o  o  o  o  o o o o o o o o o o o o o o o  o  o  o  o   o o o o o o o o o o o o o o o  o  o  o  o   o o o o o o o o o o o o o o o  o  o  o  o   o o o o o o o o o o o o o o o  o  o  o  o   o o o o o o  o  o  o  o  o  o  o  o  o   o   o   o   o    o  o  o  o  o  o  o  o  o  o  o  o  o  o  o   o   o   o   o    o  o  o  o  o  o  o  o  o  o  o  o  o  o  o   o   o   o   o    o  o  o  o  o  o  o  o  o  o  o  o  o  o  o   o   o   o   o    o  o  o  o  o  o  o  o  o   o  o   o   o   o   o    o    o    o    o    o  o   o  o  o  o o o o o o o o o o  o  o  o  o  o o o o o o o o o o o o o o o  o  o  o  o   o o o o o o o o o o o o o o o  o  o  o  o  o o o o o o o o o o o o o o o  o  o  o  o  o o o o o o o o o o o o o o o  o  o  o  o  o o o o o o s o o o o o o o o o  o  o  o  o  o o o o o o o o o o o o o o o  o  o  o  o  o o o o o o o o o o o o o o o  o  o  o  o  o o o o o o o o o o o o o o  o   o   o   o   o   o  o  o o o  o o o o o o o o o o  o  o  o  o  o o o o o o o o o o o o o o  o   o   o   o   o   o  o  o o o  o o o o o o o o o o   o   o   o   o   o  o  o o o  o o o o o o o o o  o   o   o   o   o   o  o  o o o  o o o o  o o  o o  o o   o   o   o   o   o  o  o o o  o  o  o  o   o  o   o   o   o   o    o    o    o    o    o   o   o  o  o   o  o  o  o   o  o   o   o   o   o    o    o    o    o    o   o   o  o  o   o  o  o  o   o  o   o   o   o   o    o    o    o    o    o   o   o  o  o   o  o  o  o   o  o   o   o   o   o    o    o    o    o    o   o   o  o  o   o  o  o  o   o  o   o   o   o   o    o    o    o    o    o   o   o  o  o   o o o o  o o  o  o  o  o   o   o   o   o   o  o  o o o  o o o o  o o  o  o  o  o   o   o   o   o   o  o  o o o  o o o o o o o o o o  o  o  o  o  o o o o o o o o o o o o o o o  o  o  o  o  o o o o o o o o o  o o  o  o  o  o   o   o   o   o   o  o  o o o  o s o o o o o o o o o  o  o  o  o  o o o o o o o o o o o o o o o  o  o  o  o  o o o o o o o o o o o o o o o  o  o  o  o  o o o o o o o o o o o o o o  o   o   o   o  o   o o o o o o o o o o o o o o o  o  o  o  o  o o o o o o o o o o o o o o  o   o   o   o  o   o o o o o o o o o o o o o o o   o   o   o   o   o o o o o o o o o o o o o o  o   o   o   o  o   o o o o o o o o o  o o  o o  o o   o   o   o   o   o o o o o o  o  o  o   o  o   o   o   o   o    o    o    o   o    o  o  o  o  o  o  o  o  o   o  o   o   o   o   o    o    o    o    o    o  o  o  o  o  o  o  o  o   o  o   o   o   o   o    o    o    o   o    o  o  o  o  o  o  o  o  o  o  o  o   o  o   o   o    o   o    o    o  o  o  o  o  o  o  o  o   o  o   o   o   o   o    o    o    o    o    o  o   o  o  o  o o o o o o o o o o  o  o  o  o  o o o o o o o o o o o o o o o  o  o  o  o   o o o o o o o o o o o o o o o  o  o  o  o  o o o o o o o o o o o o o o o  o  o  o  o  o o o o o o o o o o o o o o o  o  o  o  o  o o o o o o s  o o o o o o o o o   o   o   o   o   o  o  o o  o  o o o o o o o o o o  o  o  o  o  o o o o o o o o o o o o o o o  o  o  o  o  o o o o o o o o o o o o o o  o   o   o   o   o   o  o  o o o o o o o o o o o o o  o  o  o  o  o o o o o o o o o o o o o o  o   o   o   o   o   o  o  o o o  o o o o o o o o o o   o   o   o   o   o  o  o o o  o o o o o o o o o  o   o   o   o   o   o  o  o o o  o o o o  o o  o o  o o   o   o   o   o   o  o  o o o  o   o  o  o   o  o   o   o   o   o    o    o    o    o    o   o   o  o   o   o   o  o  o   o  o   o   o   o   o    o    o    o    o    o   o   o  o   o   o   o  o  o   o  o   o   o   o   o    o    o    o    o    o   o   o  o   o   o   o  o  o   o  o   o   o   o   o    o    o    o    o    o   o   o  o   o   o   o  o  o   o  o   o   o   o   o    o    o    o    o    o   o   o  o   o   o  o o o  o o  o  o  o  o   o   o   o   o   o  o  o o  o  o  o o o  o o  o  o  o  o   o   o   o   o   o  o  o o  o  o o o o o o o o o o  o  o  o  o  o o o o o o  o o o o o o o o o   o   o   o   o   o  o  o o  o  o  o o o o o  o  o  o  o   o   o   o   o   o  o  o o  o  o s o o o o o o o o o  o  o  o  o  o o o o o o o o o o o o o o o  o  o  o  o  o o o o o o o o o o o o o o o  o  o  o  o  o o o o o o o o o o o o o o  o   o   o   o  o   o o o o o o o o o o o o o o o  o  o  o  o  o o o o o o o o o o o o o o  o   o   o   o  o   o o o o o o o o o o o o o o o   o   o   o   o   o o o o o o o o o o o o o o  o   o   o   o  o   o o o o o o o o o  o o  o o  o o   o   o   o   o   o o o o o o  o  o  o   o  o   o   o   o   o    o    o    o   o    o  o  o  o  o  o  o  o  o   o  o   o   o   o   o    o    o    o    o    o  o  o  o  o  o  o  o  o   o  o   o   o   o   o    o    o    o   o    o  o  o  o  o  o  o  o  o  o  o  o   o  o   o   o    o   o    o    o  o  o  o  o  o  o  o  o   o  o   o   o   o   o    o    o    o    o    o  o   o  o  o  o o o o o o o o o o  o  o  o  o  o o o o o o o o o o o o o o o  o  o  o  o   o o o o o o o o o o o o o o o  o  o  o  o  o o o o o o o o o o o o o o o  o  o  o  o  o o o o o o o o o o o o o o o  o  o  o  o  o o o o o o s o o o o o  o  o  o  o   o   o   o  o  o o o o o o o o o o o  o  o  o  o   o   o   o  o  o o o o o o o o o o o  o  o  o  o   o   o   o  o  o o o o o o o o o o o  o  o  o  o   o   o   o  o  o o o o o o o o o o o  o  o  o  o   o   o   o  o  o o o o o o  o  o  o  o  o o  o  o  o   o   o   o   o  o o o o  o  o  o  o  o  o  o  o o  o  o   o   o   o   o  o o o o  o  o  o  o  o  o  o  o  o o  o   o   o   o   o  o o o o  o  o  o  o  o  o  o  o  o  o o   o   o   o   o  o o o o  o  o   o   o   o   o   o   o   o   o   o    o    o    o    o   o  o  o  o   o   o   o   o   o   o   o   o   o   o   o    o    o    o    o   o  o  o  o   o   o   o   o   o   o   o   o   o   o   o    o    o    o    o   o  o  o  o   o   o  o  o  o  o  o   o   o   o   o    o    o    o    o   o  o  o  o  o  o  o  o  o  o  o  o  o  o  o   o   o   o   o    o  o  o  o  o  o o o o o o o o o o  o  o  o  o  o o o o o o o o o o o o o o o  o  o  o  o  o o o o o o o o o o o o o o o  o  o  o  o  o o o o o o o o o o o  o  o  o  o   o   o   o  o  o o o o o o o o o o o  o  o  o  o   o   o   o  o  o o o o o o *0$9*89*8**0$9*89*8**0$9*89*8**0( (N**0$9*89*8**0(= (N**0$9*89*8**0$9*89*8**0$9*89*8**0$9*89*8**0$9*89*8**0$9*89*8**0$9*89*8**0$9*89*8**0$9*89*8**0 @9*8"uK9tKo *8oE (F **0~(Y(Yo **0~(Y(Yo **0~(Y(Yo **0~(Y(Yo **0~(Y(Yo **0~(Y(Yo **0~(Y(Yo **0~(Y(Yo **0) 9  89  8.**0)  9 .*8(**0 ( ( (n**0 ( ( (n**0(| +**0 X'**02   `9 &*8.**0: !!`9 -*8&**0 ֌-**0' rp(9 s z8**0, `9 .*8)**0 X:**0 (P **0)  9 &*8;**0- !9 -*8***0 ֌,**0>?_9 &*89(s 89(s 8(Z  :8(((b 8U:8(((c ݖ8+:8(((d l8:8(((e A8:8(((f 8:8(((g 8:8(((h 8V :8(((i ݖ8+ :8(((j k8:8(((l A8 :8(((m 8:8(((n 8:8(((o 8V :8(((p ݖ8+ :8(((q k8(k Y u rp(Y3o (P rip(P (Y3o (P rp(P sQ z*AV 0u(9&((*8u%9%(%*8eu-9&(-*8>u+9&(+*8u.9&(.*8u&9&(&*8u'9&('*8u:9&(:*8{u 9r p(*8Zu49&(4*83u99*8rpoE oO (P s z*0st;(**0A(v 9*8 9*89*8s z*0D_9*89(s 89(s 8(a  :8(((J*8\:8(((K*87:8(((L*8:8(((M*8:8(((O*8:8(((P*8:8(((Q*8{ :8(((R*8U :8(((S*8/:8(((T*8  :8(((U*8:8(((}(N*8:8(((V*8 :8(((W*8m :8(((X*8G:8 s z8.:8 s z8:8*8*0 (v 9, rp(9  ݐ8s z8% qlu0 o sQ zUurp(Y3o (P rip(P (Y3o (P rp(P sQ z*A4RR0RiU0 (v 9, rp(9  x8s z8% YTu r p(Y3o (P rip(P (Y3o (P rp(P sQ z*ARRT0 (v 9, r[p(9  }8s z8`% YTu rp(Y3o (P rip(P (Y3o (P rp(P sQ z*AWWT0 (v 9, rp(9  x8s z8% YTu rp(Y3o (P rip(P (Y3o (P rp(P sQ z*ARRT0 (v 9, rG p(9  }8s z8`% YTu rm p(Y3o (P rip(P (Y3o (P rp(P sQ z*AWWT0 (v 9, r p(9  {8s z8% YTu r p(Y3o (P rip(P (Y3o (P rp(P sQ z*AUUT0Y t9r p 8t9r p 89 o *8( **0L 9r p 8?(Y 33o 33o `9r p 8u8`9r p 8?(Y 33o 33o `9r p 8 r) p(9  q8Uurp(Y3o (P rip(P (Y3o (P rp(P sQ z(((P **A$U0 oE oE   o 9o Q*8o 9o Q*8Q**0 [ oE   o 9 o Q*8Q**0 (w(**0(x(**0(y(**0(z(**0({(**0(|(**0' rG p(9 s z8**0' r_ p(9 s z8**0' r p(9 s z8**0' r p(9 s z8**0V_9#'*89(s 89(s 8(\  :8'(( (( [' 8X:8(([' ݗ8, :8(([: k8( Y u r p(Y3o (P rip(P (Y3o (P rp(P sQ z*A^ 0'(( (( ( '**0c(Y  :8*8A:8*8, :8*8 :8*8**0%_9#'*89(s 89(s 8((` (Y 9-(9& 8 & 8(] :8(([. 8<:8(([; ݔ8 :8(([& g8 :8(([- :8:8(([( 8:8(([; 8Z :8(([* ݳ8- :8(([, ݆8( t&uuJ9z8r p(Y3o (P rip(P (Y3o (P rp(P sQ z*A(&09 &*8(Y 9( ݬ8 9 ( 8 :82(9_b. a8& P8 :8(_b( (8 :8%(+(?_b- 8 :8%('(?_b- 8 :8(_b. ݗ8\  :8(_b& m82  :8(?_b- C8 :8(_b) 8 :8 ((?_b- 8  :8%(:(?_b- ݸ8} :8(_b; ݏ8T  :8(_b* e8*  :8(?_b, ;8 urO p3o (P rp(P sQ z*A 0(Y :8"o o (% z8& r p(9  Y88 u r poE o (P rip(P oE o (P rp(P sQ z*Acc 0 (.**0&_9 s z89(s 89 s z8(\  :8((]( <8:8((]. 8 :8((]& 8b :8((]- ݹ86:8((]) ݎ8 :8((]; c8 :8((]* 78 :8((], 8:8!((( + 8X:8((]' ݯ8, :8((]: ݃8( q#u uJ9 z8r p(Y3o (P rip(P (Y3o (P rp(P sQ z*AOG#0 9 :87!!`9  8(*8:88!!`9  8.*8D :88!!`9  8&*8 :8 -*8:87!!`9  8)*8:88!!`9  8;*8W :88!!`9  8**8rU ps> z88$-**0 (**0.!_9 &*89(s 89(s 8(^  :8((( .8:8((( 8 :8((( 8h :8((،- ݧ8<:8((( z8:8((( M8 :8((( 8 :8((،, 8:8!(((i + 8X:8((Z' ݗ8, :8((Z: k8( Y u ra p(Y3o (P rip(P (Y3o (P rp(P sQ z*AVZ 0"9 .*8.**0#( '**0$9 .*8.**0 %،.**0 &،&**0'!،-**0(~g s; (i +**0$)9 .*8e)**0*( +**0 +e'**0 ,e:**0'- 9 &*8e.**0,. 9!-*8ڌ&**0I/!9%~ !s; (| +*8!ڌ-**00( (**0&1 r p(9 s z8**0&2 r p(9 s z8**0'3 r p(9 s z8**0'4 r p(9 s z8**0#P59 &*8(Y  :8(( 8:8(( 8:8(( 8:8(( ݣ8i:8(( 8E :8(( Z8  :8(( 58:8(( 8 :8(( 8:8(( 8:8(( ݣ8i :8(( ~8D :8(( Y8:8( :8 u r! p3o (P rp(P sQ z*A 0&6 ro p(9 s z8**07(( f-**0p89 &*8(Y  :8(% .8:8(f( 8:8(( f- 8:8(( f- ݲ8x:8(f. ݍ8S :8(f& g8- :8(f- A8:8(f) 8 :8(l( f- 8:8(( 8:8(f; ݥ8k :8(f* 8E :8(f, Y8:8( :8 u r p3o (P rp(P sQ z*A"> 0'9 r p(9 s z8**0': r p(9 s z8**0'; rp(9 s z8**0&<(Y  :8)(9!*8!*8x:8 (*8]:8 (*8B :8 (*8& :8 (*8 :8 (*8:8((( ( *8:8(( ( *8:8(( ( *8z :8(l( ( *8S:8 (*88 :8 (*8 :8 (*8*0=st;(**0>>_9 &*89(s 89(s 8(`  :8((o 8:8((o 8]:8((o ݳ82 :8((o ݇8 :8((o [8:8((o 08:8((o 8:8((o 8X :8((o ݭ8, :8((o ݁8o n u r9po(P rOp(P (Y3o (P rip(P (Y3o (P rp(P sQ z*AV 0P?9 &*8(Y  :8(( 8:8(( 8:8(+ 8:8(' ݣ8i:8(. 8E :8(& Z8  :8(- 58:8() 8 :8(: 8:8(( 8:8(; ݣ8i :8(* ~8D :8(, Y8:8( :8 u rp3o (P rp(P sQ z*A 0'@(Y  :8(((*8:8(+(*8j:8('(*8E:8(.(*8! :8(&(*8 :8(-(*8:8()(*8:8((*8 :8(:(*8n:8(;(*8J :8(*(*8% :8(,(*8rpsQ z*0A9 &*8(Y 9( ݬ8 9 ( 8 :82(9_c. a8& P8 :8(_c( (8 :8%(+(?_c- 8 :8%('(?_c- 8 :8(_c. ݗ8\  :8(_c& m82  :8(?_c- C8 :8(_c) 8 :8 ((?_c- 8  :8%(:(?_c- ݸ8} :8(_c; ݏ8T  :8(_c* e8*  :8(?_c, ;8 urp3o (P rp(P sQ z*A 0'B 9 89  8.**0&C 9 .*8(**0D( +**0 EY'**02F   `9 &*8.**0:G !!`9 -*8&**0 Hڌ-**0'I rp(9 s z8**0,J `9 .*8)**0 KY:**0%L 9 &*8;**0-M !9 -*8***0 Nڌ,**0 O (  ( s N**08P_9 &*89(s 89(s 8([  :8((( k8:8((( A8:8((( 8:8((( 8:8((( 8V :8((( ݖ8+ :8((( k8:8((( A8 :8((( 8:8((( 8 :8((( 8V :8((( ݖ8+:8((( k8( Y u r! p(Y3o (P rip(P (Y3o (P rp(P sQ z*AV> 0Qst;(**( *0 R_%**0 S_(**0 T_&**0 U_-**0 V_)**0 W_.**0 X_***0 Y_,**0 Z_;**0 [(**0!\(( (( o**0]rp**( *0 ^`%**0 _`(**0 ``&**0 a`-**0 b`)**0 c`.**0 d`***0 e`,**0 f`;**0 g(**0!h(( (( o**0ir p**( *0 ja%**0 ka(**0 la&**0 ma-**0 na)**0 oa.**0 pa***0 qa,**0 ra;**0 s(**0!t(( (( o**0urp**( *0 v( **0 w(D **00x(Y9(9*8*8(R **00y(Y9(9*8*8( **0 z(] **00{(Y9(9*8*8( **0 |(Y **0@}(Y9)(9!*8!*8( **0 ~([ **08(Y9!(9 "*8"*8( **0@(Y9)(9#*8#*8(v **08(Y9!(9 ~g *8~< *8({ **0 (I **0 ( **0 ( **( **0~**0@~9s 8~9s8~**0(  o o *0 ((  (\ o oo o **0(  o o*2rps z*.( ( *( *0Z9*8u 9t (*8u%9( *8( **0J9*8( ,'u r)p(9rp(@ sA z*A!'( *09 "*8(**0c9 "*8u%9"( Z*8u 9t (*8( **0;( ,'u r)p(9rp(@ sA z*A'0 (**0t6( **(_ *( *( *09 r=p*8rGp**0 ( **0 (` **0 ( **0 t6( **09*8oE (F :8y%q%( *8k:8y(q(( *8G:8y4q4( *8#:8((,*8:8y'q'( *8:8y+q+( *8 :8y&q&( *8:8y.q.( *8p :8y-q-( *8K :8y:q:( *8&:8 o *8 st z8*0 ( **0 t6( **0 ( **0 ( **0 t6( **0 ( **0 ( **0O9r p 89r p 89 o *8( **0 (  ( _ ( _9 ( *8 (  ( _ ( _9 ( *8 ( **0\Po o 9 o 89  8 Po QPo o Q*0 ~ (}~ (}_9*8>~ (}~ (}`rSp(}_9*8 9 `` 8(/ s o **0-boG s  o 8?:8.o &8*:8.o *o &8#:8c 9*\o do {o 1o }o &8.^o \o do {o 1o }o & 8L[:8,(0  o 9 o &88o &8X: 9$o &8o **0 us  J]9P9^o & 8J!9o o & 8 Jo &JT8]o &**0 (.**0 (.**( *0J9*8o o 9rYpsQ z8o  o  o    81o o 9rpsQ z8X: 9o  (  *8 ( 9( *8o  [!   ! ! 8  (    X   :**0s# z*0s# z*s# z*0((9t(  u  **A 0T~ 9rp(  s 8~ o u r+p *A<<( *:s oA*:s oA*:s oA*0,s tTs oA 9o *A o *{ 9{ o 8*0 { 9{ o 8}  :8 o 8=:8 o 8$:8 o 8 o 8*( *0( **0( **0( **(*0s:**0s**0sW**0s`**0s**0( **( *0s# z*0s# z*0( **0 oR**0( o Zo **0( o  o! **0s# z*0s# z*( *( *(" *(# *0($ _**0s# z*0($ _**0s# z*0s# z*0($ _**( *0(% **0(& **0(' **:(( } *0() { o* **( *0 ~ ~  oo*0 ~ ~  op*0  oo*0  op*0 om*0 oo*09reps+ z8(, 9(9 (- 8rp(. s/ z8sdt_ 9 o0 89Xrpo1 (. s o2 o3 9 :89rps4 z88o5 *0 op*0 's6 s7 teom*0 s6 teom*0 os**0o8 os**0 9o9r)ps9 z8s: o; o< **0o8 os**0 ~ ~  o}*0 ~ ~  o~*0  o}*2ox*>o{*0 o}*09reps+ z8sdt_ 9 o0 89XrWpo1 (. s o= o3 9 :89rps4 z88 o> &*0 o~*0%s6 s7 teo{*0s6 teo{*0(? **f{ (5 tO} **f{ (6 tO} **:(/ }*0 {**0 (@ oooA *0;9{:89{o 8(B *0sC osD osE ooF o oG ooH o "vsI oJ or}poK oKsL oM ooN orpoO ooP ooG o \sI oJ orpoK o asL oM ooN ooG o  sI oJ orpoK o aPsL oM ooN orpoA "@"PAsQ oR oS otwoT  y sL oU oV ot]oW oV ot]oW oV ot]oW oX oY oZ rpoK o[ rpo\ o] *nodo^ o_ o` *Jooa o^ *nodo^ o_ o` *Jooa o^ *foob o_ o` *{*0"{9`o%sc od o%se of o%sg oh o%si oj }{9`o%sc ok o%se ol o%sg om o%si on *{*0 N{9o%so op }{9o%so oq *{*z{9}{9*{*z{9}{9*( *0sr os **0st os **0su os **0sv os **0sw os **0(x t sy **( *0sB**0s**0sM**0(z **0sf**0s**( *0!4 ~{ ~| o} **0(~ ( (**&(**(*0s o*0s o*&(**(*0s o*0s o*"( &*2(*2(*2(*0s o*.(*.(*.(*0s o*0 ( **0 (, **0 (**0 s (t sy **0-s :o :89( to 8Yto 8o ( t  ( (o :uV9 uVo r p(}9oto 8-o ( t  (9  o 8o :uV9 uVo 8 to 9m( to 8"o ( t (o :uV9 uVo 8*AL>GQAB0 gto 8-o ( t  o 9 o 8o :uV9 uVo *AOO0<:~ (}:89*8s 9o 8  s tTs o ( ::9( oH :8:oH :89o 9  8o t  o 8Jo 9  ݱ8oH 9 88X:9 o o 9  J8o    o   8 o 9  8 o (9  8o 9(  oH :8: oH :89 88  X   :P9  e888 o 9  D8o 9 o 8 o ( 8 9 o **AkT 0 (**0s (t sy **0:o :89( to 8Xto 8o ( t  ( (o :uV9 uVo 9e( to 8o ( t  (o :uV9 uVo 8*A4@9Az0 s **0 s **0 s **0 (**0 (**0 ( **0 ( **0( **&(**(*2(*2(*0s o*&(**(*2(*2(*0s o*0 sR**0sR opou**0sR okou**0 s **0 s **0 s **0 s **0 ( **0 ( **0 ( **N( ( ( *N( ( ( *0K9 8 s 9o o 8 9o *A$= :( (*0R9 8 s tTs o 9o 9o *A4& 2 +D 0( **( *0 ( ts **0J( s }#s }&}}}}} }*0H( s }#s }&}}}}} }*09( s }#s }&}}}}*0Q( s }#s }&}}}} }!}}*0I( s }#s }&}}}} }!}*"}%*0&rpoooo*A0&r'poooo*A0&rpoooo*A0 Tr'po{( 9r1p{(. s/ z8ooo*ALL0 rqpo{( 9 v8{{! o{9{#o :89rps/ z8oo*A08 rqpo{! ooo*A000 {{o **0!k ! o9{o9B{( {{( !o{{( 8U{(, 94{{o9{(- 8}%*8{{( 8{#o   8c{#o {)oo{%9*8o {%9*8X  :{#o !o*0!  {#o  8H{#o {)oo {%9*8X  :{#o o*0k{) {+92!o( 9 ( &88&( ( ( Loo*0 k{) {+9*9!o8( 8.9"( ( !o8(- *0( _**0(, 9o9*8 8   s   s ( o  o L ULo :{%:8:8 9o 9o ud{&o o *ALR^ > *d0{!9 s# z8a{#o    8:{#o {)o {%9*8 X :{#o !o**0*!}${! o*0& ( _9s })}+{#o {)( ( to 8o ( t s})}+9:s o }*{${*}$L{*U8{#o {)( o :nuV9 uVo 9i( to 8 o ( t oo :uV9 uVo 89 }*L U88Fs  }){# o 9$ s o }* {*}$8*A4DXE0{(~ }{~ (}9{(~ }8{9*8s}"{"o\ {"orpoA {"o~ oA {"orpoA {"oo^ {"o *0x{9*8!9{$!:89l{$l[#Y@Z 8 # {"o *0 {9*8!9{$!:89l{$l[#Y@Z 8I9{#o :89l{#o l[ 8 # {"o *0>{9b{"9{"o 8}"{%9{ :89rps4 z88{&o 9{( _9{&{o s/ z8rps/ {&to 88o %:& 8 yq o ( ( o o :uV9 uVo z8*A_0( 9 ( &8( ( to 8$ o ( t  ( ( ( o : uV9 uVo to 83o ( t ( ( ( oo :uV9 uVo *A4W(Fn0FS{9{'9*8{(9*8{9*8s s s rpo\ o!rp( (. oA o#rJpoA o%rpoA o)rp o -(. oA o-rpo -(. oA o'rp o 9(. oA o+rpo 9(. oA o7( o to o9( o to o :8}% 8:8  ݸ8k:8}( ݖ8I:8  {8.:8}' Y8  M8 9o 81{9{&rp(. o 8{**AJ 0{{(**0 oH ( oH ( **( *(@ ~ },~ }-o}/*j{0{1{2o *0#?:#X@:89orpoA 8a( {-( ( [#Y@Z o( {-( ( Y rp( rp(P oA o( o^ *0{.9( }-}.8}0}1}2( {,( ( #?9*8~ (}92or p( ( (@ oA ooA 8 ooA o ( },(3 *2{/o*0;9{3:89{3o 8(B *09sD osC osE osE osE ooF ooG o BsI oJ orpoK o 3sL oM oo ooN o oG ooH o asI oJ or}poK oKsL oM ooN or2poO ooP ooG o ,sI oJ orBpoK o 3 sL oM ooN orRpoA ooG o sI oJ or\poK o 3 sL oM ooN orlpoA ooG o fsI oJ orvpoK o  sL oM ooN orpoA otwo "@"PAsQ oR oS otwoT  K sL oU oV ot]oW oV ot]oW oV ot]oW oV ot]oW oV ot]oW oY oZ rpoK o[ rpo\ o] *{4*z{49}4{49*{5*0 N{59o% so op }5{59o% so oq *{6*z{69}6{69*{7*z{79}7{79*{8*z{89}8{89*6(@ o *0(3 &{9**:}9o` *0+($ 9 }98}9o` *:}9o` *:}9o` *0;9{::89{:o 8(B *0sE o"sE o$sE o&sE o(sE o*sE o,sE o.sC o0sC o2sC o4sC o6s o8s o:o7to o9to oF o!o o! sI oJ o!rpoK o!  sL oM o!oN o!rpoA o#o o#.sI oJ o#rpoK o#  sL oM o#oN o#rJpoA o%o o%nsI oJ o%rpoK o%^ sL oM o%oN o%rpoA o'o o'YZsI oJ o'rpoK o'N sL oM o'oN o'r(poA o)o o)YGsI oJ o)rHpoK o)" sL oM o)oN o)rZpoA o+o o+Y sI oJ o+rhpoK o+N sL oM o+oN o+r(poA o-o o-Y sI oJ o-rzpoK o-" sL oM o-oN o-rpoA o/ oG o/ sI oJ o/rpoK o/KsL oM o/oN o/rpoO o/oP o1 oG o1o sI oJ o1rpoK o1KsL oM o1oN o1rpoO o1oP o3 oG o3 sI oJ o3rpoK o3KsL oM o3oN o3rpoO o3oP o5 oG o5  sI oJ o5r}poK o5KsL oM o5oN o5r2poO o5oP o7-GsI oJ o7rpoK o7  sL oM o7 o o7o o9- sI oJ o9rpoK o9  sL oM o9 o o9o o/two "@"PAsQ oR oS o5twoT  h sL oU oV o9t]oW oV o7t]oW oV o5t]oW oV o3t]oW oV o1t]oW oV o/t]oW oV o-t]oW oV o+t]oW oV o)t]oW oV o't]oW oV o%t]oW oV o#t]oW oV o!t]oW oY oZ rpoK o o[ rpo\ o7to o9to o] o *{;*z{;9};{;9*{<*z{<9}<{<9*{=*z{=9}={=9*{>*z{>9}>{>9*{?*z{?9}?{?9*{@*z{@9}@{@9*{A*z{A9}A{A9*{B*0 N{B9o/%so op }B{B9o/%so oq *{C*0 N{C9o1%so op }C{C9o1%so oq *{D*0 N{D9o3%so op }D{D9o3%so oq *{E*0 N{E9o5%so op }E{E9o5%so oq *{F*z{F9}F{F9*{G*z{G9}G{G9*($ *(% ~ (}}O*0+(' 9rJpo }N8*0!(& ~ (}}O*0'(% }N~ (}}O*(& }N~ (}}O*0+( 9rJp{No 8*0 r`p {O9( (P 8 rp(P ( 9Grup( o (P ( (P (P ( o rp(P (P 8rp(P |N( (P **0 !{N**"}N*( *0x"rpo 9rpoc :89rprpo 8~{ (o 9o o *8**0 #( (F**0 $( (F**0%( (F**0&( (F**0' ( (F**0('( (F**0)&( (F**0*( (F**0 +( (F**0,( }W  }X}Y~ }Z!}[}\}]!}^}_}`s }a}cs t}V*0-( }W  }X}Y~ }Z!}[}\}]!}^}_}`s }a}c}V*0.( }W  }X}Y~ }Z!}[}\}]!}^}_}`s }a}cs t}V*0/( }W  }X}Y~ }Z!}[}\}]!}^}_}`s }a}cs t}V*00( }W  }X}Y~ }Z!}[}\}]!}^}_}`s }a}cs t}V*01( }W  }X}Y~ }Z!}[}\}]!}^}_}`s }a}cs t}V*02( }W  }X}Y~ }Z!}[}\}]!}^}_}`s }a}cs t}V*03( }W  }X}Y~ }Z!}[}\}]!}^}_}`s }a}cs t}V}W*04{Y:{Yo :89rps9 z8s o_ 9*8o : oYo  8o t**0$5J 9 T~ *8{]9oH ":89  8 o 89$oH "9   888  {Yo   8{Y{Yo ( 9X{Yo TJo 9  T8 9o *8 o *8 X :k 9 oZ8X:9 oZ8o T 9Jo *8od **0?{^}[}Zrp|[( (P rp(P {[s?z*0?{^}[}Zrp|[( (P rp(P {[s?z*06{\:{\o :89rdps9 z8{\o ֍  o_ o {b9  o[8o 8P{`9 {\o o 8 {\o {\ X:**07{X9*8{Xto 8*o ( t  oc 9  /8o :uV9 uVo **AQf048od :o]:8:8**0 -9{ao 9{ao *8o^**0C{V9{W:89{Vo 8}V*:ox( *0:9rprcps z8 {ao 9d{ao t  {ao 8$ o]9 88 X :89F{Vo {ao :o]:8:889&o 9*8 o *8**0 I;{_ :8 oX*8&:8 o\*8 oX*8*0 r<{ao 9{ao *8{^!9!}^8{^!}^{Vo **0={Vo **"ok*"op*0 >{X**"}X*0 ?{Y**"}Y*0 @ob**0 A{Z**0 B{[**0 C{\**0^D}\{\9E}b {\o   8{b}bX :8*0 E{]**"}]*0 F{^**0 G{_**"}_*0 H{`**"}`*0!{c9 o`8}c*:ox( *(*"(*s# z*2rp(~*0( }m}n( ( }o(H}prp}q}r( }s}t}u}v!@KL}w!}x*f( {yo }y*0){y9{yo }y8*J{yo ( *0TI{z9="  rprprprprprprpr9prSp rmp rp rp rp rprpr pr?pruprprprprprpr/prAprSprprprprprpr+p rMp!rop}z8{z**0 29~ o8o o*0 89~ o8{q(o*0esJo 9o o :89*8s o &{qo &o o &{qo & (` o &{qo &o &o  _9{qo &o o &8o _9{qo &rpo &o to 8o ( t o o &o :uV9 uVo rpo &8o _96{qo &o rp( t6( o &8o _9{qo &o o &8o _9{qo &o o &8o _9{qo &o o  &8{t9{qo &(z o &8o o*AFA0 19o8(  o*0 ?Ko o o9*8o {n9 o 8*0 JLo o ( o o9*8o  {n9 o 8*0M{yo  o  {w9%{r9rps9 z8*8ooH (s o  {x9%{r9rps9 z8*8**09N{y9"o{m{ss }y8{y**0 O{m**"}m*0 P{n**"}n*0 Q{o**"}o*0 R{p**"}p*0 S{q**"}q*0 T{r**"}r*0 U{s**"}s*0hV{u :8 ( 8u :8 {p 8[ :8( ( 8= :8 (H 8$ :8 (O 8 (H 8{o {v:83r! p(P ( r% p( t6( (P 8n:88Z:8F( r! p(P ( l( r% p( t6( (P 88( r; p(P **0 W{t**"}t*0 X{u**"}u*0 Y{v**"}v*0 Z{w**0)!9rE ps> z8}w*0 [{x**"}x*v( r ps }{o*f( s }{o*0H\ &      |*0 3{{o r ps~to &{{o o *0]~|l#@( ( **>(o*>(o*9~ 8{{o *R~ (o*B(o*0 Y^9r ps z8o ~ (}9rp(P (P 8o*0_{{o r po ud**0 `{{**( *0 a***( *( *0b( **0 c( **0d( **0e( **0f( **0 g(  **0h(! **0 i(" **0j(# **0k($ **0l(% **0m(& **0 n(' **(( *() *"(* *(+ *(, *(- *(. *"(/ *( *0 o( **"(*&(*&(*.(*"(*&(*&(*.(*(*"(*&(*.(*(*&(*.(*0 p(**0 q(**0r(*s# z*0s(**0 t(**0 u(**0 v(**0 w(**0 x(**0 y(**0 z(**0 {(**0 |(**0}(**"(*&(*&(*.(*"(*&(*&(*.(*0 ~(**0 (**0 (**0 (**0 (**0 (**0 (**0 (**0 (**0 (**"(*"(*&(*&(*.(*0(**(*0(**0s**( *0 (0 **&(1 *.(2 *0~3 **0~4 **0~5 **0~6 **0~7 **0~8 **0~9 **( *0(G**0(H**0(I**0(J**0(K**0(L**0(M**0(N**0(O**(*0( ( ( ( ( ( (: ( s; (<  s= (> ( ( (9r ps? z8*0( ( ( ( ( ( (: ( s; (<  s= (> ( ( (9r ps? z8*( *0 ~9( o : :::8s#tn8N ::8stn8r!p( o@ (. sA z88~**2rW!po"*2rg!po"*Jrw!p(. s z*(*0 _(& ( } ( } ( }('9(B (C 8*0 r(& ( } ( } (: } ( }('9(B (C 8*0/( s\ }s] } }}*0**0{oD **0{oE **0**0 o.**0{oF **0 n9r!psG z8u&9(o0*80{oH 9r-"ps> z8o0**0H o-`9r{"psG z8{{oI oJ **0 o/**0 n9o-:89  8o-`9r{"ps+ z8{{oI oJ **09o-:89  8o-`9r #ps+ z89{{oI oK 8{{oI oK *0" {to 8 o %:&8 yq (L 9{(M oH ݋8(L oE oO oE oO (}94(L (N 9{(M oH 288 o :J uV9 uVo **A0{oO **0toP **{oQ {oR  }*o7*0A{oO 9${oS {oT }8 r#ps> z*0J{{oI oS {oU }ub r{"psG z*A33b0(toP 9o:8*0 No-o-_`9r #ps+ z89 o:8 o:*0 e9 sV z8o-9 sV z8o-9oA8oBo>*{oW {oX }*0oBo@**0#{oX }{oY **0% _9rb#ps> z8(}{oH _9 sZ z89Ou&91( {oF 9 oC 88oC 89oC 89oB 8{oF  `9o@&8 o>*0={}9 r}p 8o |(` (P **0 u 9{oH  8#u&9 ( 8st z9r#ps+ z8{oF 9r#ps+ z8**09 s[ z89 sV z8o o `o-o `9 sZ z8 {oF   8${{oI oJ o X :*0 sIt**0 oE**s# z*s# z*v( }P}}*{{98}}*0{{98{{o-_9*{{oI }oM}*8{9}*8{{{oH {o-9}}*8{{oI }}oM}**0 {**0o{{{oH {o-9*8:{9 oK9 oL*8*8{o0**( *(_ *:(_ }*V(_ }}*r(_ }}}*0 {**0 {**"}*0 {**0 {***( *( *0 (o **0 ~rp(  s  9r:$ps> z89 r p*8rp (` (P o 9r$po 8**0(^ s_ (` (j(i **0(a l(b (kZ**0**0**0*9r$pr$psc z8u(9(D (b.*8u%9#( 9 &*8&*8gu-9( (`-*8@u+9({ (]+*8u.9( (b.*8u&9( (_&*8u'9(v (^'*8u:9( (c:*8}u 9o ((^'*8Qu49o ((^'*8%r$poE od (P r$%p(P s> z*0**0(e k(f (pZ**0(g oh **0(i oh **0(j oh **0(k oh **0P9r$prV%psc z8uK9vtKo  :8(D (d*8D:8( (i(h*8:8( (i(h*8:8( (g*8 :8( (e*8 :8( (f*8 :8( (i(h*8u:8o r%poc 9 o oh r%p(}9 od (l (i(h*8O o oh r%p(}9 od (l (i(h*8( (i(h*8( (i(h*8:8(R (z*8:8(] ({*8j :8(Y (|*8J :8([ (}*8*r%poE od (P rp(P s> z88 r%ps> z*0k!!_9 &*8!!_9 **8-**0 (m **0 (n **0**0**0&9r$pr$psc z8u(9(D (o.*8u%9(v (k'*8]u-9( (m-*86u+9({ (j+*8u.9( (o.*8u&9( (l&*8u'9(v (k'*8u:9( (p:*8su 9(v (k'*8Lu49( (o.*8%r$poE od (P r$%p(P s> z*0**0l(n (o **0(g oh **0(i oh **0(j oh **0P9r$prV%psc z8uK9vtKo  :8(D (q*8D:8( (i(t*8:8( (i(t*8:8( (u*8 :8( (r*8 :8( (s*8 :8( (i(t*8u:8o r%poc 9 o oh r%p(}9 od (l (i(t*8O o oh r%p(}9 od (l (i(t*8( (i(t*8( (i(t*8:8(R (~*8:8(] (*8j :8(Y (*8J :8([ (*8*r%poE od (P rp(P s> z88 r%ps> z*0(k oh **0<9r$prV%psc z8u(9E(D 9 rp( t6(p (P *8( t6(p *8Iu.9E( 9 rp( t6(p (P *8( t6(p *8u&9D( 9 rp( t6(p (P *8( t6(p *8u-9L( !9 rp( t6(p (P *8( t6(p *8Au'9L(v #9 rp( t6(p (P *8( t6(p *8u+9N({ ~< (= 9 rp( t6(p (P *8( t6(p *8u:9H( "9 rp( t6(p (P *8( t6(p *8,u 9r4&psq z8 r&psQ z*03(0(9_9(0*8**09r p(y*8u49(I (wl*8qu 9( (y*8Ou%9( ( (y*8%r'poE od (P rp(P s> z*0n9r p 8r p  o   8/o (r (s 98 (t 9o 8(r! p(}98(r%p(}9o 9o (r (r%p(}(r|'p(}`9o 8G(r%p(}(r'p(}`9 o 8 #*88 #* X  : o 8o (r ( 9 (s 98 (r! p(}98(t 9((P 8(r'p(}9-9((P 8o 8 9 E:e:8:89 ((P 88 9(r'p(}:898o 8p9(s (r%p(}`(r%p(}`(r|'p(}`98~o 9 o 8b(t 9((P 8C A F_ a f_`9((P 8o 8 9(s (r%p(}`(r%p(}`(r'p(}`981 0 7_9((P 8o 8 r'psu zX :B# o 9E97r'psv t6(w  9# Z 889oh o ``r'poc _99-(l (x #@#0@( Y 89-(l (x #@#@@( Y 89(l (x  88(l (x  8 9(l l 88 **0(k oh **0(i oh **0(j oh **0(j oh **0(k oh **0(i oh **0(j oh **0(j oh **( *0 oy }J{J֍& }K{J֍& }L {J 8L{Koy {Loy {M:{L:8}MX  :*0 <( }S}T}N}O}P}Q}R}S{S99 }S88o(z {Q:{Q:893{UtTs }V{UtTs{ }Y8{Q:{Q:89?{UtTs }W{Wo| {UtTs} }X8*0 Q{Q9m{P :8 }Q8G  : :8 }Q8# : :8 }Q884{P9{Q:89 }Q8{R9 }R8{Q:8 88:8 8":8 8 (z8{P:8 8e :8 8N:8 88:8 8":8 8 (z8{R:8 8N:8 88:8 8":8 8 (z8{Os }U{P9 {Uo~ !o8*0){U9{Uo }U8*0L o   8#q{P9*8X :6(z*0f{Q9{Q:897{P :8 6(z8r'ps/ z88*0S{Q9{Q:89$s o r'ps/ ts z8*0f{Q9{Q:897{P :8 6(z8r'ps/ z88*0 5 o{Uo~ {Uo **0 L  o!9 o8{Yo R*0E  o!9 o8{Yo R*0E  o!9 o8{Yo S*0 N  o!9 o8{Yo ( 9*0 N  o!9 o8{Yo ( +*0E  o!9 o8{Yo W*0E  o!9 o8{Yoy T*0E  o!9 o8{Yo U*0E  o!9 o8{Yo S*0 K  oo!9 o8{Yo V*0 !9 o8o9 Q*89{Yo 8P9 Po 8*{Yo sL Qu ~ Q*Ah0 !9 o8o9 ~ Q*8 9{Yo  8P9 Po 8 {S9r:(ps/ z89Q8{Yo sL Qu ~ Q*AsI0 l  oo{P :8o8+ :8o8 6(z8*0>  ooP9r`(ps> z8s# z*09  ooP9 s z8s# z*0 A  oo{P9 o8o*0 V!9 o8{Yo  _ 9 o8o*0 V!9 o8{Yo  _ 9 o8o*0%8 :8 ~ Q8 :8{Yo %Q8:8{Yo (Q8:8{Yo (4Q8:8{Yo .Q8{:8{Yoy &Q8V:8{Yo -Q80:8{Yo :Q8 :8{Yo 'Q8:8l{Yo {Yo {Yo  {Yoy {Yoy {Yoy  s +Q8k:8{Yo ( 9Q8A:8{Yo Q8!:8Q8 s z8*0%G _  :8 ~ Q8" :8{Yo %Q8:8{Yo (Q8:8{Yo (4Q8:8{Yo .Q8:8{Yoy &Q8]:8{Yo -Q87:8{Yo :Q8:8{Yo 'Q8:8n{Yo {Yo {Yo {Yoy {Yoy {Yoy  s +Q8p:8{Yo ( 9Q8F:8{Yo Q8&:8Q8r(ps% z8*0:9 :89{Xo 8 :8{Xo 8] :8-(9{Xo 8 {Xo 8!:8{Xy(q(o 8:8{Xy4q4o 8:8{Xy.q.o 8:8{Xy&q&o 8{:8{Xy-q-o 8Q:8{Xy:q:o 8(:8{Xy'q'o 8:8 {Xy+q+( o 8:8y+q+ (   _c _ _9 8{Xo {Xo {Xo {Xo {Xo {X o 8:8${Xy9q9  ( o 8:8t  9${P : :8:89Q 9 8- o 9rF)ps> z8  o  {X o 8{W o 8/:8{Xo 8r(ps% z8*0 N  oo!9 o8% o*0 N  oo!9 o8(o*0 N  oo!9 o84o*0 M  oo!9 o89o*0 M  oo!9 o8+o*0 M  oo!9 o8'o*0 M  oo!9 o8&o*0 N   oo!9 o8-o*0 M   oo!9 o8.o*0 M   oo!9 o8:o*0 H   oo!9 o8o*0 [   oo!9 o89o8 o*Boo*0]{Xo o  o  8,{Xo o {Xo o X :*09*8oE (F :8 *8:8*8:8*8:8*8:8*8q:8*8Z:8*8D:8*8/:8*8 :8*8 :8*8:8.ob 9 o o`*8s# z8 :8*8:8*8:8rl)ps> z8g:8r)ps> z8I :8r:*ps> z8* :8r*ps> z8 s# z8*0^o 9I o   8$o ( ooX :8s# z*08  oo9 s z8s# z*09 s# z8oE (F :8y%q%!o8{:8y(q(!o8N:8y4q4!o8!:8y9q9!o8:8y+q+!o8:8y'q'!o8:8y.q.!o8j :8y&q&!o8< :8y-q-!o8:8 s# z8 :8y:q:!o8:8t o8:8{Xo 8:8rl)ps> z8g:8r)ps> z8I :8r:*ps> z8* :8r*ps> z8 s# z8*0  oo9{Xo 8Uu9to80!9 o8oo*"}T*0{Uo {Uo~ **0s o9 >(z8{Yo ,9  :89  :89*9 o &8{Yo 8(r +p(}9{Yo ( :89{Yo &8 u o **A 0o 9 s z8r+p( 9 %*8lr+p( 9 %*8Mr.+poc 9r<+po :89o o (&*8**0 s o9 >(z8{Yo #9,9  :89  :89  :89*9 o &8{Yo 8~8i,9  :89  :89*9 o &8{Yo 8(r +p(}9({Yo ((r@+p(}:89{Yo &8 u o **Ai 0Q  oo{P9oo(R8 o(R*0 +  ooo(R*0 +  ooo(S*0Y  oo{P9oo(98o(9*0 /  ooo(+*0 +  ooo(W*0 +  ooo(T*0 +  ooo(U*0+   ooo 9Q8~ (}9{P9Q8Q8Wr+p( 9 %Q87r+p( 9 %Q8rD+p( 9 ~ Q8rR+poc 9r<+po :899{P 9Q8o o ( &Q8r<+poc 9r<+po :89"o o (f 9Q8Erpoc 9rpo :89o o Q8Q*0 +!  ooo(S*0 +"  ooo(V*0&#  oooQ*0$9{P:89{P :89 s z8o   o֍4 {Vo 9 s z8s o 8&9o &8X:o **0 C%  ooo9 >(z8{Vo **0&{Uo **z{U!!o *N!o*0V{S9{U!o 8){U!{S{So *0'{Uo~ **0F8( oo o   8( 9uK9tK89o 8oE (F :8;y%q%9{Wr=po 8{WrGpo 8:8{Wy(q(o 8:8<{Wrpo {Wy4q4o {Wrpo 8:8%{Wy9q9  ( o 8q:8{Wrb+po 8M:8{Wy+q+o 8!:8{Wy'q'o 8:8{Wy.q.o 8 :8{Wy&q&o 8 :8{Wy-q-o 8q :8{Wy:q:o 8E:8{Wt o 8:8{Wy)q)o 8:8{Wy;q;o 8 :8{Wy*q*o 8 :8{Wy,q,o 8n:8_u9,{Wrl+po {Wtoo 8rz+poE od (P s z88o 9{W,o 8 X :*0 8) ooo{Wr+po *0B*{Uo !9!*8{Uo !**!9! 8{U!o *z{U!!o *b{U!o *0V{S9{U!o 8){U!{S{So *6r+po*0Mz+ oo o   8/( 9{Wr+po 8uK9tK89o 8oE (F :8;y%q%9{Wr+po 8{Wr+po 8F:8{Wy(q(o 8:8<{Wrpo {Wy4q4o {Wrpo 8:8%{Wy9q9  ( o 8:8{WrD+po 8v:8{Wy+q+o 8J:8{Wy'q'o 8:8{Wy.q.o 8 :8{Wy&q&o 8 :8{Wy-q-o 8 :8{Wy:q:o 8n:87{Wrpo {Wt o {Wrpo 8':8{Wy)q)o 8:8{Wy;q;o 8 :8{Wy*q*o 8 :8{Wy,q,o 8w:8hu95{WrR+pto((P r<+p(P o 8rz+poE od (P s z8o 9{W,o 8 X :{Wo *6r+po*( *0,r+p**0- '**0.**0/**6(_ s# z*00s# z*6(_ s# z*6(_ s# z*01s# z*02s# z*(_ }\}]}^}_*0 3{]**0 4{_**0 5{^**0 6{\**( *07( r+p( **0i8  r,pr,pr,pr0,p ( t6( (o u0 r<,p(. sQ z*A)#L009( **2(o *0 =:( ( ( <(: l( l#@@[X**0;( **05<( ( ( ( ( ( s; **2(o!*0=( r,p( **0>  r,pr,pr,pr,pr,pr-pr-pr-pr0-p r:-p rJ-p rR-p ( t6( (o!!u0 r`-prwp(@ sQ z*Am#!00C?(^(  :8( o o o *8H:8( o o o *8:8( o o o *8:8( o o o *8:::8( o o o *8:8( o o o *8`:8( o o o *86 :8( o o o *8 sZ z8*0 @ :8*8:8*8:8*8t:8*8_:8*8J:8*85:8*8 :8*8 sZ z8*0cA :8*8J:8*85:8*8 :8*8 sZ z8*0VB ( o :8 ( ( ڹ*8:8U ( (  ( l#@[ ( l#@[YlX( *8a:8; ( (  ( ( ֹ*8:8  (> ( [( ( (  ( _9!*8 (  ( ( _9!*8a (  ( _9*82 ( ( 9!*8*8:8" (> ( [( *8::8 (>   ( *8:8 (>   ( ( *8j:8 (>   ( ( *8; :8 (>   ( ( *8 sZ z8*00C9 *8 9  8**0)D ( o ( o :8 ( *8Z:8+ ( l#@[#?X(~ *8 :8 ( *8:8( ( o *8:8 ( (*8:8 ( *8:8 ( *8l:8 ( *8L:8 ( *8, :8 (: *8 sZ z8*0UE r-p(}:8*81r-p(}:8*8r-p(}:8*8r-p(}:8*8r-p(}:8*8r-p(}:8*8r-p(}:8*8qr|'p(}:8*8Qr-p(}:8*81r-p(}:8 *8r-ps> z8*0RF9r@.pr$psc z8u99 st z8(((**0 G9rT.pr$psc z89r`.pr$psc z8u99 st z8u99 st z8((((**0SH9r@.pr$psc z8u99 st z8(((**0 I9( ( 8O_9  8(c_9 l 8s ( l( **0J 9^_9< 8<9 < ;  8<  8A;97<[( s_ <s ( ( 8909< 8<  8A;97<[( s_ <s ( ( 89 8<92[( s_ s ( ( 8s= **0LK( o t6( ( &!u0 r`-prwp(@ sQ z*A))!00IL~ (f ( ( &!u0 r`-prwp(@ sQ z*A&&!00M ( **0N ( **0O ( **0P ( **0Q ( **0R (: **0 S(**0 NT `9rl.ps> z89( o o *8( o o **0U`9r.ps> z8( o 9o 8   s_ s ( ( 9( o o *8( o o **6( o *0I}t}ur p}vr p}v}wr p}xr p}y}z*0  `9r /ps> z8o }z9( }v8 (\}v{vo9"( }y{u{yo 89( }x89( }w8{uz*0 V{u**0 W{v**"}v*0Xs# z*0 Y{w**"}w*0 Z{x**"}x*0[s# z*0 \{t**"}t*0 ]{y**"}y*}u{z9{uo}t}z8*r}t}z(}u*0^ :#:^:d:8s9 t*8: : :8s> t*8S:8s t*84::8s t*8  :8sG t*8 :8s t*8 :8sQ t*8:8s t*80:8s t*8k4:6:}7:s9:i::_;:U=:K?:AC:7D:-F:#G:J:K:8s/ t*85:L: :8s t*8>:8s t*8r[:8sq t*8R :8s t*8/ :8s t*8 s% *8*0M_u/9*83u9*8u9 *8**( *0 `r p(}`9r\/ps> z8s o 9r/ps/ z8s o 9 ( 8%r/p(P r/p(P r/p(P s z*0a(r p(}9*8( 9r0ps> z8(~ ((P ( 5u r\0p((P r/p(P r/p(P s/ z*A=\504br p(}`9*8o ( (*0c( **0 d( 9r0ps> z8(~ ((P ( 5u r\0p((P r/p(P r/p(P s/ z( (~ **A=50 e~9rl0ps> z8n~o ~9rl0ps> z8H~o ~9~ր*8~ր~~ښo **0(f  ~ (}9 ( 8~ (}9 ( 8( s o 9 ~ *8_9/~ (}9 o 8 o 8~ (}9 o 8 o o 9o 8֍9Gt~to ( t~to o ( 8t~to ( ~o 9~o ~ր8~ **0Vg~:~&oO :89 4(z8~&oJ t~**0h($o**0i(${P**0!?j~:~o :89*8:o :89f~o to 8o ( t~ oo :uV9 uVo *8 o  8a~&oO 9 4(z8~&oJ t~o~&oS X  :*ATC&( *0kr p(}9r0ps z8( o 9r1ps> z8s o 9 o *8%rf1p(P r/p(P r/p(P s z*:($o*:($o*:($o*:($o*:($o*:($o*:($o*:($o*:($o*:($o*>($o*B($o*:($o*:($o*0lr p(}`9*rf1p(P r/p(P r/p(P s z8s o 9 o *8%rf1p(P r/p(P r/p(P s z*0!m: :8:7~9~&oO :8:89 4(z8~9s\ 89  :89 :89 :89 :89 (z89 :89 :89 :89 (z89 :89 :89 :89 :89 (z8::89 :89rt1ps> z8::89 :89rM2ps> z89 :89r*3ps> z89 (z8s ~&oX *:($o*:($o*:($o*:($o*:($o*:($o*:($o*:($o*:($o*:($o*>($o*F($o*:($o*2r4ps> z*:($o*6($o*0`n~9*8  8#~&oO 9*8 X :C(z*0or p(}`9r4ps> z8( o 9r1ps> z8s s o o `9 ( 8%rf1p(P r/p(P r/p(P s z**6($o*6($o*6($o*6($o*6($o*6($o*6($o*6($o*6($o*6($o*6($o*6($o*0p($o**0qr p(}`9r4ps> z8~{ o 9 ( 8 o o o s o o 9S o 8(~{ ((P  o (P (- X :8r4p(P s z*0r($o**0s($o**2($o*6($o*:($o*0t($o&*0Sur p(}`9r\/ps> z8s o 9r5ps/ z8( &*6($o*6($o*0Ovr p(}`r p(}``9r4ps> z8s s s s urN5ps> zo o _9rN5ps> z8o o _9Co 9rN5ps> z8( urN5ps> z8Xo o _9Co 9r5ps/ z8( urN5ps> z8*AL& 2 Z_0w& ('*0_xr p(}`9r\/ps> z8s o o 9r5ps/ z8( *0y($o**6($o*0zr p(}`9r4ps> z8( o 9r1ps> z8s s o o `9  ( 8%rf1p(P r/p(P r/p(P s z*0 {}Z**0 |}[**0 }}[**2($o*6($o*:($o*6($o*6($o*( *0~#`#`#`#`9r6ps> z8#?9#? 8[ #?Y#?Y( Z ( #?Y( Z (  Y**0)#9rR6ps> z8Y[**0#9r6ps> z89r7ps> z8#9r7ps> z8YY#?XZ#@Z[#?X[**0 #9N9  8 #?#?X[#?Yee(u*8##`9 ZXe*89#?XZ 8#?X( Z#?YZ[Xe**0s# z*0s# z*0 #9r7ps> z8#9r=8ps> z8P(y P(z Po e#?X l( Z#?XZ[(b #? l[( #?Y#9 e*8**0m#  o 8>ڙ#9#?Xl( [X 8X  :**0j#  o 8;ڙ#9#?Xl( [X 8X  :**0#9r8ps> z8#91#9r8ps> z8 r/9ps> z8 #?lZXZ[ YX[( #?X( [ **0 #`#`9r9ps> z8#?9 :89#*8(} #?Y(u 9#?X[ 8Z**0#9r9ps> z8#9e(}e*8#9 Xe[*8#?X( #?#?[Y[ #?Y[ 9! #?XZ #?XZ 8[ [Xe**0 (}(|Y**0P9rH:ps> z8#9r8ps> z8#  Po 8!Pڙ#?Xl( [X X  :**0e# #?X( 9e#?YZ[Y 8e#?XZ#?YZ[Y [ **(_ *( *0 (o**0(  o **0,9*8u9*8**0e9*8u99*8u 9*( & u  8*A9L0,9*8u89*8**0u9*8**09*8**059*8oE (F :I:@ :6 :,:" :::8*8:" : ::8*8:8*8t:8#t  # ( *8B:8-y4q4( # ( *8*8**0u9*8**0' 9r:ps> z8o **0`9r:ps> z8&                 **0fr p 9r$;ps> z89rl;ps> z89r;ps> z8 9 8 9 8 9 8(e (e(e o 9rp(P (P 8 (P o 9rp(P (P 8 (P o 9rp(P (P 8 (P r<p(P (y(~ **0o? rp(}:8 rp*8rp(}:8 r)p*8orgp(}:8 rqp*8Krp(}:8 rp*8'rp(}:8 rp*8rp(}:8 rp*8r p(}:8 rp*8rcp(}:8 rmp*8rp(}:8 rp*8srp(}:8 rp*8Or)p(}:8 r7p*8+rSp(}:8 rap*8*8*0(F :8 rSp*8:8 rcp*8:8 r[p*8x:8 rwp*8^:8 rp*8D:8 rp*8*:8 rp*8 :8 rp*8 :8 r+p*8:8)( 9 rp*8oO *8:8 rOp*8 :8 rp*8s:8 rp*8Y:8 rp*8@ :8 rp*8& :8 rCp*8 oO *8*0)9 r}p*8u89 rp*8oE oO o? oE ob 95r<po r <po o 8 rSp(}:8 rp8rp(}:8 rp8rp(}:8 rp8^rp(}:8 r+p88rp(}:8 rcp8rp(}:8 rSp8rgp(}:8 r[p8rep(}:8 rwp8r)p(}:8 rp8zrp(}:8 rp8Trp(}:8 rp8.rp(}:8 rp88oE ob 93rpr<pr<po r<pr <po 8r p(P **0' 9r:ps> z8o **0A 9 *8u9 *8oE oO o? oE o 9#oE ( o o? od 8oE ob 96r<po r <po o 8rSp(}:8 8r<p(}:8 8orp(}:8 8Mrp(}:8 8,rp(}:8 8 rp(}:8 8rp(}:8 8rgp(}:8 8rp(}:8 8rp(}:8 8br)p(}:8 8Arep(}:8 8 oE oy 9$ 8 8oE ob 9oE o ( :89 *8oE ob 9 `*8**0o? o? rpoc 9o? od 8 rSp(}:8 rp 8 rp(}:8 rp 8o rp(}:8 rp 8K rp(}:8 r+p 8' rp(}:8 rcp 8 rp(}:8 rSp 8 rp(}:8 rp 8 rgp(}:8 r[p 8 rep(}:8 rwp 8s r)p(}:8 rp 8O rp(}:8 rp 8+ rp(}:8 rp 8 8**( *s# z*s# z**0 :8oE (**8c:8r&<ps z8E:8oE (%8":8oE ((8**0So 9 sZ z8(~  t(_9 *8**0rp(( ( **0s# z*0 T~5 (}9 o 8+(}9 o 8o o o *0s# z*0 ( **0r p(}`9r<ps> z8r p(}`9r<ps> z8~5 rH=p(P o o u 9*8o 9*8t ֍ (4tt ( & ֞( t(4t o    8M&    o r p(&    o  X :**AY#|0s# z*0 0~5 rH=p(P o o o o **09*8**0s o**0r p r p r p !9r=ps> z89r=ps> z8!9r=ps> z89r.>p !89r.>p !89+9!88~9+98!8J!9 8.9 8!r.>p(}9 r p 8( r.>p(}9 r p 8( ( o o 9 o 8 o 9 8o rH>p(P o (P **0 /~5 rH=p(P o o o o *0s# z*0 s9*8o ]9rL>ps> z8 o  8(9 ֚*8 X :**0 9r p 8 _:8 8n:8 8X:8 8B:8 8,:8 8:8 8_9 8* _ 9 8@_@9@ 8 _ 9  8  _ 9  8  _ 98 _ 9 8 _ 9 `8o o  ( &*0A(@ oF o\  xsL oU sC }{r>poO sC }{r>poO s }{o }{%so oq {%so oq {o ( {o ( sI oJ {{o ( {o ( sI oJ {PsI oJ {o ( {o ( sL o oV {t]oW oV {t]oW oV {t]oW o] *0"o3 9 {*8~ **f{o }o_ *"o_ *0  r>pr'pr>pr>pr>pr>pr>pr>pr>p r?p r?p r0?ps\ ~rH?prf?poX ~rr?pr?poX ~r?pr?poX ~r?pr?poX ~r?pr?poX ~r?pr?poX ~r?pr@poX s\ ~r*@prf?poX ~rD@prX@poX ~rd@prX@poX ~r|@pr@poX ~r@pr@poX ~r@pr@poX ~r@pr@poX *0 4( o o o  (  4  o  **0**0 L9r@ps> z8o (  9r@ps> z8oH (**0G9r@ps> z8o (  9r@ps> z8oH **0V `9rN5ps> z8  `9rfAprAps z8( **0^  `9rfAprAps z8 _9  8( **0o ֍  9o? 8  o 8T (9o? 8o 9 ( 8 X :t֍ (4t **0t (**0 9 ~ *89~ 8oE (F :f:\:R:I :? :5:, :": : :8 (*8:8 (*8~ **0r~oJ ( 9o (. *8r p(}9rAp(. *8rAp(P rAp(P (. **0~oJ ( 9o (. *8rAp(  9'&o 9 rAp*8rAp*8rBp(  9'&o 9 rGp*8r=p*8rBp(  9'&o 9 r&Bp*8r.Bp*8rAp(P rAp(P (. **01c9r4Bps> z8u 9( r<poc r<po _9y  o o o o ( ow o  o ((t 9! 4(o &88 ( &8urBpsQ zu.u&`u-`u+`u:`u'`u(`9rCpsQ z8___9r?p(. *89  8s {o 0o :o &(9*;o (o &()o &8}o &o (. **A0&( ow o o &(*0(P :8 ( 9( o o 8[ (  ( _ (: _ ( _9( o o 8rmCp 8:8( o o 8o:8( o o 8L:8( o o 8):8 rqCp 8rN5ps> z8rAp(P rAp(P 9(. **0c9r}Cps> z8u 9( ( &8u rBpsQ zu.u&`u-`u+`u:`u'`u(`9rCpsQ z89  89  89  8s {o 0o :o &(9*;o (o &()o &8}o &o (. **A)C09*#o ,o #o #o #o &890o &8.o &90o 0o &8&   8 0o &X :*09rDps> z8u 9( ( &8u rBpsQ zu.u&`u-`u+`u:`u'`u(`9rCpsQ z89  89  89  8s {o 0o :o &(9*;o (o &()o &8}o &o (. **A)B0 &( ow o (o &*0\9r@ps> z89rZDps> z8o 9rDps> z8oH **09reEps> z89*8o 9*89*8o 9*8o 9*89o? o? 8o **0 (**0`9rEps> z89*8o 9*89*8o 9*8o 9*89o 89o? o? 8o **0s 9*8o 9*8u9r;Fps> z8o 9rFps> z8 o  8-(o &9 o &8X  :o &o **0t (**0 ( **09*8o? **0 \9rGps> z8`9 ~ *8o 9o 8o **0%(**0((**04(**0'(**0&(**0-(**0 (**0.(**0:(**0 (**09(**0+(**09*8oE (F  :8*8:8*8k:8*8V:8*8@:8 st z8':8*8:8*8:8*8:8*8 :8*8 :8*8:8 st z8:8*8w :8*8a:8(o *8A:8*8, :8*8 :8*8*0 B9~ 8o 9o *8o **0,9 ~ *84   o **09r=ps> z89rkGps> z8~ (}``9 ~ *8o 9 ~ *8o 9od *8 o **0 9*8o (**09rGps> z89r'Hps> z8~ (}`9*8o 9*8~ (}`9*8od  9 8(**0  oG o s `o _9Lo ( 9o &o  8 o & 8od o &o **0 f9rHps> z8~ (}`9 ~ *8o 9*8o od **0 B9~ 8o 9o *8o **0,9 ~ *84   o} **0s9rHps> z8 :8 ~ *8=:8 rp*8$:8 rMIp*8 :8 rSIp*8:8 r[Ip*8:8 reIp*8:8 rqIp*8:8 rIp*8:8 rIp*8u :8 rIp*8[ :8 rIp*8A֍4  8   X :sL *8*0~ (}`9 ~ *8~ (}`9 *8oG   9 89_ o 9<o (   9o  8 8 8֍  o _9Mo (   9(o o 8 8od t֍ (4t**0u9~ 89~ 89 ( 8 (  9*89*8**0A9r$ps z8 :8*8:8 oh *8:8 o? *8:8oG  o 8Y( '`(t `9/ 9( 8 (  8 X:sL *8" :8rIps> z8rlJp(. su z*0r9rJps> z89rHps> z8֍4  o  8 X  :sL **0@(}~ (}`9rJps> z8oH (**0dc y4q4 ( F u1 r(Kp t  (  u1r,Kps> z*A42K 1! 10?~ (}`9 ~ *8oG t( sL **0,9 ~ *84   o **0 ( **09 ~ *8oh **0)(**0*(**0,(**0;(**ns ~o k*0~o k~**0Il#9 ~*8$l#9l((*8(**.s *J( s *(_ *:(_ }*0 {**"(*"(*"(*"(*"(*{lSystem.Resources.ResourceReader, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089System.Resources.ResourceSet{PADPADPQTUV]u9>sPQRSpqrstuvxy57? ,Ԕ'                   # , - A B C F G a d e g n        (?SYVYWYwYYYY||||||||||vebQ/@s   ->O, q`.rPa?[l}<+ <-KZxiL=[.yj=L\Mx&P;k (CastFromStringToType ERR10: ERR11f ERR13y ERR14 ERR16 ERR17 ERR18 ERR20 ERR28  ERR298"ERR3CERR31001vERR31004ERR31018ERR31027ERR31032ERR31036ERR31037 ERR320 ERR321P ERR322f ERR325 ERR327 ERR328 ERR335 ERR336 ERR337= ERR338S ERR35u ERR360 ERR361 ERR363 ERR364 ERR365  ERR3684 ERR371 ERR380 ERR381 ERR382 ERR383# ERR385Z ERR387v ERR393 ERR394 ERR400 ERR402% ERR419P ERR422r ERR423 ERR424 ERR425 ERR429 ERR430 ERR4323 ERR438s ERR440 ERR442 ERR443 ERR4458 ERR446] ERR447 ERR448 ERR449 ERR450 ERR451C ERR452] ERR453o ERR454 ERR455 ERR457 ERR458 ERR4593 ERR460f ERR461 ERR462 ERR463 ERR47 ERR48+ ERR480B ERR481b ERR482t ERR483 ERR484 ERR485 ERR4861 ERR49b ERR5 ERR51 ERR52 ERR520 ERR521 ERR53 ERR54 ERR55 ERR57' ERR58: ERR59P ERR6d ERR61o ERR62{ ERR63 ERR67 ERR68 ERR7 ERR70 ERR71 ERR735 ERR74' ERR744K ERR746c ERR75{ ERR76ERR9 ERR91 ERR92 ERR93  ERR94# ERR959 ERR97g ERR988WinForms_RecursiveFormCreate74WinForms_SeeInnerException8Conversion from string "{0}" to type '{1}' is not valid.*This array is fixed or temporarily locked.Division by zero.Type mismatch.Out of string space.Expression too complex."Can't perform requested operation.User interrupt occurred.Resume without error.Out of stack space.System DLL could not be loaded.1This Error number is obsolete and no longer used.Out of memory. No object.Class is not set.Unable to activate object.!Unable to create embedded object.Error saving to file.Error loading from file.9Can't use character device names in specified file names.Invalid file format.%Cant create necessary temporary file. Invalid format in resource file.Data value named not found.&Illegal parameter; can't write arrays.!Could not access system registry.$Component not correctly registered .Component not found. Component did not run correctly.'Sub, Function, or Property not defined.Object already loaded.!Can't load or unload this object.Control specified not found.Object was unloaded.%Unable to unload within this context.IThe specified file is out of date. This program requires a later version.=The specified object can't be used as an owner form for Show.Invalid property value.Invalid property-array index.+Property Set can't be executed at run time.5Property Set can't be used with a read-only property.Need property-array index.Property Set not permitted.+Property Get can't be executed at run time.6Property Get can't be executed on write-only property.+Form already displayed; can't show modally.)Code must close topmost modal form first. Permission to use object denied.Property not found.Property or method not found.Object required.Invalid object use.AComponent can't create object or return reference to this object.!Class doesn't support Automation.>File name or class name not found during Automation operation./Object doesn't support this property or method.Automation error.NConnection to type library or object library for remote process has been lost./Automation object doesn't have a default value.#Object doesn't support this action.'Object doesn't support named arguments..Object doesn't support current locale setting.Named argument not found.5Argument not optional or invalid property assignment.9Wrong number of arguments or invalid property assignment.Object not a collection.Invalid ordinal.Specified not found.Code resource not found.Code resource lock error.BThis key is already associated with an element of this collection.3Variable uses a type not supported in Visual Basic.1This component doesn't support the set of events.Invalid Clipboard format. Method or data member not found.;The remote server machine does not exist or is unavailable.&Class not registered on local machine.!Too many DLL application clients.Error in loading DLL.Can't create AutoRedraw image.Invalid picture.Printer error.3Printer driver does not support specified property._Problem getting printer information from the system. Make sure the printer is set up correctly.Invalid picture type./Can't print form image to this type of printer.Bad DLL calling convention.Invalid procedure call.Internal error.Bad file name or number.Can't empty Clipboard.Can't open Clipboard.File not found.Bad file mode.File already open.Device I/O error.File already exists.Bad record length. Overflow. Disk full.Input past end of file.Bad record number.Too many files.Device unavailable.Out of memory.Permission denied.Disk not ready."Can't save file to TEMP directory."Can't rename with different drive.Search text not found.Replacements too long.Path/File access error.Path not found.Subscript out of range./Object variable or With block variable not set.For loop not initialized.Invalid pattern string.Invalid use of Null.,Application-defined or object-defined error.WCan't call Friend procedure on an object that is not an instance of the defining class.uA property or method call cannot include a reference to a private object, either as an argument or as a return value.There is a reference to a default instance from the constructor of a form, which leads to infinite recursion. Please refer to the form itself using 'Me' from within the constructor.An error occured while creating the form. See Exception.InnerException for details. The error is: {0}CastFromTypeToType=Conversion from type '{0}' to type '{1}' is not valid.BSJB v2.0.50727p#~T<#StringsK#USP:#Blobd&#GUIDW? 8  R0:! %HT#[l 'QYt& IWmYY % .W>]HpHHH!)/6;AH]djp!-P{T0=Tbj Y s     w   + F R _ f s  R  H ! 9 HP HU Hn H  " 5  A p H  ' NH]HdH~HHHCHcHwH $W `W       s   Y " - 7 C N     .YC  `f WY HXH WOw  f  f f ,f Gfy 0f <f bf zfHH7H Qb 2<^z   T6TTT g Tn H H H H H H T! h.W.././0g0t0E^H^^_ fqW qW q 3r or ņHo+ Тࢾ f-Dd+ ʣ 9W PW eW~fפf59Vfqfեf!"!#! #!5/#!5;#!U P#!]q#!#!L##!q&#!q) #!]-#!q1#!55$!u5$!q7)$!y;F$!q?f$!Ck$! M$}%v$"&x$"&{$"&~$"&$"&$"&$"&%"&%&%%"&!2%"]&I%"&X%"&s%"&%"5&%5l%"%"%"%"%"%%"!%"] &"&"&"*&5"9&5"J&"Q&"#]&",f&"/q&"H{&5&&&&&&" &"&"&"!&"'" '" 3"':" :(':" B.':"H F7':" MD' VZ':" Wc':" `i':"} du':" f}':"y':"q':"':"':"'X"5'X"5'X"(X"()(X",4(X"9R(5H; Y(X"]N;p(X"5PE~(X"5SE(X"VE(X"VP(X"5dz(X"5gz(u"jz(u"5j}(u"m}u"{(u"5})u"5))"8)"G)"W)"e)"})")")"# )A()!5()!5(!)!()I)N)!O)!5X *!X*!Y"*!Z-*!5;*!5L*!J\*!Ne*!Z m*!AZ u*!A[}*!\*!\*!\*!`*!5`*!5f*!5q*!t*!5{'! +!q+!5"+!52+!J+!V+!b+l+!5y+!5+!5+!5+!5+!+!5+!5+!+!5++t,t,t3,tK,te, t, ,A-V-V--V-V.V.V#.V).V3.VA.VL.Vf$/-V0OV0O0S#10S2%2:2Q2Oa2v222222237H-V,:V2:V>:VK:VX:Vf:Vq:V}:V:V:V:V:V:V:V:V:V:V:V ;V;V$;V2;V@;VO;V[;Vh;Vt;V;V;V;V;V;V;V;V;V;V<V<V<V)<V7<VF<VR<V_<Vk<Vx<V<V<V<V<V<V<V<V<V<V=V=V"=V1=VA=VN=V\=Vi=Vw=V=V=V=V=V=V=V=V=V=V>V>V%>V1>V>>VH>VS>V]>Vh>Vt>V>V>V>V>V>V>V>V>V>V>V>V?V?V ?V,?V7?VC?VP?V\?Vi?Vu?V?V?V?V?V?V?V?V?V?V?V@V @V@V @V,@V7@VC@VN@VZ@Vf@Vr@V@V@V@V@V@V@V@V@V@V@V@VAVAV!AV-AV:AVGAVTAVbAVqAV~AVAVAVAVAVAVAVAVAVAVBVBVBV,BV:BVHBVWBVgBVuBVBVBVBVBVBVBVBVBVBVBVBV CVCV#CV0CV>CVMCVZCVgCVuCVCVCVCVCVCVCVCVCVCVCVDVDV$DV3DVCDVQDV]DVjDVwDVDVDVDVDVDVDVDVDVDVDVDV EVEV)EV6EVCEVQEV_EVnEVzEVEVEVEVEVEVEVEVEVEVFVFVFV-FV:FVHFVVFVeFVqFV~FVFVFVFVFVFVFVFVFVFVGVGV$GV1GV?GVMGV\GVhGVuGVGVGVGVGVGVGVGVGVGVGV HVHV)HV8HVGHVWHVdHVrHVHVHVHVHVHVHVHVHVHVIVIV$IV3IVCIVSIVdIVrIVIVIVIVIVIVIVIVIVIV JVJV/JV?JVLJVZJVhJVwJVJVJVJVJVJVJVJVJVJVJV KVKV(K-V6KVlKVKVKVKVKVKV LV LV:LVWLVLVLVLVLVLV#MV>MV_MVtMVMVMVMVMVMVNVNV+NVHNV`NVuNVNVNVNVNVOVOVJOViOVOVOVOV/PVPVPVQV*QVVQV}QVQVQVQVRV7RV^RV{RVRVRVRV SV]SVSVSVSVTVNTVoTVTVTVTV.UV^UVUVUVUVUVUV;VVbVVVVVVVVIWV~WVWVWVXV(XVdXVXVXVXVXVYV4YV}YVYVYVZV5ZVwZVZVZVZVZV/[V[V[V[V\V\VH\Vd\V\V\V\V\V\V]V0]P91V91\91]R^k^w^-V3aVBaVHaVQa-VBaV[aV`aVfapa_xabbbc*cAcZclc-Vj VBa Vj Vk (k -k kyGKyGSy]y'iyX{yXyX[q#Cq#8q#y#y#y#Xz'[q#az#kz#uz#z#z#z#z#z#z#z#8q#z'z'-V|'V|'V|'V|'Vw'|&|-V|&V}&-V}+(V)}+(^~0(g~s~5(~5(~X~&~~|&~$~~9(-Vȁ&V m&-Vҁ&V݁&-V(V m((1=XLX]Xi((((ɂ&ׂ&(5(v)-V:(V@(VE(-VL(Vg(Vn(V(V(+,VC,VL,VT,VZ,V_,Vr,V{,V,V,V,V,V,V,VΎ,V܎,V펆,V,V,V",V0,V=,VK,V^,Vt,V|,V,V+V+V+V+VǏ+V׏+VVVXVVVXV VVV$-p&fA&fD& gG&2gJ&OgM&qgP'gSL'gU'gW'gY'g[h)g])g_ *g`,hb/9d09g0#hj3-h l5@h" n5Shq8bh+ s8nh4t8yh+ u8h0 v9h5 w(9h: xH9h? yp9hD z9hI {9hP |9hU }9hZ ~ :h_ X:id :i4:i;,i4;8ih;Ji;[i>hiH>si4l>}iAi8AilAiAiIhCiCix wt7%Bw6uT%GyCu{%Mlz^u%Od}%R|}%S}~u%V~uZu%[u%\0%]H%^dya|ubcucu$eu hu$ku&ouuu$wu z,u$}<u&`u&xu&u.&Ȁv7&vD&0vN&0v\&(@XpJvbvmvl& {v {v}&Ă ̂v&&D&&&@ 'wwwDww xԆx4.xXЈl=x*'Fx5'\Zxxt>'ċ. hwlfxd'fxj'Ȏxx)$x'xTxCx' y(y!T\'yO yO hy'Lr\D `qr#r#r#r#xy#y$z#z$Ȝz#М,z$} (r,zdztzD `̝qxz# {${##{$ȥ0{#Х={$J{#W{$d{# q{$@~{#H{$h{#p{${#{#{#{#X{#`{#r#ħr# {((|(H|(P|(pxԨh 8#( dFFGIP|%h|)t|<}P}l}8}T}p}}}ī}}F($Tl$M(ȰUY #hhf(#(&t'Y ((lI)I))8D)H)pY *ȷI*HI*d*p!(+|0Y ,B,TY -c-ĸr.I.%.(.((.€/`/|%0й(0(0"1 5`1D `2Hf 3X3`3lE4t44F50D `5hF6|D Y 6ܼF (6F );`F)@F4)E<KyLP McC)NqN|`NO  `OIP0P<IQTʃQ`݃IRx냨RI)SU)S7\)TDh)TQIU@eUXy`Ud)V|)V)W)Wń%XՄ)X%Y)Y Z@Z\^[E[)[Ӆ\,Ӆ)]<Ӆ)_hޅbޅ)cޅ)f)j(*j@jHgj`7jdklktkklll$*l m/1*m C6*n4B*nHN*n\InpZ*nopk qa*sh*t@uvo*wy tyGtC{Gtw*}Gt&Gt& tC,tw*8t&Dt&PXt*dt*pt*|tt*t*ttt*t** *8u*Pu*hu***yuIuCuw* u&u&$uC0uw*<u&Hu&Tu*lu*u*v+v +0v+0v+(+,.+DJvCPbvC\mv6+h{v&t{v>+IvH+R+d+Rk+Rr+ |+0|+$B|+8R|+L^|+`o|+t|+P}Il}I}I}I}I}I}I}I0}IDLF+F+ +\F+lF+|·F+F+ + + a  a  a % a  @ 0a @ L  1* 4a  a * Pc{ha=raK$a(ap p +aak,$ ,H,"#0a,$a*&*& a&(aɉ(0B,)PfK*xf*pf *Q** **$C+<W,-\ъI0t݊0`0I1I1^111*1*w1D2D 3D4D5D6D7D8Hf94Hw:PH;lH|<Hk=H-hd >L?L @LALBLCLDLEPfF0PwGLPHhPkI(P|JDTkKX,LPXpM XNH,OH,PHQ4HRTP,SpP,TPUPVW[,W-X1^,^d>/-^T_0f_~__HE-_S-aZ-cHa-ej-gs-iTz-k-m-oP-q-sdْ-w\-z-} -h---,-B-U. y%.0 y+. y1. y7.D y?. yG. yM.X yd  yS.yY.ly_.yf.(o.<v.|.o. y.dy.<ғ. I01*I#.#.@#.x#.#.#.T#.#.#.#.#.#/4)<?II%)d @ h%\ l/$y/$%4%)t% % )% d &/$&8/*y/***D*ܔD*D ++a@0+@+.P+(d+a@x+"+OI+`I+yI+I,,ז,, ,,S/,Z/0- D-P- S/--& .5q/(0P/0o/\1/p4/4/P6ė07508&08309ۗ?09?0P;F;8<v0T<v0p<v0 <#v0 <(v0 </v0 <}0 <0T=.0>>p>;0X?Vnp?I?c?s@?{@??I??@@ƙ@@љ(@ܙI@@L@@0@0!C*0#C$C $D0% S?wSISHS2T2Th0TC Tl2Ty2TIXVKtV` VV2 Wf3Wn$3Wr43WrC3X HX 2(X 28X2HXy2XX`XvJ34YZ3lYa3Zi3Zy3Z3 [ϛ3[훟3d\3\i3]3D^i3 _3L_3 _i3 X```h`AD`c3`g`wha~aaas],cTc3cHd3e}]g͜4 `i]k! lל3"Tlޜ'4$4o]%,q&4qH&6|V5^\6Pos6Кo6o6 D\\6ܜ6^ɡ68ɡ͡͡6ȝ[I,,,,........../...//.A0N00000000./...A0N000000001A0N00000000171.A0N00000000.... 3D3...4440Q5Q5Q5Q5Q5Q5Q5Q5Q5Q500..+767R7z777778 88"808>8G8d8m8r8}8888 88"808>888"888"888"8888 88"8088 88"80888 )8 88"80888+7H9P9V9\9f9t999\9H99t999\999\9999999..:%:8\]g]8+7]+7].777777.]Q5]Q5Q5]H9P9V9\9f9t999\9H99t999\999\9..:^^..^^1 _.__.!_.1_^^I_ _^^k_v_ _1_____11___.___1__``____1Z`_Z`_``_`1`1_1__!__`!__aa,1a>8a1aa1a88aa,1aaa,1a88aa,1a>8a1a.aaaaaaQ5Q5Q5aaaaaaaaaaaaaaaaaWbaWbaaaaaabb9bbab[a`a[a`a[a`a[a`ac[a`a[a`a[a`a[a`a[a`a[a`a[a`a[a`a[a`a[a`aQ5aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaab[a`a[a`aaaaa[a`aa[a`aa[a`aa[a`aa[a`aa[a`aa[a`aaaafffffff[a`aa[a`aa[a`aa[a`aa[a`aa[a`aaaaaaaaaaaa[a`aQ5aahh999999aa6h:haaPhaahhhhhhhhhhhhhhhhhhhhhhhhhaaaaaaQ5aaaaihhhhaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa[a`aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaQ5Q5Q5Q5Q5Q5Q5Q5Q5Q5Q5Q5Q5Q5Q5rkkkk.7.777.7..7..lll..l4lBlRl999xlll9999lll,rk+m7m 2EmEmNmWmNm^mNmsmm 3 o ooppp2pp2pp2pFpOpp2pFpOpp2pXpkprppp2pFpOpkprppp2pXpkprpppp2pFpOpkprppp2pFpOpkprpppp2pFpOpkprpppppppppppppppFpOpppFpOpppXpkprpppFpOpkprpppXpkprppppFpOpkprpppFpOpkprppppFpOpkprppQ5Q5pA0N00000000qqxqq0000000000....HsHsQsHsQsZsHsQsZsasHsQsZsasjst,t:tUtitUtitkpUtitpUtitkppp2pp2pkpp2ppp2pkppttttkpttkptptttptkpttkpttkptptttpkptttuuutuuu(utuuu(u]SuXutouuttututu(u]tutttutuuuUtitUtitkpUtitpUtitkppUtittpkppp2pp2pkpp2ppp2pkppp2ptpkppttut vtt'vtCvtCv'vttt'vtZvtZvt^mCvtouCvtouCv'v.9ww(wp9ww(9wwww(twww(w9(wH9(H9Qx9w9rx|x9rx|xx-xxx" xxxx9w9wyyyxx" y00q.....00000000q............../..:.|.|:/..Wm%uWm,u,Wm,<u,<Wm,<Kuz vu......q,,q*5<F^m*5<F^m*5<F.*5<FI1..[............,ʅ..ʅ.ʅFkkʅkʅF.IIIII^m^mІچououI,t:tUtitUtitkpUtitpUtitkppp2pp2pkpp2ppp2pkppttttkpttkptpttkpttkptptttuuutuuu(uttutututttutuuuUtitUtitkpUtitpUtitkppp2pp2pkpp2ppp2pkppttut vtt'vtCvtCv'vttt'vtZvtZvt^mCvtouCvtouCv'v. ..ƇlƇ`````.9.W[.``.`.W.tWtWy.t`/.0FȊ8%:%:%:%:%:%:%:%:%:%:%:%:6h%:%:%:%:%:%:%:%:%:%:%:%:%:+7+7\%:%:%:%:%:%:%:%:ב Nʒk.5MT_rrMT_rrr7uu :=%:F[g{=[{=F[{==%:F=[{=F[{#(/FFFF[##:%:9v-AJk%: %: kƚ9w 5MT_rrPXƚR7nMT_rrzzzěěԛěěěo+7+7+7+7+7+7[œȜ]Ԝo[o- g]7m[#?F_gW+7+7_g_gW+7ɝ-Н%:P9 =_gWp ɝ]-ɝ-Н0000۟۟9U9U+7+7+7+77Ma}+77Ma}+7+77Ma}+77Ma}+77Ma}+77Ma}T[P9ɠUɠUڠP9U55T7+7+7+7+7+7+7+7+7+7+7+7+7+797TP97P9+7#(P9R7U+7#(P9R74T797T%:+75V9UɠU"*f%:v%:v%:v+7T+7+7+7+7%:%:SSSSSS9:<_Ys9ssst 6i!)$) )151)G8Aa@)yDIIMQIYXMaI)Iiq1`qCerMI!MIMII.!:!,,@,, u !@ %Y,YP1YU6yYIY@AGLQ V1[YcYhm1rwY~Y1&IY8??GGGGG``iirr1GI91YYY1 Y '.5<CJQX_Yfpu9{1Y$(((((((1A7mIA{ AV1A14ACAR1[V!o!s1wG1V1 111 1'= B# I# N+ U(Z4 _< dGkY< p< uA< zF )< G# (4 # # 4 YP Q!o F # 4 + GUYT GIGIaiGI IY i&r11 GI1GIY 9Y Y 1! !  %q)T.T 4 =! D! HqM+ RYGIYGZGaGfGkGpGwG|GG9GI9GZAGIGIGZiGIqGI @ @! @1 IC @L @V @^ IYa@YYYp   a@ GIA @A A A %AAY) $<         ! D  =! , .GIB G ]    D  ' #. Y(!N . GI^ 5} =9 5AC   IaIIB IQQ 5Wa8iT `qyipeql.|.T`+Qr$```T`yl=@T{8Uodr!i.iEY_igi!!' #,!$,)*1!01,$7!$,=lYIaJii[@\l`aihlx7l@lg!0qyiiiiltz!aa!! q$|r@Y;!. Ra[$$7y ya% @ g"$'-3 :%@/G8LqGX9Gyi\si```chnGI!IYY%;!]sikiii,`aYUYI@g yC`aIx7I i !; T)kI))-=G)@ )I)% ya%q%(QQTY$Qoa !QqYyyy#yyyy'y .y/4yC9y?yEyyKyRyYy_yyeyly ys{RR%3?GTdj@u-P GIDH%@{U' &nr{p $'$yq!Y!!! qC1I!!GYIGGG# Y! + G   { @ ` aa%a$%1 ; D MXX c%Ym<|# ' - Y2 I ; @ E  ) J O YNYT XAA@\ iIad E j O )J q ,a)a d G&v E| P q^@qh@qt@q@ ) ) )( ) ) ) q@qXqX)& 4@  B  U-$ ^v  9AQIQYay++!6 J iS!I    A @  i Y YuyI!.  !s! 9( YpY{pi5 Y <  % C 0 < @ACJ K Y AR^ e YY a C Rk q T  @   @ @ I! !@&! 2! 1& YU &r;!IYN!X!Il!I!I!IY{ Y \Y!YU \A! Y!XaQQYai`q`y7/7`777 ))s8179I8QYaiqq%q@Urp $q,AIɉ1K   $ ( , 0 4 8 < @ L P         # ( - 2 7 < A F K  P U Z _ d i n s x }         $ ( , 0 4 8 < @ D H L P T X \ ` d h l p t x |    " ' , 1 6 ; @ E J O T Y ^ c h m r w |                      $ ( , 0 4 8 < @ D H L P T X! \& `+ d0 h5 l: p? tD xI |N S X ] b g l q v {                              $ (%,*0/4489<>@CDHHMLRPWT\Xa\f`kdphulzptx| $).38= BGLQV [$`(e,j0o4t8y<~@DHLPTX\`dhlptx| #(-27<AFKPUZ_dinsx}  $(,048<@DHLPTX\`dhlptx |"',16;@EJ   # - 2 7 A F  OP TY^chmrw|  $(,048<@DHLPTX\`dhlptx |!&+05:?DINSX]bglqv{  $(,048<@D HLPT X%\*`/d4h9l>pCtHxM|RW\afk             0pT X ` d $ ( , 0  4  D H  P  T                   D uH xL {P ~T X ` d h  l (            u                  #        (    $ ( ,  0 4 8  <  @ ( D  H L P T X \ `  d Th  l  p  t # x ( | -   7  <  F  O           (            #              h          U  $ ( , u0 x4 {8 ~< @ D H L P T X \ u` d h p xt {x u            #  (  2  <  F  7  O P  T           -  A            # ( - 2$ 7                   #  (  -        (     $ ( , 0 4 8# @ D H L d h l p t x |#          hU        (      $ (,48 < @ D H L P T# X( \- `2 d7 h< lA pF tOxP |T     (  E }   < < < < < < < < < < <EE <E <E <EE < <AE I< Q< Y< a< i< q< y< < < < <E <EE < <        9 AEIEM U Y ] a  < < < < < < < !< -< 9< E<IE U<YE]E i< u< < < < < < < < < < < <E %<)E-E 9<E Q< eG P P Y Y P P P % P) A PE i        ! ! !!9!{=!EA!M! Q! Y!]!a!e!!b! !b! !!!!!! "" " """!"%"-"1"5"9"i" u" "" "d"d #  ## I#dM#Q# ]# i# .6. 6.6.6.#6.+7.3 .;7.C7.K&7.S67.[?7.c^7.kk7.sk7.{6.7.}777C;7C7c777;777#7C7I7777#7)7C7c7c777777777#7C%8C7I7c7cL8777#7C777777777C77C7C7C7777#L8#7C7c777 8 7@ 7` 7 7 ;7 7  7 7 7 7 7# 7) 8@ 7C 7` 7c 7 7c9c=9cR9i7L8 )7C I7 7#7C\9c\9%87 C c i7 %8 #   c  C7E:C7E:E:E:#E:CE:7C7C7`C7C7C7C7C7C7` `             @ @ ` ` 7 7d 7 7$ $ $ $ $ $ % % % % @% @% `% `% @ A}8A}8B}8 N/7@N/7`N/7N/7@Q a a c d g7 h7 h8$k l7l7w7x7Ĉ   @C7`C7C7C7C7C7C7 C7$ d }8D d  9D `7 /9/9 d D  $ `C7C7C7C7 D d  D d    D  d  $   d  D  $    ++++++++ + KTZirx~ ZZ  RZaky~~aa~~yy .9[ann ]7Qa#V+>Li NNNNNNNNNNNNNNN%NZh{%%%%N N Ni %%%%N%N%%%n NN % Na~ !  !.!?!ZQ!\!x!!!!!! ""#"/";"G" y""""#"""+$+$+$+$+$Zh$t$$$$$$$$$$$ZG%e%%%ZG%%%%%ZZ$$&%&%&>&>&V&V&g&t&&&''F'X's'''''' (A(A(A(A(A(A(A(A(Y(n(}((((A(A(((((')V&V&V&O)b)o)))()**+*<*H*T*ZZZZ%%%ZZ&&&>&>&V&V&g&&X+++++++++++++++Z(,nJ,O,,,,,,b)-(7-7-=-L-L-L-L-L-L-L-L-L-L----L-L-L-----.L-L-L-L-L-L-L-L-L-L-L-L-(..L-L-..L-L-L-L-L-L-L-L-.L-L-L- /. /L- /(?/F/^/e/?/F/~////Z/0H0T0[0g00000~0017-01A111V2e22%2(33+3:3:3S3t333333S33S333Z3444Z.4=4K4+b4444+445A(5ZZ~~15K54X5X5l555(5~ZZ55~ 56'6536I6Ze6y66$5~M6<.6476@?6HS6,6<  ,'0(4+>,F-G0H6J>KDMGNHPIQMRNUTVVXWY\[i^j_sd}ehjklnstv~(1,6;,6l`-l-v-------&-L/\/p//01y111/1 2f66666.]3686>6B68^aa$aa8k!m!m!m>"'M"S"Z'Y"c'_"'e" k"nu"nu"n6nnnnu"nu"oozooooooop>pqs $s$#s$/s$s('$'$($ 2u'$$vv&+y#s$s$ >t+,t0,t5,0,e',m',#+<D#><>U>7>(7>˖NY!_0e!i!sv-A>J>AE>%:>9glmnopqrs t u      ! #!%"'%)$)(+'+6-=/</>1H3G3J5I5K7L9O;R=Q=T?S?VAUAXCWCYE[GZG]I\I^K`M_MOOQS U$W YC[D]E_GaHcIeJgKiLkNmOoPqQsRuSwTyU{Z}[\]^_abc"!$#&%('*),+.-0/21436587:9DCGHIJKLMNOihkjlmnporqsutwv      ! # % ' )+-/13579;=?A)C*E+G,I-K.M/O0Q1S3U2ULWMYS[U]T]V_Wacegikmoqsuwy{{}}  999999999999::::::::::::<<<<<<<<<<<<_'sRsTsVsXs\sdsfshslspsvsxszs~ss ssttt .k|.Cz$S E;FMFOg!Hs&+*1020308797:7;7<7=7IHWVZYpotsus8818S%[39=mscorlibObjectSystem.ctorThreadSystem.Threadingget_CurrentThreadCultureInfoSystem.GlobalizationCreateSpecificCultureset_CurrentCultureset_CurrentUICultureEnvironmentGetEnvironmentVariableAssemblySystem.ReflectionGetEntryAssemblyget_CurrentCultureget_CurrentUICultureTypeRuntimeTypeHandleGetTypeFromHandleGetCustomAttributesArrayget_LengthAssemblyNameGetNameget_NameGetAttributeAssemblyCopyrightAttributeget_CopyrightStringEmptyAssemblyDescriptionAttributeget_Descriptionget_LocationPathSystem.IOGetDirectoryNameAppDomainget_CurrentDomainGetAssembliesIList`1System.Collections.GenericReadOnlyCollection`1System.Collections.ObjectModelAssemblyProductAttributeget_Productget_StackTraceAssemblyTitleAttributeget_TitleAssemblyTrademarkAttributeget_TrademarkVersionget_Versionget_WorkingSetTypeConverterSystem.ComponentModelNotImplementedExceptionExceptionSerializationInfoSystem.Runtime.SerializationStreamingContextGetCommandLineArgsIEnumerable`1List`1get_CountRemoveAtAsReadOnlyThreadExceptionEventArgsCancelEventArgsEventArgsSystem.Windows.FormsApplicationContextFormget_MainFormset_MainFormFormCollectionApplicationget_OpenFormsDoEventsRunDelegateCombineRemoveOnMainFormClosedReadOnlyCollectionBaseSystem.Collectionsget_ItemBooleanInt32DoubleByteSByteUInt32DecimalZeroCompareUInt64Int64Int16ArgumentExceptionToLowerFormatExceptionFormatInvalidCastExceptionParseConvertToByteGetTypeTypeCodeGetTypeCodeToCharArrayget_CharsToCharIsInstanceOfTypeChangeTypeCharEqualsMemberInfoConcatToSByteToStringIFormatProviderToUInt32ToUInt64ToUInt16AttributeTryParseDBNullget_IsArrayStartsWithSubstringDateTimeMinusOneToDecimalMultiplySingleUInt16ToDoubleNumberFormatInfoget_NumberFormatget_IsValueTypeAddToInt32BinderCloneMissingMemberExceptionParameterInfoMethodBaseGetParametersIndexOfAmbiguousMatchExceptionGetValueget_ParameterTypeget_IsByRefCopyget_IsPrimitiveget_IsOptionalget_DefaultValueMissingValueRuntimeHelpersSystem.Runtime.CompilerServicesGetObjectValueCreateInstanceSetValueGetElementTypeMathMinMaxIsSubclassOfParamArrayAttributeMethodInfoget_ReturnTypeGetMethodget_IsEnumBindingFlagsInvokeMemberGetDefaultMembersParameterModifierInvokeMissingMethodExceptionToInt64ToSingleToInt16CompareToToBooleanSubtractDivideByZeroExceptionPowIConvertibleGetInvalidOperationExceptionEnumget_MessageCompareOrdinalRemainderNegateOneRoundget_TicksTimeSpanSetToDateTimeget_ExitCodeExitget_Hourget_Minuteget_MillisecondToShortDateStringget_Yearget_Monthget_DayToShortTimeStringInsertRegexOptionsSystem.Text.RegularExpressionsRegexIsMatchStringBuilderSystem.TextAppendget_RankGetUpperBoundGetLongLengthget_LongLengthGetExecutingAssemblyResourceManagerSystem.ResourcesGetStringSoundPlayerSystem.MediaStreamMemoryStreamIDisposableDisposeSystemSoundPlayStopPlayLoopingPlaySyncget_UtcNowget_Nowget_TickCountScreenget_PrimaryScreenget_InstalledUICultureOperatingSystemget_OSVersionPlatformIDget_PlatformSendKeysSendSendWaitKeysControlget_ModifierKeysSystemInformationget_MouseButtonsSwappedget_MouseWheelPresentget_MouseWheelScrollLinesWebClientSystem.NetWebRequestUriGetWebRequestset_TimeoutArgumentOutOfRangeExceptionFileExistsDeleteIOExceptionICredentialsset_CredentialsDownloadFileAsyncDialogResultShowDialogOperationCanceledExceptionDownloadFileNetworkCredentialget_HostPingSystem.Net.NetworkInformationPingReplyIPStatusget_StatusUploadFileAsyncUploadFileNetworkInterfaceGetIsNetworkAvailableLabelset_TextButtonProgressBarSuspendLayoutAnchorStylesset_Anchorset_DialogResultSystem.DrawingPointset_Locationset_NameSizeset_Sizeset_TabIndexButtonBaseset_UseVisualStyleBackColorSizeFContainerControlset_AutoScaleDimensionsAutoScaleModeset_AutoScaleModeIButtonControlset_CancelButtonset_ClientSizeControlCollectionget_ControlsFormBorderStyleset_FormBorderStyleset_MaximizeBoxset_MinimizeBoxset_ShowInTaskbarResumeLayoutset_ValueCloseProgressChangedEventArgsget_ProgressPercentageCancelAsyncAsyncCompletedEventHandlerremove_DownloadFileCompletedDownloadProgressChangedEventHandlerremove_DownloadProgressChangedUploadFileCompletedEventHandlerremove_UploadFileCompletedUploadProgressChangedEventHandlerremove_UploadProgressChangedadd_DownloadFileCompletedadd_DownloadProgressChangedadd_UploadFileCompletedadd_UploadProgressChangedEventHandlerremove_Clickadd_ClickSerialPortSystem.IO.PortsOpenParityStopBitsGetPortNamesget_MachineNameDirectorySeparatorCharAltDirectorySeparatorCharTrimEndGetFullPathDirectoryInfoDirectoryCreateDirectoryGetFilesAddRangeIEnumerableIEnumeratorGetEnumeratorget_CurrentMoveNextGetDirectoriesContainsQueue`1ToUpperInvariantFileModeFileAccessFileShareFileOptionsFileStreamStreamReaderReadToArrayget_EndOfStreamEnqueueDequeueDriveInfoFileInfoGetFileNameGetTempFileNameEncodingStreamWriterReadAllBytesReadAllTextMoveWriteget_UTF8get_CurrentDirectoryset_CurrentDirectoryGetDrivesDictionary`2ReplaceFileAttributesGetAttributesDebugSystem.DiagnosticsWriteLineShowComponentKeyValuePair`2IDictionaryget_Dataget_Keyget_ValueFileSystemInfoget_LastWriteTimeIconExtractAssociatedIconBitmapToBitmapImagePictureBoxset_ImageMinValueop_Subtractionget_TotalSecondsProgressBarStyleset_Styleset_AcceptButtonISupportInitializeBeginInitset_AutoSizeset_TabStopset_ShowIconEndInitPerformLayoutGetInt64GetObjectDataAddValueget_InnerExceptionget_NewLineEndsWithget_CommonAppDataPathget_UserAppDataPathSpecialFolderGetFolderPathGetTempPathTextReaderTrimFinalizeReadLineReadToEndGCSuppressFinalizeTraceListenerget_ExecutablePathGetFileNameWithoutExtensionTextWriterFlushTraceFilterget_FilterTraceEventCacheTraceEventTypeShouldTraceTraceOptionsget_TraceOutputOptionsget_CallstackStackget_LogicalOperationStackget_DateTimeget_InvariantCultureget_ProcessIdget_ThreadIdget_Timestampget_BaseStreamget_TotalFreeSpaceget_TodayDayOfWeekget_DayOfWeekAddDaysTraceSourceTraceListenerCollectionget_ListenersSourceSwitchget_SwitchSourceLevelsset_LevelLogTraceEventArgumentNullExceptionClipboardClearContainsAudioContainsDataContainsFileDropListContainsImageContainsTextTextDataFormatGetAudioStreamGetDataIDataObjectGetDataObjectStringCollectionSystem.Collections.SpecializedGetFileDropListGetImageGetTextSetAudioSetDataSetDataObjectSetFileDropListSetImageSetTextRegistryMicrosoft.Win32RegistryValueKindRegistryKeyClassesRootCurrentConfigCurrentUserDynDataLocalMachinePerformanceDataUsersget_SecondToUniversalTimeUnauthorizedAccessExceptionApplicationExceptionMarshalSystem.Runtime.InteropServicesGetHRForLastWin32ErrorThrowExceptionForHRHashtableget_IsSynchronizedget_SyncRootArrayListIndexOutOfRangeExceptionset_ItemDictionaryEntryContainsKeyIListSignAbsget_FullNameToUpperFloorNullReferenceExceptionIsWhiteSpaceIsDigitNotSupportedExceptionBinaryReaderReadInt32get_Defaultset_AutoFlushBinaryWriterget_PositionReadInt16ReadByteReadCharReadDoubleFromOADateReadInt64FromOACurrencyReadSingleReadCharsEndOfStreamExceptionReadStringToOACurrencyGetBitsToOADateGetLengthGetLowerBoundPeekCharReadBlockLockset_PositionUnlockDateTimeFormatInfoget_CurrentInfoDateTimeStylesParseExactget_TimeOfDayget_Hoursget_Minutesget_Secondsget_MillisecondsCalendarget_CalendarAddYearsAddMonthsAddHoursAddMinutesAddSecondsget_FirstDayOfWeekget_Daysget_TotalHoursget_TotalMinutesCalendarWeekRuleGetWeekOfYearget_DayOfYearget_DateTimeFormatget_DateGetAbbreviatedMonthNameGetMonthNameGetAbbreviatedDayNameGetDayNameset_SourceOverflowExceptionOutOfMemoryExceptionStackOverflowExceptionTypeLoadExceptionFileNotFoundExceptionMissingFieldExceptionget_ExistsSetCurrentDirectoryIsLetterVolumeSeparatorCharDirectoryNotFoundExceptionGetCurrentDirectoryICollectionget_ValuesGetInvalidPathCharsIndexOfAnyLastIndexOfSetAttributesNumberStylesValueTypeGetUnderlyingTypeJoinDeleteSubKeyTreeOpenSubKeyDeleteValueget_ValueCountGetValueNamesPadLeftCreateSubKeyMessageBoxButtonsMessageBoxIconMessageBoxDefaultButtonMessageBoxOptionsMessageBoxTextBoxget_ClientSizeget_Widthget_Xget_Heightget_TextTextInfoget_TextInfoget_ANSICodePageGetEncodingGetBytesget_CurrencySymbolTrimStartget_LongTimePatternget_ShortDatePatternget_LongDatePatternget_PercentSymbolPadRightReverseRandomNextDoubleMicrosoft.VisualBasicMicrosoft.VisualBasic.ApplicationServicesMicrosoft.VisualBasic.CompilerServicesMicrosoft.VisualBasic.DevicesMicrosoft.VisualBasic.FileIOMicrosoft.VisualBasic.LoggingMicrosoft.VisualBasic.MyServices.InternalMicrosoft.VisualBasic.MyServicesMicrosoft.VisualBasic.OSSpecificApplicationBaseAssemblyInfoAuthenticationModeBuiltInRoleBuiltInRoleConverterCantStartSingleInstanceExceptionConsoleApplicationBaseWebUserUnhandledExceptionEventArgsUnhandledExceptionEventHandlerNoStartupFormExceptionShutdownEventHandlerShutdownModeStartupEventArgsStartupEventHandlerStartupNextInstanceEventArgsStartupNextInstanceEventHandlerUserWindowsFormsApplicationBaseWindowsFormsApplicationContextBooleanTypeByteTypeCharArrayTypeCharTypeConversionsOptionCompareAttributeNewLateBindingObjectFlowControlForLoopControlLikeOperatorInternalErrorExceptionExceptionUtilsDesignerGeneratedAttributeOptionTextAttributeTypeCombinationsVBErrorsVersionedDateTypeDecimalTypeDoubleTypeFlowControlLoopForObjectHostServicesIncompleteInitializationIntegerTypeIVbHostLateBinderTypeConversionSignatureCompareBStateLateBindingLongTypeObjectTypeOperatorsCompareResultAndHandlerOrHandlerBitWiseOpHandlerXorHandlerVBConvertProjectDataShortTypeSingleTypeStandardModuleAttributeStaticLocalInitFlagStringTypeUtilsAudioClockComputerComputerInfoComputerInfoDebugViewKeyboardMouseMyWebClientNetworkNetworkAvailableEventArgsNetworkAvailableEventHandlerMyProgressDialogPortsServerComputerDeleteDirectoryOptionFieldTypeFileSystemFileSystemOperationInfoFileSystemOperationUIFileSystemOperationUIQuestionAnswerMalformedLineExceptionRecycleOptionSearchOptionSpecialDirectoriesTextFieldParserUICancelOptionUIOptionAspLogDiskSpaceExhaustedOptionFileLogTraceListenerLogFileCreationScheduleOptionLogFileLocationContextValue`1ClipboardProxyFileSystemProxyRegistryProxySpecialDirectoriesProxyLinuxDriverOSDriverWin32DriverSystemTimeAppWinStyleCallTypeCollectionColEnumeratorCollectionDebugViewComClassAttributeCompareMethodConstantsControlCharsConversionAudioPlayModeFileVariableTypeArrayDescriptorFileDataGlobalsSpcInfoTabInfoVBFixedStringAttributeVBFixedArrayAttributeMyGroupCollectionAttributeDateAndTimeDateFormatDateIntervalDueDateErrObjectFileAttributeFinancialFirstDayOfWeekFirstWeekOfYearHideModuleNameAttributeInformationInteractionInputFormMsgBoxResultMsgBoxStyleOpenAccessOpenModeOpenShareStringsTriStateVariantTypeVBMathVbStrConvMonoTODOAttributeMonoDocumentationNoteAttributeMonoExtensionAttributeMonoInternalNoteAttributeMonoLimitationAttributeMonoNotSupportedAttributem_AssemblyInfom_LogChangeCulturecultureNameChangeUICulturenameget_Infoget_Cultureget_Logget_UICultureCultureUICulturem_CurrentAssemblycurrentAssemblyget_AssemblyNameget_CompanyNameget_DirectoryPathget_LoadedAssembliesget_ProductNameCompanyNameCopyrightDescriptionDirectoryPathLoadedAssembliesProductNameStackTraceTitleTrademarkWorkingSetvalue__ApplicationDefinedWindowsAccountOperatorAdministratorBackupOperatorGuestPowerUserPrintOperatorReplicatorSystemOperatorCanConvertToITypeDescriptorContextcontextdestinationTypeConvertToculturevalueGetWindowsBuiltInRoleWindowsBuiltInRoleSystem.Security.Principalrolemessageinnerinfoget_CommandLineArgsset_InternalCommandLineget_IsNetworkDeployedCommandLineArgsInternalCommandLineIsNetworkDeployedget_InternalPrincipalIPrincipalset_InternalPrincipalInternalPrincipalm_ExitApplicationexitApplicationexceptionget_ExitApplicationset_ExitApplicationExitApplicationMulticastDelegateTargetObjectTargetMethodBeginInvokeIAsyncResultAsyncCallbacksendereDelegateCallbackDelegateAsyncStateEndInvokeDelegateAsyncResultAfterAllFormsCloseAfterMainFormClosesm_CommandLineargsget_CommandLineCommandLinem_BringToForegroundbringToForegroundFlagget_BringToForegroundset_BringToForegroundBringToForegroundInitializeWithWindowsUserIsInRoleget_CurrentPrincipalset_CurrentPrincipalget_IsAuthenticatedCurrentPrincipalIsAuthenticatedNamem_IsSingleInstancem_EnableVisualStylesm_SaveMySettingsOnExitm_ShutdownStylem_AuthenticationModem_ApplicationContextm_MinimumSplashScreenTimem_SplashScreenNetworkAvailabilityChangedEventShutdownEventStartupEventStartupNextInstanceEventUnhandledExceptionEventmodeget_UseCompatibleTextRenderingcommandLineget_IsSingleInstanceset_IsSingleInstanceget_EnableVisualStylesset_EnableVisualStylesget_SaveMySettingsOnExitset_SaveMySettingsOnExitget_ShutdownStyleset_ShutdownStyleget_ApplicationContextget_MinimumSplashScreenDisplayTimeset_MinimumSplashScreenDisplayTimeget_SplashScreenset_SplashScreenHideSplashScreenOnCreateMainFormOnCreateSplashScreenOnInitializecommandLineArgsOnRunOnShutdownOnStartupeventArgsOnStartupNextInstanceOnUnhandledExceptionShowSplashScreenadd_NetworkAvailabilityChangedobjremove_NetworkAvailabilityChangedadd_Shutdownremove_Shutdownadd_Startupremove_Startupadd_StartupNextInstanceremove_StartupNextInstanceadd_UnhandledExceptionremove_UnhandledExceptionNetworkAvailabilityChangedShutdownStartupStartupNextInstanceUnhandledExceptionUseCompatibleTextRenderingIsSingleInstanceEnableVisualStylesSaveMySettingsOnExitShutdownStyleMainFormMinimumSplashScreenDisplayTimeOpenFormsSplashScreenm_ApplicationFromObjectFromStringExpressionTargetTypeFromCharAndCountCountFromCharArrayFromCharArraySubsetStartIndexLengthToCharArrayRankOneToDateToGenericParameterToIntegerToLongToShortNumberFormatToUIntegerToULongToUShortLateCallInstanceMemberNameArgumentsArgumentNamesTypeArgumentsCopyBackIgnoreReturnLateCanEvaluateinstancetypememberNameargumentsallowFunctionEvaluationallowPropertyEvaluationLateGetLateIndexGetLateIndexSetLateIndexSetComplexOptimisticSetRValueBaseLateSetLateSetComplexCheckForSyncLockOnValueTypeForLoopInitObjCounterStartLimitStepValueLoopForResultCounterResultForNextCheckDeccountlimitForNextCheckObjLoopObjForNextCheckR4ForNextCheckR8LikeObjectSourcePatternCompareOptionLikeStringinnerExceptionGetVBExceptionNumberSHIFTEmpty_EmptyEmpty_ObjectEmpty_DBNullEmpty_BooleanEmpty_CharEmpty_SByteEmpty_ByteEmpty_Int16Empty_UInt16Empty_Int32Empty_UInt32Empty_Int64Empty_UInt64Empty_SingleEmpty_DoubleEmpty_DecimalEmpty_DateTimeEmpty_StringObject_EmptyObject_ObjectObject_DBNullObject_BooleanObject_CharObject_SByteObject_ByteObject_Int16Object_UInt16Object_Int32Object_UInt32Object_Int64Object_UInt64Object_SingleObject_DoubleObject_DecimalObject_DateTimeObject_StringDBNull_EmptyDBNull_ObjectDBNull_DBNullDBNull_BooleanDBNull_CharDBNull_SByteDBNull_ByteDBNull_Int16DBNull_UInt16DBNull_Int32DBNull_UInt32DBNull_Int64DBNull_UInt64DBNull_SingleDBNull_DoubleDBNull_DecimalDBNull_DateTimeDBNull_StringBoolean_EmptyBoolean_ObjectBoolean_DBNullBoolean_BooleanBoolean_CharBoolean_SByteBoolean_ByteBoolean_Int16Boolean_UInt16Boolean_Int32Boolean_UInt32Boolean_Int64Boolean_UInt64Boolean_SingleBoolean_DoubleBoolean_DecimalBoolean_DateTimeBoolean_StringChar_EmptyChar_ObjectChar_DBNullChar_BooleanChar_CharChar_SByteChar_ByteChar_Int16Char_UInt16Char_Int32Char_UInt32Char_Int64Char_UInt64Char_SingleChar_DoubleChar_DecimalChar_DateTimeChar_StringSByte_EmptySByte_ObjectSByte_DBNullSByte_BooleanSByte_CharSByte_SByteSByte_ByteSByte_Int16SByte_UInt16SByte_Int32SByte_UInt32SByte_Int64SByte_UInt64SByte_SingleSByte_DoubleSByte_DecimalSByte_DateTimeSByte_StringByte_EmptyByte_ObjectByte_DBNullByte_BooleanByte_CharByte_SByteByte_ByteByte_Int16Byte_UInt16Byte_Int32Byte_UInt32Byte_Int64Byte_UInt64Byte_SingleByte_DoubleByte_DecimalByte_DateTimeByte_StringInt16_EmptyInt16_ObjectInt16_DBNullInt16_BooleanInt16_CharInt16_SByteInt16_ByteInt16_Int16Int16_UInt16Int16_Int32Int16_UInt32Int16_Int64Int16_UInt64Int16_SingleInt16_DoubleInt16_DecimalInt16_DateTimeInt16_StringUInt16_EmptyUInt16_ObjectUInt16_DBNullUInt16_BooleanUInt16_CharUInt16_SByteUInt16_ByteUInt16_Int16UInt16_UInt16UInt16_Int32UInt16_UInt32UInt16_Int64UInt16_UInt64UInt16_SingleUInt16_DoubleUInt16_DecimalUInt16_DateTimeUInt16_StringInt32_EmptyInt32_ObjectInt32_DBNullInt32_BooleanInt32_CharInt32_SByteInt32_ByteInt32_Int16Int32_UInt16Int32_Int32Int32_UInt32Int32_Int64Int32_UInt64Int32_SingleInt32_DoubleInt32_DecimalInt32_DateTimeInt32_StringUInt32_EmptyUInt32_ObjectUInt32_DBNullUInt32_BooleanUInt32_CharUInt32_SByteUInt32_ByteUInt32_Int16UInt32_UInt16UInt32_Int32UInt32_UInt32UInt32_Int64UInt32_UInt64UInt32_SingleUInt32_DoubleUInt32_DecimalUInt32_DateTimeUInt32_StringInt64_EmptyInt64_ObjectInt64_DBNullInt64_BooleanInt64_CharInt64_SByteInt64_ByteInt64_Int16Int64_UInt16Int64_Int32Int64_UInt32Int64_Int64Int64_UInt64Int64_SingleInt64_DoubleInt64_DecimalInt64_DateTimeInt64_StringUInt64_EmptyUInt64_ObjectUInt64_DBNullUInt64_BooleanUInt64_CharUInt64_SByteUInt64_ByteUInt64_Int16UInt64_UInt16UInt64_Int32UInt64_UInt32UInt64_Int64UInt64_UInt64UInt64_SingleUInt64_DoubleUInt64_DecimalUInt64_DateTimeUInt64_StringSingle_EmptySingle_ObjectSingle_DBNullSingle_BooleanSingle_CharSingle_SByteSingle_ByteSingle_Int16Single_UInt16Single_Int32Single_UInt32Single_Int64Single_UInt64Single_SingleSingle_DoubleSingle_DecimalSingle_DateTimeSingle_StringDouble_EmptyDouble_ObjectDouble_DBNullDouble_BooleanDouble_CharDouble_SByteDouble_ByteDouble_Int16Double_UInt16Double_Int32Double_UInt32Double_Int64Double_UInt64Double_SingleDouble_DoubleDouble_DecimalDouble_DateTimeDouble_StringDecimal_EmptyDecimal_ObjectDecimal_DBNullDecimal_BooleanDecimal_CharDecimal_SByteDecimal_ByteDecimal_Int16Decimal_UInt16Decimal_Int32Decimal_UInt32Decimal_Int64Decimal_UInt64Decimal_SingleDecimal_DoubleDecimal_DecimalDecimal_DateTimeDecimal_StringDateTime_EmptyDateTime_ObjectDateTime_DBNullDateTime_BooleanDateTime_CharDateTime_SByteDateTime_ByteDateTime_Int16DateTime_UInt16DateTime_Int32DateTime_UInt32DateTime_Int64DateTime_UInt64DateTime_SingleDateTime_DoubleDateTime_DecimalDateTime_DateTimeDateTime_StringString_EmptyString_ObjectString_DBNullString_BooleanString_CharString_SByteString_ByteString_Int16String_UInt16String_Int32String_UInt32String_Int64String_UInt64String_SingleString_DoubleString_DecimalString_DateTimeString_StringERR3_This_Error_number_is_obsolete_and_no_longer_usedERR5_Invalid_procedure_callERR6_OverflowERR7_Out_of_memoryERR9_Subscript_out_of_rangeERR10_This_array_is_fixed_or_temporarily_lockedERR11_Division_by_zeroERR13_Type_mismatchERR14_Out_of_string_spaceERR16_Expression_too_complexERR17_Can_t_perform_requested_operationERR18_User_interrupt_occurredERR20_Resume_without_errorERR28_Out_of_stack_spaceERR35_Sub_Function_or_Property_not_definedERR47_Too_many_DLL_application_clientsERR48_Error_in_loading_DLLERR49_Bad_DLL_calling_conventionERR51_Internal_errorERR52_Bad_file_name_or_numberERR53_File_not_foundERR54_Bad_file_modeERR55_File_already_openERR57_Device_IO_errorERR58_File_already_existsERR59_Bad_record_lengthERR61_Disk_fullERR62_Input_past_end_of_fileERR63_Bad_record_numberERR67_Too_many_filesERR68_Device_unavailableERR70_Permission_deniedERR71_Disk_not_readyERR74_Can_t_rename_with_different_driveERR75_Path_File_access_errorERR76_Path_not_foundERR91_Object_variable_or_With_block_variable_not_setERR92_For_loop_not_initializedERR93_Invalid_pattern_stringERR94_Invalid_use_of_NullERR95_Application_defined_or_object_defined_errorERR97_Can_t_call_Friend_procedure_on_an_object_that_is_not_an_instance_of_the_defining_classERR98_A_property_or_method_call_cannot_include_a_reference_to_a_private_object_either_as_an_argument_or_as_a_return_valueERR298_System_DLL_could_not_be_loadedERR320_Can_t_use_character_device_names_in_specified_file_namesERR321_Invalid_file_formatERR322_Cant_create_necessary_temporary_fileERR325_Invalid_format_in_resource_fileERR327_Data_value_named_not_foundERR328_Illegal_parameter_cant_write_arraysERR335_Could_not_access_system_registryERR336_Component_not_correctly_registeredERR337_Component_not_foundERR338_Component_did_not_run_correctlyERR360_Object_already_loadedERR361_Can_t_load_or_unload_this_objectERR363_Control_specified_not_foundERR364_Object_was_unloadedERR365_Unable_to_unload_within_this_contextERR368_The_specified_file_is_out_of_date__This_program_requires_a_later_versionERR371_The_specified_object_cant_be_used_as_an_owner_form_for_ShowERR380_Invalid_property_valueERR381_Invalid_property_array_indexERR382_Property_Set_cant_be_executed_at_run_timeERR383_Property_Set_cant_be_used_with_a_read_only_propertyERR385_Need_property_array_indexERR387_Property_Set_not_permittedERR393_Property_Get_cant_be_executed_at_run_timeERR394_Property_Get_cant_be_executed_on_write_only_propertyERR400_Form_already_displayed_cant_show_modallyERR402_Code_must_close_topmost_modal_form_firstERR419_Permission_to_use_object_deniedERR422_Property_not_foundERR423_Property_or_method_not_foundERR424_Object_requiredERR425_Invalid_object_useERR429_Component_cant_create_object_or_return_reference_to_this_objectERR430_Class_doesnt_support_AutomationERR432_File_name_or_class_name_not_found_during_Automation_operationERR438_Object_doesnt_support_this_property_or_methodERR440_Automation_errorERR442_Connection_to_type_library_or_object_library_for_remote_process_has_been_lostERR443_Automation_object_doesnt_have_a_default_valueERR445_Object_doesnt_support_this_actionERR446_Object_doesnt_support_named_argumentsERR447_Object_doesnt_support_current_locale_settingERR448_Named_argument_not_foundERR449_Argument_not_optional_or_invalid_property_assignmentERR450_Wrong_number_of_arguments_or_invalid_property_assignmentERR451_Object_not_a_collectionERR452_Invalid_ordinalERR453_Specified_not_foundERR454_Code_resource_not_foundERR455_Code_resource_lock_errorERR457_This_key_is_already_associated_with_an_element_of_this_collectionERR458_Variable_uses_a_type_not_supported_in_Visual_BasicERR459_This_component_doesnt_support_the_set_of_eventsERR460_Invalid_Clipboard_formatERR461_Method_or_data_member_not_foundERR462_The_remote_server_machine_does_not_exist_or_is_unavailableERR463_Class_not_registered_on_local_machineERR480_Can_t_create_AutoRedraw_imageERR481_Invalid_pictureERR482_Printer_errorERR483_Printer_driver_does_not_support_specified_propertyERR484_Problem_getting_printer_information_from_the_system_Make_sure_the_printer_is_set_up_correctlyERR485_Invalid_picture_typeERR486_Can_t_print_form_image_to_this_type_of_printerERR520_Can_t_empty_ClipboardERR521_Can_t_open_ClipboardERR735_Can_t_save_file_to_TEMP_directoryERR744_Search_tex_not_foundERR746_Replacements_too_longERR31001_Out_of_memoryERR31004_No_objectERR31018_Class_is_not_setERR31027_Unable_to_activate_objectERR31032_Unable_to_create_embedded_objectERR31036_Error_saving_to_fileERR31037_Error_loading_from_fileCallByNameMethodNameUseCallTypeIsNumericSystemTypeNameVbNameTypeNameVbTypeNameSystemNameFromBooleanresultForEachInArraryForEachInObjForEachNextObjenumeratorhost.cctorget_VBHostset_VBHostVBHostGetWindowTitleGetParentWindowIWin32Window_wasIncompleteInvocation_invokeNext_invokeNextArgsget_WasIncompleteInvocationget_InvokeNextget_InvokeNextArgsGetStateInstanceBindToFieldFieldInfobindingAttrmatchBindToMethodmodifiersnamesstatetype1ReorderArgumentArraySelectMethodtypesSelectPropertyPropertyInforeturnTypeindexesPrepareArgumentsparametersbstateGetArgumentsMappingPrepareParametersfConvertValuetype2CompareMethodsf1f2CompareWideningTypestype1isParamArraytype2isParamArrayCompareWideningTypesWithNothingGetArgumentTypenumberGetParameterTypeIsParamArrayindexFilterMethodsByParameterNamemethodsIsGetterThatReturnObjectWithIndexermethodFilterMethodsCompareSignatureCompareTypesWasIncompleteInvocationInvokeNextInvokeNextArgsNotConvertibleEqualWideningNarrowingLeftRightAmbiguitymappingoargsget_LBinderoobjTypeparamnamesLBinderBiggestTypeCodeobj1obj2ObjTsto1o2TextCompareGetCaseNotImplementedmsgPlusObjNegObjNotObjBitAndObjBitOrObjBitXorObjAddObjSubObjMulObjDivObjPowObjShiftLeftObjamountShiftRightObjModObjIDivObjXorObjLikeObjvLeftvRightStrCatObjGetObjectValuePrimitiveCreateNullObjectTypeotypeDEST_TYPECODE_ADDDEST_TYPECODE_SUBTRACTDEST_TYPECODE_DIVIDEDEST_TYPECODE_INTDIVIDEDEST_TYPECODE_MULTIPLYDEST_TYPECODE_BITWISE_OPDEST_TYPECODE_MODDEST_TYPECODE_COMPARECompareBooleanCompareByteCompareCharCompareDateIntToCompareResultvalCompareDecimalCompareDoubleCompareInt16CompareInt32CompareInt64CompareSByteCompareSingleCompareUInt16CompareUInt32CompareUInt64DestTypeCodeOpAddDestTypeCodeOpSubtractDestTypeCodeOpDivideDestTypeCodeOpIntDivideDestTypeCodeOpMultiplyDestTypeCodeOpModDestTypeCodeBitwiseOpDestTypeCodeOpCompareAddBooleansAddBytesAddCharsAddDateTimesAddDecimalsAddDoublesAddInt16sAddInt32sAddInt64sAddObjectsAddSBytesAddSinglesAddStringsAddUInt16sAddUInt32sAddUInt64sAddObjectAndObjectCompareObjectCompareObjectInternalCompareObjectEqualCompareObjectGreaterCompareObjectGreaterEqualCompareObjectLessCompareObjectLessEqualCompareObjectNotEqualCompareStringConcatenateObjectInvokeBinaryOperatorleftrightoperationretInvokeUnaryOperatoroperandConditionalCompareObjectEqualConditionalCompareObjectGreaterConditionalCompareObjectGreaterEqualConditionalCompareObjectLessConditionalCompareObjectLessEqualConditionalCompareObjectNotEqualDivideObjectsIntDivideObjectsMultiplyObjectsModObjectsDivideObjectExponentObjectIsUnsignNumIntDivideObjectLeftShiftObjectOperandAmountModObjectSizeDownnumminTCMultiplyAndSizetcMultiplyObjectPlusBooleanPlusStringNegateBooleanNegateByteNegateUInt16NegateUInt32NegateUInt64NegateSByteNegateDecimalNegateDoubleNegateSingleNegateInt16NegateInt32NegateInt64NegateStringNegateObject_PlusObject_RightShiftObject_LeftShiftObject_NegateObjectNotObject_NotStringNotObjectOrObjectsXorObjectsAndObjectsGetAsLongOrObjectBitWiseOpObjectopHandlerPlusObjectGetAmountAsIntegerRightShiftObjectSubtractBooleansSubtractBytesSubtractDecimalsSubtractDoublesSubtractInt16sSubtractInt32sSubtractInt64sSubtractObjectsSubtractSBytesSubtractSinglesSubtractUInt16sSubtractUInt32sSubtractUInt64sSubtractDateTimeSubtractObjectXorObjectLessGreaterNotResolvedDoBitWiseOpGetOpNameInstm_projectErrorget_ProjectErrorClearProjectErrorCreateProjectErrorhrSetProjectErrorexlErlEndAppProjectErrorStateFromCharFromIntegerFromDecimalFromDoubleFromByteFromSingleFromLongFromShortStrCmpsLeftsRighttextCompareFromDateMidStmtStrsDestStartPositionMaxInsertLengthsInsertStrLikeConvertLikeExpressionexpressionConvertGroupSubexpressioncarrposStrLikeBinaryStrLikeTextm_ResourcesCopyArrayarySrcaryDestMethodToStringMethodSetCultureInfoThrowExceptionGetResourceStringResourceKeyArgsm_PlayerlocationplayModestreamdataPlaySystemSoundsystemSoundplayerget_GmtTimeget_LocalTimeGmtTimeLocalTimeTickCountget_Audioget_Clipboardget_Keyboardget_Mouseget_Portsget_Screenget_AvailablePhysicalMemoryget_AvailableVirtualMemoryget_OSFullNameget_OSPlatformget_TotalPhysicalMemoryget_TotalVirtualMemoryAvailablePhysicalMemoryAvailableVirtualMemoryInstalledUICultureOSFullNameOSPlatformOSVersionTotalPhysicalMemoryTotalVirtualMemorykeyswaitget_AltKeyDownget_CapsLockget_CtrlKeyDownget_NumLockget_ScrollLockget_ShiftKeyDownAltKeyDownCapsLockCtrlKeyDownNumLockScrollLockShiftKeyDownget_ButtonsSwappedget_WheelExistsget_WheelScrollLinesButtonsSwappedWheelExistsWheelScrollLinesTimeoutaddressDEFAULTTIMEOUTdestinationFileNameuserNamepasswordnetworkCredentialsshowUIconnectionTimeoutoverwriteonUserCancelhostNameOrAddresstimeoutsourceFileNameget_IsAvailableIsAvailablem_NetworkAvailablenetworkAvailableget_IsNetworkAvailableIsNetworkAvailable_m_Client_cmdCancel_barProgress_lblStatuscomponentsIContainerClientStatusdisposingInitializeComponentm_Client_DownloadFileCompletedAsyncCompletedEventArgsm_Client_DownloadProgressChangedDownloadProgressChangedEventArgsm_Client_UploadFileCompletedUploadFileCompletedEventArgsm_Client_UploadProgressChangedUploadProgressChangedEventArgscmdCancel_Clickget_m_Clientset_m_Clientget_cmdCancelset_cmdCancelget_barProgressset_barProgressget_lblStatusset_lblStatusm_ClientcmdCancelbarProgresslblStatusOpenSerialPortportNamebaudRateparitydataBitsstopBitsget_SerialPortNamesSerialPortNamesget_Clockget_FileSystemget_Networkget_RegistryDeleteAllContentsThrowIfDirectoryNonEmptyDelimitedFixedWidthStripTrailingSlashdirCombinePathbaseDirectoryrelativePathCopyDirectorysourceDirectoryNamedestinationDirectoryNameCopyFiledirectoryDeleteDirectoryonDirectoryNotEmptyrecycleshowUIOptionDeleteFilefileDirectoryExistsFileExistsFindInFilescontainsTextignoreCasesearchTypefileWildcardsFindInFiles2AddUniqueToListlistitemsFileContainsTexttextwildcardsFindInDirectory2GetDirectoryInfoGetDriveInfodriveGetFileInfopathGetParentPathMoveDirectoryMoveFileOpenTextFieldParserfieldWidthsdelimitersOpenTextFileReaderencodingOpenTextFileWriterappendRenameDirectorynewNameRenameFileWriteAllBytesWriteAllTextget_DrivesCurrentDirectoryDrivesm_Sourcem_Destinationm_Overwritem_DirectoryNotEmptym_ShowUIm_ShowUIOptionm_UICancelOptionm_Recyclem_UIm_Sourcesm_TotalSizem_Cancelledm_Errors$STATIC$DoOverwrite$83345$overWriteAll$STATIC$DoOverwrite$83353$overWriteNoneDestinationShowUIOptionShowUIOverwriteRecycleCancelExecuteFileCopyExecuteFileMoveExecuteDirCopyExecuteDirMoveExecuteDirDeleteExecuteFileDeleteGetDestinationCopyItemDeleteItemDoUpdateIsDirectoryLoadSourcesRecursiveSizeMattersDirSizeInitUpdateUISizeDoneSourceDirectoryDestinationDirectoryItemsDoneCleanUpCopyDirSourceDirDestinationDirDoOverwriteget_OnSameVolumeIsOnSameVolumeOnSameVolumeIsDirm_LastUpdatem_Startm_Startedm_Operationm_SourceDirectorym_DestinationDirectorym_File_lblFile_lblDirs_lblTimeLeftOperationUpdateInfoPercentDoneUpdateInfoInternalget_lblFileset_lblFileget_lblDirsset_lblDirsget_lblTimeLeftset_lblTimeLeftlblFilelblDirslblTimeLeftm_Answer_lblTitle_lblText1_lblText2_lblDateA_lblSizeA_lblDateB_lblSizeB_cmdYes_cmdYesToAll_cmdNo_iconA_iconBcmdNo_ClickcmdYesToAll_ClickcmdYes_Clickget_lblTitleset_lblTitleget_lblText1set_lblText1get_lblText2set_lblText2get_lblDateAset_lblDateAget_lblSizeAset_lblSizeAget_lblDateBset_lblDateBget_lblSizeBset_lblSizeBget_cmdYesset_cmdYesget_cmdYesToAllset_cmdYesToAllget_cmdNoset_cmdNoget_iconAset_iconAget_iconBset_iconBlblTitlelblText1lblText2lblDateAlblSizeAlblDateBlblSizeBcmdYescmdYesToAllcmdNoiconAiconBYesYesToAllNoNoToAllm_LineNumberm_AnyMessagelineNumberget_LineNumberset_LineNumberLineNumberDeletePermanentlySendToRecycleBinSearchAllSubDirectoriesSearchTopLevelOnlyRemovePathSeparatorget_AllUsersApplicationDataget_CurrentUserApplicationDataget_Desktopget_MyDocumentsget_MyMusicget_MyPicturesget_ProgramFilesget_Programsget_TempAllUsersApplicationDataCurrentUserApplicationDataDesktopMyDocumentsMyMusicMyPicturesProgramFilesProgramsTempm_Readerm_LeaveOpenm_CommentTokensm_Delimitersm_ErrorLinem_ErrorLineNumberm_FieldWidthsm_HasFieldsEnclosedInQuotesm_TextFieldTypem_TrimWhiteSpacem_PeekedLinem_MinFieldLengthdisposedValuereaderdefaultEncodingdetectEncodingleaveOpenGetDelimitedFieldsGetNextFieldlinestartIndexnextIndexRaiseDelimiterExLineRaiseFieldWidthExGetWidthFieldsIsCommentLineGetNextRealLineGetNextLinePeekCharsnumberOfCharsReadFieldsSetDelimitersSetFieldWidthsget_CommentTokensset_CommentTokensget_Delimitersset_Delimitersget_EndOfDataget_ErrorLineget_ErrorLineNumberget_FieldWidthsset_FieldWidthsget_HasFieldsEnclosedInQuotesset_HasFieldsEnclosedInQuotesget_TextFieldTypeset_TextFieldTypeget_TrimWhiteSpaceset_TrimWhiteSpaceCommentTokensDelimitersEndOfDataErrorLineErrorLineNumberFieldWidthsHasFieldsEnclosedInQuotesTextFieldTypeTrimWhiteSpaceDoNothingAllDialogsOnlyErrorDialogsInitializeWithDefaultsSinceNoConfigExistsDiscardMessagesm_Appendm_AutoFlushm_BaseFileNamem_CustomLocationm_Delimiterm_DiskSpaceExhaustedBehaviourm_Encodingm_IncludeHostNamem_Locationm_LogFileCreationSchedulem_MaxFileSizem_ReserveDiskSpacem_Streamm_SupportedAttributesGetSupportedAttributesTraceDataeventCachesourceeventTypeidformatCheckSpacemsgSizeGetOpenStreamget_Appendset_Appendget_AutoFlushget_BaseFileNameset_BaseFileNameget_CustomLocationset_CustomLocationget_Delimiterset_Delimiterget_DiskSpaceExhaustedBehaviorset_DiskSpaceExhaustedBehaviorget_Encodingset_Encodingget_FullLogFileNameget_IncludeHostNameset_IncludeHostNameget_LogFileCreationScheduleset_LogFileCreationScheduleget_MaxFileSizeset_MaxFileSizeget_ReserveDiskSpaceset_ReserveDiskSpaceAutoFlushBaseFileNameCustomLocationDelimiterDiskSpaceExhaustedBehaviorFullLogFileNameIncludeHostNameLocationLogFileCreationScheduleMaxFileSizeReserveDiskSpacem_IDsGetIDOfTypeseverityWriteEntryWriteExceptionadditionalInfoget_DefaultFileLogWriterget_TraceSourceDefaultFileLogWriterDailyNoneWeeklyCommonApplicationDirectoryCustomExecutableDirectoryLocalUserApplicationDirectoryTempDirectoryaudioStreamaudioBytesDataObjectfilePathsimageget_SpecialDirectorieskeyNamevalueNamedefaultValuevalueKindget_ClassesRootget_CurrentConfigget_CurrentUserget_DynDataget_LocalMachineget_PerformanceDataget_UsersSetDateSetTimestimetlibcm_Driverget_DrivernewDatenewTimeThrowNotImplementedDriverGetLocalTimesystimekernel32SetLocalTimeYearMonthDayHourMinuteSecondMillisecondsHideNormalFocusMinimizedFocusMaximizedFocusNormalNoFocusMinimizedNoFocusLetISerializableIDeserializationCallbackm_Hashtablem_HashIndexersm_KeysCountModifiedget_IsReadOnlyget_IsFixedSizeget_IList_Countget_IList_Itemset_IList_ItemkeyIListContainsIList_ClearKeyIndexIList_AddAddByKeyItemBeforeAfterGetNextKeyGetIndexPositionCopyToarrayIEnumerable_GetEnumeratorOnDeserializationIsReadOnlyIsSynchronizedSyncRootIsFixedSizeIList_CountIList_ItemcurrentKeyafterLastm_colm_CurrentcollResetget_CurrentInternalCurrentCurrentInternalm_classIDm_interfaceIDm_eventIDm_interfaceShadows_ClassID_InterfaceID_EventIDget_EventIDget_InterfaceShadowsset_InterfaceShadowsget_ClassIDget_InterfaceIDEventIDInterfaceShadowsClassIDInterfaceIDBinaryTextvbCrLfvbNewLinevbCrvbLfvbBackvbFormFeedvbTabvbVerticalTabvbNullCharvbNullStringvbGeneralDatevbLongDatevbLongTimevbShortDatevbShortTimevbFridayvbMondayvbThursdayvbTuesdayvbWednesdayvbSaturdayvbSundayvbUseSystemDayOfWeekvbMethodvbGetvbLetvbSetvbBinaryComparevbTextComparevbUseSystemvbFirstJan1vbFirstFourDaysvbFirstFullWeekvbUpperCasevbLowerCasevbProperCasevbWidevbNarrowvbKatakanavbHiraganavbSimplifiedChinesevbTraditionalChinesevbLinguisticCasingvbEmptyvbNullvbIntegervbLongvbSinglevbDoublevbCurrencyvbDatevbStringvbObjectvbObjectErrorvbBooleanvbVariantvbDecimalvbBytevbUserDefinedTypevbArrayvbArchivevbDirectoryvbHiddenvbNormalvbReadOnlyvbSystemvbVolumevbAbortvbIgnorevbOKvbCancelvbRetryvbYesvbNovbAbortRetryIgnorevbOKOnlyvbOKCancelvbYesNoCancelvbYesNovbRetryCancelvbCriticalvbQuestionvbExclamationvbInformationvbDefaultButton1vbDefaultButton2vbDefaultButton3vbApplicationModalvbSystemModalvbMsgBoxHelpvbMsgBoxRightvbMsgBoxRtlReadingvbMsgBoxSetForegroundvbFalsevbTruevbUseDefaultvbHidevbNormalFocusvbMinimizedFocusvbMaximizedFocusvbNormalNoFocusvbMinimizedNoFocusBackCrCrLfFormFeedLfNewLineNullCharTabVerticalTabQuoteErrorToStringErrorNumberFixHexIntOctStrValInputStrBackgroundBackgroundLoopWaitToCompleteShortIntegerCurrencyDateErrorVariantLongStructureChapterActualCharDBDateDBTimeDBTimeStampFileTimeGuidIDispatchIUnknownLongVarBinaryLongVarCharLongVarWCharNumericPropVariantTinyIntUnsignedBigIntUnsignedIntUserDefindVarBinaryVarCharVarNumericVarWCharWCharRankSizesLowerBoundsHasNonZeroLowerBoundsBinaryStreamFileNumberFileNameModeAccessShareRecordLengthRecordWidthReaderWriterCreateStreamVerifyFileModesModesVerifyWriteAccessVerifyReadAccessWeirdlyVerifyReadAccessEOFFileGetRecordNumberFileGetBinaryStringIsFixedLengthReadDescriptorFileGetRandomArrayIsDynamicFileGetObjectFileGetObjectBinaryFileGetObjectRandomFileGetObjectVariableFileGetObjectArrayFilePutObjectVariablePutDescriptorFilePutFilePutDynamicArrayFilePutArrayDescriptorGetCOMTypeForValueFilePutStaticArrayFilePutObjectFileWidthget_IsEOFReadStringRecordParseRecordrecordReadRecordInputInputStringCharCountLineInputLocRecordFromRecordToRecordLOFPrintOutputPrintLineSeekPositionWriteInternalEndValueIsEOFget_ScriptEngineget_ScriptEngineBuildVersionget_ScriptEngineMajorVersionget_ScriptEngineMinorVersionScriptEngineScriptEngineBuildVersionScriptEngineMajorVersionScriptEngineMinorVersionColumnUpperBound1UpperBound2get_BoundsBounds_typeToCollect_createInstanceMethodName_disposeInstanceMethodName_defaultInstanceAliastypeToCollectcreateInstanceMethodNamedisposeInstanceMethodNamedefaultInstanceAliasget_CreateMethodget_DefaultInstanceAliasget_DisposeMethodget_MyGroupNameCreateMethodDefaultInstanceAliasDisposeMethodMyGroupNameget_DateStringset_DateStringset_Todayget_Timerset_TimeOfDayget_TimeStringset_TimeStringDateAddIntervalDateValueGetDayRuleStartOfWeekDayRuleGetWeekRuleStartOfYearWeekRuleDateDiffDate1Date2ConvertWeekDayOffsetDatePartDateIntervalFromStringDateSerialTimeSerialStringDateTimeValueStringTimeWeekdayMonthNameAbbreviateWeekdayNameFirstDayOfWeekValueDateStringTodayTimerNowTimeOfDayTimeStringGeneralDateLongDateShortDateLongTimeShortTimeQuarterDayOfYearWeekOfYearEndOfPeriodBegOfPeriodm_Numberm_Exceptionm_Descriptionm_HelpContextm_HelpFileIsMappedExceptionToNumberRaiseHelpFileHelpContextGetExceptionset_Descriptionget_Erlget_HelpContextset_HelpContextget_HelpFileset_HelpFileget_LastDllErrorget_Numberset_Numberget_SourceSetExceptionSetExceptionFromNumberMessageGetExceptionFromNumberGetNumberFromExceptionErlLastDllErrorNormalReadOnlyHiddenVolumeArchivem_Indexm_FileSystemInfosm_OpenFilesChDirChDriveDriveCurDirDirPathnameAttributesFindFileDataFileAttrFileCloseFileNumbersFileCopyFileDateTimePathNameFileLenFileOpenFreeFileGetAttrKillMkDirRenameOldPathNewPathRmDirSetAttrSPCTABDDBCostSalvageLifePeriodFactorSLNSYDFVRateNPerPmtPVDueGuessIRRValueArrayMIRRFinanceRateReinvestRatePNPVNNPVIPmtPerPPmtNPVSundayMondayTuesdayWednesdayThursdayFridaySaturdayJan1FirstFourDaysFirstFullWeekErrIsArrayVarNameIsDateIsDBNullIsErrorIsNothingIsReferenceLBoundQBColorColorRGBRedGreenBlueVBNametpUBoundVarTypeUrtNameAppActivateProcessIdBeepObjectRefProcNameChooseChoiceCommandCreateObjectProgIdServerNameDeleteSettingAppNameSectionEnvironGetAllSettingsGetObjectClassGetSettingDefaultIIfTruePartFalsePartInputBoxPromptDefaultResponseXPosYPosPartitionSaveSettingSettingShellStyleWaitSwitchVarExprMsgBoxbokbcancelentryok_Clickcancel_ClickOkAbortRetryIgnoreApplicationModalDefaultButton1OkOnlyOkCancelAbortRetryIgnoreYesNoCancelYesNoRetryCancelCriticalQuestionExclamationDefaultButton2DefaultButton3SystemModalMsgBoxHelpMsgBoxSetForegroundMsgBoxRightMsgBoxRtlReadingReadWriteLockReadWriteLockWriteLockReadSharedPredefinedNumericFormatsPredefinedDateTimeFormatsPredefinedNumbersAfterDigitalSignAsccAscWsChrCharCodeChrWFilterMatchIncludeFormatDateTimeFormatNumericFormatCurrencyNumDigitsAfterDecimalIncludeLeadingDigitUseParensForNegativeNumbersGroupDigitssbNamedFormatFormatNumberFormatPercentGetCharInStrString1String2InStrRevStringCheckStringMatchSourceArrayLCaseLenGetSizeLSetLTrimMidstrFindReplacementIgnoreCaseRSetRTrimSpaceSplitStrCompStrConvLocaleIDStrDupCharacterStrReverseUCaseFalseUseDefaultTrueNullUserDefinedTypem_rndm_lastRndRandomizeLinguisticCasingUppercaseLowercaseProperCaseWideNarrowKatakanaHiraganaSimplifiedChineseTraditionalChinese_commentcommentget_CommentCommentAssemblyCompanyAttributeNeutralResourcesLanguageAttributeAllowPartiallyTrustedCallersAttributeSystem.SecurityComVisibleAttributeCLSCompliantAttributeDebuggableAttributeDebuggingModesCompilationRelaxationsCompilationRelaxationsAttributeRuntimeCompatibilityAttributeSatelliteContractVersionAttributeAssemblyInformationalVersionAttributeAssemblyFileVersionAttributeAssemblyDefaultAliasAttributeAssemblyDelaySignAttributeAssemblyKeyFileAttributeTypeConverterAttributeEditorBrowsableStateEditorBrowsableAttributeSTAThreadAttributeAttributeTargetsAttributeUsageAttributeDebuggerStepThroughAttributeDebuggerHiddenAttributeThreadStaticAttributeConsistencySystem.Runtime.ConstrainedExecutionCerReliabilityContractAttributeDebuggerTypeProxyAttributeDebuggerNonUserCodeAttributeSecurityActionSystem.Security.PermissionsSecurityPermissionAttributeDebuggerDisplayAttributeDefaultMemberAttributeFlagsAttributeObsoleteAttributestrings.resourcesT Value0 true false)CastFromStringToTypeBoolean Byte Count-Conversion from type 'A' to type 'Char()' is not valid.ERRbooleanSystem.Boolean byteSystem.Byte sbyteSystem.SByte charSystem.Char dateSystem.DateTimedecimalSystem.Decimal doubleSystem.DoubleintegerSystem.Int32uintegerSystem.UInt32 longSystem.Int64 ulongSystem.UInt64 objectSystem.Object shortSystem.Int16 ushortSystem.UInt16 singleSystem.Single stringSystem.StringNothing DBNull() String int32Integer uint32UInteger int16 Short uint16 UShort int64 Long uint64 ULong SByte Chardatetime Date Single DoubleDecimal Objectsystem.%CastFromTypeToTypeM'SyncLock' operand cannot be of type '' because '5' is not a reference type.Cast from 'C' to type 'Integer' is not valid.gNamed arguments cannot match ParamArray parameters. get_get_Itemget_BlubberSetGet1This case is not handledImplement me:  implement meop_AdditionMOperator '+' is not defined for type '' and type ''.op_EqualityMOperator '=' is not defined for type 'op_GreaterThanMOperator '>' is not defined for type '+op_GreaterThanOrEqualOOperator '>=' is not defined for type ' '. (op_LessThanMOperator '<' is not defined for type '%op_LessThanOrEqualOOperator '<=' is not defined for type 'op_InequalityOOperator '<>' is not defined for type 'op_Concatenateop_Division%op_IntegerDivisionop_Multiplyop_ModulusMOperator '/' is not defined for type 'MOperator '\' is not defined for type 'OOperator '<<' is not defined for type 'op_LikeSOperator 'Like' is not defined for type 'QOperator 'Mod' is not defined for type ' minTCMOperator '*' is not defined for type '!op_UnaryNegationop_UnaryPlusop_RightShiftop_LeftShiftMOperator '-' is not defined for type '#op_OnesComplementQOperator 'Not' is not defined for type 'op_BitwiseOrop_ExclusiveOrop_BitwiseAndOperator '7' is not defined for type ' AmountOOperator '>>' is not defined for type 'op_SubtractionAndOrXor#implement me: Erl True False[]_'ReDim' cannot change the number of dimensions.a'ReDim' can only change the rightmost dimension.strings9Error message not available.#connectionTimeout=The file '{0}' already exists.)Downloading '{0}'...7The operation was canceled.-Network not available.%Uploading '{0}'...cmdCancelButton1barProgresslblStatus Label1+NetworkProgressDialogWorking... Copy Move?Could not find directory '{0}'. Delete'Directory not empty'Calculating time......Could not complete operation on some files and directories. See the Data property of the exception for more details.-Confirm file overwriteYThis folder already has a file called '{0}'.QDo you want to replace the existing file+with this other file?{0} bytesmodified: {0} seconds'From '{0}' to '{1}'&CancellblFile FilelblDirs DirslblTimeLeftTimeLeft+FileSystemOperationUIOperationlblTitlelblText1lblText2lblDateAmodificado: {0}lblSizeA size alblDateBlblSizeB size b cmdYes &YescmdYesToAllYes to &all cmdNo&No iconA iconB;FileSystemOperationUIQuestionLineNumberkMicrosoft.VisualBasic.FileIO.MalformedLineException: Exception of type 'Microsoft.VisualBasic.FileIO.MalformedLineException' was thrown. ---> [ --- End of inner exception stack trace --- Line Number:\\\Unable to read delimited fields because Delimiters is Nothing or empty. Line _ cannot be parsed using the current Delimiters.a cannot be parsed using the current FieldWidths.Unable to read fixed width fields because FieldWidths is Nothing or empty.gnumberOfChars has to be a positive, non-zero numbernumberOfChars)FileLogTraceListener append AppendautoflushAutoFlushautoFlushbasefilenameBaseFilenamebaseFilenameBaseFileNamebaseFileNamecustomlocationCustomLocationcustomLocationdelimiterDelimiter5diskspaceexhaustedbehavior5DiskSpaceExhaustedBehavior5diskSpaceExhaustedBehaviorencodingEncodingincludehostnameIncludeHostNameincludeHostNamelocationLocation/logfilecreationschedule/LogFileCreationSchedule/logFileCreationSchedulemaxfilesizeMaxFileSizemaxFileSize!reservediskspace!ReserveDiskSpace!reserveDiskSpace"uGLog file size exceeded maximum size?No more disk space for log file-yyyy-MM-dd .log]MaxFileSize has to be greater or equal to 1000DefaultSourceFileLogexCThe caller is not the super-user.=The OS '{0}' is not supported.SetDateSetTimeg'{0}' is not implemented for your operating system.MArgument 'Index' is not a valid index.MArgument 'Index' is not a valid value.Collection1 index must be in the range 1 to the size of the collection. IndexIArgument 'Key' is not a valid value.e'Before' and 'After' arguments cannot be combined.qSpecified argument was out of the range of valid values.cError number must be within the range 0 to 65535. ERR95 Number-Value can not be null.=Type of argument 'Number' is '1', which is not numeric.+Value cannot be null.&OH_Argument 'Number' cannot be converted to type 'EArgument 'Number' is not a number.kObject reference not set to an instance of an object.sArgument 'Number' cannot be converted to a numeric value.gArgument 'Expression' cannot be converted to type 'ho.+ FIXME en-USFIFile is not opened for write access.GFile is not opened for read access.%Bad record length.eCannot determine array type because it is Nothing.Variable uses an Automation type not supported in Visual Basic.%String is too longe'FilePutObject' of structure 'SByte' is not valid.g'FilePutObject' of structure 'UShort' is not valid.k'FilePutObject' of structure 'UInteger' is not valid.e'FilePutObject' of structure 'ULong' is not valid. #TRUE##FALSE# #ERROR# #NULL##ERROR Null Error 9Can't write object of type:  ,#ERROR 448# #FALSEVBMM-dd-yyyyM-d-yyyy M-d-yM/d/yyyy M/d/ycCast from string {0} to type 'Date' is not valid.HH:mm:sshh:mm:ss ttH:mm:ss ttH:mm:ssh:mm:sshh:mm:ss hh:mmhh:mm tt h:mmh:mm tth:m h:m ttaCast from string {0} to type '{1}' is not valid. yyyyqmwwwdynsQArgument 'Interval' is not a valid valueDateValue Date1 Date2MArgument 'Month' is not a valid value.QArgument 'Weekday' is not a valid value.OArgument 'Number' is not a valid value.IArgument 'Path' is Nothing or empty.=The Directory name is invalid. Path '' not found.MArgument 'Drive' is not a valid value.Drive ''Dir' function must first be called with a 'Pathname' argument.%File '' not found.SArgument 'PathName' is not a valid value. File 'Argument 'Access' is not valid. Valid values for Input mode are 'OpenAccess.Read' and 'OpenAccess.Default'.Argument 'Access' is not valid. Valid values for Output mode are 'OpenAccess.Write' and 'OpenAccess.Default'.Argument 'Access' is not valid. Valid values for Append mode are 'OpenAccess.Write' and 'OpenAccess.Default'.Use 'FilePutObject' instead of 'FilePut' when using argument of type 'Object'.AThe path is not of a legal form.5 No files found matching: /Path/File access error.QProcedure call or argument is not valid.)File already exists.7The directory is not empty.OArgument 'Factor' is not a valid value.?Argument 'Life' cannot be zero.sArgument 'Salvage' must be greater than or equal to zero.Argument 'Period' must be less than or equal to argument 'Life'.YArgument 'Period' must be greater than zero.YArgument 'FinanceRate' is not a valid value.[Argument 'ReinvestRate' is not a valid value.KArgument 'Rate' is not a valid value.IArgument 'Pmt' is not a valid value.Cannot calculate number of periods using the arguments provided.IArgument 'Per' is not a valid value.KArgument 'NPer' is not a valid value.CArgument 'ValueArray' is Nothing.KArgument 'Array' is not a valid valueKArgument 'Color' is not a valid valueGArgument 'Red' is not a valid valueKArgument 'Green' is not a valid valueIArgument 'Blue' is not a valid value&H][)( dbnull}Microsoft.VisualBasic.Interaction.CallByName Case CallType.LetQ Argument 'AppName' is Nothing or empty.Q Argument 'Section' is Nothing or empty.KSoftware\VB and VBA Program Settings\MArgument 'Start' is not a valid value.KArgument 'Stop' is not a valid value.Out Of Range:QArgument 'VarExpr' is not a valid value.Ok Cancel.00.0 .000 .0000 .00000.000000.0000000.00000000.000000000.0000000000General Number {0:G}Currency {0:C} Fixed {0:F}Standard {0:N}Percent{0:0.00%}percentScientific{0:0.00E+00}General DateLong Date {0:D}Medium DateShort Date {0:d}Long Time {0:T}Medium TimeShort Time {0:t}mLength of argument 'String' must be greater than zero.Ymust be within the range of -32768 to 65535.CharCode{0}{0:} Yes/NoNoYesTrue/False On/OffOffOn Argument 'NumDigitsAfterDecimal' must be within the range 0 to 99.a Cast from String to type 'Double' is not valid.M Cast to type 'Currency' is not valid.G HH:mmArgument 'NumDigitsAfterDecimal' must be within the range 0 to 99WArgument 'NumDigitsAfterDecimal' is InvalidiArgument 'Index' must be greater than or equal to 1.Argument 'Index' must be less than or equal to the length of argument 'String'.eArgument 'Start' must be greater or equal to zero.oArgument 'Start' must be greater than 0 or equal to -1.OProcedure call or argument is not validwArgument 'SourceArray' cannot be converted to type 'String'gArgument 'Length' must be greater or equal to zero.OArgument 'Length' is not a valid value.kArgument 'Count' must be greater than or equal to -1.WArgument 'Start' must be greater than zero.eArgument 'Length' must be greater or equal to zerogArgument 'Number' must be greater or equal to zero.      'StrConv.LinguisticCasing' requires 'StrConv.LowerCase' or 'StrConv.UpperCase'.GConversion {0} is not supported yetsLength of argument 'Character' must be greater than zero.cUArgument 'Character' is not a valid value. z\V4         % 0 ) 19 = =A E I M Q z\V4  ] aei im  A ]z\V4    y                                        ! !! !       !                         !              = E E E   !! ! !    Q ae iq           ?_ :         u            =A      !%)-   A  AA !%) A QA9=9A9m\I  M   Y ]   e i m 9  u     ]} QA A   E    E E  Q         QmQm    9                               9        9      = = !! 9 M =  !    EIMQ   ]A     !$ '"#&(%!                                                                                                                                                           #/01345679:;=>?CDFGJKL[\]^_ab*@ABEGHOPQRhiklmps|}~ yy*y3y7yMicrosoft.VisualBasic.ApplicationServices.BuiltInRoleConverter  &T InheritedT AllowMultiple&T AllowMultipleT Inherited&T InheritedT AllowMultiple   E@Microsoft.VisualBasic.Devices.ComputerInfo+ComputerInfoDebugView !"TSerializationFormatter94Microsoft.VisualBasic.Collection+CollectionDebugViewCount = {Count} Item&T InheritedT AllowMultiple94This member has been deprectated. Try FilePutObject.+&CallType.Let options is not supported.[VIf this function is used the assembly have to be recompiled when you switch platforms. CH WvW6P׳~j_Eys5x߯>j18xa޵vI }:X_bI@NqhC?$V\LrEǖ(h*0HXLL4VS_VERSION_INFO?DVarFileInfo$TranslationStringFileInfo007f04b04ProductVersion8.0.0.00CompanyNameXimian4 ProductNamevbruntimeTLegalCopyrightCopyright Ximian 2006TInternalNameMicrosoft.VisualBasic.dll,FileDescription LCommentsMicrosoft.VisualBasic.dll0FileVersion8.0.0.0\OriginalFilenameMicrosoft.VisualBasic.dll,LegalTrademarks 0mono-basic-2.4.2/class/lib/bootstrap/vbnc.rsp0000644000175000001440000000045711213247520020464 0ustar builderusers-r:Accessibility.dll -r:System.Configuration.dll -r:System.Data.dll -r:System.Design.dll -r:System.dll -r:System.Drawing.Design.dll -r:System.Drawing.dll -r:System.Web.dll -r:System.Web.Services.dll -r:System.Windows.Forms.dll -r:System.Xml.dll -imports:System -imports:Microsoft.VisualBasic mono-basic-2.4.2/class/lib/vbnc/0000755000175000001440000000000011213247557015725 5ustar builderusersmono-basic-2.4.2/configure0000755000175000001440000000171111213247537015027 0ustar builderusers#!/bin/sh VERSION=2.4.2 prefix=/usr/local while test x$1 != x; do case $1 in --prefix=*) prefix=`echo $1 | sed 's/--prefix=//'` ;; --prefix) echo --prefix needs an argument: --prefix=directory >&2 ;; *) echo Unknown argument $1 >&2 esac shift done echo "prefix=$prefix" > build/config.make echo "exec_prefix=\${prefix}" >> build/config.make echo "mono_libdir=\${exec_prefix}/lib" >> build/config.make echo "man_dir=\${exec_prefix}/share/man" >> build/config.make echo "man1_dir=\${man_dir}/man1" >> build/config.make echo "MCS_FLAGS=-debug+" >> build/config.make echo "RUNTIME=mono" >> build/config.make echo "MONO_BASIC_VERSION=$VERSION" >> build/config.make echo "VERSION :=$VERSION" >> build/config.make echo "mono-basic $VERSION module configure to use prefix=$prefix" mono-basic-2.4.2/ChangeLog0000644000175000001440000000156011213247557014676 0ustar builderusers2008-12-12 Rolf Bjarne Kvinge * man: Added. * configure, Makefile: version bump -> 2.3, added support for man pages. 2008-03-24 Wade Berrier * class/Makefile: add mono.snk to DIST to fix build 2008-01-30 Wade Berrier * configure: version bump -> 1.9 2007-08-08 Wade Berrier * configure: version bump -> 1.2.6 2007-07-24 Wade Berrier * configure: version bump -> 1.2.5 2007-04-19 Wade Berrier * configure: version bump -> 1.2.4 2007-04-06 Wade Berrier * Makefile: use bzip2 instead of gzip for 'make dist' 2007-03-15 Wade Berrier * Makefile: remove install-local to get rid of warnings 2007-03-01 Rolf Bjarne Kvinge * Make.cmd: Added. mono-basic-2.4.2/vbruntime/0000755000175000001440000000000011213247566015135 5ustar builderusersmono-basic-2.4.2/vbruntime/ChangeLog0000644000175000001440000000135411213247565016711 0ustar builderusers2008-02-12 Rolf Bjarne Kvinge * Make.cmd, InitPaths.cmd: Find resgen too. 2007-05-09 Rolf Bjarne Kvinge * 2005VB.sln: Update. 2007-05-09 Rolf Bjarne Kvinge * 2005VB.sln: Update. 2007-03-01 Rolf Bjarne Kvinge * Make.cmd: Added * 2005VB_test.sln: Added * 2005VB.sln: Updated (added test projects). 2007-01-25 Wade Berrier * Makefile: spaces -> tab 2007-01-25 Wade Berrier * Makefile: Add VB.build.bat to DISTFILES to be able to build on win32 from a 'make dist' tarball 2007-01-25 Rolf Bjarne Kvinge * Updated and fixed the batch build files for new source files. mono-basic-2.4.2/vbruntime/VB.build.bat0000644000175000001440000000662611213247537017242 0ustar builderusersrem echo off echo ==================================== echo = Batch build Microsoft.VisualBasic.dll echo = echo = sample usage: build VB using .NET 1.1 as debug echo = VB.build.bat 1 debug echo = echo = sample use: build VB using .NET 2.0 as release echo = VB.build.bat 2 release echo = echo = echo ==================================== echo Get batch command parameters. echo Received parameters %1 %2 SET VB_BUILD_PARAM_NET_VERSION="%1" SET VB_BUILD_PARAM_CONFIGURATION="%2" echo Set command parameters default. IF %VB_BUILD_PARAM_NET_VERSION%=="" SET VB_BUILD_PARAM_NET_VERSION="2" IF %VB_BUILD_PARAM_CONFIGURATION%=="" SET VB_BUILD_PARAM_CONFIGURATION=debug echo Set .NET SDK env. IF %VB_BUILD_PARAM_NET_VERSION%=="1" ( IF NOT DEFINED VSINSTALLDIR call "%VS71COMNTOOLS%vsvars32.bat" ) IF %VB_BUILD_PARAM_NET_VERSION%=="2" ( IF NOT DEFINED VSINSTALLDIR call "%VS80COMNTOOLS%vsvars32.bat" ) echo Set VB compile options. rem The option /errorreport:prompt is used to alert the vbc compiler to prompt the reason of a failure. SET VB_COMPILE_OPTIONS= IF %VB_BUILD_PARAM_NET_VERSION%=="1" ( GOTO SETOPTIONS1 ) IF %VB_BUILD_PARAM_NET_VERSION%=="2" ( GOTO SETOPTIONS2 ) GOTO ENDSETOPTIONS :SETOPTIONS2 SET VB_COMPILE_OPTIONS=/nowarn:42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,40005 /errorreport:prompt /noconfig /imports:System.Collections,System.Diagnostics,System.Collections.Generic,System IF NOT %VB_BUILD_PARAM_CONFIGURATION%=="debug" SET VB_COMPILE_OPTIONS=%VB_COMPILE_OPTIONS% /define:DEBUG=False,NET_2_0=True,_MYTYPE=\"Empty\",NET_VER=2.0 IF %VB_BUILD_PARAM_CONFIGURATION%=="debug" SET VB_COMPILE_OPTIONS=%VB_COMPILE_OPTIONS% /debug:full /define:DEBUG=True,TRACE=False,NET_2_0=True,NET_VER=2.0,_MYTYPE=\"Empty\" /errorreport:prompt -verbose GOTO ENDSETOPTIONS :SETOPTIONS1 IF NOT %VB_BUILD_PARAM_CONFIGURATION%=="debug" SET VB_COMPILE_OPTIONS=/define:DEBUG=False IF %VB_BUILD_PARAM_CONFIGURATION%=="debug" SET VB_COMPILE_OPTIONS=/debug:full /define:DEBUG=True,TRACE=True GOTO ENDSETOPTIONS :ENDSETOPTIONS SET VB_COMPILE_OPTIONS=%VB_COMPILE_OPTIONS% %VB_EXTERNAL_OPTIONS% echo %VB_COMPILE_OPTIONS% echo Set VB compile references SET VB_COMPILE_REFERENCES= SET VB_COMPILE_REFERENCES=-r:mscorlib.dll -r:System.dll -r:System.Windows.Forms.dll -r:System.Drawing.dll %VB_COMPILE_REFERENCES_J2EE% SET VB_SOURCES=@Microsoft.VisualBasic.dll.sources.win echo Set log file options. set startDate=%date% set startTime=%time% set sdy=%startDate:~10% set /a sdm=1%startDate:~4,2% - 100 set /a sdd=1%startDate:~7,2% - 100 set /a sth=%startTime:~0,2% set /a stm=1%startTime:~3,2% - 100 set /a sts=1%startTime:~6,2% - 100 set TIMESTAMP=%sdy%_%sdm%_%sdd%_%sth%_%stm% set OUTPUT_FILE_PREFIX=Microsoft_VisualBasic set COMMON_PREFIX=%TIMESTAMP%_%OUTPUT_FILE_PREFIX% set BUILD_LOG=%COMMON_PREFIX%.build.log echo compiling ... pushd Microsoft.VisualBasic resgen strings.txt rem TODO: replace vbc with C:\cygwin\monobuild\vbnc\vbnc\bin\vbnc.exe echo on vbc -target:library -optionstrict+ -out:..\bin\Microsoft.VisualBasic.dll -novbruntimeref %VB_COMPILE_OPTIONS% %VB_COMPILE_OPTIONS_J2EE% %VB_COMPILE_REFERENCES% /res:strings.resources %VB_SOURCES% >>%BUILD_LOG% 2<&1 IF %ERRORLEVEL% NEQ 0 GOTO EXCEPTION sn -q -R ..\bin\Microsoft.VisualBasic.dll ..\..\class\mono.snk :FINALLY GOTO END :EXCEPTION echo ======================== echo ERROR --- Batch Terminated echo ======================== popd :END echo build executed using .NET %FRAMEWORKVERSION% popd mono-basic-2.4.2/vbruntime/Makefile0000644000175000001440000000041611213247537016574 0ustar builderusersthisdir = vbruntime include ../build/rules.make SUBDIRS := Microsoft.VisualBasic Test DISTFILES = Makefile VB.build.bat InitPaths.cmd clean-local test-local run-test-local run-test-ondotnet-local all-local install-local uninstall-local: @: dist-local: dist-default mono-basic-2.4.2/vbruntime/InitPaths.cmd0000644000175000001440000000372311213247537017530 0ustar builderusersECHO OFF IF NOT "%1"=="" (SET FXVERSION=%1) IF "%FXVERSION%"=="" ( ECHO No fx version specified ECHO Set FXVERSION to either 1_0, 1_1, 1, 2_0 or 2, or pass the version as a parameter SET ERRORLEVEL=1 GOTO EOF ) SET FXPATH_1_0=%WINDIR%\Microsoft.NET\Framework\v1.0.3705 SET FXPATH_1_1=%WINDIR%\Microsoft.NET\Framework\v1.1.4322 SET FXPATH_2_0=%WINDIR%\Microsoft.NET\Framework\v2.0.50727 SET CSC_1_0=%FXPATH_1_0%\csc.exe SET CSC_1_1=%FXPATH_1_1%\csc.exe SET CSC_2_0=%FXPATH_2_0%\csc.exe SET VBC_1_0=%FXPATH_1_0%\vbc.exe SET VBC_1_1=%FXPATH_1_1%\vbc.exe SET VBC_2_0=%FXPATH_2_0%\vbc.exe IF NOT EXIST %VBC_1_0% (SET VBC_1_0=%VBC_1_1%) IF NOT EXIST %CSC_1_0% (SET CSC_1_0=%CSC_1_1%) IF "%FXVERSION%"=="1_0" (SET VBC=%VBC_1_0%) IF "%FXVERSION%"=="1_1" (SET VBC=%VBC_1_1%) IF "%FXVERSION%"=="1" (SET VBC=%VBC_1_1%) IF "%FXVERSION%"=="2" (SET VBC=%VBC_2_0%) IF "%FXVERSION%"=="2_0" (SET VBC=%VBC_2_0%) IF "%FXVERSION%"=="1_0" (SET CSC=%CSC_1_0%) IF "%FXVERSION%"=="1_1" (SET CSC=%CSC_1_1%) IF "%FXVERSION%"=="1" (SET CSC=%CSC_1_1%) IF "%FXVERSION%"=="2" (SET CSC=%CSC_2_0%) IF "%FXVERSION%"=="2_0" (SET CSC=%CSC_2_0%) IF "%FXVERSION%"=="1_0" (SET FXPATH=%FXPATH_1_0%) IF "%FXVERSION%"=="1_1" (SET FXPATH=%FXPATH_1_1%) IF "%FXVERSION%"=="1" (SET FXPATH=%FXPATH_1_1%) IF "%FXVERSION%"=="2" (SET FXPATH=%FXPATH_2_0%) IF "%FXVERSION%"=="2_0" (SET FXPATH=%FXPATH_2_0%) rem rem Make a big guess as to where resgen might reside rem SET RESGEN2="%PROGRAMFILES%\Microsoft Visual Studio 8\SDK\v2.0\Bin\ResGen.exe" SET RESGEN1="%PROGRAMFILES%\Microsoft Visual Studio .NET 2003\SDK\v1.1\Bin\ResGen.exe" IF "%FXVERSION%"=="1_0" (SET RESGEN=%RESGEN1%) IF "%FXVERSION%"=="1_1" (SET RESGEN=%RESGEN1%) IF "%FXVERSION%"=="1" (SET RESGEN=%RESGEN1%) IF "%FXVERSION%"=="2" (SET RESGEN=%RESGEN2%) IF "%FXVERSION%"=="2_0" (SET RESGEN=%RESGEN2%) ECHO. ECHO Paths found (for FXVERSION=%FXVERSION%): ECHO VBC compiler: %VBC% ECHO CSC compiler: %CSC% ECHO. :EOFmono-basic-2.4.2/vbruntime/Test/0000755000175000001440000000000011213247566016054 5ustar builderusersmono-basic-2.4.2/vbruntime/Test/2005VB_test_CS.dll.rsp0000644000175000001440000000021111213247537021606 0ustar builderusers-r:nunit.framework.dll,Microsoft.VisualBasic.dll,System.Windows.Forms.dll,System.dll -target:library -nowarn:219,168,169 -debug:full mono-basic-2.4.2/vbruntime/Test/2005VB_test_CS.dll.sources0000644000175000001440000000273111213247537022476 0ustar builderusersMicrosoft.VisualBasic.CompilerServices/BooleanTypeTest.cs Microsoft.VisualBasic.CompilerServices/DecimalTypeTest.cs Microsoft.VisualBasic.CompilerServices/DoubleTypeTest.cs Microsoft.VisualBasic.CompilerServices/IntegerTypeTest.cs Microsoft.VisualBasic.CompilerServices/LongTypeTest.cs Microsoft.VisualBasic.CompilerServices/ShortTypeTest.cs Microsoft.VisualBasic.CompilerServices/SingleTypeTest.cs Microsoft.VisualBasic.CompilerServices/StringTypeTest.cs Microsoft.VisualBasic.CompilerServices/UtilsTest.cs Microsoft.VisualBasic.FileIO/MalformedLineExceptionTest.cs Microsoft.VisualBasic.FileIO/SpecialDirectoriesTest.cs Microsoft.VisualBasic.FileIO/TextFieldParserTest.cs Microsoft.VisualBasic.Logging/FileLogTraceListener.cs Microsoft.VisualBasic.Logging/LogTest.cs Microsoft.VisualBasic.Logging/AspLogTest.cs Microsoft.VisualBasic.MyServices.Internal/ContextValueTest.cs Microsoft.VisualBasic.MyServices/ClipboardProxyTest.cs Microsoft.VisualBasic.MyServices/FileSystemProxyTest.cs Microsoft.VisualBasic.MyServices/RegistryProxyTest.cs Microsoft.VisualBasic.MyServices/SpecialDirectoriesProxyTest.cs Microsoft.VisualBasic/CollectionTests.cs Microsoft.VisualBasic/ConversionTests.cs Microsoft.VisualBasic/DateAndTimeTests.cs Microsoft.VisualBasic/ErrObjectTests.cs Microsoft.VisualBasic/FinancialTests.cs Microsoft.VisualBasic/InformationTests.cs Microsoft.VisualBasic/InteractionTests.cs Microsoft.VisualBasic/StringsTest.cs Microsoft.VisualBasic/VBMathTests.cs Microsoft.VisualBasic/Helper.csmono-basic-2.4.2/vbruntime/Test/ChangeLog0000644000175000001440000001053211213247537017625 0ustar builderusers2008-11-15 Kornél Pál * 2003VB_test.vbproj, 2005VB_test_VB.dll.sources, 2005VB_test_VB.dll.sources.win, 2005VB_test_VB.JavaEE.vbproj, 2005VB_test_VB.vbproj: Added Microsoft.VisualBasic\StringsTest.vb. 2008-10-27 Rolf Bjarne Kvinge * Makefile: Don't include binary files in source tarball, wget them from svn whenever needed. 2008-02-12 Rolf Bjarne Kvinge * Make.cmd: Minor fixes and more output. * 2005VB_test_VB.dll.sources.win, 2005VB_test_VB.dll.sources, 2005VB_test_VB.vbproj: Updated. * Tester.vb: A more sophisticated tester. 2008-01-12 Rolf Bjarne Kvinge * 2005VB_test_VB.vbproj: Updated. 2007-08-14 Rolf Bjarne Kvinge * Makefile: Use cmd.exe to execute Make.cmd. 2007-08-13 Rolf Bjarne Kvinge * Make.cmd: Execute VB tests as well. * 2005VB_test_VB.dll.rsp: Define _MYTYPE to avoid compiling the My namespace. * Makefile: Set NET_VER for VB build. 2007-08-13 Rolf Bjarne Kvinge * 2005VB_test_VB.dll.sources.win: Updated. * Makefile: Don't stop executing tests if the C# tests fail. 2007-05-31 Rolf Bjarne Kvinge * Microsoft.VisualBasic.MyServices/RegistryProxyTest.cs: Ignore a few tests if they fail with security exceptions. 2007-05-30 Rolf Bjarne Kvinge * Make.cmd: Exclude NotWorking tests and set correct defines according to fx version. * Makefile: Updated, copy mdb files to output directory with assembly, and exclude NotWorking tests. 2007-05-28 Rolf Bjarne Kvinge * Makefile: Execute Make.cmd (1_1/2_0) on cygwin to check the tests against MS. 2007-05-21 Eyal Alaluf * Remove NotWorking and TargetJvmNotWorking from a few unit tests that actually work now. 2007-05-17 Eyal Alaluf * Microsoft.VisualBasic/FinancialTests.cs: Added scenarios where period is non integral (e.g. 48.3). Added precision to most comparisons so small differences in calculation formulas won't fail the tests. 2007-05-10 Rolf Bjarne Kvinge * Make.cmd: Update, can now build both 1.0 and 2.0. * Makefile: Update to use either mcs or gmcs according to target version. 2007-05-09 Rolf Bjarne Kvinge * Microsoft.VisualBasic.CompilerServices/UtilsTest.cs: Added more tests. * 2005VB_test_CS.csproj: Updated. * 2005VB_test_VB.vbproj: Updated to reference the 2005VB project while testing. * 2005VB_test_VB.rsp: Added. 2007-04-23 Rolf Bjarne Kvinge * 2005VB_test_VB.dll.rsp, 2005VB_test_VB.dll.sources: Updated. * Microsoft.VisualBasic.CompilerServices/LateBindingTests4.vb, Microsoft.VisualBasic.CompilerServices/LateBindingTests5.vb, Microsoft.VisualBasic/ErrObjectTests.vb, Microsoft.VisualBasic/InteractionTests.vb, Microsoft.VisualBasic/InformationTests.vb: Remove warnings. * bin, bin/nunit-console.exe.config, bin/nunit.util.dll, bin/nunit.framework.dll, bin/nunit-console.exe, bin/nunit.core.dll: Added for unit tests. * Makefile: C# tests can now be run on Mono. * Microsoft.VisualBasic/FileSystemTests.vb: Remove warnings and fix lineendings. * Microsoft.VisualBasic.MyServices.Internal/ContextValueTest.cs: Fix typo and lineendings. * Microsoft.VisualBasic.FileIO/TextFieldParserTest.cs, Microsoft.VisualBasic.FileIO/SpecialDirectoriesTest.cs, Microsoft.VisualBasic.FileIO/MalformedLineExceptionTest.cs, Microsoft.VisualBasic.FileIO/FileSystemTest.vb, Microsoft.VisualBasic.CompilerServices/ObjectTypeTests.vb, Microsoft.VisualBasic.CompilerServices/LateBindingTests6.vb: Fix lineendings. 2007-04-16 Rolf Bjarne Kvinge * Makefile: Use PLATFORM_PATH_SEPARATOR so that build succeeds on Windows. * 2005VB_test_*proj: Define mono_not_yet. 2007-03-01 Rolf Bjarne Kvinge * 2005VB_test_CS.dll.rsp: Added * 2005VB_test_VB.dll.rsp: Added * 2005VB_test_CS.dll.sources.win: Added * 2005VB_test_VB.dll.sources.win: Added * 2005VB_test_CS.dll.sources: Added * 2005VB_test_VB.dll.sources: Added * 2005VB_test_CS.csproj: Moved from base directory. * 2003VB_test.csproj: Moved from base directory * 2003VB_test.vbproj: Moved from base directory * 2005VB_test.sln: Moved to base directory * Makefile: Added mono-basic-2.4.2/vbruntime/Test/2005VB_test_VB.dll.sources0000644000175000001440000000360611213247537022502 0ustar builderusersMicrosoft.VisualBasic.CompilerServices/BooleanTypeTest.vb Microsoft.VisualBasic.CompilerServices/ByteTypeTest.vb Microsoft.VisualBasic.CompilerServices/ConversionsTests.vb Microsoft.VisualBasic.CompilerServices/DateTypeTest.vb Microsoft.VisualBasic.CompilerServices/DecimalTypeTest.vb Microsoft.VisualBasic.CompilerServices/DoubleTypeTest.vb Microsoft.VisualBasic.CompilerServices/IntegerTypeTest.vb Microsoft.VisualBasic.CompilerServices/LateBindingTests.vb Microsoft.VisualBasic.CompilerServices/LateBindingTests2.vb Microsoft.VisualBasic.CompilerServices/LateBindingTests3.vb Microsoft.VisualBasic.CompilerServices/LateBindingTests4.vb Microsoft.VisualBasic.CompilerServices/LateBindingTests5.vb Microsoft.VisualBasic.CompilerServices/LateBindingTests6.vb Microsoft.VisualBasic.CompilerServices/LongTypeTest.vb Microsoft.VisualBasic.CompilerServices/OperatorsTests.vb Microsoft.VisualBasic.CompilerServices/ShortTypeTest.vb Microsoft.VisualBasic.CompilerServices/SingleTypeTest.vb Microsoft.VisualBasic.Devices/ComputerInfoTests.vb Microsoft.VisualBasic.Devices/ComputerTests.vb Microsoft.VisualBasic.Devices/ClockTests.vb Microsoft.VisualBasic.Devices/AudioTests.vb Microsoft.VisualBasic.Devices/KeyboardTests.vb Microsoft.VisualBasic.Devices/MouseTests.vb Microsoft.VisualBasic.Devices/NetworkTests.vb Microsoft.VisualBasic.Devices/NetworkAvailableEventArgsTests.vb Microsoft.VisualBasic.Devices/PortsTests.vb Microsoft.VisualBasic.Devices/ServerComputerTests.vb Microsoft.VisualBasic.FileIO/FileSystemTest.vb Microsoft.VisualBasic/ErrObjectTests.vb Microsoft.VisualBasic/ExceptionFilteringTests.vb Microsoft.VisualBasic/FileSystemTestGenerated.vb Microsoft.VisualBasic/FileSystemTests.vb Microsoft.VisualBasic/FileSystemTests2.vb Microsoft.VisualBasic/GlobalsTests.vb Microsoft.VisualBasic/Helper.vb Microsoft.VisualBasic/InformationTests.vb Microsoft.VisualBasic/InteractionTests.vb Microsoft.VisualBasic/StringsTest.vbmono-basic-2.4.2/vbruntime/Test/Microsoft.VisualBasic.MyServices.Internal/0000755000175000001440000000000011213247566026070 5ustar builderusersmono-basic-2.4.2/vbruntime/Test/Microsoft.VisualBasic.MyServices.Internal/ContextValueTest.cs0000644000175000001440000000321011213247537031672 0ustar builderusers// ContextValueTest.cs - NUnit Test Cases for Microsoft.VisualBasic.MyServices.Internal.ContextValue // // Rolf Bjarne Kvinge (RKvinge@novell.com) // // // Copyright (C) 2007 Novell, Inc (http://www.novell.com) // // Permission is hereby granted, free of charge, to any person obtaining // a copy of this software and associated documentation files (the // "Software"), to deal in the Software without restriction, including // without limitation the rights to use, copy, modify, merge, publish, // distribute, sublicense, and/or sell copies of the Software, and to // permit persons to whom the Software is furnished to do so, subject to // the following conditions: // // The above copyright notice and this permission notice shall be // included in all copies or substantial portions of the Software. // // THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, // EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF // MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND // NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE // LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION // OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION // WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. // #if NET_2_0 using System; using System.Collections.Generic; using System.Text; using NUnit.Framework; using Microsoft.VisualBasic.MyServices.Internal; namespace MonoTests.Microsoft_VisualBasic.MyServices.Internal { [TestFixture] public class ContextValueTest { [Test] [Ignore("No idea what this class is supposed to do yet")] public void T1 () { } } } #endifmono-basic-2.4.2/vbruntime/Test/Microsoft.VisualBasic.CompilerServices/0000755000175000001440000000000011213247566025502 5ustar builderusersmono-basic-2.4.2/vbruntime/Test/Microsoft.VisualBasic.CompilerServices/DecimalTypeTest.cs0000644000175000001440000000747611213247532031100 0ustar builderusers// DecimalTypeTest.cs - NUnit Test Cases for Microsoft.VisualBasic.CompilerServices.DecimalType // // Mizrahi Rafael (rafim@mainsoft.com) // // // Copyright (c) 2002-2006 Mainsoft Corporation. // Copyright (C) 2004 Novell, Inc (http://www.novell.com) // // Permission is hereby granted, free of charge, to any person obtaining // a copy of this software and associated documentation files (the // "Software"), to deal in the Software without restriction, including // without limitation the rights to use, copy, modify, merge, publish, // distribute, sublicense, and/or sell copies of the Software, and to // permit persons to whom the Software is furnished to do so, subject to // the following conditions: // // The above copyright notice and this permission notice shall be // included in all copies or substantial portions of the Software. // // THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, // EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF // MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND // NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE // LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION // OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION // WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. // using NUnit.Framework; using System; using System.IO; using Microsoft.VisualBasic; namespace MonoTests.Microsoft_VisualBasic.CompilerServices { [TestFixture] public class DecimalTypeTest { public DecimalTypeTest() { } [SetUp] public void GetReady() { } [TearDown] public void Clean() { } #region FromString [Test] public void FromString1() { string st = null; decimal d = 0; // test string = null d = Microsoft.VisualBasic.CompilerServices.DecimalType.FromString(st); Assert.AreEqual (null, st, "FromString#0"); } [Test] [ExpectedException(typeof(InvalidCastException))] public void FromString2() { decimal d = 0; string st = "garbage"; // test string = garbage d = Microsoft.VisualBasic.CompilerServices.DecimalType.FromString(st); } #endregion #region FromObject [Test] public void FromObject1() { decimal d1; object o1 = null; string st = null; byte b1; bool bool1; // test object = null d1 = Microsoft.VisualBasic.CompilerServices.DecimalType.FromObject(o1); Assert.AreEqual (0, d1); // test string = null d1 = Microsoft.VisualBasic.CompilerServices.DecimalType.FromObject(st); Assert.AreEqual (0, d1); // test string st = "2"; d1 = Microsoft.VisualBasic.CompilerServices.DecimalType.FromObject(st); Assert.AreEqual (2, d1); // byte b1 = 1; d1 = Microsoft.VisualBasic.CompilerServices.DecimalType.FromObject(b1); Assert.AreEqual (1, d1); // bool bool1 = true; d1 = Microsoft.VisualBasic.CompilerServices.DecimalType.FromObject(bool1); Assert.AreEqual (-1, d1); bool1 = false; d1 = Microsoft.VisualBasic.CompilerServices.DecimalType.FromObject(bool1); Assert.AreEqual (0, d1); } [Test] [ExpectedException(typeof(InvalidCastException))] public void FromObject3() { object o1; o1 = 'w'; Microsoft.VisualBasic.CompilerServices.DecimalType.FromObject(o1); } [Test] public void FromObjectTest_2() { object ObjI; object o1 = true; decimal It = -1; // test object = True ObjI = Microsoft.VisualBasic.CompilerServices.DecimalType.FromObject(o1); Assert.AreEqual (It, ObjI, "FromObject#0"); // test object = False o1 = false; It = 0; ObjI = Microsoft.VisualBasic.CompilerServices.DecimalType.FromObject(o1); Assert.AreEqual (It, ObjI, "FromObject#1"); string ResTypeCode = ""; ResTypeCode = Type.GetTypeCode(ObjI.GetType()).ToString(); Assert.AreEqual ("Decimal",ResTypeCode, "FromObject#2"); } #endregion } } mono-basic-2.4.2/vbruntime/Test/Microsoft.VisualBasic.CompilerServices/IntegerTypeTest.vb0000644000175000001440000000440411213247532031125 0ustar builderusers' ShortTypeTest.cs - NUnit Test Cases for Microsoft.VisualBasic.CompilerServices.ShortType ' ' Rolf Bjarne Kvinge (RKvinge@novell.com) ' ' ' Copyright (C) 2008 Novell, Inc (http:www.novell.com) ' ' Permission is hereby granted, free of charge, to any person obtaining ' a copy of this software and associated documentation files (the ' "Software"), to deal in the Software without restriction, including ' without limitation the rights to use, copy, modify, merge, publish, ' distribute, sublicense, and/or sell copies of the Software, and to ' permit persons to whom the Software is furnished to do so, subject to ' the following conditions: ' ' The above copyright notice and this permission notice shall be ' included in all copies or substantial portions of the Software. ' ' THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, ' EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF ' MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND ' NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE ' LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION ' OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION ' WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. ' Imports NUnit.Framework Imports System Imports System.IO Imports Microsoft.VisualBasic Namespace CompilerServices _ Public Class IntegerTypeTest Sub New() Helper.SetThreadCulture() End Sub _ Public Sub FromString() Try Microsoft.VisualBasic.CompilerServices.IntegerType.FromString("#ERROR") Assert.Fail("Expected InvalidCastException", "#01") Catch ex As InvalidCastException #If NET_VER >= 2.0 Then Assert.AreEqual("Conversion from string ""#ERROR"" to type 'Integer' is not valid.", ex.Message, "#A2") #Else Assert.AreEqual("Cast from string ""#ERROR"" to type 'Integer' is not valid.", ex.Message, "#A2") #End If Assert.IsNotNull(ex.InnerException, "#03") Assert.AreSame(GetType(FormatException), ex.InnerException.GetType, "#04") End Try End Sub End Class End Namespacemono-basic-2.4.2/vbruntime/Test/Microsoft.VisualBasic.CompilerServices/LongTypeTest.cs0000644000175000001440000000602211213247532030423 0ustar builderusers// // Mizrahi Rafael (rafim@mainsoft.com) // Guy Cohen (guyc@mainsoft.com) // // Copyright (c) 2002-2006 Mainsoft Corporation. // Copyright (C) 2004 Novell, Inc (http://www.novell.com) // // Permission is hereby granted, free of charge, to any person obtaining // a copy of this software and associated documentation files (the // "Software"), to deal in the Software without restriction, including // without limitation the rights to use, copy, modify, merge, publish, // distribute, sublicense, and/or sell copies of the Software, and to // permit persons to whom the Software is furnished to do so, subject to // the following conditions: // // The above copyright notice and this permission notice shall be // included in all copies or substantial portions of the Software. // // THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, // EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF // MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND // NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE // LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION // OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION // WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. // using NUnit.Framework; using System; using System.IO; using Microsoft.VisualBasic; namespace MonoTests.Microsoft_VisualBasic.CompilerServices { [TestFixture] public class LongTypeTest { public LongTypeTest() { } [SetUp] public void GetReady() { } [TearDown] public void Clean() { } #region FromString [Test] public void FromStringTest() { string st = null; long l = 0; // test string = null l = Microsoft.VisualBasic.CompilerServices.LongType.FromString(st); Assert.AreEqual (null, st, "FromString#0"); } [Test] [ExpectedException(typeof(InvalidCastException))] public void FromString2() { long l = 0; string st = "garbage"; // test string = garbage l = Microsoft.VisualBasic.CompilerServices.LongType.FromString(st); } #endregion #region FromObject [Test] public void FromObjectTest_1() { long l; object o1 = null; string st = null; // test object = null l = Microsoft.VisualBasic.CompilerServices.LongType.FromObject(o1); Assert.AreEqual (0, l, "FromObject#0"); // test string = null l = Microsoft.VisualBasic.CompilerServices.LongType.FromObject(st); Assert.AreEqual (0, l, "FromObject#1"); } [Test] public void FromObjectTest_2() { object ObjL; object o1 = true; long lt = -1; // test object = True ObjL = Microsoft.VisualBasic.CompilerServices.LongType.FromObject(o1); Assert.AreEqual (lt, ObjL, "FromObject#0"); // test object = False o1 = false; lt = 0; ObjL = Microsoft.VisualBasic.CompilerServices.LongType.FromObject(o1); Assert.AreEqual (lt, ObjL, "FromObject#1"); string ResTypeCode = ""; ResTypeCode = Type.GetTypeCode(ObjL.GetType()).ToString(); Assert.AreEqual ("Int64",ResTypeCode, "FromObject#2"); } #endregion } } mono-basic-2.4.2/vbruntime/Test/Microsoft.VisualBasic.CompilerServices/DoubleTypeTest.vb0000644000175000001440000000561411213247532030746 0ustar builderusers' ShortTypeTest.cs - NUnit Test Cases for Microsoft.VisualBasic.CompilerServices.ShortType ' ' Rolf Bjarne Kvinge (RKvinge@novell.com) ' ' ' Copyright (C) 2008 Novell, Inc (http:www.novell.com) ' ' Permission is hereby granted, free of charge, to any person obtaining ' a copy of this software and associated documentation files (the ' "Software"), to deal in the Software without restriction, including ' without limitation the rights to use, copy, modify, merge, publish, ' distribute, sublicense, and/or sell copies of the Software, and to ' permit persons to whom the Software is furnished to do so, subject to ' the following conditions: ' ' The above copyright notice and this permission notice shall be ' included in all copies or substantial portions of the Software. ' ' THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, ' EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF ' MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND ' NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE ' LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION ' OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION ' WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. ' Imports NUnit.Framework Imports System Imports System.IO Imports Microsoft.VisualBasic Namespace CompilerServices _ Public Class DoubleTypeTest Sub New() Helper.SetThreadCulture() End Sub _ Public Sub FromString() Try Microsoft.VisualBasic.CompilerServices.DoubleType.FromString("#ERROR") Assert.Fail("Expected InvalidCastException", "#01") Catch ex As InvalidCastException #If NET_VER >= 2.0 Then Assert.AreEqual("Conversion from string ""#ERROR"" to type 'Double' is not valid.", ex.Message, "#A2") #Else Assert.AreEqual("Cast from string ""#ERROR"" to type 'Double' is not valid.", ex.Message, "#A2") #End If Assert.IsNotNull(ex.InnerException, "#03") Assert.AreSame(GetType(FormatException), ex.InnerException.GetType, "#04") End Try Try Microsoft.VisualBasic.CompilerServices.DoubleType.FromString("") Assert.Fail("Expected InvalidCastException", "#B1") Catch ex As InvalidCastException #If NET_VER >= 2.0 Then Assert.AreEqual("Conversion from string """" to type 'Double' is not valid.", ex.Message, "#A2") #Else Assert.AreEqual("Cast from string """" to type 'Double' is not valid.", ex.Message, "#A2") #End If Assert.IsNotNull(ex.InnerException, "#B3") Assert.AreSame(GetType(FormatException), ex.InnerException.GetType, "#B4") End Try End Sub End Class End Namespacemono-basic-2.4.2/vbruntime/Test/Microsoft.VisualBasic.CompilerServices/ShortTypeTest.cs0000644000175000001440000000617311213247532030632 0ustar builderusers// ShortTypeTest.cs - NUnit Test Cases for Microsoft.VisualBasic.CompilerServices.ShortType // // Mizrahi Rafael (rafim@mainsoft.com) // Guy Cohen (guyc@mainsoft.com) // // Copyright (c) 2002-2006 Mainsoft Corporation. // Copyright (C) 2004 Novell, Inc (http://www.novell.com) // // Permission is hereby granted, free of charge, to any person obtaining // a copy of this software and associated documentation files (the // "Software"), to deal in the Software without restriction, including // without limitation the rights to use, copy, modify, merge, publish, // distribute, sublicense, and/or sell copies of the Software, and to // permit persons to whom the Software is furnished to do so, subject to // the following conditions: // // The above copyright notice and this permission notice shall be // included in all copies or substantial portions of the Software. // // THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, // EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF // MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND // NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE // LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION // OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION // WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. // using NUnit.Framework; using System; using System.IO; using Microsoft.VisualBasic; namespace MonoTests.Microsoft_VisualBasic.CompilerServices { [TestFixture] public class ShortTypeTest { public ShortTypeTest() { } [SetUp] public void GetReady() { } [TearDown] public void Clean() { } #region FromString [Test] public void FromStringTest() { string st = null; short s = 0; // test string = null s = Microsoft.VisualBasic.CompilerServices.ShortType.FromString(st); Assert.AreEqual (null, st, "FromString#0"); } [Test] [ExpectedException(typeof(InvalidCastException))] public void FromString2() { short s = 0; string st = "garbage"; // test string = garbage s = Microsoft.VisualBasic.CompilerServices.ShortType.FromString(st); } #endregion #region FromObject [Test] public void FromObjectTest_1() { short s; object o1 = null; string st = null; // test object = null s = Microsoft.VisualBasic.CompilerServices.ShortType.FromObject(o1); Assert.AreEqual (0, s, "FromObject#0"); // test string = null s = Microsoft.VisualBasic.CompilerServices.ShortType.FromObject(st); Assert.AreEqual (0, s, "FromObject#1"); } [Test] public void FromObjectTest_2() { object ObjS; object o1 = true; short st = -1; // test object = True ObjS = Microsoft.VisualBasic.CompilerServices.ShortType.FromObject(o1); Assert.AreEqual (st, ObjS, "FromObject#0"); // test object = False o1 = false; st = 0; ObjS = Microsoft.VisualBasic.CompilerServices.ShortType.FromObject(o1); Assert.AreEqual (st, ObjS, "FromObject#1"); string ResTypeCode = ""; ResTypeCode = Type.GetTypeCode(ObjS.GetType()).ToString(); Assert.AreEqual ("Int16",ResTypeCode, "FromObject#2"); } #endregion } } mono-basic-2.4.2/vbruntime/Test/Microsoft.VisualBasic.CompilerServices/UtilsTest.cs0000644000175000001440000001615111213247532027766 0ustar builderusers// UtilsTest.cs - NUnit Test Cases for Microsoft.VisualBasic.CompilerServices.Utils // // Boris Kirzner // // // Copyright (c) 2002-2006 Mainsoft Corporation. // Copyright (C) 2004 Novell, Inc (http://www.novell.com) // // Permission is hereby granted, free of charge, to any person obtaining // a copy of this software and associated documentation files (the // "Software"), to deal in the Software without restriction, including // without limitation the rights to use, copy, modify, merge, publish, // distribute, sublicense, and/or sell copies of the Software, and to // permit persons to whom the Software is furnished to do so, subject to // the following conditions: // // The above copyright notice and this permission notice shall be // included in all copies or substantial portions of the Software. // // THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, // EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF // MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND // NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE // LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION // OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION // WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. // using NUnit.Framework; using System; using System.IO; using Microsoft.VisualBasic; using Microsoft.VisualBasic.CompilerServices; namespace MonoTests.Microsoft_VisualBasic.CompilerServices { [TestFixture] public class UtilsTests { public UtilsTests() { } [SetUp] public void GetReady() { } [TearDown] public void Clean() { } [Test] public void ReDimPreserve_SingleDimension() { string[] a = new string[6]; a[1] = "a"; a[2] = "b"; a[3] = "c"; string[] b = (string[]) Microsoft.VisualBasic.CompilerServices.Utils.CopyArray((Array) a, new string[4]); // Assert.AreEqual(b[0],null); Assert.AreEqual(b[1],"a"); Assert.AreEqual(b[2],"b"); Assert.AreEqual(b[3],"c"); } [Test] public void ReDimPreserve_MultipleDimensions() { int [,,,] source = new int [,,,] {{{{1, 2}, {3, 4}, {5, 6}}, {{7, 8}, {9, 10}, {11, 12}}}}; int [,,,] destination = new int [1, 2, 3, 4]; Utils.CopyArray (source, destination); Assert.AreEqual (destination [0, 0, 0, 0], 1, "#01"); Assert.AreEqual (destination [0, 0, 0, 1], 2, "#02"); Assert.AreEqual (destination [0, 0, 0, 2], 0, "#03"); Assert.AreEqual (destination [0, 0, 0, 3], 0, "#04"); Assert.AreEqual (destination [0, 0, 1, 0], 3, "#05"); Assert.AreEqual (destination [0, 0, 1, 1], 4, "#06"); Assert.AreEqual (destination [0, 0, 1, 2], 0, "#07"); Assert.AreEqual (destination [0, 0, 1, 3], 0, "#08"); Assert.AreEqual (destination [0, 0, 2, 0], 5, "#09"); Assert.AreEqual (destination [0, 0, 2, 1], 6, "#10"); Assert.AreEqual (destination [0, 0, 2, 2], 0, "#11"); Assert.AreEqual (destination [0, 0, 2, 3], 0, "#12"); Assert.AreEqual (destination [0, 1, 0, 0], 7, "#21"); Assert.AreEqual (destination [0, 1, 0, 1], 8, "#22"); Assert.AreEqual (destination [0, 1, 0, 2], 0, "#23"); Assert.AreEqual (destination [0, 1, 0, 3], 0, "#24"); Assert.AreEqual (destination [0, 1, 1, 0], 9, "#25"); Assert.AreEqual (destination [0, 1, 1, 1], 10, "#26"); Assert.AreEqual (destination [0, 1, 1, 2], 0, "#27"); Assert.AreEqual (destination [0, 1, 1, 3], 0, "#28"); Assert.AreEqual (destination [0, 1, 2, 0], 11, "#29"); Assert.AreEqual (destination [0, 1, 2, 1], 12, "#30"); Assert.AreEqual (destination [0, 1, 2, 2], 0, "#31"); Assert.AreEqual (destination [0, 1, 2, 3], 0, "#32"); destination = new int [1, 2, 3, 1]; Utils.CopyArray (source, destination); Assert.AreEqual (destination [0, 0, 0, 0], 1, "#A1"); Assert.AreEqual (destination [0, 0, 1, 0], 3, "#A2"); Assert.AreEqual (destination [0, 0, 2, 0], 5, "#A3"); Assert.AreEqual (destination [0, 1, 0, 0], 7, "#A4"); Assert.AreEqual (destination [0, 1, 1, 0], 9, "#A5"); Assert.AreEqual (destination [0, 1, 2, 0], 11, "#A6"); } [Test] public void TestCopyArrayOneDimensionalShrinking() { string[] source = new string[] { "First", "Second", "Third" }; string[] destination = new string[2]; string[] result = (string[])Utils.CopyArray(source, destination); Assert.AreSame (destination, result, "ResultIsDestination"); Assert.AreEqual (source[0], destination[0], "First"); Assert.AreEqual (source[1], destination[1], "Second"); } [Test] public void TestCopyArrayOneDimensionalExpanding() { string[] source = new string[] { "First", "Second" }; string[] destination = new string[3]; string[] result = (string[])Utils.CopyArray(source, destination); Assert.AreSame (destination, result, "ResultIsDestination"); Assert.AreEqual (source[0], destination[0], "First"); Assert.AreEqual (source[1], destination[1], "Second"); Assert.IsNull (destination[2], "EmptyThird"); } [Test] public void TestCopyArrayBiDimensionalShrinking() { string[,] source = new string[2,2]; source[0,0] = "First"; source[0,1] = "Second"; source[1,0] = "Third"; source[1,1] = "Fourth"; string[,] destination = new string[2,1]; string[,] result = (string[,])Utils.CopyArray(source, destination); Assert.AreSame (destination, result, "ResultIsDestination"); Assert.AreEqual (source[0,0], destination[0,0], "First"); Assert.AreEqual (source[1,0], destination[1,0], "Third"); } [Test] public void TestCopyArrayBiDimensionalExpanding() { string[,] source = new string[2,2]; source[0,0] = "First"; source[0,1] = "Second"; source[1,0] = "Third"; source[1,1] = "Fourth"; string[,] destination = new string[2,3]; string[,] result = (string[,])Utils.CopyArray(source, destination); Assert.AreSame (destination, result, "ResultIsDestination"); Assert.AreEqual (source[0,0], destination[0,0], "First"); Assert.AreEqual (source[0,1], destination[0,1], "Second"); Assert.AreEqual (source[1,0], destination[1,0], "Third"); Assert.AreEqual (source[1,1], destination[1,1], "Fourth"); Assert.IsNull (destination[0,2], "EmptyFifth"); Assert.IsNull (destination[1,2], "EmptySixth"); } [Test] [ExpectedException (typeof (InvalidCastException), "'ReDim' cannot change the number of dimensions.")] public void TestCopyArrayDifferentDimensions () { string [] source = new string [2]; string [,] destination = new string [2, 2]; object result = Utils.CopyArray (source, destination); } [Test] public void TestCopyArrayNullSource () { string [,] destination = new string [2, 2]; object result = Utils.CopyArray (null, destination); Assert.AreSame (result, destination, "#01"); } [Test] [ExpectedException (typeof (NullReferenceException))] public void TestCopyArrayNullDestination () { string [] source = new string [2]; object result = Utils.CopyArray (source, null); } [Test] public void TestCopyArrayReturnValue () { string [] source = new string [2]; string [] destination = new string [2]; object result = Utils.CopyArray (source, destination); Assert.AreSame (result, destination, "#01"); } } } mono-basic-2.4.2/vbruntime/Test/Microsoft.VisualBasic.CompilerServices/LateBindingTests3.vb0000644000175000001440000002047211213247532031317 0ustar builderusers' ' LateBindingTests3.vb ' ' Author: ' Boris Kirzner (borisk@mainsoft.com) ' ' ' Copyright (C) 2002-2006 Mainsoft Corporation. ' Copyright (C) 2004-2006 Novell, Inc (http://www.novell.com) ' ' Permission is hereby granted, free of charge, to any person obtaining ' a copy of this software and associated documentation files (the ' "Software"), to deal in the Software without restriction, including ' without limitation the rights to use, copy, modify, merge, publish, ' distribute, sublicense, and/or sell copies of the Software, and to ' permit persons to whom the Software is furnished to do so, subject to ' the following conditions: ' ' The above copyright notice and this permission notice shall be ' included in all copies or substantial portions of the Software. ' ' THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, ' EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF ' MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND ' NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE ' LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION ' OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION ' WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. Imports System Imports System.Reflection Imports NUnit.Framework _ Public Class LateBindingTests3 Private Class A End Class Private Class B Inherits A End Class Private Class C Inherits B End Class Private Class D Inherits C End Class Dim a1 As A = New A Dim b1 As B = New B Dim c1 As C = New C Dim d1 As D = New D Private Class C400 Public Function F(ByVal a As A) As String Return "A" End Function Public Function F(ByVal a As B) As String Return "B" End Function Public Function F(ByVal a As C) As String Return "C" End Function Public Function F(ByVal a As D) As String Return "D" End Function End Class _ Public Sub LateBind_ComplexTypes_100() Dim o As Object = New C400 Assert.AreEqual("A", o.F(a1)) Assert.AreEqual("B", o.F(b1)) Assert.AreEqual("C", o.F(c1)) Assert.AreEqual("D", o.F(d1)) End Sub Private Class C410 'Public Function F(ByVal a As A) As String ' Return "A" 'End Function Public Function F(ByVal a As B) As String Return "B" End Function Public Function F(ByVal a As C) As String Return "C" End Function Public Function F(ByVal a As D) As String Return "D" End Function End Class _ Public Sub LateBind_ComplexTypes_110() Dim o As Object = New C410 'Assert.AreEqual("A", o.F(a1)) Assert.AreEqual("B", o.F(b1)) Assert.AreEqual("C", o.F(c1)) Assert.AreEqual("D", o.F(d1)) End Sub _ Public Sub LateBind_ComplexTypes_111() Dim o As Object = New C410 o.F(a1) End Sub Private Class C420 Public Function F(ByVal a As A) As String Return "A" End Function 'Public Function F(ByVal a As B) As String ' Return "B" 'End Function Public Function F(ByVal a As C) As String Return "C" End Function Public Function F(ByVal a As D) As String Return "D" End Function End Class _ Public Sub LateBind_ComplexTypes_120() Dim o As Object = New C420 Assert.AreEqual("A", o.F(a1)) Assert.AreEqual("A", o.F(b1)) Assert.AreEqual("C", o.F(c1)) Assert.AreEqual("D", o.F(d1)) End Sub Private Class C430 Public Function F(ByVal a As A) As String Return "A" End Function Public Function F(ByVal a As B) As String Return "B" End Function 'Public Function F(ByVal a As C) As String ' Return "C" 'End Function Public Function F(ByVal a As D) As String Return "D" End Function End Class _ Public Sub LateBind_ComplexTypes_130() Dim o As Object = New C430 Assert.AreEqual("A", o.F(a1)) Assert.AreEqual("B", o.F(b1)) Assert.AreEqual("B", o.F(c1)) Assert.AreEqual("D", o.F(d1)) End Sub Private Class C440 Public Function F(ByVal a As A) As String Return "A" End Function Public Function F(ByVal a As B) As String Return "B" End Function Public Function F(ByVal a As C) As String Return "C" End Function 'Public Function F(ByVal a As D) As String ' Return "D" 'End Function End Class _ Public Sub LateBind_ComplexTypes_140() Dim o As Object = New C440 Assert.AreEqual("A", o.F(a1)) Assert.AreEqual("B", o.F(b1)) Assert.AreEqual("C", o.F(c1)) Assert.AreEqual("C", o.F(d1)) End Sub Private Class C450 'Public Function F(ByVal a As A) As String ' Return "A" 'End Function Public Function F(ByVal a As B) As String Return "B" End Function 'Public Function F(ByVal a As C) As String ' Return "C" 'End Function Public Function F(ByVal a As D) As String Return "D" End Function End Class _ Public Sub LateBind_ComplexTypes_150() Dim o As Object = New C450 'Assert.AreEqual("A", o.F(a1)) Assert.AreEqual("B", o.F(b1)) Assert.AreEqual("B", o.F(c1)) Assert.AreEqual("D", o.F(d1)) End Sub _ Public Sub LateBind_ComplexTypes_151() Dim o As Object = New C450 o.F(a1) End Sub Private Class C460 Public Function F(ByVal a As A) As String Return "A" End Function 'Public Function F(ByVal a As B) As String ' Return "B" 'End Function Public Function F(ByVal a As C) As String Return "C" End Function 'Public Function F(ByVal a As D) As String ' Return "D" 'End Function End Class _ Public Sub LateBind_ComplexTypes_160() Dim o As Object = New C460 Assert.AreEqual("A", o.F(a1)) Assert.AreEqual("A", o.F(b1)) Assert.AreEqual("C", o.F(c1)) Assert.AreEqual("C", o.F(d1)) End Sub Private Class C470 'Public Function F(ByVal a As A) As String ' Return "A" 'End Function 'Public Function F(ByVal a As B) As String ' Return "B" 'End Function Public Function F(ByVal a As C) As String Return "C" End Function Public Function F(ByVal a As D) As String Return "D" End Function End Class _ Public Sub LateBind_ComplexTypes_170() Dim o As Object = New C470 'Assert.AreEqual("A", o.F(a1)) 'Assert.AreEqual("A", o.F(b1)) Assert.AreEqual("C", o.F(c1)) Assert.AreEqual("D", o.F(d1)) End Sub _ Public Sub LateBind_ComplexTypes_171() Dim o As Object = New C470 o.F(a1) End Sub _ Public Sub LateBind_ComplexTypes_172() Dim o As Object = New C470 o.F(b1) End Sub Private Class C480 Public Function F(ByVal a As A) As String Return "A" End Function Public Function F(ByVal a As B) As String Return "B" End Function 'Public Function F(ByVal a As C) As String ' Return "C" 'End Function 'Public Function F(ByVal a As D) As String ' Return "D" 'End Function End Class _ Public Sub LateBind_ComplexTypes_180() Dim o As Object = New C480 Assert.AreEqual("A", o.F(a1)) Assert.AreEqual("B", o.F(b1)) Assert.AreEqual("B", o.F(c1)) Assert.AreEqual("B", o.F(d1)) End Sub End Classmono-basic-2.4.2/vbruntime/Test/Microsoft.VisualBasic.CompilerServices/OperatorsTests.vb0000644000175000001440000022643611213247532031042 0ustar builderusersImports System Imports Microsoft.VisualBasic.CompilerServices Imports NUnit.Framework #If NET_VER >= 2.0 Then _ Public Class OperatorsTests Sub New() Helper.SetThreadCulture() End Sub _ Sub TestOperatorsCompareEqual1() Assert.IsTrue(Operators.CompareObjectEqual("True", True, False), """True"" = True") Assert.IsTrue(Operators.CompareObjectEqual(True, "True", False), "True = ""True""") Assert.IsTrue(Operators.CompareObjectEqual("False", False, False), """False"" = False") Assert.IsTrue(Operators.CompareObjectEqual(False, "False", False), "False = ""False""") Assert.IsFalse(Operators.CompareObjectEqual("True", False, False), """True"" = False") Assert.IsFalse(Operators.CompareObjectEqual(False, "True", False), "False = ""True""") Assert.IsFalse(Operators.CompareObjectEqual("False", True, False), """False"" = True") Assert.IsFalse(Operators.CompareObjectEqual(True, "False", False), "True = ""False""") End Sub _ Sub TestOperatorsCompareEqual2() Assert.IsTrue(Operators.CompareObjectEqual("Truez", True, False), """Truez"" = True") End Sub _ Sub TestOperatorsConcatenate1() Dim o1, o2, o3 As Object o1 = "a" o2 = "b" o3 = Operators.ConcatenateObject(o1, o2) Assert.AreEqual(o3, "ab") End Sub _ Sub TestOperatorsConcatenate2() Dim o1, o2, o3 As Object o1 = "d" o2 = 1 o3 = Operators.ConcatenateObject(o1, o2) Assert.AreEqual(o3, "d1") End Sub _ Sub TestOperatorsConcatenate3() Dim o1, o2, o3 As Object o1 = "1" o2 = 1 o3 = Operators.ConcatenateObject(o1, o2) Assert.AreEqual(o3, "11") End Sub _ Sub TestOperatorsConcatenate4() Dim o1, o2, o3 As Object o1 = 1 o2 = 1 o3 = Operators.ConcatenateObject(o1, o2) Assert.AreEqual(o3, "11") End Sub _ Sub TestOperatorsConcatenate5() Dim o1, o2, o3 As Object o1 = 1.1 o2 = 1 o3 = Operators.ConcatenateObject(o1, o2) Assert.AreEqual(o3, "1.11") End Sub _ Sub TestOperatorsConcatenate6() Dim o1, o2, o3 As Object o1 = DateTime.Now o2 = DateTime.Now o3 = Operators.ConcatenateObject(o1, o2) Assert.AreEqual(o3, String.Concat(o1.ToString(), o2.ToString())) End Sub _ Sub TestOperatorsConcatenate7() Dim o1, o2, o3 As Object o1 = "a"c o2 = "b"c o3 = Operators.ConcatenateObject(o1, o2) Assert.AreEqual(o3, "ab") End Sub _ Sub TestOperatorsConcatenate8() Dim o1, o2, o3, o4, o5, o6 As Object o1 = "b"c o2 = Nothing o3 = Operators.ConcatenateObject(o1, o2) o4 = "b"c o5 = DBNull.Value o6 = Operators.ConcatenateObject(o1, o2) Assert.AreEqual(o3, o6) End Sub _ Sub TestOperatorsConcatenate9() Dim o1, o2, o3 As Object o1 = Nothing o2 = 1 o3 = Operators.ConcatenateObject(o1, o2) Assert.AreEqual(o3, "1") End Sub _ Sub TestOperatorsConcatenate10() Dim o1, o2, o3 As Object o1 = Nothing o2 = Nothing o3 = Operators.ConcatenateObject(o1, o2) Assert.AreEqual(o3, "") End Sub _ Sub TestOperatorsConcatenate11() Dim o1, o2, o3 As Object o1 = New OperatorsImplementer() o2 = "abc" o3 = Operators.ConcatenateObject(o1, o2) Assert.AreEqual(o3, "ok&") End Sub _ Sub TestOperatorsConcatenate12() Dim o1, o2, o3 As Object o1 = "abc" o2 = New OperatorsImplementer() Try o3 = Operators.ConcatenateObject(o1, o2) Catch ex As InvalidCastException Return End Try Assert.Fail() End Sub _ Sub TestOperatorsNegate1() Dim o1, o2 As Object o1 = True o2 = Operators.NegateObject(o1) If (TypeOf o2 Is Short) Then Assert.AreEqual(CType(o2, Short), 1S) Else Assert.Fail() End If End Sub _ Sub TestOperatorsNegate2() Dim o1, o2 As Object o1 = Nothing o2 = Operators.NegateObject(o1) If (TypeOf o2 Is Integer) Then Assert.AreEqual(CType(o2, Integer), 0) Else Assert.Fail() End If End Sub _ Sub TestOperatorsNegate3() Dim o1, o2 As Object o1 = Nothing o2 = Operators.NegateObject(o1) If (TypeOf o2 Is Integer) Then Assert.AreEqual(CType(o2, Integer), 0) Else Assert.Fail() End If End Sub _ Sub TestOperatorsNegate4() Dim o1, o2 As Object o1 = CType(2, Byte) o2 = Operators.NegateObject(o1) If (TypeOf o2 Is Short) Then Assert.AreEqual(CType(o2, Short), -2) Else Assert.Fail() End If End Sub _ Sub TestOperatorsNegate5() Dim o1, o2 As Object o1 = CType(0, Byte) o2 = Operators.NegateObject(o1) If (TypeOf o2 Is Short) Then Assert.AreEqual(CType(o2, Short), 0) Else Assert.Fail() End If End Sub _ Sub TestOperatorsNegate6() Dim o1, o2 As Object o1 = "1"c Try o2 = Operators.NegateObject(o1) Catch ex As InvalidCastException Return End Try Assert.Fail() End Sub _ Sub TestOperatorsNegate7() Dim o1 As DateTime = DateTime.Now Dim o2 As Object Try o2 = Operators.NegateObject(o1) Catch ex As InvalidCastException Return End Try Assert.Fail() End Sub _ Sub TestOperatorsNegate8() Dim o1, o2 As Object o1 = CType(-1, Decimal) o2 = Operators.NegateObject(o1) If (TypeOf o2 Is Decimal) Then Assert.AreEqual(CType(o2, Decimal), 1) Else Assert.Fail() End If End Sub _ Sub TestOperatorsNegate9() Dim o1, o2 As Object o1 = CType(-1, Double) o2 = Operators.NegateObject(o1) If (TypeOf o2 Is Double) Then Assert.AreEqual(CType(o2, Double), 1) Else Assert.Fail() End If End Sub _ Sub TestOperatorsNegate10() Dim o1, o2 As Object o1 = CType(Int16.MinValue, Int16) o2 = Operators.NegateObject(o1) If (TypeOf o2 Is Int32) Then Assert.AreEqual(CType(o2, Int32), Int16.MaxValue + 1) Else Assert.Fail() End If End Sub _ Sub TestOperatorsNegate11() Dim o1, o2 As Object o1 = "1L" Try o2 = Operators.NegateObject(o1) Catch ex As InvalidCastException Return End Try Assert.Fail() End Sub _ Sub TestOperatorsNegate12() Dim o1, o2 As Object o1 = "1" o2 = Operators.NegateObject(o1) If (TypeOf o2 Is Double) Then Assert.AreEqual(CType(o2, Double), -1) Else Assert.Fail() End If End Sub _ Sub TestOperatorsNegate13() Dim o1, o2 As Object o1 = 3US o2 = Operators.NegateObject(o1) If (TypeOf o2 Is Integer) Then Assert.AreEqual(CType(o2, Integer), -3) Else Assert.Fail() End If End Sub _ Sub TestOperatorsNegate14() Dim o1, o2 As Object o1 = New OperatorsImplementer() o2 = Operators.NegateObject(o1) Assert.AreEqual(o2, "-ok") End Sub _ Sub TestOperatorsNegate15() Dim o1, o2 As Object o1 = 3UL o2 = Operators.NegateObject(o1) If (TypeOf o2 Is Decimal) Then Assert.AreEqual(CType(o2, Decimal), -3) Else Assert.Fail() End If End Sub _ Sub TestOperatorsPlus1() Dim o1, o2 As Object o1 = True o2 = Operators.PlusObject(o1) If (TypeOf o2 Is Short) Then Assert.AreEqual(CType(o2, Short), -1S) Else Assert.Fail() End If End Sub _ Sub TestOperatorsPlus2() Dim o1, o2 As Object o1 = Nothing o2 = Operators.PlusObject(o1) If (TypeOf o2 Is Integer) Then Assert.AreEqual(CType(o2, Integer), 0) Else Assert.Fail() End If End Sub _ Sub TestOperatorsPlus3() Dim o1, o2 As Object o1 = DBNull.Value Try o2 = Operators.PlusObject(o1) Catch ex As InvalidCastException Return End Try Assert.Fail() End Sub _ Sub TestOperatorsPlus4() Dim o1, o2 As Object o1 = CType(2, Byte) o2 = Operators.PlusObject(o1) If (TypeOf o2 Is Byte) Then Assert.AreEqual(CType(o2, Byte), 2) Else Assert.Fail() End If End Sub _ Sub TestOperatorsPlus5() Dim o1, o2 As Object o1 = CType(0, Byte) o2 = Operators.PlusObject(o1) If (TypeOf o2 Is Byte) Then Assert.AreEqual(CType(o2, Byte), 0) Else Assert.Fail() End If End Sub _ Sub TestOperatorsPlus6() Dim o1, o2 As Object o1 = "1"c Try o2 = Operators.PlusObject(o1) Catch ex As InvalidCastException Return End Try Assert.Fail() End Sub _ Sub TestOperatorsPlus7() Dim o2 As Object Dim o1 As DateTime = DateTime.Now Try o2 = Operators.PlusObject(o1) Catch ex As InvalidCastException Return End Try Assert.Fail() End Sub _ Sub TestOperatorsPlus8() Dim o1, o2 As Object o1 = CType(-1, Decimal) o2 = Operators.PlusObject(o1) If (TypeOf o2 Is Decimal) Then Assert.AreEqual(CType(o2, Decimal), -1) Else Assert.Fail() End If End Sub _ Sub TestOperatorsPlus9() Dim o1, o2 As Object o1 = CType(-1, Double) o2 = Operators.PlusObject(o1) If (TypeOf o2 Is Double) Then Assert.AreEqual(CType(o2, Double), -1) Else Assert.Fail() End If End Sub _ Sub TestOperatorsPlus10() Dim o1, o2 As Object o1 = CType(Int16.MinValue, Int16) o2 = Operators.PlusObject(o1) If (TypeOf o2 Is Short) Then Assert.AreEqual(CType(o2, Int32), Int16.MinValue) Else Assert.Fail() End If End Sub _ Sub TestOperatorsPlus11() Dim o1, o2 As Object o1 = "1L" Try o2 = Operators.PlusObject(o1) Catch ex As InvalidCastException Return End Try Assert.Fail() End Sub _ Sub TestOperatorsPlus12() Dim o1, o2 As Object o1 = "1" o2 = Operators.PlusObject(o1) If (TypeOf o2 Is Double) Then Assert.AreEqual(CType(o2, Double), 1) Else Assert.Fail() End If End Sub _ Sub TestOperatorsPlus13() Dim o1, o2 As Object o1 = 3US o2 = Operators.PlusObject(o1) If (TypeOf o2 Is UShort) Then Assert.AreEqual(CType(o2, Integer), 3) Else Assert.Fail() End If End Sub _ Sub TestOperatorsPlus14() Dim o1, o2 As Object o1 = New OperatorsImplementer() o2 = Operators.PlusObject(o1) Assert.AreEqual(o2, "+ok") End Sub _ Sub TestOperatorsNot1() Dim o1, o2 As Object o1 = True o2 = Operators.NotObject(o1) If (TypeOf o2 Is Boolean) Then Assert.AreEqual(CType(o2, Boolean), False) Else Assert.Fail() End If End Sub _ Sub TestOperatorsNot2() Dim o1, o2 As Object o1 = Nothing o2 = Operators.NotObject(o1) If (TypeOf o2 Is Integer) Then Assert.AreEqual(CType(o2, Integer), -1) Else Assert.Fail() End If End Sub _ Sub TestOperatorsNot3() Dim o1, o2 As Object o1 = DBNull.Value Try o2 = Operators.NotObject(o1) Catch ex As InvalidCastException Return End Try Assert.Fail() End Sub _ Sub TestOperatorsNot4() Dim o1, o2 As Object o1 = CType(2, Byte) o2 = Operators.NotObject(o1) If (TypeOf o2 Is Byte) Then Assert.AreEqual(CType(o2, Byte), (Not CType(o1, Byte))) Else Assert.Fail() End If End Sub _ Sub TestOperatorsNot5() Dim o1, o2 As Object o1 = CType(0, Byte) o2 = Operators.NotObject(o1) If (TypeOf o2 Is Byte) Then Assert.AreEqual(CType(o2, Byte), (Not CType(o1, Byte))) Else Assert.Fail() End If End Sub _ Sub TestOperatorsNot6() Dim o1, o2 As Object o1 = "1"c Try o2 = Operators.NotObject(o1) Catch ex As InvalidCastException Return End Try Assert.Fail() End Sub _ Sub TestOperatorsNot7() Dim o2 As Object Dim o1 As DateTime = DateTime.Now Try o2 = Operators.NotObject(o1) Catch ex As InvalidCastException Return End Try Assert.Fail() End Sub _ Sub TestOperatorsNot8() Dim o1, o2 As Object o1 = "1.1" o2 = Operators.NotObject(o1) If (TypeOf o2 Is Long) Then Assert.AreEqual(o2, -2L) Else Assert.Fail() End If End Sub _ Sub TestOperatorsNot9() Dim o1, o2 As Object o1 = 1.1 o2 = Operators.NotObject(o1) If (TypeOf o2 Is Long) Then Assert.AreEqual(o2, -2L) Else Assert.Fail() End If End Sub _ Sub TestOperatorsNot10() Dim o1, o2 As Object o1 = New OperatorsImplementer() o2 = Operators.NotObject(o1) Assert.AreEqual(o2, "!ok") End Sub _ Sub TestOperatorsRightShiftObject1() Dim o1, o2, o3 As Object o1 = 4 o2 = -1 o3 = Operators.RightShiftObject(o1, o2) If (TypeOf o3 Is Integer) Then Assert.AreEqual(CType(o3, Integer), (4 >> -1)) Else Assert.Fail() End If End Sub _ Sub TestOperatorsRightShiftObject2() Dim o1, o2, o3 As Object o1 = 4 o2 = Nothing o3 = Operators.RightShiftObject(o1, o2) If (TypeOf o3 Is Integer) Then Assert.AreEqual(CType(o3, Integer), (4 >> 0)) Else Assert.Fail() End If End Sub _ Sub TestOperatorsRightShiftObject3() Dim o1, o2, o3 As Object o1 = Nothing o2 = 1 o3 = Operators.RightShiftObject(o1, o2) If (TypeOf o3 Is Integer) Then Assert.AreEqual(CType(o3, Integer), (0 >> 1)) Else Assert.Fail() End If End Sub _ Sub TestOperatorsRightShiftObject4() Dim o1, o2, o3 As Object o1 = Nothing o2 = Nothing o3 = Operators.RightShiftObject(o1, o2) If (TypeOf o3 Is Integer) Then Assert.AreEqual(CType(o3, Integer), (0 >> 0)) Else Assert.Fail() End If End Sub _ Sub TestOperatorsRightShiftObject5() Dim o1, o2, o3 As Object o1 = Nothing o2 = False o3 = Operators.RightShiftObject(o1, o2) If (TypeOf o3 Is Integer) Then Assert.AreEqual(CType(o3, Integer), (0 >> 0)) Else Assert.Fail() End If End Sub _ Sub TestOperatorsRightShiftObject6() Dim o1, o2, o3 As Object o1 = DBNull.Value o2 = 1 Try o3 = Operators.RightShiftObject(o1, o2) Catch ex As InvalidCastException Return End Try Assert.Fail() End Sub _ Sub TestOperatorsRightShiftObject7() Dim o1, o2, o3 As Object o1 = 1 o2 = DBNull.Value Try o3 = Operators.RightShiftObject(o1, o2) Catch ex As InvalidCastException Return End Try Assert.Fail() End Sub _ Sub TestOperatorsRightShiftObject8() Dim o1, o2, o3 As Object o1 = 1 o2 = DateTime.Now Try o3 = Operators.RightShiftObject(o1, o2) Catch ex As InvalidCastException Return End Try Assert.Fail() End Sub _ Sub TestOperatorsRightShiftObject9() Dim o1, o2, o3 As Object o1 = DateTime.Now o2 = 1 Try o3 = Operators.RightShiftObject(o1, o2) Catch ex As InvalidCastException Return End Try Assert.Fail() End Sub _ Sub TestOperatorsRightShiftObject10() Dim o1, o2, o3 As Object o1 = 1 o2 = DateTime.Now Try o3 = Operators.RightShiftObject(o1, o2) Catch ex As InvalidCastException Return End Try Assert.Fail() End Sub _ Sub TestOperatorsRightShiftObject11() Dim o1, o2, o3 As Object o1 = DateTime.Now o2 = 1 Try o3 = Operators.RightShiftObject(o1, o2) Catch ex As InvalidCastException Return End Try Assert.Fail() End Sub _ Sub TestOperatorsRightShiftObject12() Dim o1, o2, o3 As Object o1 = "1"c o2 = 1 Try o3 = Operators.RightShiftObject(o1, o2) Catch ex As InvalidCastException Return End Try Assert.Fail() End Sub _ Sub TestOperatorsRightShiftObject13() Dim o1, o2, o3 As Object o1 = 1 o2 = "1"c Try o3 = Operators.RightShiftObject(o1, o2) Catch ex As InvalidCastException Return End Try Assert.Fail() End Sub _ Sub TestOperatorsRightShiftObject14() Dim o1, o2, o3 As Object o1 = "4" o2 = 1 o3 = Operators.RightShiftObject(o1, o2) If (TypeOf o3 Is Long) Then Assert.AreEqual(CType(o3, Integer), (4 >> 1)) Else Assert.Fail() End If End Sub _ Sub TestOperatorsRightShiftObject15() Dim o1, o2, o3 As Object o1 = 4 o2 = "1" o3 = Operators.RightShiftObject(o1, o2) If (TypeOf o3 Is Integer) Then Assert.AreEqual(CType(o3, Integer), (4 >> 1)) Else Assert.Fail() End If End Sub _ Sub TestOperatorsRightShiftObject16() Dim o1, o2, o3 As Object o1 = True o2 = 1 o3 = Operators.RightShiftObject(o1, o2) If (TypeOf o3 Is Short) Then Assert.AreEqual(CType(o3, Short), (-1S >> 1)) Else Assert.Fail() End If End Sub _ Sub TestOperatorsRightShiftObject17() Dim o1, o2, o3 As Object o1 = 4D o2 = 1 o3 = Operators.RightShiftObject(o1, o2) If (TypeOf o3 Is Long) Then Assert.AreEqual(CType(o3, Long), (4L >> 1)) Else Assert.Fail() End If End Sub _ Sub TestOperatorsRightShiftObject18() Dim o1, o2, o3 As Object o1 = 4.4D o2 = 1 o3 = Operators.RightShiftObject(o1, o2) If (TypeOf o3 Is Long) Then Assert.AreEqual(CType(o3, Long), (4L >> 1)) Else Assert.Fail() End If End Sub _ Sub TestOperatorsRightShiftObject19() Dim o1, o2, o3 As Object o1 = 4 o2 = 1 o3 = Operators.RightShiftObject(o1, o2) If (TypeOf o3 Is Integer) Then Assert.AreEqual(CType(o3, Integer), (4 >> 1)) Else Assert.Fail() End If End Sub _ Sub TestOperatorsRightShiftObject20() Dim o1, o2, o3 As Object o1 = 4 o2 = Int32.MinValue + 1 o3 = Operators.RightShiftObject(o1, o2) If (TypeOf o3 Is Integer) Then Assert.AreEqual(CType(o3, Integer), (4 >> (Int32.MinValue + 1))) Else Assert.Fail() End If End Sub _ Sub TestOperatorsRightShiftObject21() Dim o1, o3 As Object o1 = New OperatorsImplementer() o3 = Operators.RightShiftObject(o1, 1) Assert.AreEqual(o3, "ok>>") End Sub _ Sub TestOperatorsLeftShiftObject1() Dim o1, o2, o3 As Object o1 = 4 o2 = -1 o3 = Operators.LeftShiftObject(o1, o2) If (TypeOf o3 Is Integer) Then Assert.AreEqual(CType(o3, Integer), (4 << -1)) Else Assert.Fail() End If End Sub _ Sub TestOperatorsLeftShiftObject2() Dim o1, o2, o3 As Object o1 = 4 o2 = Nothing o3 = Operators.LeftShiftObject(o1, o2) If (TypeOf o3 Is Integer) Then Assert.AreEqual(CType(o3, Integer), (4 << 0)) Else Assert.Fail() End If End Sub _ Sub TestOperatorsLeftShiftObject3() Dim o1, o2, o3 As Object o1 = Nothing o2 = 1 o3 = Operators.LeftShiftObject(o1, o2) If (TypeOf o3 Is Integer) Then Assert.AreEqual(CType(o3, Integer), (0 << 1)) Else Assert.Fail() End If End Sub _ Sub TestOperatorsLeftShiftObject4() Dim o1, o2, o3 As Object o1 = Nothing o2 = Nothing o3 = Operators.LeftShiftObject(o1, o2) If (TypeOf o3 Is Integer) Then Assert.AreEqual(CType(o3, Integer), (0 << 0)) Else Assert.Fail() End If End Sub _ Sub TestOperatorsLeftShiftObject5() Dim o1, o2, o3 As Object o1 = Nothing o2 = False o3 = Operators.LeftShiftObject(o1, o2) If (TypeOf o3 Is Integer) Then Assert.AreEqual(CType(o3, Integer), (0 << 0)) Else Assert.Fail() End If End Sub _ Sub TestOperatorsLeftShiftObject6() Dim o1, o2, o3 As Object o1 = DBNull.Value o2 = 1 Try o3 = Operators.LeftShiftObject(o1, o2) Catch ex As InvalidCastException Return End Try Assert.Fail() End Sub _ Sub TestOperatorsLeftShiftObject7() Dim o1, o2, o3 As Object o1 = 1 o2 = DBNull.Value Try o3 = Operators.LeftShiftObject(o1, o2) Catch ex As InvalidCastException Return End Try Assert.Fail() End Sub _ Sub TestOperatorsLeftShiftObject8() Dim o1, o2, o3 As Object o1 = 1 o2 = DateTime.Now Try o3 = Operators.LeftShiftObject(o1, o2) Catch ex As InvalidCastException Return End Try Assert.Fail() End Sub _ Sub TestOperatorsLeftShiftObject9() Dim o1, o2, o3 As Object o1 = DateTime.Now o2 = 1 Try o3 = Operators.LeftShiftObject(o1, o2) Catch ex As InvalidCastException Return End Try Assert.Fail() End Sub _ Sub TestOperatorsLeftShiftObject10() Dim o1, o2, o3 As Object o1 = 1 o2 = DateTime.Now Try o3 = Operators.LeftShiftObject(o1, o2) Catch ex As InvalidCastException Return End Try Assert.Fail() End Sub _ Sub TestOperatorsLeftShiftObject11() Dim o1, o2, o3 As Object o1 = DateTime.Now o2 = 1 Try o3 = Operators.LeftShiftObject(o1, o2) Catch ex As InvalidCastException Return End Try Assert.Fail() End Sub _ Sub TestOperatorsLeftShiftObject12() Dim o1, o2, o3 As Object o1 = "1"c o2 = 1 Try o3 = Operators.LeftShiftObject(o1, o2) Catch ex As InvalidCastException Return End Try Assert.Fail() End Sub _ Sub TestOperatorsLeftShiftObject13() Dim o1, o2, o3 As Object o1 = 1 o2 = "1"c Try o3 = Operators.LeftShiftObject(o1, o2) Catch ex As InvalidCastException Return End Try Assert.Fail() End Sub _ Sub TestOperatorsLeftShiftObject14() Dim o1, o2, o3 As Object o1 = "4" o2 = 1 o3 = Operators.LeftShiftObject(o1, o2) If (TypeOf o3 Is Long) Then Assert.AreEqual(CType(o3, Integer), (4 << 1)) Else Assert.Fail() End If End Sub _ Sub TestOperatorsLeftShiftObject15() Dim o1, o2, o3 As Object o1 = 4 o2 = "1" o3 = Operators.LeftShiftObject(o1, o2) If (TypeOf o3 Is Integer) Then Assert.AreEqual(CType(o3, Integer), (4 << 1)) Else Assert.Fail() End If End Sub _ Sub TestOperatorsLeftShiftObject16() Dim o1, o2, o3 As Object o1 = True o2 = 1 o3 = Operators.LeftShiftObject(o1, o2) If (TypeOf o3 Is Short) Then Assert.AreEqual(CType(o3, Short), (-1S << 1)) Else Assert.Fail() End If End Sub _ Sub TestOperatorsLeftShiftObject17() Dim o1, o2, o3 As Object o1 = 4D o2 = 1 o3 = Operators.LeftShiftObject(o1, o2) If (TypeOf o3 Is Long) Then Assert.AreEqual(CType(o3, Long), (4L << 1)) Else Assert.Fail() End If End Sub _ Sub TestOperatorsLeftShiftObject18() Dim o1, o2, o3 As Object o1 = 4.4D o2 = 1 o3 = Operators.LeftShiftObject(o1, o2) If (TypeOf o3 Is Long) Then Assert.AreEqual(CType(o3, Long), (4L << 1)) Else Assert.Fail() End If End Sub _ Sub TestOperatorsLeftShiftObject19() Dim o1, o2, o3 As Object o1 = 4 o2 = 1 o3 = Operators.LeftShiftObject(o1, o2) If (TypeOf o3 Is Integer) Then Assert.AreEqual(CType(o3, Integer), (4 << 1)) Else Assert.Fail() End If End Sub _ Sub TestOperatorsLeftShiftObject20() Dim o1, o2, o3 As Object o1 = 4 o2 = Int32.MinValue + 1 o3 = Operators.LeftShiftObject(o1, o2) If (TypeOf o3 Is Integer) Then Assert.AreEqual(CType(o3, Integer), (4 << (Int32.MinValue + 1))) Else Assert.Fail() End If End Sub _ Sub TestOperatorsLeftShiftObject21() Dim o1, o3 As Object o1 = New OperatorsImplementer() o3 = Operators.LeftShiftObject(o1, 1) Assert.AreEqual(o3, "ok<<") End Sub _ Sub TestOperatorsSubtract1() Dim o1, o2, o3 As Object o1 = "a" o2 = "b" Try o3 = Operators.SubtractObject(o1, o2) Catch ex As InvalidCastException Return End Try Assert.Fail() End Sub _ Sub TestOperatorsSubtract2() Dim o1, o2, o3 As Object o1 = "d" o2 = 1 Try o3 = Operators.SubtractObject(o1, o2) Catch ex As InvalidCastException Return End Try Assert.Fail() End Sub _ Sub TestOperatorsSubtract3() Dim o1, o2, o3 As Object o1 = "1" o2 = 1 o3 = Operators.SubtractObject(o1, o2) If (TypeOf o3 Is Double) Then Assert.AreEqual(CType(o3, Double), 0D) Else Assert.Fail() End If End Sub _ Sub TestOperatorsSubtract4() Dim o1, o2, o3 As Object o1 = 1 o2 = 1 o3 = Operators.SubtractObject(o1, o2) If (TypeOf o3 Is Integer) Then Assert.AreEqual(CType(o3, Integer), 0) Else Assert.Fail() End If End Sub _ Sub TestOperatorsSubtract5() Dim o1, o2, o3 As Object o1 = 1.1 o2 = 1.1 o3 = Operators.SubtractObject(o1, o2) If (TypeOf o3 Is Double) Then Assert.AreEqual(CType(o3, Double), 0D) Else Assert.Fail() End If End Sub _ Sub TestOperatorsSubtract6() Dim o1, o2, o3 As Object o1 = DateTime.Now o2 = DateTime.Now o3 = Operators.SubtractObject(o1, o2) If (TypeOf o3 Is TimeSpan) Then Assert.AreEqual(CType(o3, TimeSpan).Ticks, (CType(o1, DateTime).Ticks - CType(o2, DateTime).Ticks)) Else Assert.Fail() End If End Sub _ Sub TestOperatorsSubtract7() Dim o1, o2, o3 As Object o1 = "a"c o2 = "b"c Try o3 = Operators.SubtractObject(o1, o2) Catch ex As InvalidCastException Return End Try Assert.Fail() End Sub _ Sub TestOperatorsSubtract8() Dim o1, o2, o3 As Object o1 = 1 o2 = Nothing o3 = Operators.SubtractObject(o1, o2) If (TypeOf o3 Is Integer) Then Assert.AreEqual(o3, 1) Else Assert.Fail() End If End Sub _ Sub TestOperatorsSubtract9() Dim o1, o2, o3 As Object o1 = Nothing o2 = 1 o3 = Operators.SubtractObject(o1, o2) If (TypeOf o3 Is Integer) Then Assert.AreEqual(o3, -1) Else Assert.Fail() End If End Sub _ Sub TestOperatorsSubtract10() Dim o1, o2, o3 As Object o1 = Nothing o2 = Nothing o3 = Operators.SubtractObject(o1, o2) Assert.AreEqual(o3, 0) End Sub _ Sub TestOperatorsSubtract11() Dim o3 As Object Dim o1, o2 As Integer o1 = Integer.MaxValue o2 = Integer.MinValue o3 = Operators.SubtractObject(o1, o2) If (TypeOf o3 Is Long) Then Assert.AreEqual(o3, CType(Integer.MaxValue, Long) - CType(Integer.MinValue, Long)) Else Assert.Fail() End If End Sub _ Sub TestOperatorsSubtract12() Dim o3 As Object Dim o1, o2 As Short o1 = 1 o2 = 1 o3 = Operators.SubtractObject(o1, o2) If (TypeOf o3 Is Short) Then Assert.AreEqual(CType(o3, Short), 0) Else Assert.Fail() End If End Sub _ Sub TestOperatorsSubtract13() Dim o3 As Object Dim o1, o2 As Short o1 = 1 o2 = -1 o3 = Operators.SubtractObject(o1, o2) If (TypeOf o3 Is Short) Then Assert.AreEqual(CType(o3, Short), 2) Else Assert.Fail() End If End Sub _ Sub TestOperatorsSubtract14() Dim o3 As Object Dim o1, o2 As UShort o1 = 1 o2 = 1 o3 = Operators.SubtractObject(o1, o2) If (TypeOf o3 Is UShort) Then Assert.AreEqual(CType(o3, UShort), 0) Else Assert.Fail() End If End Sub _ Sub TestOperatorsSubtract15() Dim o3 As Object Dim o1 As Short Dim o2 As Long o1 = -2 o2 = 1 o3 = Operators.SubtractObject(o1, o2) If (TypeOf o3 Is Long) Then Assert.AreEqual(CType(o3, Long), -3L) Else Assert.Fail() End If End Sub _ Sub TestOperatorsSubtract16() Dim o1, o2 As Long Dim o3 As Object o1 = 1L o2 = 1L o3 = Operators.SubtractObject(o1, o2) If (TypeOf o3 Is Long) Then Assert.AreEqual(CType(o3, Long), 0L) Else Assert.Fail() End If End Sub _ Sub TestOperatorsSubtract17() Dim o1, o2 As Boolean Dim o3 As Object o1 = True o2 = False o3 = Operators.SubtractObject(o1, o2) If (TypeOf o3 Is Short) Then Assert.AreEqual(CType(o3, Short), -1) Else Assert.Fail() End If End Sub _ Sub TestOperatorsSubtract18() Dim o3 As Object Try o3 = Operators.SubtractObject(DBNull.Value, DBNull.Value) Catch ex As InvalidCastException Return End Try Assert.Fail() End Sub _ Sub TestOperatorsSubtract19() Dim o1, o2 As Byte Dim o3 As Object o1 = 0 o2 = 1 o3 = Operators.SubtractObject(o1, o2) If (TypeOf o3 Is Short) Then Assert.AreEqual(CType(o3, Short), -1) Else Assert.Fail() End If End Sub _ Sub TestOperatorsSubtract20() Dim o1, o2 As Byte Dim o3 As Object o1 = Byte.MaxValue o2 = 0 o3 = Operators.SubtractObject(o1, o2) If (TypeOf o3 Is Byte) Then Assert.AreEqual(CType(o3, Byte), Byte.MaxValue) Else Assert.Fail() End If End Sub _ Sub TestOperatorsSubtract21() Dim o1, o2, o3 As Object o1 = New OperatorsImplementer() o2 = "abc" o3 = Operators.SubtractObject(o1, o2) Assert.AreEqual(o3, "ok-") End Sub _ Sub TestOperatorsSubtract22() Dim o1, o2, o3 As Object o1 = "abc" o2 = New OperatorsImplementer() Try o3 = Operators.SubtractObject(o1, o2) Catch ex As InvalidCastException Return End Try Assert.Fail() End Sub _ Sub TestOperatorsAdd1() Dim o1, o2, o3 As Object o1 = "a" o2 = "b" o3 = Operators.AddObject(o1, o2) Assert.AreEqual(o3, "ab") End Sub _ Sub TestOperatorsAdd2() Dim o1, o2, o3 As Object o1 = "d" o2 = 1 Try o3 = Operators.AddObject(o1, o2) Catch ex As InvalidCastException Return End Try Assert.Fail() End Sub _ Sub TestOperatorsAdd3() Dim o1, o2, o3 As Object o1 = "1" o2 = 1 o3 = Operators.AddObject(o1, o2) If (TypeOf o3 Is Double) Then Assert.AreEqual(CType(o3, Double), 2D) Else Assert.Fail() End If End Sub _ Sub TestOperatorsAdd4() Dim o1, o2, o3 As Object o1 = 1 o2 = 1 o3 = Operators.AddObject(o1, o2) If (TypeOf o3 Is Integer) Then Assert.AreEqual(o3, 2) Else Assert.Fail() End If End Sub _ Sub TestOperatorsAdd5() Dim o1, o2, o3 As Object o1 = 1.1 o2 = 1 o3 = Operators.AddObject(o1, o2) If (TypeOf o3 Is Double) Then Assert.AreEqual(o3, 2.1) Else Assert.Fail() End If End Sub _ Sub TestOperatorsAdd6() Dim o1, o2, o3 As Object o1 = DateTime.Now o2 = DateTime.Now o3 = Operators.AddObject(o1, o2) Assert.AreEqual(o3, String.Concat(o1.ToString(), o2.ToString())) End Sub _ Sub TestOperatorsAdd7() Dim o1, o2, o3 As Object o1 = "a"c o2 = "b"c o3 = Operators.AddObject(o1, o2) Assert.AreEqual(o3, "ab") End Sub _ Sub TestOperatorsAdd8() Dim o1, o2, o3, o4, o5, o6 As Object o1 = "b"c o2 = Nothing o3 = Operators.AddObject(o1, o2) o4 = "b"c o5 = DBNull.Value o6 = Operators.AddObject(o1, o2) Assert.AreEqual(o3, o6) End Sub _ Sub TestOperatorsAdd9() Dim o1, o2, o3 As Object o1 = Nothing o2 = 1 o3 = Operators.AddObject(o1, o2) Assert.AreEqual(o3, 1) End Sub _ Sub TestOperatorsAdd10() Dim o1, o2, o3 As Object o1 = Nothing o2 = Nothing o3 = Operators.AddObject(o1, o2) Assert.AreEqual(o3, 0) End Sub _ Sub TestOperatorsAdd11() Dim o3 As Object Dim o1, o2 As Integer o1 = Integer.MaxValue o2 = Integer.MaxValue o3 = Operators.AddObject(o1, o2) If (TypeOf o3 Is Long) Then Assert.AreEqual(CType(o3, Long), Integer.MaxValue * 2L) Else Assert.Fail() End If End Sub _ Sub TestOperatorsAdd12() Dim o3 As Object Dim o1, o2 As Short o1 = 1 o2 = 1 o3 = Operators.AddObject(o1, o2) If (TypeOf o3 Is Short) Then Assert.AreEqual(CType(o3, Short), 2) Else Assert.Fail() End If End Sub _ Sub TestOperatorsAdd13() Dim o3 As Object Dim o1, o2 As Short o1 = 1 o2 = 1 o3 = Operators.AddObject(o1, o2) If (TypeOf o3 Is Short) Then Assert.AreEqual(CType(o3, Short), 2) Else Assert.Fail() End If End Sub _ Sub TestOperatorsAdd14() Dim o3 As Object Dim o1, o2 As UShort o1 = 1 o2 = 1 o3 = Operators.AddObject(o1, o2) If (TypeOf o3 Is UShort) Then Assert.AreEqual(CType(o3, UShort), 2) Else Assert.Fail() End If End Sub _ Sub TestOperatorsAdd15() Dim o3 As Object Dim o1 As Short Dim o2 As Long o1 = -2 o2 = 1 o3 = Operators.AddObject(o1, o2) If (TypeOf o3 Is Long) Then Assert.AreEqual(CType(o3, Long), -1L) Else Assert.Fail() End If End Sub _ Sub TestOperatorsAdd16() Dim o1, o2 As Long Dim o3 As Object o1 = 1L o2 = 1L o3 = Operators.AddObject(o1, o2) If (TypeOf o3 Is Long) Then Assert.AreEqual(CType(o3, Long), 2L) Else Assert.Fail() End If End Sub _ Sub TestOperatorsAdd17() Dim o1, o2 As Boolean Dim o3 As Object o1 = True o2 = False o3 = Operators.AddObject(o1, o2) If (TypeOf o3 Is Short) Then Assert.AreEqual(CType(o3, Short), -1) Else Assert.Fail() End If End Sub _ Sub TestOperatorsAdd18() Dim o3 As Object Try o3 = Operators.AddObject(DBNull.Value, DBNull.Value) Catch ex As InvalidCastException Return End Try Assert.Fail() End Sub _ Sub TestOperatorsAdd19() Dim o1, o2 As Byte Dim o3 As Object o1 = Byte.MaxValue o2 = Byte.MaxValue o3 = Operators.AddObject(o1, o2) If (TypeOf o3 Is Short) Then Assert.AreEqual(CType(o3, Short), Byte.MaxValue * 2) Else Assert.Fail() End If End Sub _ Sub TestOperatorsAdd20() Dim o1, o2 As Byte Dim o3 As Object o1 = Byte.MaxValue o2 = 0 o3 = Operators.AddObject(o1, o2) If (TypeOf o3 Is Byte) Then Assert.AreEqual(CType(o3, Byte), Byte.MaxValue) Else Assert.Fail() End If End Sub _ Sub TestOperatorsAdd21() Dim o1, o2 As Double Dim o3 As Object o1 = Double.MaxValue o2 = Double.MaxValue o3 = Operators.AddObject(o1, o2) If (TypeOf o3 Is Double) Then Assert.AreEqual(CType(o3, Double), Double.MaxValue * 2) Else Assert.Fail() End If End Sub _ Sub TestOperatorsAdd22() Dim o1, o2 As UShort Dim o3 As Object o1 = UShort.MaxValue o2 = UShort.MaxValue o3 = Operators.AddObject(o1, o2) If (TypeOf o3 Is Integer) Then Assert.AreEqual(CType(o3, Integer), UShort.MaxValue * 2) Else Assert.Fail() End If End Sub _ Sub TestOperatorsAdd23() Dim o1 As Double Dim o2 As Decimal Dim o3 As Object o1 = 1 o2 = 1 o3 = Operators.AddObject(o1, o2) If (TypeOf o3 Is Double) Then Assert.AreEqual(CType(o3, Double), 2) Else Assert.Fail() End If End Sub _ Sub TestOperatorsAdd24() Dim o1 As Boolean Dim o2 As String Dim o3 As Object o1 = False o2 = "1" o3 = Operators.AddObject(o1, o2) If (TypeOf o3 Is Double) Then Assert.AreEqual(CType(o3, Double), 1) Else Assert.Fail() End If End Sub _ Sub TestOperatorsAdd25() Dim o1 As Boolean Dim o2 As Integer Dim o3 As Object o1 = False o2 = 1 o3 = Operators.AddObject(o1, o2) If (TypeOf o3 Is Integer) Then Assert.AreEqual(CType(o3, Integer), 1) Else Assert.Fail() End If End Sub _ Sub TestOperatorsAdd26() Dim o1 As ULong Dim o2 As SByte Dim o3 As Object o1 = UInteger.MaxValue o2 = -1 o3 = Operators.AddObject(o1, o2) If (TypeOf o3 Is Decimal) Then Assert.AreEqual(CType(o3, Decimal), UInteger.MaxValue - 1) Else Assert.Fail() End If End Sub _ Sub TestOperatorsAdd27() Dim o1 As Char Dim o2 As Integer Dim o3 As Object o1 = "1"c o2 = -1 Try o3 = Operators.AddObject(o1, o2) Catch ex As InvalidCastException Return End Try Assert.Fail() End Sub _ Sub TestOperatorsAdd28() Dim o1, o2, o3 As Object o1 = New OperatorsImplementer() o2 = "abc" o3 = Operators.AddObject(o1, o2) Assert.AreEqual(o3, "ok+") End Sub _ Sub TestOperatorsAdd29() Dim o1, o2, o3 As Object o1 = "abc" o2 = New OperatorsImplementer() Try o3 = Operators.AddObject(o1, o2) Catch ex As InvalidCastException Return End Try Assert.Fail() End Sub _ Sub TestOperatorsOr1() Dim o1, o2, o3 As Object o1 = "1.1" o2 = "1" o3 = Operators.OrObject(o1, o2) If (TypeOf o3 Is Long) Then Assert.AreEqual(CType(o3, Long), (1L Or 1L)) Else Assert.Fail() End If End Sub _ Sub TestOperatorsOr2() Dim o1, o2, o3 As Object o1 = "d" o2 = 1 Try o3 = Operators.OrObject(o1, o2) Catch ex As InvalidCastException Return End Try Assert.Fail() End Sub _ Sub TestOperatorsOr3() Dim o1, o2, o3 As Object o1 = "1.1" o2 = 1 o3 = Operators.OrObject(o1, o2) If (TypeOf o3 Is Long) Then Assert.AreEqual(CType(o3, Long), (1L Or 1L)) Else Assert.Fail() End If End Sub _ Sub TestOperatorsOr4() Dim o1, o2, o3 As Object o1 = 52 o2 = 14 o3 = Operators.OrObject(o1, o2) If (TypeOf o3 Is Integer) Then Assert.AreEqual(CType(o3, Integer), (52 Or 14)) Else Assert.Fail() End If End Sub _ Sub TestOperatorsOr5() Dim o1, o2, o3 As Object o1 = 14134.3124 o2 = 14.59 o3 = Operators.OrObject(o1, o2) If (TypeOf o3 Is Long) Then Assert.AreEqual(CType(o3, Long), (14134L Or 15L)) Else Assert.Fail() End If End Sub _ Sub TestOperatorsOr6() Dim o1, o2, o3 As Object o1 = DateTime.Now o2 = DateTime.Now Try o3 = Operators.OrObject(o1, o2) Catch ex As InvalidCastException Return End Try Assert.Fail() End Sub _ Sub TestOperatorsOr7() Dim o1, o2, o3 As Object o1 = "1"c o2 = "2"c Try o3 = Operators.OrObject(o1, o2) Catch ex As InvalidCastException Return End Try Assert.Fail() End Sub _ Sub TestOperatorsOr9() Dim o1, o2, o3 As Object o1 = Nothing o2 = 134S o3 = Operators.OrObject(o1, o2) If (TypeOf o3 Is Short) Then Assert.AreEqual(CType(o3, Short), (134S)) Else Assert.Fail() End If End Sub _ Sub TestOperatorsOr10() Dim o1, o2, o3 As Object o1 = Nothing o2 = Nothing o3 = Operators.OrObject(o1, o2) Assert.AreEqual(o3, 0) End Sub _ Sub TestOperatorsOr14() Dim o3 As Object Dim o1, o2 As UShort o1 = 643US o2 = 24US o3 = Operators.OrObject(o1, o2) If (TypeOf o3 Is UShort) Then Assert.AreEqual(CType(o3, UShort), (24US Or 643US)) Else Assert.Fail() End If End Sub _ Sub TestOperatorsOr15() Dim o3 As Object Dim o1 As Short Dim o2 As Long o1 = -2 o2 = 1 o3 = Operators.OrObject(o1, o2) If (TypeOf o3 Is Long) Then Assert.AreEqual(CType(o3, Long), -1L) Else Assert.Fail() End If End Sub _ Sub TestOperatorsOr17() Dim o1, o2 As Object Dim o3 As Object o1 = True o2 = False o3 = Operators.OrObject(o1, o2) If (TypeOf o3 Is Boolean) Then Assert.AreEqual(CType(o3, Boolean), True) Else Assert.Fail() End If End Sub _ Sub TestOperatorsOr18() Dim o3 As Object Try o3 = Operators.OrObject(DBNull.Value, DBNull.Value) Catch ex As InvalidCastException Return End Try Assert.Fail() End Sub _ Sub TestOperatorsOr28() Dim o1, o2, o3 As Object o1 = New OperatorsImplementer() o2 = 1 o3 = Operators.OrObject(o1, o2) Assert.AreEqual(o3, "ok||") End Sub _ Sub TestOperatorsXor1() Dim o1, o2, o3 As Object o1 = "1.1" o2 = "1" o3 = Operators.XorObject(o1, o2) If (TypeOf o3 Is Long) Then Assert.AreEqual(CType(o3, Long), (1L Xor 1L)) Else Assert.Fail() End If End Sub _ Sub TestOperatorsXor2() Dim o1, o2, o3 As Object o1 = "d" o2 = 1 Try o3 = Operators.XorObject(o1, o2) Catch ex As InvalidCastException Return End Try Assert.Fail() End Sub _ Sub TestOperatorsXor3() Dim o1, o2, o3 As Object o1 = "1.1" o2 = 1 o3 = Operators.XorObject(o1, o2) If (TypeOf o3 Is Long) Then Assert.AreEqual(CType(o3, Long), (1L Xor 1L)) Else Assert.Fail() End If End Sub _ Sub TestOperatorsXor4() Dim o1, o2, o3 As Object o1 = 52 o2 = 14 o3 = Operators.XorObject(o1, o2) If (TypeOf o3 Is Integer) Then Assert.AreEqual(CType(o3, Integer), (52 Xor 14)) Else Assert.Fail() End If End Sub _ Sub TestOperatorsXor5() Dim o1, o2, o3 As Object o1 = 14134.3124 o2 = 14.59 o3 = Operators.XorObject(o1, o2) If (TypeOf o3 Is Long) Then Assert.AreEqual(CType(o3, Long), (14134L Xor 15L)) Else Assert.Fail() End If End Sub _ Sub TestOperatorsXor6() Dim o1, o2, o3 As Object o1 = DateTime.Now o2 = DateTime.Now Try o3 = Operators.XorObject(o1, o2) Catch ex As InvalidCastException Return End Try Assert.Fail() End Sub _ Sub TestOperatorsXor7() Dim o1, o2, o3 As Object o1 = "1"c o2 = "2"c Try o3 = Operators.XorObject(o1, o2) Catch ex As InvalidCastException Return End Try Assert.Fail() End Sub _ Sub TestOperatorsXor9() Dim o1, o2, o3 As Object o1 = Nothing o2 = 134S o3 = Operators.XorObject(o1, o2) If (TypeOf o3 Is Short) Then Assert.AreEqual(CType(o3, Short), (134S)) Else Assert.Fail() End If End Sub _ Sub TestOperatorsXor10() Dim o1, o2, o3 As Object o1 = Nothing o2 = Nothing o3 = Operators.XorObject(o1, o2) Assert.AreEqual(o3, 0) End Sub _ Sub TestOperatorsXor14() Dim o3 As Object Dim o1, o2 As UShort o1 = 643US o2 = 24US o3 = Operators.XorObject(o1, o2) If (TypeOf o3 Is UShort) Then Assert.AreEqual(CType(o3, UShort), (24US Xor 643US)) Else Assert.Fail() End If End Sub _ Sub TestOperatorsXor15() Dim o3 As Object Dim o1 As Short Dim o2 As Long o1 = -2 o2 = 1 o3 = Operators.XorObject(o1, o2) If (TypeOf o3 Is Long) Then Assert.AreEqual(CType(o3, Long), -1L) Else Assert.Fail() End If End Sub _ Sub TestOperatorsXor17() Dim o1, o2 As Object Dim o3 As Object o1 = True o2 = False o3 = Operators.XorObject(o1, o2) If (TypeOf o3 Is Boolean) Then Assert.AreEqual(CType(o3, Boolean), True) Else Assert.Fail() End If End Sub _ Sub TestOperatorsXor18() Dim o3 As Object Try o3 = Operators.XorObject(DBNull.Value, DBNull.Value) Catch ex As InvalidCastException Return End Try Assert.Fail() End Sub _ Sub TestOperatorsXor28() Dim o1, o2, o3 As Object o1 = New OperatorsImplementer() o2 = 1 o3 = Operators.XorObject(o1, o2) Assert.AreEqual(o3, "okXor") End Sub _ Sub TestOperatorsAnd1() Dim o1, o2, o3 As Object o1 = "1.1" o2 = "1" o3 = Operators.AndObject(o1, o2) If (TypeOf o3 Is Long) Then Assert.AreEqual(CType(o3, Long), (1L And 1L)) Else Assert.Fail() End If End Sub _ Sub TestOperatorsAnd2() Dim o1, o2, o3 As Object o1 = "d" o2 = 1 Try o3 = Operators.AndObject(o1, o2) Catch ex As InvalidCastException Return End Try Assert.Fail() End Sub _ Sub TestOperatorsAnd3() Dim o1, o2, o3 As Object o1 = "1.1" o2 = 1 o3 = Operators.AndObject(o1, o2) If (TypeOf o3 Is Long) Then Assert.AreEqual(CType(o3, Long), (1L And 1L)) Else Assert.Fail() End If End Sub _ Sub TestOperatorsAnd4() Dim o1, o2, o3 As Object o1 = 52 o2 = 14 o3 = Operators.AndObject(o1, o2) If (TypeOf o3 Is Integer) Then Assert.AreEqual(CType(o3, Integer), (52 And 14)) Else Assert.Fail() End If End Sub _ Sub TestOperatorsAnd5() Dim o1, o2, o3 As Object o1 = 14134.3124 o2 = 14.59 o3 = Operators.AndObject(o1, o2) If (TypeOf o3 Is Long) Then Assert.AreEqual(CType(o3, Long), (14134L And 15L)) Else Assert.Fail() End If End Sub _ Sub TestOperatorsAnd6() Dim o1, o2, o3 As Object o1 = DateTime.Now o2 = DateTime.Now Try o3 = Operators.AndObject(o1, o2) Catch ex As InvalidCastException Return End Try Assert.Fail() End Sub _ Sub TestOperatorsAnd7() Dim o1, o2, o3 As Object o1 = "1"c o2 = "2"c Try o3 = Operators.AndObject(o1, o2) Catch ex As InvalidCastException Return End Try Assert.Fail() End Sub _ Sub TestOperatorsAnd9() Dim o1, o2, o3 As Object o1 = Nothing o2 = 134S o3 = Operators.AndObject(o1, o2) If (TypeOf o3 Is Short) Then Assert.AreEqual(CType(o3, Short), 0S) Else Assert.Fail() End If End Sub _ Sub TestOperatorsAnd10() Dim o1, o2, o3 As Object o1 = Nothing o2 = Nothing o3 = Operators.AndObject(o1, o2) Assert.AreEqual(o3, 0) End Sub _ Sub TestOperatorsAnd15() Dim o3 As Object Dim o1 As Short Dim o2 As Long o1 = -2 o2 = 1 o3 = Operators.AndObject(o1, o2) If (TypeOf o3 Is Long) Then Assert.AreEqual(CType(o3, Long), (-2L And 1L)) Else Assert.Fail() End If End Sub _ Sub TestOperatorsAnd17() Dim o1, o2 As Object Dim o3 As Object o1 = True o2 = False o3 = Operators.AndObject(o1, o2) If (TypeOf o3 Is Boolean) Then Assert.AreEqual(CType(o3, Boolean), False) Else Assert.Fail() End If End Sub _ Sub TestOperatorsAnd18() Dim o3 As Object Try o3 = Operators.AndObject(DBNull.Value, DBNull.Value) Catch ex As InvalidCastException Return End Try Assert.Fail() End Sub _ Sub TestOperatorsAnd28() Dim o1, o2, o3 As Object o1 = New OperatorsImplementer() o2 = 1 o3 = Operators.AndObject(o1, o2) Assert.AreEqual(o3, "okAnd") End Sub _ Sub TestOperatorsDivide1() Dim o1, o2, o3 As Object o1 = "a" o2 = "b" Try o3 = Operators.DivideObject(o1, o2) Catch ex As InvalidCastException Return End Try Assert.Fail() End Sub _ Sub TestOperatorsDivide2() Dim o1, o2, o3 As Object o1 = "d" o2 = 1 Try o3 = Operators.DivideObject(o1, o2) Catch ex As InvalidCastException Return End Try Assert.Fail() End Sub _ Sub TestOperatorsDivide3() Dim o1, o2, o3 As Object o1 = "1" o2 = 1 o3 = Operators.DivideObject(o1, o2) If (TypeOf o3 Is Double) Then Assert.AreEqual(CType(o3, Double), 1D) Else Assert.Fail() End If End Sub _ Sub TestOperatorsDivide6() Dim o1, o2, o3 As Object o1 = DateTime.Now o2 = DateTime.Now Try o3 = Operators.DivideObject(o1, o2) Catch ex As InvalidCastException Return End Try Assert.Fail() End Sub _ Sub TestOperatorsDivide7() Dim o1, o2, o3 As Object o1 = "1"c o2 = 1 Try o3 = Operators.DivideObject(o1, o2) Catch ex As InvalidCastException Return End Try Assert.Fail() End Sub _ Sub TestOperatorsDivide8() Dim o1, o2, o3 As Object o1 = 1 o2 = Nothing o3 = Operators.DivideObject(o1, o2) If (TypeOf o3 Is Double) Then Assert.AreEqual(CType(o3, Double), Double.PositiveInfinity) Else Assert.Fail() End If End Sub _ Sub TestOperatorsDivide11() Dim o1, o2, o3 As Object o1 = New Decimal(1) o2 = 1.0 o3 = Operators.DivideObject(o1, o2) If (TypeOf o3 Is Double) Then Assert.AreEqual(CType(o3, Double), 1) Else Assert.Fail() End If End Sub _ Sub TestOperatorsDivide12() Dim o1, o2, o3 As Object o1 = New Decimal(1) o2 = 1 o3 = Operators.DivideObject(o1, o2) If (TypeOf o3 Is Decimal) Then Assert.AreEqual(CType(o3, Decimal), 1) Else Assert.Fail() End If End Sub _ Sub TestOperatorsDivide13() Dim o1, o2, o3 As Object o1 = 1.1F o2 = 1.1F o3 = Operators.DivideObject(o1, o2) If (TypeOf o3 Is Single) Then Assert.AreEqual(CType(o3, Single), 1) Else Assert.Fail() End If End Sub _ Sub TestOperatorsDivide14() Dim o1, o2, o3 As Object o1 = False o2 = 1.0F o3 = Operators.DivideObject(o1, o2) If (TypeOf o3 Is Single) Then Assert.AreEqual(CType(o3, Single), 0) Else Assert.Fail() End If End Sub _ Sub TestOperatorsDivide15() Dim o1, o2, o3 As Object o1 = 1.0F o2 = "1" o3 = Operators.DivideObject(o1, o2) If (TypeOf o3 Is Double) Then Assert.AreEqual(CType(o3, Double), 1) Else Assert.Fail() End If End Sub _ Sub TestOperatorsDivide16() Dim o1, o2, o3 As Object o1 = 1.0F o2 = 1 o3 = Operators.DivideObject(o1, o2) If (TypeOf o3 Is Single) Then Assert.AreEqual(CType(o3, Single), 1) Else Assert.Fail() End If End Sub _ Sub TestOperatorsDivide18() Dim o3 As Object Try o3 = Operators.DivideObject(DBNull.Value, 1.1D) Catch ex As InvalidCastException Return End Try Assert.Fail() End Sub _ Sub TestOperatorsDivide19() Dim o1, o2, o3 As Object o1 = New OperatorsImplementer() o2 = "abc" o3 = Operators.DivideObject(o1, o2) Assert.AreEqual(o3, "ok/") End Sub _ Sub TestOperatorsMod1() Dim o1, o2, o3 As Object o1 = "a" o2 = "b" Try o3 = Operators.ModObject(o1, o2) Catch ex As InvalidCastException Return End Try Assert.Fail() End Sub _ Sub TestOperatorsMod2() Dim o1, o2, o3 As Object o1 = "d" o2 = 1 Try o3 = Operators.ModObject(o1, o2) Catch ex As InvalidCastException Return End Try Assert.Fail() End Sub _ Sub TestOperatorsMod3() Dim o1, o2, o3 As Object o1 = "1" o2 = 1 o3 = Operators.ModObject(o1, o2) If (TypeOf o3 Is Double) Then Assert.AreEqual(CType(o3, Double), 0D) Else Assert.Fail() End If End Sub _ Sub TestOperatorsMod6() Dim o1, o2, o3 As Object o1 = DateTime.Now o2 = 2 Try o3 = Operators.ModObject(o1, o2) Catch ex As InvalidCastException Return End Try Assert.Fail() End Sub _ Sub TestOperatorsMod7() Dim o1, o2, o3 As Object o1 = "1"c o2 = 2 Try o3 = Operators.ModObject(o1, o2) Catch ex As InvalidCastException Return End Try Assert.Fail() End Sub _ Sub TestOperatorsMod8() Dim o1, o2, o3 As Object o1 = 1 o2 = Nothing Try o3 = Operators.ModObject(o1, o2) Catch ex As DivideByZeroException Return End Try Assert.Fail() End Sub _ Sub TestOperatorsMod11() Dim o1, o2, o3 As Object o1 = New Decimal(3) o2 = 2.0F o3 = Operators.ModObject(o1, o2) If (TypeOf o3 Is Single) Then Assert.AreEqual(CType(o3, Single), 1) Else Assert.Fail() End If End Sub _ Sub TestOperatorsMod12() Dim o1, o2, o3 As Object o1 = New Decimal(3) o2 = -2.5F o3 = Operators.ModObject(o1, o2) If (TypeOf o3 Is Single) Then Assert.AreEqual(CType(o3, Single), 0.5F) Else Assert.Fail() End If End Sub _ Sub TestOperatorsMod13() Dim o1, o2, o3 As Object o1 = -1.1F o2 = 1.1D o3 = Operators.ModObject(o1, o2) If (TypeOf o3 Is Single) Then Assert.AreEqual(CType(o3, Single), 0) Else Assert.Fail() End If End Sub _ Sub TestOperatorsMod14() Dim o1, o2, o3 As Object o1 = False o2 = 1.0F o3 = Operators.ModObject(o1, o2) If (TypeOf o3 Is Single) Then Assert.AreEqual(CType(o3, Single), 0) Else Assert.Fail() End If End Sub _ Sub TestOperatorsMod16() Dim o1, o2, o3 As Object o1 = New OperatorsImplementer() o2 = "2" o3 = Operators.ModObject(o1, o2) Assert.AreEqual(o3, "okMod") End Sub _ Sub TestOperatorsMultiply1() Dim o1, o2, o3 As Object o1 = "a" o2 = "b" Try o3 = Operators.MultiplyObject(o1, o2) Catch ex As InvalidCastException Return End Try Assert.Fail() End Sub _ Sub TestOperatorsMultiply2() Dim o1, o2, o3 As Object o1 = "d" o2 = 1 Try o3 = Operators.MultiplyObject(o1, o2) Catch ex As InvalidCastException Return End Try Assert.Fail() End Sub _ Sub TestOperatorsMultiply3() Dim o1, o2, o3 As Object o1 = "1" o2 = 1 o3 = Operators.MultiplyObject(o1, o2) If (TypeOf o3 Is Double) Then Assert.AreEqual(CType(o3, Double), 1D) Else Assert.Fail() End If End Sub _ Sub TestOperatorsMultiply6() Dim o1, o2, o3 As Object o1 = DateTime.Now o2 = DateTime.Now Try o3 = Operators.MultiplyObject(o1, o2) Catch ex As InvalidCastException Return End Try Assert.Fail() End Sub _ Sub TestOperatorsMultiply7() Dim o1, o2, o3 As Object o1 = "1"c o2 = 1 Try o3 = Operators.MultiplyObject(o1, o2) Catch ex As InvalidCastException Return End Try Assert.Fail() End Sub _ Sub TestOperatorsMultiply8() Dim o1, o2, o3 As Object o1 = 1.0F o2 = Nothing o3 = Operators.MultiplyObject(o1, o2) If (TypeOf o3 Is Single) Then Assert.AreEqual(CType(o3, Single), 0.0F) Else Assert.Fail() End If End Sub _ Sub TestOperatorsMultiply11() Dim o1, o2, o3 As Object o1 = New Decimal(1) o2 = 1.0 o3 = Operators.MultiplyObject(o1, o2) If (TypeOf o3 Is Double) Then Assert.AreEqual(CType(o3, Double), 1) Else Assert.Fail() End If End Sub _ Sub TestOperatorsMultiply12() Dim o1, o2, o3 As Object o1 = New Decimal(1) o2 = 1 o3 = Operators.MultiplyObject(o1, o2) If (TypeOf o3 Is Decimal) Then Assert.AreEqual(CType(o3, Decimal), 1) Else Assert.Fail() End If End Sub _ Sub TestOperatorsMultiply13() Dim o1, o2, o3 As Object o1 = 1US o2 = 1.1F o3 = Operators.MultiplyObject(o1, o2) If (TypeOf o3 Is Single) Then Assert.AreEqual(CType(o3, Single), 1.1F) Else Assert.Fail() End If End Sub _ Sub TestOperatorsMultiply14() Dim o1, o2, o3 As Object o1 = False o2 = 1.0F o3 = Operators.MultiplyObject(o1, o2) If (TypeOf o3 Is Single) Then Assert.AreEqual(CType(o3, Single), 0) Else Assert.Fail() End If End Sub _ Sub TestOperatorsMultiply15() Dim o1, o2, o3 As Object o1 = 1.0F o2 = "1" o3 = Operators.MultiplyObject(o1, o2) If (TypeOf o3 Is Double) Then Assert.AreEqual(CType(o3, Double), 1) Else Assert.Fail() End If End Sub _ Sub TestOperatorsMultiply16() Dim o1, o2, o3 As Object o1 = 1.0F o2 = 1 o3 = Operators.MultiplyObject(o1, o2) If (TypeOf o3 Is Single) Then Assert.AreEqual(CType(o3, Single), 1) Else Assert.Fail() End If End Sub _ Sub TestOperatorsIntDivide1() Dim o1, o2, o3 As Object o1 = "a" o2 = "b" Try o3 = Operators.IntDivideObject(o1, o2) Catch ex As InvalidCastException Return End Try Assert.Fail() End Sub _ Sub TestOperatorsIntDivide2() Dim o1, o2, o3 As Object o1 = "d" o2 = 1 Try o3 = Operators.IntDivideObject(o1, o2) Catch ex As InvalidCastException Return End Try Assert.Fail() End Sub _ Sub TestOperatorsIntDivide3() Dim o1, o2, o3 As Object o1 = "1" o2 = 1 o3 = Operators.IntDivideObject(o1, o2) If (TypeOf o3 Is Long) Then Assert.AreEqual(CType(o3, Long), 1) Else Assert.Fail() End If End Sub _ Sub TestOperatorsIntDivide6() Dim o1, o2, o3 As Object o1 = DateTime.Now o2 = DateTime.Now Try o3 = Operators.IntDivideObject(o1, o2) Catch ex As InvalidCastException Return End Try Assert.Fail() End Sub _ Sub TestOperatorsIntDivide7() Dim o1, o2, o3 As Object o1 = "1"c o2 = 1 Try o3 = Operators.IntDivideObject(o1, o2) Catch ex As InvalidCastException Return End Try Assert.Fail() End Sub _ Sub TestOperatorsIntDivide8() Dim o1, o2, o3 As Object o1 = 1 o2 = Nothing Try o3 = Operators.IntDivideObject(o1, o2) Catch ex As DivideByZeroException Return End Try Assert.Fail() End Sub _ Sub TestOperatorsIntDivide11() Dim o1, o2, o3 As Object o1 = New Decimal(1) o2 = 1.0 o3 = Operators.IntDivideObject(o1, o2) If (TypeOf o3 Is Long) Then Assert.AreEqual(CType(o3, Long), 1) Else Assert.Fail() End If End Sub _ Sub TestOperatorsIntDivide12() Dim o1, o2, o3 As Object o1 = New Decimal(1) o2 = 1 o3 = Operators.IntDivideObject(o1, o2) If (TypeOf o3 Is Long) Then Assert.AreEqual(CType(o3, Long), 1) Else Assert.Fail() End If End Sub _ Sub TestOperatorsIntDivide13() Dim o1, o2, o3 As Object o1 = 1.1F o2 = 1.1F o3 = Operators.IntDivideObject(o1, o2) If (TypeOf o3 Is Long) Then Assert.AreEqual(CType(o3, Long), 1) Else Assert.Fail() End If End Sub _ Sub TestOperatorsIntDivide14() Dim o1, o2, o3 As Object o1 = False o2 = 1.0F o3 = Operators.IntDivideObject(o1, o2) If (TypeOf o3 Is Long) Then Assert.AreEqual(CType(o3, Long), 0) Else Assert.Fail() End If End Sub _ Sub TestOperatorsIntDivide15() Dim o1, o2, o3 As Object o1 = 1.0F o2 = "1" o3 = Operators.IntDivideObject(o1, o2) If (TypeOf o3 Is Long) Then Assert.AreEqual(CType(o3, Long), 1) Else Assert.Fail() End If End Sub _ Sub TestOperatorsIntDivide16() Dim o1, o2, o3 As Object o1 = CType(1, Byte) o2 = CType(1, Byte) o3 = Operators.IntDivideObject(o1, o2) If (TypeOf o3 Is Byte) Then Assert.AreEqual(CType(o3, Byte), 1) Else Assert.Fail() End If End Sub _ Sub TestOperatorsIntDivide17() Dim o1, o2, o3 As Object o1 = 1 o2 = CType(1, Byte) o3 = Operators.IntDivideObject(o1, o2) If (TypeOf o3 Is Integer) Then Assert.AreEqual(CType(o3, Integer), 1) Else Assert.Fail() End If End Sub _ Sub TestOperatorsIntDivide18() Dim o1, o2, o3 As Object o1 = CType(1, SByte) o2 = CType(1, Byte) o3 = Operators.IntDivideObject(o1, o2) If (TypeOf o3 Is Short) Then Assert.AreEqual(CType(o3, Short), 1) Else Assert.Fail() End If End Sub _ Sub TestOperatorsIntDivide19() Dim o1, o2, o3 As Object o1 = New OperatorsImplementer() o2 = "abc" o3 = Operators.IntDivideObject(o1, o2) Assert.AreEqual(o3, "ok\") End Sub _ Sub TestOperatorsLikeObject() Dim o1, o2, o3 As Object o1 = New OperatorsImplementer o2 = New Object o3 = New Object Assert.IsTrue(o1 Like o2) Try Dim b1 As Boolean = o2 Like o1 Assert.Fail() Catch ex As InvalidCastException End Try Try Dim b2 As Boolean = o3 Like o2 Assert.Fail() Catch ex As InvalidCastException End Try End Sub _ Sub TestOperatorsCompare() Dim _false As Object = False Dim _true As Object = True Dim _int1 As Object = -4 Dim _double1 As Object = -4 Dim _byte1 As Object = 0 Dim _date As Object = DateTime.Now Dim _str As Object = "word" Dim _str2 As Object = "aaaa" Dim _strNum As Object = "1" Dim _nothing As Object = Nothing Dim _nothing2 As Object = Nothing Dim _dbnull As Object = DBNull.Value Dim _dbnull2 As Object = DBNull.Value Dim _a As Object = New A Dim _operatorsImplementer As Object = New OperatorsImplementer Assert.IsTrue(1 > _nothing) Assert.IsTrue(_nothing2 = _nothing) Assert.IsTrue(_nothing < 1) Assert.IsTrue(_nothing > -1) Assert.IsTrue(_false > _true) Assert.IsTrue(_operatorsImplementer > _date) Assert.IsTrue(_str > _str2) Assert.IsTrue("a"c < _str) Assert.IsTrue(2 > _strNum) Assert.IsTrue(_int1 <= _byte1) Assert.IsTrue(_double1 = _int1) Try Dim tmp = _a > _nothing Assert.Fail() Catch ex As InvalidCastException End Try Try Dim tmp = 1 = _a Assert.Fail() Catch ex As InvalidCastException End Try Try Dim tmp = _str > _date Assert.Fail() Catch ex As InvalidCastException End Try Try Dim tmp = 1 > _date Assert.Fail() Catch ex As InvalidCastException End Try Try Dim tmp = _dbnull >= _dbnull2 Assert.Fail() Catch ex As InvalidCastException End Try End Sub End Class Class A End Class Class OperatorsImplementer Public Shared Operator =(ByVal a As OperatorsImplementer, ByVal b As Object) As Object Return "True" End Operator Public Shared Operator <>(ByVal a As OperatorsImplementer, ByVal b As Object) As Object Return "True" End Operator Public Shared Operator >(ByVal a As OperatorsImplementer, ByVal b As Object) As Object Return "True" End Operator Public Shared Operator <(ByVal a As OperatorsImplementer, ByVal b As Object) As Object Return "True" End Operator Public Shared Operator >=(ByVal a As OperatorsImplementer, ByVal b As Object) As Object Return "True" End Operator Public Shared Operator <=(ByVal a As OperatorsImplementer, ByVal b As Object) As Object Return "True" End Operator Public Shared Operator +(ByVal a As OperatorsImplementer, ByVal b As Object) As Object Return "ok+" End Operator Public Shared Operator *(ByVal a As OperatorsImplementer, ByVal b As Object) As Object Return "ok*" End Operator Public Shared Operator /(ByVal a As OperatorsImplementer, ByVal b As Object) As Object Return "ok/" End Operator Public Shared Operator \(ByVal a As OperatorsImplementer, ByVal b As Object) As Object Return "ok\" End Operator Public Shared Operator &(ByVal a As OperatorsImplementer, ByVal b As Object) As Object Return "ok&" End Operator Public Shared Operator -(ByVal a As OperatorsImplementer, ByVal b As Object) As Object Return "ok-" End Operator Public Shared Operator Or(ByVal a As OperatorsImplementer, ByVal b As Object) As Object Return "ok||" End Operator Public Shared Operator Xor(ByVal a As OperatorsImplementer, ByVal b As Object) As Object Return "okXor" End Operator Public Shared Operator Mod(ByVal a As OperatorsImplementer, ByVal b As Object) As Object Return "okMod" End Operator Public Shared Operator And(ByVal a As OperatorsImplementer, ByVal b As Object) As Object Return "okAnd" End Operator Public Shared Operator >>(ByVal a As OperatorsImplementer, ByVal b As Integer) As Object Return "ok>>" End Operator Public Shared Operator <<(ByVal a As OperatorsImplementer, ByVal b As Integer) As Object Return "ok<<" End Operator Public Shared Operator -(ByVal a As OperatorsImplementer) As Object Return "-ok" End Operator Public Shared Operator Not(ByVal a As OperatorsImplementer) As Object Return "!ok" End Operator Public Shared Operator +(ByVal a As OperatorsImplementer) As Object Return "+ok" End Operator Public Shared Operator Like(ByVal a As OperatorsImplementer, ByVal b As Object) As Boolean Return True End Operator End Class #End Ifmono-basic-2.4.2/vbruntime/Test/Microsoft.VisualBasic.CompilerServices/BooleanTypeTest.cs0000644000175000001440000000657211213247532031115 0ustar builderusers// BooleanTypeTest.cs - NUnit Test Cases for Microsoft.VisualBasic.CompilerServices.BooleanType // // Mizrahi Rafael (rafim@mainsoft.com) // // // Copyright (c) 2002-2006 Mainsoft Corporation. // Copyright (C) 2004 Novell, Inc (http://www.novell.com) // // Permission is hereby granted, free of charge, to any person obtaining // a copy of this software and associated documentation files (the // "Software"), to deal in the Software without restriction, including // without limitation the rights to use, copy, modify, merge, publish, // distribute, sublicense, and/or sell copies of the Software, and to // permit persons to whom the Software is furnished to do so, subject to // the following conditions: // // The above copyright notice and this permission notice shall be // included in all copies or substantial portions of the Software. // // THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, // EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF // MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND // NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE // LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION // OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION // WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. // using NUnit.Framework; using System; using System.IO; using Microsoft.VisualBasic; namespace MonoTests.Microsoft_VisualBasic.CompilerServices { [TestFixture] public class BooleanTypeTest { public BooleanTypeTest() { } [SetUp] public void GetReady() { } [TearDown] public void Clean() { } #region FromString [Test] public void FromString1() { string st = null; bool b = false; // test string = "False" b = Microsoft.VisualBasic.CompilerServices.BooleanType.FromString("False"); Assert.AreEqual (false.ToString(), b.ToString(), "FromString1#0"); // test string = "fAlse" b = Microsoft.VisualBasic.CompilerServices.BooleanType.FromString("fAlse"); Assert.AreEqual (false.ToString(), b.ToString(), "FromString1#1"); // test string = "TRUe" b = Microsoft.VisualBasic.CompilerServices.BooleanType.FromString("TRUe"); Assert.AreEqual (true.ToString(), b.ToString(), "FromString1#2"); // test string = "0" b = Microsoft.VisualBasic.CompilerServices.BooleanType.FromString("0"); Assert.AreEqual (false.ToString(), b.ToString(), "FromString1#3"); } [Test] [ExpectedException(typeof(InvalidCastException))] public void FromString2() { bool b; object o1 = null; string st = null; // test string = null b = Microsoft.VisualBasic.CompilerServices.BooleanType.FromString(st); } [Test] [ExpectedException(typeof(InvalidCastException))] public void FromString3() { bool b; string st = ""; // test string = "" b = Microsoft.VisualBasic.CompilerServices.BooleanType.FromString(st); } #endregion #region FromObject [Test] public void FromObject1() { bool b; object o1 = true; // test object = true b = Microsoft.VisualBasic.CompilerServices.BooleanType.FromObject(o1); Assert.AreEqual (true, b, "FromObject1#0"); } [Test] public void FromObject2() { bool b; object o1 = null; // test object = null b = Microsoft.VisualBasic.CompilerServices.BooleanType.FromObject(o1); Assert.AreEqual (false, b, "FromObject2#0"); } #endregion } } mono-basic-2.4.2/vbruntime/Test/Microsoft.VisualBasic.CompilerServices/SingleTypeTest.cs0000644000175000001440000000621311213247532030747 0ustar builderusers// SingleTypeTest.cs - NUnit Test Cases for Microsoft.VisualBasic.CompilerServices.SingleType // // Mizrahi Rafael (rafim@mainsoft.com) // Guy Cohen (guyc@mainsoft.com) // // Copyright (c) 2002-2006 Mainsoft Corporation. // Copyright (C) 2004 Novell, Inc (http://www.novell.com) // // Permission is hereby granted, free of charge, to any person obtaining // a copy of this software and associated documentation files (the // "Software"), to deal in the Software without restriction, including // without limitation the rights to use, copy, modify, merge, publish, // distribute, sublicense, and/or sell copies of the Software, and to // permit persons to whom the Software is furnished to do so, subject to // the following conditions: // // The above copyright notice and this permission notice shall be // included in all copies or substantial portions of the Software. // // THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, // EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF // MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND // NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE // LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION // OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION // WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. // using NUnit.Framework; using System; using System.IO; using Microsoft.VisualBasic; namespace MonoTests.Microsoft_VisualBasic.CompilerServices { [TestFixture] public class SingleTypeTest { public SingleTypeTest() { } [SetUp] public void GetReady() { } [TearDown] public void Clean() { } #region FromString [Test] public void FromStringTest() { string st = null; Single s = 0; // test string = null s = Microsoft.VisualBasic.CompilerServices.SingleType.FromString(st); Assert.AreEqual (null, st, "FromString#0"); } [Test] [ExpectedException(typeof(InvalidCastException))] public void FromString2() { Single s = 0; string st = "garbage"; // test string = garbage s = Microsoft.VisualBasic.CompilerServices.SingleType.FromString(st); } #endregion #region FromObject [Test] public void FromObjectTest_1() { Single s; object o1 = null; string st = null; // test object = null s = Microsoft.VisualBasic.CompilerServices.SingleType.FromObject(o1); Assert.AreEqual (0, s, "FromObject#0"); // test string = null s = Microsoft.VisualBasic.CompilerServices.SingleType.FromObject(st); Assert.AreEqual (0, s, "FromObject#1"); } [Test] public void FromObjectTest_2() { object ObjS; object o1 = true; Single st = -1; // test object = True ObjS = Microsoft.VisualBasic.CompilerServices.SingleType.FromObject(o1); Assert.AreEqual (st, ObjS, "FromObject#0"); // test object = False o1 = false; st = 0; ObjS = Microsoft.VisualBasic.CompilerServices.SingleType.FromObject(o1); Assert.AreEqual (st, ObjS, "FromObject#1"); string ResTypeCode = ""; ResTypeCode = Type.GetTypeCode(ObjS.GetType()).ToString(); Assert.AreEqual ("Single",ResTypeCode, "FromObject#2"); } #endregion } } mono-basic-2.4.2/vbruntime/Test/Microsoft.VisualBasic.CompilerServices/DoubleTypeTest.cs0000644000175000001440000000624511213247532030745 0ustar builderusers// DoubleTypeTest.cs - NUnit Test Cases for Microsoft.VisualBasic.CompilerServices.DoubleType // // Mizrahi Rafael (rafim@mainsoft.com) // Guy Cohen (guyc@mainsoft.com) // // Copyright (c) 2002-2006 Mainsoft Corporation. // Copyright (C) 2004 Novell, Inc (http://www.novell.com) // // Permission is hereby granted, free of charge, to any person obtaining // a copy of this software and associated documentation files (the // "Software"), to deal in the Software without restriction, including // without limitation the rights to use, copy, modify, merge, publish, // distribute, sublicense, and/or sell copies of the Software, and to // permit persons to whom the Software is furnished to do so, subject to // the following conditions: // // The above copyright notice and this permission notice shall be // included in all copies or substantial portions of the Software. // // THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, // EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF // MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND // NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE // LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION // OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION // WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. // using NUnit.Framework; using System; using System.IO; using Microsoft.VisualBasic; namespace MonoTests.Microsoft_VisualBasic.CompilerServices { [TestFixture] public class DoubleTypeTest { public DoubleTypeTest() { } [SetUp] public void GetReady() { } [TearDown] public void Clean() { } #region FromString [Test] public void FromStringTest() { string st = null; double dbl1 = 0; // test string = null dbl1 = Microsoft.VisualBasic.CompilerServices.DoubleType.FromString(st); Assert.AreEqual (null, st, "FromString#0"); } [Test] [ExpectedException(typeof(InvalidCastException))] public void FromString2() { double dbl1 = 0; string st = "garbage"; // test string = garbage dbl1 = Microsoft.VisualBasic.CompilerServices.DoubleType.FromString(st); } #endregion #region FromObject [Test] public void FromObjectTest_1() { double dbl1; object o1 = null; string st = null; // test object = null dbl1 = Microsoft.VisualBasic.CompilerServices.DoubleType.FromObject(o1); Assert.AreEqual (0, dbl1, "FromObject#0"); // test string = null dbl1 = Microsoft.VisualBasic.CompilerServices.DoubleType.FromObject(st); Assert.AreEqual (0, dbl1, "FromObject#1"); } [Test] public void FromObjectTest_2() { object ObjI; object o1 = true; double It = -1; // test object = True ObjI = Microsoft.VisualBasic.CompilerServices.DoubleType.FromObject(o1); Assert.AreEqual (It, ObjI, "FromObject#0"); // test object = False o1 = false; It = 0; ObjI = Microsoft.VisualBasic.CompilerServices.DoubleType.FromObject(o1); Assert.AreEqual (It, ObjI, "FromObject#1"); string ResTypeCode = ""; ResTypeCode = Type.GetTypeCode(ObjI.GetType()).ToString(); Assert.AreEqual ("Double",ResTypeCode, "FromObject#2"); } #endregion } } mono-basic-2.4.2/vbruntime/Test/Microsoft.VisualBasic.CompilerServices/ByteTypeTest.vb0000644000175000001440000000454411213247532030440 0ustar builderusers' ByteTypeTest.cs - NUnit Test Cases for Microsoft.VisualBasic.CompilerServices.ByteType ' ' Rolf Bjarne Kvinge (RKvinge@novell.com) ' ' ' Copyright (C) 2008 Novell, Inc (http:www.novell.com) ' ' Permission is hereby granted, free of charge, to any person obtaining ' a copy of this software and associated documentation files (the ' "Software"), to deal in the Software without restriction, including ' without limitation the rights to use, copy, modify, merge, publish, ' distribute, sublicense, and/or sell copies of the Software, and to ' permit persons to whom the Software is furnished to do so, subject to ' the following conditions: ' ' The above copyright notice and this permission notice shall be ' included in all copies or substantial portions of the Software. ' ' THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, ' EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF ' MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND ' NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE ' LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION ' OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION ' WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. ' Imports NUnit.Framework Imports System Imports System.IO Imports Microsoft.VisualBasic Namespace CompilerServices _ Public Class ByteTypeTest Sub New() Helper.SetThreadCulture() End Sub _ Public Sub FromString() Try Microsoft.VisualBasic.CompilerServices.ByteType.FromString("#ERROR") Assert.Fail("Expected InvalidCastException", "#A1") Catch ex As InvalidCastException #If NET_VER >= 2.0 Then Assert.AreEqual("Conversion from string ""#ERROR"" to type 'Byte' is not valid.", ex.Message, "#A2") #Else Assert.AreEqual("Cast from string ""#ERROR"" to type 'Byte' is not valid.", ex.Message, "#A2") #End If Assert.IsNotNull(ex.InnerException, "#A3") Assert.AreSame(GetType(FormatException), ex.InnerException.GetType, "#A4") End Try Assert.AreEqual(0, Microsoft.VisualBasic.CompilerServices.ByteType.FromString(Nothing), "#B0") End Sub End Class End Namespacemono-basic-2.4.2/vbruntime/Test/Microsoft.VisualBasic.CompilerServices/LateBindingTests4.vb0000644000175000001440000003334411213247532031322 0ustar builderusers' ' LateBindingTests4.vb ' ' Author: ' Boris Kirzner (borisk@mainsoft.com) ' ' ' Copyright (C) 2002-2006 Mainsoft Corporation. ' Copyright (C) 2004-2006 Novell, Inc (http://www.novell.com) ' ' Permission is hereby granted, free of charge, to any person obtaining ' a copy of this software and associated documentation files (the ' "Software"), to deal in the Software without restriction, including ' without limitation the rights to use, copy, modify, merge, publish, ' distribute, sublicense, and/or sell copies of the Software, and to ' permit persons to whom the Software is furnished to do so, subject to ' the following conditions: ' ' The above copyright notice and this permission notice shall be ' included in all copies or substantial portions of the Software. ' ' THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, ' EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF ' MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND ' NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE ' LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION ' OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION ' WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. Imports System Imports System.Reflection Imports NUnit.Framework _ Public Class LateBindingTests4 Private Class C1 Public Function F(Optional ByVal i As Integer = -2, Optional ByVal l As Long = -1) As String If i = -2 Then If l = -1 Then Return "Integer(optional value),Long(optional value)" Else Return "Integer(optional value),Long" End If Else If l = -1 Then Return "Integer,Long(optional value)" Else Return "Integer,Long" End If End If End Function Public Function G(ByVal i As Integer, Optional ByVal l As Long = -1) As String If l = -1 Then Return "Integer,Long(optional value)" Else Return "Integer,Long" End If End Function End Class _ Public Sub LateBind_OptionalValue_1() Dim o As Object = New C1 Assert.AreEqual("Integer(optional value),Long(optional value)", o.F()) Assert.AreEqual("Integer,Long(optional value)", o.F(2)) Assert.AreEqual("Integer,Long", o.F(2, 3)) End Sub _ Public Sub LateBind_OptionalValue_2() Dim o As Object = New C1 Assert.AreEqual("Integer,Long(optional value)", o.G(2)) Assert.AreEqual("Integer,Long", o.G(2, 3)) End Sub _ Public Sub LateBind_OptionalValue_3() Dim o As Object = New C1 o.G() End Sub Private Class C2 Public Function F(ByRef j As Integer) j = 8 Return "ByRef Integer" End Function Public Function F(ByVal i As Integer, ByRef j As Integer) j = i Return "Integer,ByRef Integer" End Function Public Function F(ByVal i As Integer, ByRef j As Integer, ByVal ParamArray arg() As Integer) j = arg(0) + arg.Length Return "Integer,ByRef Integer,ParmaArray Integer()" End Function End Class _ Public Sub LateBind_ByRef_1() Dim o As Object = New C2 Dim j As Integer = 15 Dim i As Integer = 23 Assert.AreEqual("ByRef Integer", o.F(j)) Assert.AreEqual(8, j) Assert.AreEqual("Integer,ByRef Integer", o.F(i, j)) Assert.AreEqual(i, j) Assert.AreEqual("Integer,ByRef Integer,ParmaArray Integer()", o.F(i, j, 7, 8, 9, 10)) Assert.AreEqual(7 + 4, j) End Sub Private Class C3 Public Function F(ByVal i As Integer, ByRef j() As Integer) j(2) = i Return "Integer,ByRef Integer()" End Function Public Function F(ByVal i() As Integer, ByRef j() As Integer) For k As Integer = 0 To j.Length - 1 j(k) = i(k) Next Return "Integer(),ByRef Integer()" End Function Public Function F(ByVal i As Integer, ByRef j() As Integer, ByVal ParamArray arg() As Integer) For k As Integer = 0 To j.Length - 1 j(k) = arg(k) Next Return "Integer,ByRef Integer(),ParmaArray Integer()" End Function End Class _ Public Sub LateBind_ByRef_2() Dim o As Object = New C3 Dim j() As Integer = {-1, -2, -3, -4, -5} Dim i() As Integer = {10, 20, 30, 40, 50, 60} Dim arg() As Integer = {1, 2, 3, 4, 5, 6, 7} Assert.AreEqual("Integer,ByRef Integer()", o.F(9, j)) Assert.AreEqual(9, j(2)) Assert.AreEqual("Integer(),ByRef Integer()", o.F(i, j)) For k As Integer = 0 To j.Length - 1 Assert.AreEqual(i(k), j(k)) Next Assert.AreEqual("Integer,ByRef Integer(),ParmaArray Integer()", o.F(5, j, arg(0), arg(1), arg(2), arg(3), arg(4), arg(5), arg(6))) For k As Integer = 0 To j.Length - 1 Assert.AreEqual(arg(k), j(k)) Next End Sub Private Class C4 Public Sub F(ByRef A() As Long) Dim J As Integer For J = 0 To 3 A(J) = A(J) + 1 Next J End Sub Public Sub G(ByRef A() As Long) Dim J As Integer Dim K() As Long = {100, 200, 300, 400} A = K For J = 0 To 3 A(J) = A(J) + 1 Next J End Sub End Class _ Public Sub LateBind_ByRef_3() Dim o As Object = New C4 Dim N() As Long = {10, 20, 30, 40} Dim N1() As Long = {11, 21, 31, 41} Dim N2() As Long = {101, 201, 301, 401} Dim i As Integer o.F(N) For i = 0 To N.Length - 1 Assert.AreEqual(N1(i), N(i)) Next i o.G(N) For i = 0 To N.Length - 1 Assert.AreEqual(N2(i), N(i)) Next i End Sub Class C5 Public Function F(ByVal i As Integer, Optional ByVal a1 As Char = "c", Optional ByVal j As Integer = 30) As Integer If a1 = "c" And i = 2 And j = 40 Then Return 10 End If Return 11 End Function End Class _ Public Sub LateBind_NamedParam_1() Dim o As Object = New C5 Dim a As Integer = o.F(j:=40, i:=2) Assert.AreEqual(10, a) End Sub Class C6 Public Function F(ByRef i As Integer, Optional ByRef a1 As Char = "c", Optional ByRef j As Integer = 30) As Integer If a1 = "a" And i = 2 And j = 30 Then Return 10 End If Return 11 End Function End Class _ Public Sub LateBind_NamedParam_2() Dim o As Object = New C6 Dim a As Integer = o.F(a1:="a", i:=2) Assert.AreEqual(10, a) End Sub Class C7 Public Function F(ByVal i As Integer, Optional ByVal a1 As Char = "d", Optional ByVal j As Integer = 30) As Integer If a1 = "c" And i = 2 And j = 30 Then Return 10 End If Return 11 End Function End Class _ Public Sub LateBind_NamedParam_3() 'Dim i As Integer Dim o As Object = New C7 Dim a As Integer = o.F(a1:="caa", i:=2.321) Assert.AreEqual(10, a) 'Assert.AreEqual(2, i) End Sub Class C8 Public Function F(ByRef i As Integer, ByRef j As Integer) As Integer i = 9 j = 10 End Function End Class _ Public Sub LateBind_NamedParam_4() Dim o As Object = New C8 Dim a As Integer = 1 Dim err As String = "" o.F(a, a) #If NET_VER >= 2.0 Then Assert.AreEqual(10, a) #Else Assert.AreEqual(9, a) #End If #If NET_VER >= 2.0 Then Assert.AreEqual(10, a) #Else o.F(i:=a, j:=a) Assert.AreEqual(9, a) #End If o.F(j:=a, i:=a) #If NET_VER >= 2.0 Then Assert.AreEqual(9, a) #Else Assert.AreEqual(10, a) #End If End Sub Class C9 Public Function F(ByVal i As Integer, ByVal ParamArray arr() As Integer) As String Return "Integer,ParamArray Integer()" End Function Public Function F(ByVal i As Integer, ByVal arr As Integer) As String Return "Integer,Integer" End Function End Class _ Public Sub LateBind_NamedParam_5() Dim o As Object = New C9 Assert.AreEqual("Integer,Integer", o.F(40, arr:=2)) End Sub Class C10 Public Function F(ByVal i As Integer, ByVal ParamArray arr() As Integer) As String Return "Integer,ParamArray Integer()" End Function End Class #If NET_VER >= 2.0 Then 'TargetJvmNotWorking - ArgumentException was thrown when InvalidCastExceptions should be thrown _ _ Public Sub LateBind_NamedParam_6() #Else _ Public Sub LateBind_NamedParam_6() #End If Dim o As Object = New C10 o.F(40, arr:=2) End Sub Class C11 Public Function F(ByVal i As Integer, ByVal ParamArray arr() As Integer) As String Return "Integer,ParamArray Integer()" End Function Public Function F(ByVal i As Long, ByVal arr As Long) As String Return "Long,Long" End Function Public Function F(ByVal i As Integer, ByVal j As Integer) As String Return "Integer,Integer" End Function End Class _ Public Sub LateBind_NamedParam_7() Dim o As Object = New C11 Assert.AreEqual("Long,Long", o.F(40, arr:=2)) End Sub Class C12 Public Function F(ByVal i As Long, ByVal arr As Long) As String Return "Long,Long" End Function Public Function F(ByVal i As Integer, ByVal arr As Integer) As String Return "Integer,Integer" End Function End Class _ Public Sub LateBind_NamedParam_8() Dim o As Object = New C12 Assert.AreEqual("Integer,Integer", o.F(40, arr:=2)) End Sub Class C13 Public Function F(ByVal i As Integer, ByVal j As Long) As String Return "Integer,Long" End Function Public Function F(ByVal j As Integer, ByVal i As Integer) As String Return "Integer,Integer" End Function End Class _ Public Sub LateBind_NamedParam_9() Dim o As Object = New C13 Assert.AreEqual("Integer,Integer", o.F(40, i:=2)) End Sub Class C14 Public Function F(ByVal ParamArray arr() As Integer) As String Return "ParamArray Integer()" End Function Public Function F(ByVal arr As String) As String Return "String" End Function End Class _ Public Sub LateBind_NamedParam_10() Dim o As Object = New C14 Dim iarr() As Integer = {5, 6, 7} o.F(arr:=iarr) End Sub #If NET_VER >= 2.0 Then 'TargetJvmNotWorking - MissingMemberException was thrown when InvalidCastExceptions should be thrown _ _ Public Sub LateBind_NamedParam_11() #Else _ Public Sub LateBind_NamedParam_11() #End If Dim o As Object = New C14 Dim iarr() As Integer = {5, 6, 7} o.F(40, iarr) End Sub _ Public Sub LateBind_NamedParam_16() Dim o As Object = New C14 Dim iarr() As Integer = {5, 6, 7} Assert.AreEqual("ParamArray Integer()", o.F(iarr)) End Sub Class C15 Public Function F(ByVal i As Integer, ByVal j As Integer, ByVal ParamArray arr() As Integer) As String Return "Integer,Integer,ParamArray Integer()" End Function Public Function F(ByVal i As Integer, ByVal j As Integer, ByVal arr As String) As String Return "Integer,Integer,String" End Function End Class #If TARGET_JVM Then Public Sub LateBind_NamedParam_12() #ElseIf NET_VER >= 2.0 Then Public Sub LateBind_NamedParam_12() #Else Public Sub LateBind_NamedParam_12() #End If Dim o As Object = New C15 Assert.AreEqual("Integer,Integer,ParamArray Integer()", o.F(i:=5, j:=6)) End Sub #If NET_VER >= 2.0 Then 'TargetJvmNotWorking - InvalidCastExceptions should be thrown _ _ Public Sub LateBind_NamedParam_15() #Else _ Public Sub LateBind_NamedParam_15() #End If Dim o As Object = New C15 Assert.AreEqual("Integer,Integer,ParamArray Integer()", o.F(i:=5, j:=6)) End Sub _ Public Sub LateBind_NamedParam_13() Dim o As Object = New C15 Assert.AreEqual("Integer,Integer,String", o.F(i:=5, j:=6, arr:=Nothing)) End Sub _ Public Sub LateBind_NamedParam_14() Dim o As Object = New C15 Dim iarr() As Integer = {5, 6, 7} Assert.AreEqual("Integer,Integer,String", o.F(i:=5, j:=6, arr:=iarr)) End Sub End Classmono-basic-2.4.2/vbruntime/Test/Microsoft.VisualBasic.CompilerServices/LateBindingTests2.vb0000644000175000001440000010707111213247532031317 0ustar builderusers' ' LateBindingTests2.vb ' ' Author: ' Boris Kirzner (borisk@mainsoft.com) ' ' ' Copyright (C) 2002-2006 Mainsoft Corporation. ' Copyright (C) 2004-2006 Novell, Inc (http://www.novell.com) ' ' Permission is hereby granted, free of charge, to any person obtaining ' a copy of this software and associated documentation files (the ' "Software"), to deal in the Software without restriction, including ' without limitation the rights to use, copy, modify, merge, publish, ' distribute, sublicense, and/or sell copies of the Software, and to ' permit persons to whom the Software is furnished to do so, subject to ' the following conditions: ' ' The above copyright notice and this permission notice shall be ' included in all copies or substantial portions of the Software. ' ' THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, ' EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF ' MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND ' NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE ' LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION ' OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION ' WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. Imports System Imports System.Reflection Imports NUnit.Framework _ Public Class LateBindingTests2 Dim bo As Boolean = True Dim b As Byte = 1 Dim s As Short = 1 Dim i As Integer = 1 Dim l As Long = 1 Dim c As Char = "a"c Dim d As Double = 1.0 Dim si As Single = 1.0 Dim ss2 As String = "aa" Dim ccA As A = New A Dim ccB As BB = New BB Dim ccc As CC = New CC Dim iic As IConvertible = New IC #If NET_VER >= 2.0 Then Dim sb As SByte = 1 Dim us As UShort = 1 Dim ui As UInteger = 1 Dim ul As ULong = 1 #End If Private Class C1 Public Function F(ByVal o As Object) As String Return "Object" End Function End Class _ Public Sub LateBind_Object() Dim o As Object = New C1 Assert.AreEqual("Object", o.F(bo)) Assert.AreEqual("Object", o.F(b)) Assert.AreEqual("Object", o.F(s)) Assert.AreEqual("Object", o.F(i)) Assert.AreEqual("Object", o.F(l)) Assert.AreEqual("Object", o.F(c)) Assert.AreEqual("Object", o.F(d)) Assert.AreEqual("Object", o.F(si)) Assert.AreEqual("Object", o.F(ccA)) Assert.AreEqual("Object", o.F(ss2)) Assert.AreEqual("Object", o.F(iic)) #If NET_VER >= 2.0 Then Assert.AreEqual("Object", o.F(sb)) Assert.AreEqual("Object", o.F(us)) Assert.AreEqual("Object", o.F(ui)) Assert.AreEqual("Object", o.F(ul)) #End If End Sub Private Class C2 Public Function F(ByVal o As String) As String Return "String" End Function End Class _ Public Sub LateBind_String() Dim o As Object = New C2 Assert.AreEqual("String", o.F(bo)) Assert.AreEqual("String", o.F(b)) Assert.AreEqual("String", o.F(s)) Assert.AreEqual("String", o.F(i)) Assert.AreEqual("String", o.F(l)) Assert.AreEqual("String", o.F(c)) Assert.AreEqual("String", o.F(d)) Assert.AreEqual("String", o.F(si)) 'Assert.AreEqual("String", o.F(ccA)) Assert.AreEqual("String", o.F(ss2)) 'Assert.AreEqual("Object", o.F(iic)) #If NET_VER >= 2.0 Then Assert.AreEqual("String", o.F(sb)) Assert.AreEqual("String", o.F(us)) Assert.AreEqual("String", o.F(ui)) Assert.AreEqual("String", o.F(ul)) #End If End Sub _ Public Sub LateBind_String2() Dim o As Object = New C2 o.F(ccA) End Sub _ Public Sub LateBind_String3() Dim o As Object = New C2 o.F(iic) End Sub Private Class C100 Public Function F(ByVal o As Object) As String Return "Object" End Function Public Function F(ByVal o As String) As String Return "String" End Function End Class _ Public Sub LateBind_StringObject() Dim o As Object = New C100 Dim ccA As A = New A Assert.AreEqual("Object", o.F(bo)) Assert.AreEqual("Object", o.F(b)) Assert.AreEqual("Object", o.F(s)) Assert.AreEqual("Object", o.F(i)) Assert.AreEqual("Object", o.F(l)) Assert.AreEqual("String", o.F(c)) Assert.AreEqual("Object", o.F(d)) Assert.AreEqual("Object", o.F(si)) Assert.AreEqual("Object", o.F(ccA)) Assert.AreEqual("String", o.F(ss2)) Assert.AreEqual("Object", o.F(iic)) #If NET_VER >= 2.0 Then Assert.AreEqual("Object", o.F(sb)) Assert.AreEqual("Object", o.F(us)) Assert.AreEqual("Object", o.F(ui)) Assert.AreEqual("Object", o.F(ul)) #End If End Sub Private Class C4 Public Function F(ByVal ParamArray args() As A) As String Return "ParamArray A()" End Function Public Function F(ByVal a As A, ByVal ParamArray args() As A) As String Return "A,ParamArray A()" End Function End Class #If NET_VER >= 2.0 Then 'TargetJvmNotWorking - Ambiguous matching in method resolution _ _ Public Sub LateBind_Complex_ParamArray1() #Else _ Public Sub LateBind_Complex_ParamArray1() #End If Dim o As Object = New C4 o.F(ccA) End Sub #If NET_VER >= 2.0 Then 'TargetJvmNotWorking - Ambiguous matching in method resolution _ _ Public Sub LateBind_Complex_ParamArray2() #Else _ Public Sub LateBind_Complex_ParamArray2() #End If Dim o As Object = New C4 o.F(ccA, ccA) End Sub #If NET_VER >= 2.0 Then 'TargetJvmNotWorking - Ambiguous matching in method resolution _ _ Public Sub LateBind_Complex_ParamArray6() #Else _ Public Sub LateBind_Complex_ParamArray6() #End If Dim o As Object = New C4 o.F(ccA, ccA, ccA, ccA, ccA, ccA) End Sub Private Class C5 Public Function F(ByVal ParamArray args() As A) As String Return "ParamArray A()" End Function Public Function F(ByVal a As A) As String Return "A" End Function Public Function F(ByVal a1 As A, ByVal a2 As A) As String Return "A,A" End Function Public Function F(ByVal a1 As A, ByVal a2 As A, ByVal a3 As A, ByVal a4 As A) As String Return "A,A,A,A" End Function End Class _ Public Sub LateBind_Complex_ParamArray10() Dim o As Object = New C5 Assert.AreEqual("A", o.F(ccA)) Assert.AreEqual("A,A", o.F(ccA, ccA)) Assert.AreEqual("ParamArray A()", o.F(ccA, ccA, ccA)) Assert.AreEqual("A,A,A,A", o.F(ccA, ccA, ccA, ccA)) Assert.AreEqual("ParamArray A()", o.F(ccA, ccA, ccA, ccA, ccA)) End Sub _ Public Sub LateBind_Complex_ParamArray11() Dim o As Object = New C5 Assert.AreEqual("A", o.F(ccB)) Assert.AreEqual("A,A", o.F(ccB, ccB)) Assert.AreEqual("ParamArray A()", o.F(ccB, ccB, ccB)) Assert.AreEqual("A,A,A,A", o.F(ccB, ccB, ccB, ccB)) Assert.AreEqual("ParamArray A()", o.F(ccB, ccB, ccB, ccB, ccB)) End Sub Private Class C6 Public Function F(ByVal ParamArray args() As A) As String Return "ParamArray A()" End Function Public Function F(ByVal a1 As A, ByVal a2 As A, ByVal a As A) As String Return "A,A,A" End Function Public Function F(ByVal ParamArray args() As BB) As String Return "ParamArray BB()" End Function Public Function F(ByVal a1 As BB, ByVal a2 As BB, ByVal a As BB) As String Return "BB,BB,BB" End Function End Class _ Public Sub LateBind_Complex_ParamArray12() Dim o As Object = New C6 Assert.AreEqual("ParamArray A()", o.F(ccA)) Assert.AreEqual("A,A,A", o.F(ccA, ccA, ccA)) Assert.AreEqual("ParamArray A()", o.F(ccA, ccA, ccA, ccA, ccA)) Assert.AreEqual("ParamArray BB()", o.F(ccB)) Assert.AreEqual("BB,BB,BB", o.F(ccB, ccB, ccB)) Assert.AreEqual("ParamArray BB()", o.F(ccB, ccB, ccB, ccB, ccB)) Assert.AreEqual("A,A,A", o.F(ccB, ccA, ccA)) Assert.AreEqual("ParamArray A()", o.F(ccB, ccA, ccB, ccA, ccB)) End Sub Private Class C7 Public Function F(ByVal b As Byte) As String Return "Byte" End Function Public Function F(ByVal b As String) As String Return "String" End Function Public Function F(ByVal o As Object) As String Return "Object" End Function End Class _ Public Sub LateBind_Complex_IConvertible1() Dim o As Object = New C7 Assert.AreEqual("Object", o.F(iic)) End Sub Private Class C8 Public Function F(ByVal b As Byte) As String Return "Byte" End Function Public Function F(ByVal b As String) As String Return "String" End Function End Class _ Public Sub LateBind_Complex_IConvertible2() Dim o As Object = New C8 o.F(iic) End Sub Private Class C9 Public Function F(ByVal b As Integer, ByVal s As String) As String Return "Integer,String" End Function Public Function F(ByVal b As Short, ByVal o As Object) As String Return "Short,Object" End Function End Class _ Public Sub LateBind_Primitive_Object1() Dim o As Object = New C9 o.F(b, c) End Sub _ Public Sub LateBind_IConvertible_Primitive1() Dim o As Object = New C9 o.F(iic, c) End Sub Private Class C10 Public Function F(ByVal o As Short, ByVal a1 As A) Return "Short,A" End Function Public Function F(ByVal o As Object, ByVal b1 As BB) Return "Object,BB" End Function End Class _ Public Sub LateBind_Complex_Primitive1() Dim o As Object = New C10 Assert.AreEqual("Short,A", o.F(s, ccA)) End Sub _ Public Sub LateBind_Complex_Primitive2() Dim o As Object = New C10 o.F(s, ccB) End Sub Private Class C11 Public Function F(ByVal o As Char, ByVal a1 As A) Return "Char,A" End Function Public Function F(ByVal o As String, ByVal b1 As BB) Return "Object,BB" End Function End Class _ Public Sub LateBind_Complex_Char1() Dim o As Object = New C11 Assert.AreEqual("Char,A", o.F(c, ccA)) End Sub _ Public Sub LateBind_Complex_Char2() Dim o As Object = New C11 o.F(c, ccB) End Sub Private Class C12 Public Function F(ByVal o As String, ByVal a1 As A) Return "String,A" End Function Public Function F(ByVal o As Object, ByVal b1 As BB) Return "Object,BB" End Function End Class _ Public Sub LateBind_Complex_Char3() Dim o As Object = New C12 Assert.AreEqual("String,A", o.F(c, ccA)) End Sub _ Public Sub LateBind_Complex_Char4() Dim o As Object = New C12 o.F(c, ccB) End Sub Private Class C13 Public Function F(ByVal o As Short, ByVal ParamArray arr() As Integer) Return "Short,ParamArray arr() Integer" End Function Public Function F(ByVal o As Object, ByVal i1 As Integer, ByVal i2 As Integer) Return "Object,Integer,Integer" End Function End Class _ Public Sub LateBind_Primitive_ParamArray1() Dim o As Object = New C13 Assert.AreEqual("Short,ParamArray arr() Integer", o.F(b, i, i)) Assert.AreEqual("Object,Integer,Integer", o.F(l, i, i)) End Sub _ Public Sub LateBind_Primitive_ParamArray2() Dim o As Object = New C13 o.F(b, l, l) End Sub Private Class C14 Public Function F(ByVal o1 As Object, ByVal o2 As Object) Return "Object,Object" End Function Public Function F(ByVal o1 As String, ByVal o2 As String) Return "String,String" End Function End Class _ Public Sub LateBind_Primitive_Object2() Dim o As Object = New C14 Assert.AreEqual("Object,Object", o.F(i, c)) End Sub Private Class C15 Public Function F(ByVal a1 As A, ByVal ParamArray b1() As BB) Return "A,ParamArray arr() BB" End Function Public Function F(ByVal b1 As BB, ByVal b2 As A, ByVal b3 As BB) Return "BB,A,BB" End Function End Class _ Public Sub LateBind_Complex_ParamArray20() Dim o As Object = New C15 Assert.AreEqual("BB,A,BB", o.F(ccB, ccA, ccB)) End Sub _ Public Sub LateBind_Complex_ParamArray30() Dim o As Object = New C15 o.F(ccB, ccB, ccB) End Sub Private Class C16 Public Function F(ByVal b1 As BB, ByVal s As Short) Return "BB,Short" End Function Public Function F(ByVal a As A, ByVal l As Long) Return "A,Long" End Function End Class _ Public Sub LateBind_Complex_Primitive10() Dim o As Object = New C16 Assert.AreEqual("A,Long", o.F(ccB, i)) End Sub Private Class C17 Public Function F(ByVal a As A, ByVal s As Integer) Return "A,Integer" End Function Public Function F(ByVal b1 As BB, ByVal l As Long) Return "BB,Long" End Function End Class _ Public Sub LateBind_Complex_Primitive11() Dim o As Object = New C17 o.F(ccB, i) End Sub Private Class C18 Public Function F(ByVal i As Integer, ByVal s As String) Return "Integer,Short" End Function Public Function F(ByVal s As String, ByVal l As Long) Return "String,Long" End Function End Class _ Public Sub LateBind_Primitive_String10() Dim o As Object = New C18 Assert.AreEqual("A,Long", o.F(i, i)) End Sub Private Class C19 Public Function F(ByVal a As A) Return "A" End Function Public Function F(ByVal b As BB) Return "BB" End Function End Class _ Public Sub LateBind_Complex_20() Dim o As Object = New C19 Assert.AreEqual("BB", o.F(ccc)) End Sub Private Class C20 Public Function F(ByVal a As A, ByVal l As Long) Return "A,Long" End Function Public Function F(ByVal b1 As BB, ByVal i As Integer) Return "BB,Integer" End Function End Class _ Public Sub LateBind_Complex_21() Dim o As Object = New C20 Assert.AreEqual("BB,Integer", o.F(ccc, i)) Assert.AreEqual("BB,Integer", o.F(ccc, s)) Assert.AreEqual("A,Long", o.F(ccc, l)) End Sub Private Class C21 Public Function F(ByVal s As Short, ByVal i As Integer) Return "Short,Integer" End Function Public Function F(ByVal s As Short, ByVal i As Long) Return "Short,Long" End Function Public Function F(ByVal s As Short, ByVal i As Integer, ByVal s2 As Short) Return "Short,Integer,Short" End Function Public Function F(ByVal s As Short, ByVal i As Long, ByVal i1 As Integer) Return "Short,Long,Integer" End Function End Class _ Public Sub LateBind_Primitive_50() Dim o As Object = New C21 Assert.AreEqual("BB,Integer", o.F(i, i)) End Sub Private Class C22 Public Function F(ByVal i1 As Long, ByVal i2 As Integer) As String Return "Long,Integer" End Function Public Function F(ByVal i1 As Long, ByVal i2 As Long) As String Return "Long,Long" End Function Public Function F(ByVal i1 As Integer, ByVal i2 As Long) As String Return "Integer,Long" End Function End Class _ Public Sub LateBind_Primitive_51() Dim o As Object = New C22 Assert.AreEqual("Long,Integer", o.F(i, i)) End Sub Private Class C41 Public Function F(ByVal a As A) As String Return "A" End Function Public Function F(ByVal a As A, ByVal ParamArray args() As A) As String Return "A,ParamArray A()" End Function End Class _ Public Sub LateBind_Complex_ParamArray41() Dim o As Object = New C41 Assert.AreEqual("A", o.F(ccA)) Assert.AreEqual("A", o.F(ccB)) Assert.AreEqual("A", o.F(ccc)) End Sub Private Class C42 Public Function F(ByVal a As Object) As String Return "Object" End Function Public Function F(ByVal a As A, ByVal ParamArray args() As A) As String Return "A,ParamArray A()" End Function End Class _ Public Sub LateBind_Complex_ParamArray42() Dim o As Object = New C42 Assert.AreEqual("A,ParamArray A()", o.F(ccA)) Assert.AreEqual("A,ParamArray A()", o.F(ccB)) Assert.AreEqual("A,ParamArray A()", o.F(ccc)) Assert.AreEqual("A,ParamArray A()", o.F(ccA, ccA)) Assert.AreEqual("A,ParamArray A()", o.F(ccc, ccB)) End Sub Private Class C43 Public Function F(ByVal a As A, ByVal b As Object) As String Return "A,Object" End Function Public Function F(ByVal a As Object, ByVal ParamArray args() As A) As String Return "Object,ParamArray A()" End Function End Class _ Public Sub LateBind_Complex_ParamArray43() Dim o As Object = New C43 o.F(ccA, ccA) End Sub Private Class C600 Public Function F(ByVal ParamArray args() As Integer) As Integer Return args.Length End Function End Class _ Public Sub LateBind_Complex_ParamArray600() Dim o As Object = New C600 Dim a As Integer() = {1, 2, 3} Dim x As Integer = 10 Assert.AreEqual(3, o.F(a)) Assert.AreEqual(4, o.F(x, x, x, x)) End Sub Private Class C601 Public Function F(ByVal ParamArray args() As Long) As Integer Return args.Length End Function Public Function F(ByVal ParamArray args() As Integer) As Integer Return args.Length End Function End Class _ Public Sub LateBind_Complex_ParamArray601() Dim o As Object = New C601 Dim a As Long() = {1, 2, 3} Assert.AreEqual(3, o.F(a)) Assert.AreEqual(4, o.F(10, 20, 30, 40)) End Sub Private Class C602 Function F(ByVal ParamArray a As Object()) As Integer Return 0 End Function Function F() Return 1 End Function Function F(ByVal a As Object, ByVal b As Object) Return 2 End Function Function F(ByVal a As Object, ByVal b As Object, ByVal ParamArray c As Object()) Return 3 End Function End Class _ Public Sub LateBind_Complex_ParamArray602() Dim o As Object = New C602 Assert.AreEqual(1, o.F()) Assert.AreEqual(0, o.F(1)) Assert.AreEqual(2, o.F(1, 2)) End Sub #If NET_VER >= 2.0 Then 'TargetJvmNotWorking - Ambiguous matching in method resolution _ _ Public Sub LateBind_Complex_ParamArray603() #Else _ Public Sub LateBind_Complex_ParamArray603() #End If Dim o As Object = New C602 o.F(1, 2, 3) End Sub Class C604 Function F(ByVal ParamArray args() As Integer) As Integer Dim a As Integer a = args.Length Return a End Function End Class _ Public Sub LateBind_Complex_ParamArray604() Dim o As Object = New C604 Dim a As Integer() = {1, 2, 3} Dim b As Integer = 1 Assert.AreEqual(3, o.F(a)) Assert.AreEqual(4, o.F(10, b, 30, 40)) Assert.AreEqual(0, o.F()) End Sub #Region "MS BUG" ' MS passes this test and fails in next that differs just by method ordering inside class ' we should fail in both cases Private Class C23 Public Function F(ByVal i1 As Long, ByVal i2 As Integer, ByVal i3 As Long) As String Return "Long,Integer,Long" End Function Public Function F(ByVal i1 As Integer, ByVal i2 As Long, ByVal i3 As Integer) As String Return "Integer,Long,Integer" End Function Public Function F(ByVal i1 As Long, ByVal i2 As Integer, ByVal i3 As Integer) As String Return "Long,Integer,Integer" End Function End Class 'THIS TEST SHOULD FAIL IN MS _ Public Sub LateBind_MS_Bug_NoFail() Dim o As Object = New C23 Assert.AreEqual("Long,Integer,Integer", o.F(i, i, i)) End Sub Private Class C24 Public Function F(ByVal i1 As Integer, ByVal i2 As Long, ByVal i3 As Integer) As String Return "Integer,Long,Integer" End Function Public Function F(ByVal i1 As Long, ByVal i2 As Integer, ByVal i3 As Integer) As String Return "Long,Integer,Integer" End Function Public Function F(ByVal i1 As Long, ByVal i2 As Integer, ByVal i3 As Long) As String Return "Long,Integer,Long" End Function End Class _ Public Sub LateBind_MS_Bug_Fail() Dim o As Object = New C24 o.F(i, i, i) End Sub #End Region Class C400 Public Function fun(ByVal i As Integer, ByVal ParamArray a() As Long) Return 10 End Function Public Function fun(ByVal ParamArray a() As Long) Return 20 End Function End Class _ Public Sub LateBind_TypeMembersM() Dim o As Object = New C400 Dim a As Integer = o.fun(1, 2, 3) Assert.AreEqual(10, a) End Sub Class C401 Public Function fun(ByVal i1 As Long, ByVal i2 As Long, ByVal i3 As Long) Return 10 End Function Public Function fun(ByVal i1 As Integer, ByVal ParamArray a() As Long) Return 20 End Function End Class _ Public Sub LateBind_TypeMembersM_1() Dim o As Object = New C401 Dim a As Integer = o.fun(1, 2, 3) Assert.AreEqual(20, a) End Sub Class C402 Public Function fun(ByVal i1 As Integer, ByVal i2 As Long, ByVal ParamArray a() As Long) Return 10 End Function Public Function fun(ByVal i1 As Integer, ByVal ParamArray a() As Long) Return 20 End Function End Class #If NET_VER >= 2.0 Then 'TargetJvmNotWorking - Ambiguous matching in method resolution _ _ Public Sub LateBind_TypeMembersM_2() #Else _ Public Sub LateBind_TypeMembersM_2() #End If Dim o As Object = New C402 o.fun(1, 2, 3) End Sub #If NET_VER >= 2.0 Then 'TargetJvmNotWorking - Ambiguous matching in method resolution _ _ Public Sub LateBind_TypeMembersM_3() #Else _ Public Sub LateBind_TypeMembersM_3() #End If Dim o As Object = New C402 o.fun(1, 2) End Sub Class C403 Public Function fun(ByVal i1 As Short, ByVal i2 As Integer, ByVal ParamArray a() As Long) Return 10 End Function Public Function fun(ByVal i1 As Short, ByVal ParamArray a() As Long) Return 20 End Function End Class _ Public Sub LateBind_TypeMembersM_4() Dim o As Object = New C403 Dim sh As Short = 2 Assert.AreEqual(10, o.fun(sh, sh, sh)) End Sub Class C500 Sub fun(ByRef a As Long) a = a + 10 End Sub Sub fun(ByRef a As Integer) a = a + 20 End Sub Sub fun(ByRef a As Decimal) a = a + 30 End Sub End Class _ Public Sub LateBind_TypeMembersF() Dim a As Integer = 10 Dim a1 As Long = 10 Dim a2 As Decimal = 10 Dim o As Object = New C500 o.fun(a) o.fun(a1) o.fun(a2) Assert.AreEqual(30, a) Assert.AreEqual(20, a1) Assert.AreEqual(40, a2) End Sub Class C800 Public Function fun(ByVal i As Integer, ByVal a As Long) If i = 2 And a = 1 Then Return 10 End If Return 11 End Function End Class _ Public Sub LateBind_TypeMembersU() Dim o As Object = New C800 Dim a As Integer = o.fun(a:=1, i:=2) Assert.AreEqual(10, a) End Sub Class C700 Public b As Byte End Class _ Public Sub LateBind_TypeMembersY() Dim o As Object = New C700 o.b = 0 Assert.AreEqual(0, o.b) End Sub Private Class C900 Public Function F(ByVal ParamArray arr() As Integer) As String Return "ParamArray Integer()" End Function Public Function F(ByVal ParamArray arr() As Long) As String Return "ParamArray Long()" End Function End Class _ Public Sub LateBind_TypeMembers_2() Dim o As Object = New C900 Dim i As Integer = 5 Dim l As Long = 7 Dim sh As Short = 3 Assert.AreEqual("ParamArray Integer()", o.F(i, i, i, i, i)) Assert.AreEqual("ParamArray Long()", o.F(l, l, l, l, l, l)) Assert.AreEqual("ParamArray Integer()", o.F(sh, sh, sh, sh)) End Sub Private Class C1000 Public Function F(ByVal i As Integer) Return "Integer" End Function Public Function F(ByVal i As Long) Return "Long" End Function End Class _ Public Sub LateBind_Nothing_1() Dim o As Object = New C1000 Assert.AreEqual("Integer", o.F(Nothing)) End Sub Private Class C1001 Public Function F(ByVal i As Integer) Return "Integer" End Function Public Function F(ByVal i As Boolean) Return "Boolean" End Function End Class _ Public Sub LateBind_Nothing_2() Dim o As Object = New C1001 o.F(Nothing) End Sub Private Class C1002 Public Function F(ByVal i As Integer) Return "Integer" End Function Public Function F(ByVal i As Byte) Return "Byte" End Function End Class _ Public Sub LateBind_Nothing_3() Dim o As Object = New C1002 Assert.AreEqual("Byte", o.F(Nothing)) End Sub Private Class C1003 Public Function F(ByVal i As Integer) Return "Integer" End Function Public Function F(ByVal i As Char) Return "Char" End Function End Class _ Public Sub LateBind_Nothing_4() Dim o As Object = New C1003 o.F(Nothing) End Sub Private Class C1004 Public Function F(ByVal i As Integer) Return "Integer" End Function Public Function F(ByVal i As String) Return "String" End Function End Class _ Public Sub LateBind_Nothing_5() Dim o As Object = New C1004 o.F(Nothing) End Sub Private Class C1005 Public Function F(ByVal i As Char) Return "Char" End Function Public Function F(ByVal i As String) Return "String" End Function End Class _ Public Sub LateBind_Nothing_6() Dim o As Object = New C1005 Assert.AreEqual("Char", o.F(Nothing)) End Sub Private Class C1006 Public Function F(ByVal i As Char) Return "Char" End Function Public Function F(ByVal i As Boolean) Return "Boolean" End Function End Class _ Public Sub LateBind_Nothing_7() Dim o As Object = New C1006 Assert.AreEqual("Char", o.F(Nothing)) End Sub Private Class C1007 Public Function F(ByVal i As Boolean) Return "Boolean" End Function Public Function F(ByVal i As String) Return "String" End Function End Class _ Public Sub LateBind_Nothing_8() Dim o As Object = New C1007 o.F(Nothing) End Sub Private Class C1008 Public Function F(ByVal i As Object) Return "Object" End Function Public Function F(ByVal i As String) Return "String" End Function End Class _ Public Sub LateBind_Nothing_9() Dim o As Object = New C1008 Assert.AreEqual("String", o.F(Nothing)) End Sub Private Class C1009 Public Function F(ByVal i As Object) Return "Object" End Function Public Function F(ByVal i As Char) Return "Char" End Function End Class _ Public Sub LateBind_Nothing_10() Dim o As Object = New C1009 Assert.AreEqual("Char", o.F(Nothing)) End Sub Private Class C1010 Public Function F(ByVal i As Object) Return "Object" End Function Public Function F(ByVal i As Integer) Return "Integer" End Function End Class _ Public Sub LateBind_Nothing_11() Dim o As Object = New C1010 Assert.AreEqual("Integer", o.F(Nothing)) End Sub Private Class C1011 Public Function F(ByVal i As A) Return "A" End Function Public Function F(ByVal i As Integer) Return "Integer" End Function End Class _ Public Sub LateBind_Nothing_12() Dim o As Object = New C1011 o.F(Nothing) End Sub Private Class C1012 Public Function F(ByVal i As A) Return "A" End Function Public Function F(ByVal i As BB) Return "BB" End Function End Class _ Public Sub LateBind_Nothing_13() Dim o As Object = New C1012 Assert.AreEqual("BB", o.F(Nothing)) End Sub #Region "Private Helper Classes" Private Class A Public Overrides Function toString() As String Return "A.instance" End Function End Class Private Class BB Inherits A Public Overrides Function toString() As String Return "BB.instance" End Function End Class Private Class CC Inherits BB Public Overrides Function toString() As String Return "CC.instance" End Function End Class Private Class IC Implements IConvertible Public Function GetTypeCode() As System.TypeCode Implements System.IConvertible.GetTypeCode Return TypeCode.Object End Function Public Function ToBoolean(ByVal provider As System.IFormatProvider) As Boolean Implements System.IConvertible.ToBoolean Return True End Function Public Function ToByte(ByVal provider As System.IFormatProvider) As Byte Implements System.IConvertible.ToByte Return 1 End Function Public Function ToChar(ByVal provider As System.IFormatProvider) As Char Implements System.IConvertible.ToChar Return "a"c End Function Public Function ToDateTime(ByVal provider As System.IFormatProvider) As Date Implements System.IConvertible.ToDateTime Return New DateTime End Function Public Function ToDecimal(ByVal provider As System.IFormatProvider) As Decimal Implements System.IConvertible.ToDecimal Return 1 End Function Public Function ToDouble(ByVal provider As System.IFormatProvider) As Double Implements System.IConvertible.ToDouble Return 1 End Function Public Function ToInt16(ByVal provider As System.IFormatProvider) As Short Implements System.IConvertible.ToInt16 Return 1 End Function Public Function ToInt32(ByVal provider As System.IFormatProvider) As Integer Implements System.IConvertible.ToInt32 Return 1 End Function Public Function ToInt64(ByVal provider As System.IFormatProvider) As Long Implements System.IConvertible.ToInt64 Return 1 End Function Public Function ToSByte(ByVal provider As System.IFormatProvider) As SByte Implements System.IConvertible.ToSByte Return New SByte End Function Public Function ToSingle(ByVal provider As System.IFormatProvider) As Single Implements System.IConvertible.ToSingle Return 1 End Function Public Overloads Function ToString(ByVal provider As System.IFormatProvider) As String Implements System.IConvertible.ToString Return "ICOnvertible.instance" End Function Public Function ToType(ByVal conversionType As System.Type, ByVal provider As System.IFormatProvider) As Object Implements System.IConvertible.ToType Return New Object End Function Public Function ToUInt16(ByVal provider As System.IFormatProvider) As UInt16 Implements System.IConvertible.ToUInt16 Return New UInt16 End Function Public Function ToUInt32(ByVal provider As System.IFormatProvider) As UInt32 Implements System.IConvertible.ToUInt32 Return New UInt32 End Function Public Function ToUInt64(ByVal provider As System.IFormatProvider) As UInt64 Implements System.IConvertible.ToUInt64 Return New UInt64 End Function End Class #End Region End Classmono-basic-2.4.2/vbruntime/Test/Microsoft.VisualBasic.CompilerServices/ObjectTypeTests.vb0000644000175000001440000005204711213247532031127 0ustar builderusers' ' ObjectTypeTests.vb ' ' Author: ' Guy Cohen (guyc@mainsoft.com) ' ' ' Copyright (C) 2002-2006 Mainsoft Corporation. ' Copyright (C) 2004-2006 Novell, Inc (http://www.novell.com) ' ' Permission is hereby granted, free of charge, to any person obtaining ' a copy of this software and associated documentation files (the ' "Software"), to deal in the Software without restriction, including ' without limitation the rights to use, copy, modify, merge, publish, ' distribute, sublicense, and/or sell copies of the Software, and to ' permit persons to whom the Software is furnished to do so, subject to ' the following conditions: ' ' The above copyright notice and this permission notice shall be ' included in all copies or substantial portions of the Software. ' ' THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, ' EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF ' MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND ' NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE ' LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION ' OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION ' WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. Imports System Imports System.Reflection Imports NUnit.Framework Imports Microsoft.VisualBasic.CompilerServices _ Public Class ObjectTypeTests _ Public Sub BitAndObj_1() ' pass same types to BitAndObj() Dim obj1 As Object Dim obj2 As Object Dim b1 As Byte = 5 Dim b2 As Byte = 3 Dim bool1 As Boolean = True Dim bool2 As Boolean = True Dim dbl1 As Double = 3D Dim dbl2 As Double = 3D Dim sn1 As Single = 1 Dim sn2 As Single = 5 Dim dec1 As Decimal = 3.4 Dim dec2 As Decimal = 4.4 Dim l1 As Long = 1234567 Dim l2 As Long = 1234568 Dim i1 As Integer = 7 Dim i2 As Integer = 3 Dim short1 As Short = 2 Dim short2 As Short = 1 Dim s1 As String = "123" Dim s2 As String = "123" Dim resObj As Object Dim ObjTypeC As TypeCode obj1 = b1 obj2 = b2 resObj = ObjectType.BitAndObj(obj1, obj2) ObjTypeC = Type.GetTypeCode(resObj.GetType()) Assert.AreEqual("Byte", ObjTypeC.ToString(), "BO: Byte ") Assert.AreEqual(1, resObj, "BA: Byte(2)") obj1 = bool1 obj2 = bool2 resObj = ObjectType.BitAndObj(obj1, obj2) ObjTypeC = Type.GetTypeCode(resObj.GetType()) Assert.AreEqual("Boolean", ObjTypeC.ToString(), "BO: Boolean") Assert.AreEqual(True, resObj, "BA: Boolean(True)") obj1 = dbl1 obj2 = dbl2 resObj = ObjectType.BitAndObj(obj1, obj2) ObjTypeC = Type.GetTypeCode(resObj.GetType()) Assert.AreEqual("Int64", ObjTypeC.ToString(), "BO: Double") Assert.AreEqual(3, resObj, "BA: Double(3)") obj1 = sn1 obj2 = sn2 resObj = ObjectType.BitAndObj(obj1, obj2) ObjTypeC = Type.GetTypeCode(resObj.GetType()) Assert.AreEqual("Int64", ObjTypeC.ToString(), "BO: Single") Assert.AreEqual(1, resObj, "BA: Single(1)") obj1 = dec1 obj2 = dec2 resObj = ObjectType.BitAndObj(obj1, obj2) ObjTypeC = Type.GetTypeCode(resObj.GetType()) Assert.AreEqual("Int64", ObjTypeC.ToString(), "BO: Decimal") Assert.AreEqual(0, resObj, "BA: Decimal(0)") obj1 = l1 obj2 = l2 resObj = ObjectType.BitAndObj(obj1, obj2) ObjTypeC = Type.GetTypeCode(resObj.GetType()) Assert.AreEqual("Int64", ObjTypeC.ToString(), "BO: Long") Assert.AreEqual(1234560, resObj, "BA: Long(1234560)") obj1 = i1 obj2 = i2 resObj = ObjectType.BitAndObj(obj1, obj2) ObjTypeC = Type.GetTypeCode(resObj.GetType()) Assert.AreEqual("Int32", ObjTypeC.ToString(), "BO: Integer") Assert.AreEqual(3, resObj, "BA: Integer(3)") obj1 = short1 obj2 = short2 resObj = ObjectType.BitAndObj(obj1, obj2) ObjTypeC = Type.GetTypeCode(resObj.GetType()) Assert.AreEqual("Int16", ObjTypeC.ToString(), "BO: Short") Assert.AreEqual(0, resObj, "BA: Short(0)") obj1 = s1 obj2 = s2 resObj = ObjectType.BitAndObj(obj1, obj2) ObjTypeC = Type.GetTypeCode(resObj.GetType()) Assert.AreEqual("Int64", ObjTypeC.ToString(), "BO: String") Assert.AreEqual(123, resObj, "BA: String(0)") End Sub _ Public Sub BitAndObj_2() ' pass different types to BitAndObj() Dim obj1 As Object Dim obj2 As Object Dim b1 As Byte = 5 Dim b2 As Byte = 3 Dim bool1 As Boolean = True Dim bool2 As Boolean = True Dim dbl1 As Double = 3D Dim dbl2 As Double = 3D Dim sn1 As Single = 1 Dim sn2 As Single = 5 Dim dec1 As Decimal = 3.4 Dim dec2 As Decimal = 4.4 Dim l1 As Long = 1234567 Dim l2 As Long = 1234568 Dim i1 As Integer = 7 Dim i2 As Integer = 3 Dim short1 As Short = 2 Dim short2 As Short = 1 Dim s1 As String = "112" Dim s2 As String = "112" Dim resObj As Object Dim ObjTypeC As TypeCode ' Byte - Single obj1 = b1 obj2 = sn2 resObj = ObjectType.BitAndObj(obj1, obj2) ObjTypeC = Type.GetTypeCode(resObj.GetType()) Assert.AreEqual("Int64", ObjTypeC.ToString(), "BO: Byte - Single") Assert.AreEqual(5, resObj, "BA: Single(5)") ' Single - Double obj1 = sn1 obj2 = dbl2 resObj = ObjectType.BitAndObj(obj1, obj2) ObjTypeC = Type.GetTypeCode(resObj.GetType()) Assert.AreEqual("Int64", ObjTypeC.ToString(), "BO: Single - Double") Assert.AreEqual(1, resObj, "BA: Double(1)") ' short - bool obj1 = short1 obj2 = bool2 resObj = ObjectType.BitAndObj(obj1, obj2) ObjTypeC = Type.GetTypeCode(resObj.GetType()) Assert.AreEqual("Int16", ObjTypeC.ToString(), "BO: short - bool") Assert.AreEqual(2, resObj, "BA: Short(2)") ' short - string obj1 = s1 obj2 = short2 resObj = ObjectType.BitAndObj(obj1, obj2) ObjTypeC = Type.GetTypeCode(resObj.GetType()) Assert.AreEqual("Int64", ObjTypeC.ToString(), "BO: short - string") Assert.AreEqual(0, resObj, "BA: Single(1)") ' decimal - bool obj1 = dec1 obj2 = bool2 resObj = ObjectType.BitAndObj(obj1, obj2) ObjTypeC = Type.GetTypeCode(resObj.GetType()) Assert.AreEqual("Int64", ObjTypeC.ToString(), "BO: decimal - bool") Assert.AreEqual(3, resObj, "BA: decimal#1(0)") ' bool - decimal obj1 = bool1 obj2 = dec1 resObj = ObjectType.BitAndObj(obj1, obj2) ObjTypeC = Type.GetTypeCode(resObj.GetType()) Assert.AreEqual("Int64", ObjTypeC.ToString(), "BO: bool - decimal") Assert.AreEqual(3, resObj, "BA: decimal#2(0)") ' Nothing - decimal obj1 = Nothing obj2 = dec2 resObj = ObjectType.BitAndObj(obj1, obj2) ObjTypeC = Type.GetTypeCode(resObj.GetType()) ' Assert.AreEqual("Int64", ObjTypeC.ToString(), "BO: Nothing - decimal") Assert.AreEqual(0, resObj, "BA: Nothing(0)") ' decimal - Nothing obj1 = dec1 obj2 = Nothing resObj = ObjectType.BitAndObj(obj1, obj2) ObjTypeC = Type.GetTypeCode(resObj.GetType()) ' Assert.AreEqual("Int64", ObjTypeC.ToString(), "BO: decimal - Nothing") Assert.AreEqual(0, resObj, "BA: Nothing(0)") ' short - Nothing obj1 = short1 obj2 = Nothing resObj = ObjectType.BitAndObj(obj1, obj2) ObjTypeC = Type.GetTypeCode(resObj.GetType()) ' Assert.AreEqual("Int16", ObjTypeC.ToString(), "BO: short - Nothing") Assert.AreEqual(0, resObj, "BA: Nothing(0)") End Sub _ Public Sub BitOrObj_1() ' pass same types to BitOrObj() Dim obj1 As Object Dim obj2 As Object Dim b1 As Byte = 5 Dim b2 As Byte = 3 Dim bool1 As Boolean = True Dim bool2 As Boolean = True Dim dbl1 As Double = 3D Dim dbl2 As Double = 3D Dim sn1 As Single = 1 Dim sn2 As Single = 5 Dim dec1 As Decimal = 3.4 Dim dec2 As Decimal = 4.4 Dim l1 As Long = 1234567 Dim l2 As Long = 1234568 Dim i1 As Integer = 7 Dim i2 As Integer = 3 Dim short1 As Short = 2 Dim short2 As Short = 1 Dim s1 As String = "123" Dim s2 As String = "123" Dim resObj As Object Dim ObjTypeC As TypeCode obj1 = b1 obj2 = b2 resObj = ObjectType.BitOrObj(obj1, obj2) ObjTypeC = Type.GetTypeCode(resObj.GetType()) Assert.AreEqual("Byte", ObjTypeC.ToString(), "BO: Byte ") Assert.AreEqual(7, resObj, "BO: Byte(7)") obj1 = bool1 obj2 = bool2 resObj = ObjectType.BitOrObj(obj1, obj2) ObjTypeC = Type.GetTypeCode(resObj.GetType()) Assert.AreEqual("Boolean", ObjTypeC.ToString(), "BO: Boolean") Assert.AreEqual(True, resObj, "BO: Boolean(True)") obj1 = dbl1 obj2 = dbl2 resObj = ObjectType.BitOrObj(obj1, obj2) ObjTypeC = Type.GetTypeCode(resObj.GetType()) Assert.AreEqual("Int64", ObjTypeC.ToString(), "BO: Double") Assert.AreEqual(3, resObj, "BO: Double(3)") obj1 = sn1 obj2 = sn2 resObj = ObjectType.BitOrObj(obj1, obj2) ObjTypeC = Type.GetTypeCode(resObj.GetType()) Assert.AreEqual("Int64", ObjTypeC.ToString(), "BO: Single") Assert.AreEqual(5, resObj, "BO: Single(5)") obj1 = dec1 obj2 = dec2 resObj = ObjectType.BitOrObj(obj1, obj2) ObjTypeC = Type.GetTypeCode(resObj.GetType()) Assert.AreEqual("Int64", ObjTypeC.ToString(), "BO: Decimal") Assert.AreEqual(7, resObj, "BO: Decimal(7)") obj1 = l1 obj2 = l2 resObj = ObjectType.BitOrObj(obj1, obj2) ObjTypeC = Type.GetTypeCode(resObj.GetType()) Assert.AreEqual("Int64", ObjTypeC.ToString(), "BO: Long") Assert.AreEqual(1234575, resObj, "BO: Long(1234575)") obj1 = i1 obj2 = i2 resObj = ObjectType.BitOrObj(obj1, obj2) ObjTypeC = Type.GetTypeCode(resObj.GetType()) Assert.AreEqual("Int32", ObjTypeC.ToString(), "BO: Integer") Assert.AreEqual(7, resObj, "BO: Integer(7)") obj1 = short1 obj2 = short2 resObj = ObjectType.BitOrObj(obj1, obj2) ObjTypeC = Type.GetTypeCode(resObj.GetType()) Assert.AreEqual("Int16", ObjTypeC.ToString(), "BO: Short") Assert.AreEqual(3, resObj, "BO: Short(3)") obj1 = s1 obj2 = s2 resObj = ObjectType.BitOrObj(obj1, obj2) ObjTypeC = Type.GetTypeCode(resObj.GetType()) Assert.AreEqual("Int64", ObjTypeC.ToString(), "BO: String") Assert.AreEqual(123, resObj, "BO: String(123)") End Sub _ Public Sub BitOrObj_2() ' pass different types to BitOrObj() Dim obj1 As Object Dim obj2 As Object Dim b1 As Byte = 5 Dim b2 As Byte = 3 Dim bool1 As Boolean = True Dim bool2 As Boolean = True Dim dbl1 As Double = 3D Dim dbl2 As Double = 3D Dim sn1 As Single = 1 Dim sn2 As Single = 5 Dim dec1 As Decimal = 3.4 Dim dec2 As Decimal = 4.4 Dim l1 As Long = 1234567 Dim l2 As Long = 1234568 Dim i1 As Integer = 7 Dim i2 As Integer = 3 Dim short1 As Short = 2 Dim short2 As Short = 1 Dim s1 As String = "112" Dim s2 As String = "112" Dim resObj As Object Dim ObjTypeC As TypeCode ' Byte - Single obj1 = b1 obj2 = sn2 resObj = ObjectType.BitOrObj(obj1, obj2) ObjTypeC = Type.GetTypeCode(resObj.GetType()) Assert.AreEqual("Int64", ObjTypeC.ToString(), "BO: Byte - Single") Assert.AreEqual(5, resObj, "BO: Single(5)") ' Single - Double obj1 = sn1 obj2 = dbl2 resObj = ObjectType.BitOrObj(obj1, obj2) ObjTypeC = Type.GetTypeCode(resObj.GetType()) Assert.AreEqual("Int64", ObjTypeC.ToString(), "BO: Single - Double") Assert.AreEqual(3, resObj, "BO: Double(3)") ' short - bool obj1 = short1 obj2 = bool2 resObj = ObjectType.BitOrObj(obj1, obj2) ObjTypeC = Type.GetTypeCode(resObj.GetType()) Assert.AreEqual("Int16", ObjTypeC.ToString(), "BO: short - bool") Assert.AreEqual(-1, resObj, "BO: Short(-1)") ' short - string obj1 = s1 obj2 = short2 resObj = ObjectType.BitOrObj(obj1, obj2) ObjTypeC = Type.GetTypeCode(resObj.GetType()) Assert.AreEqual("Int64", ObjTypeC.ToString(), "BO: short - string") Assert.AreEqual(113, resObj, "BO: Double(113)") ' decimal - bool obj1 = dec1 obj2 = bool2 resObj = ObjectType.BitOrObj(obj1, obj2) ObjTypeC = Type.GetTypeCode(resObj.GetType()) Assert.AreEqual("Int64", ObjTypeC.ToString(), "BO: decimal - bool") Assert.AreEqual(-1, resObj, "BO: decimal#1(-1)") ' bool - decimal obj1 = bool1 obj2 = dec1 resObj = ObjectType.BitOrObj(obj1, obj2) ObjTypeC = Type.GetTypeCode(resObj.GetType()) Assert.AreEqual("Int64", ObjTypeC.ToString(), "BO: bool - decimal") Assert.AreEqual(-1, resObj, "BO: decimal#2(-1)") ' Nothing - decimal obj1 = Nothing obj2 = dec2 resObj = ObjectType.BitOrObj(obj1, obj2) ObjTypeC = Type.GetTypeCode(resObj.GetType()) ' Assert.AreEqual("Int64", ObjTypeC.ToString(), "BO: Nothing - decimal") Assert.AreEqual(4, resObj, "BO: decimal(4)") ' decimal - Nothing obj1 = dec1 obj2 = Nothing resObj = ObjectType.BitOrObj(obj1, obj2) ObjTypeC = Type.GetTypeCode(resObj.GetType()) ' Assert.AreEqual("Int64", ObjTypeC.ToString(), "BO: decimal - Nothing") Assert.AreEqual(3, resObj, "BO: decimal(3)") ' short - Nothing obj1 = short1 obj2 = Nothing resObj = ObjectType.BitOrObj(obj1, obj2) ObjTypeC = Type.GetTypeCode(resObj.GetType()) ' Assert.AreEqual("Int16", ObjTypeC.ToString(), "BO: short - Nothing") Assert.AreEqual(2, resObj, "BO: short(2)") End Sub _ Public Sub BitXorObj_1() ' pass same types to BitXorObj() Dim obj1 As Object Dim obj2 As Object Dim b1 As Byte = 5 Dim b2 As Byte = 3 Dim bool1 As Boolean = True Dim bool2 As Boolean = True Dim dbl1 As Double = 3D Dim dbl2 As Double = 3D Dim sn1 As Single = 1 Dim sn2 As Single = 5 Dim dec1 As Decimal = 3.4 Dim dec2 As Decimal = 4.4 Dim l1 As Long = 1234567 Dim l2 As Long = 1234568 Dim i1 As Integer = 7 Dim i2 As Integer = 3 Dim short1 As Short = 2 Dim short2 As Short = 1 Dim s1 As String = "123" Dim s2 As String = "123" Dim resObj As Object Dim ObjTypeC As TypeCode obj1 = b1 obj2 = b2 resObj = ObjectType.BitXorObj(obj1, obj2) ObjTypeC = Type.GetTypeCode(resObj.GetType()) Assert.AreEqual("Byte", ObjTypeC.ToString(), "BX: Byte ") Assert.AreEqual(6, resObj, "BX: Byte(6)") obj1 = bool1 obj2 = bool2 resObj = ObjectType.BitXorObj(obj1, obj2) ObjTypeC = Type.GetTypeCode(resObj.GetType()) Assert.AreEqual("Boolean", ObjTypeC.ToString(), "BX: Boolean") Assert.AreEqual(False, resObj, "BX: Boolean(False)") obj1 = dbl1 obj2 = dbl2 resObj = ObjectType.BitXorObj(obj1, obj2) ObjTypeC = Type.GetTypeCode(resObj.GetType()) Assert.AreEqual("Int64", ObjTypeC.ToString(), "BX: Double") Assert.AreEqual(0, resObj, "BX: Double(0)") obj1 = sn1 obj2 = sn2 resObj = ObjectType.BitXorObj(obj1, obj2) ObjTypeC = Type.GetTypeCode(resObj.GetType()) Assert.AreEqual("Int64", ObjTypeC.ToString(), "BX: Single") Assert.AreEqual(4, resObj, "BX: Single(4)") obj1 = dec1 obj2 = dec2 resObj = ObjectType.BitXorObj(obj1, obj2) ObjTypeC = Type.GetTypeCode(resObj.GetType()) Assert.AreEqual("Int64", ObjTypeC.ToString(), "BX: Decimal") Assert.AreEqual(7, resObj, "BX: Decimal(0)") obj1 = l1 obj2 = l2 resObj = ObjectType.BitXorObj(obj1, obj2) ObjTypeC = Type.GetTypeCode(resObj.GetType()) Assert.AreEqual("Int64", ObjTypeC.ToString(), "BX: Long") Assert.AreEqual(15, resObj, "BX: Long(15)") obj1 = i1 obj2 = i2 resObj = ObjectType.BitXorObj(obj1, obj2) ObjTypeC = Type.GetTypeCode(resObj.GetType()) Assert.AreEqual("Int32", ObjTypeC.ToString(), "BX: Integer") Assert.AreEqual(4, resObj, "BX: Integer(4)") obj1 = short1 obj2 = short2 resObj = ObjectType.BitXorObj(obj1, obj2) ObjTypeC = Type.GetTypeCode(resObj.GetType()) Assert.AreEqual("Int16", ObjTypeC.ToString(), "BX: Short") Assert.AreEqual(3, resObj, "BX: Short(3)") obj1 = s1 obj2 = s2 resObj = ObjectType.BitXorObj(obj1, obj2) ObjTypeC = Type.GetTypeCode(resObj.GetType()) Assert.AreEqual("Int64", ObjTypeC.ToString(), "BX: String") Assert.AreEqual(0, resObj, "BX: String(0)") End Sub _ Public Sub BitXorObj_2() ' pass different types to BitXorObj() Dim obj1 As Object Dim obj2 As Object Dim b1 As Byte = 5 Dim b2 As Byte = 3 Dim bool1 As Boolean = True Dim bool2 As Boolean = True Dim dbl1 As Double = 3D Dim dbl2 As Double = 3D Dim sn1 As Single = 1 Dim sn2 As Single = 5 Dim dec1 As Decimal = 3.4 Dim dec2 As Decimal = 4.4 Dim l1 As Long = 1234567 Dim l2 As Long = 1234568 Dim i1 As Integer = 7 Dim i2 As Integer = 3 Dim short1 As Short = 2 Dim short2 As Short = 1 Dim s1 As String = "112" Dim s2 As String = "112" Dim resObj As Object Dim ObjTypeC As TypeCode ' Byte - Single obj1 = b1 obj2 = sn2 resObj = ObjectType.BitXorObj(obj1, obj2) ObjTypeC = Type.GetTypeCode(resObj.GetType()) Assert.AreEqual("Int64", ObjTypeC.ToString(), "BX: Byte - Single") Assert.AreEqual(0, resObj, "BX: Single(0)") ' Single - Double obj1 = sn1 obj2 = dbl2 resObj = ObjectType.BitXorObj(obj1, obj2) ObjTypeC = Type.GetTypeCode(resObj.GetType()) Assert.AreEqual("Int64", ObjTypeC.ToString(), "BX: Single - Double") Assert.AreEqual(2, resObj, "BX: Double(2)") ' short - bool obj1 = short1 obj2 = bool2 resObj = ObjectType.BitXorObj(obj1, obj2) ObjTypeC = Type.GetTypeCode(resObj.GetType()) Assert.AreEqual("Int16", ObjTypeC.ToString(), "BX: short - bool") Assert.AreEqual(-3, resObj, "BX: Short(-3)") ' short - string obj1 = s1 obj2 = short2 resObj = ObjectType.BitXorObj(obj1, obj2) ObjTypeC = Type.GetTypeCode(resObj.GetType()) Assert.AreEqual("Int64", ObjTypeC.ToString(), "BX: short - string") Assert.AreEqual(113, resObj, "BX: Double(113)") ' decimal - bool obj1 = dec1 obj2 = bool2 resObj = ObjectType.BitXorObj(obj1, obj2) ObjTypeC = Type.GetTypeCode(resObj.GetType()) Assert.AreEqual("Int64", ObjTypeC.ToString(), "BX: decimal - bool") Assert.AreEqual(-4, resObj, "BX: decimal#1(-4)") ' bool - decimal obj1 = bool1 obj2 = dec1 resObj = ObjectType.BitXorObj(obj1, obj2) ObjTypeC = Type.GetTypeCode(resObj.GetType()) Assert.AreEqual("Int64", ObjTypeC.ToString(), "BX: bool - decimal") Assert.AreEqual(-4, resObj, "BX: decimal#2(-4)") ' Nothing - decimal obj1 = Nothing obj2 = dec2 resObj = ObjectType.BitXorObj(obj1, obj2) ObjTypeC = Type.GetTypeCode(resObj.GetType()) ' Assert.AreEqual("Int64", ObjTypeC.ToString(), "BX: Nothing - decimal") Assert.AreEqual(4, resObj, "BX: decimal(4)") ' decimal - Nothing obj1 = dec1 obj2 = Nothing resObj = ObjectType.BitXorObj(obj1, obj2) ObjTypeC = Type.GetTypeCode(resObj.GetType()) ' Assert.AreEqual("Int64", ObjTypeC.ToString(), "BX: decimal - Nothing") Assert.AreEqual(3, resObj, "BX: decimal(3)") ' short - Nothing obj1 = short1 obj2 = Nothing resObj = ObjectType.BitXorObj(obj1, obj2) ObjTypeC = Type.GetTypeCode(resObj.GetType()) ' Assert.AreEqual("Int16", ObjTypeC.ToString(), "BX: short - Nothing") Assert.AreEqual(2, resObj, "BX: short(2)") End Sub End Class mono-basic-2.4.2/vbruntime/Test/Microsoft.VisualBasic.CompilerServices/LateBindingTests.vb0000644000175000001440000011630211213247532031232 0ustar builderusers' ' LateBindingTests.vb ' ' Author: ' Boris Kirzner (borisk@mainsoft.com) ' ' ' Copyright (C) 2002-2006 Mainsoft Corporation. ' Copyright (C) 2004-2006 Novell, Inc (http://www.novell.com) ' ' Permission is hereby granted, free of charge, to any person obtaining ' a copy of this software and associated documentation files (the ' "Software"), to deal in the Software without restriction, including ' without limitation the rights to use, copy, modify, merge, publish, ' distribute, sublicense, and/or sell copies of the Software, and to ' permit persons to whom the Software is furnished to do so, subject to ' the following conditions: ' ' The above copyright notice and this permission notice shall be ' included in all copies or substantial portions of the Software. ' ' THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, ' EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF ' MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND ' NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE ' LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION ' OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION ' WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. Imports System Imports System.Reflection Imports NUnit.Framework _ Public Class LateBindingTests Dim bo As Boolean = True Dim b As Byte = 1 Dim s As Short = 1 Dim i As Integer = 1 Dim l As Long = 1 Dim c As Char = "a"c Dim d As Double = 1.0 Dim si As Single = 1.0 #If NET_VER >= 2.0 Then Dim sb As SByte = 1 Dim us As UShort = 1 Dim ui As UInteger = 1 Dim ul As ULong = 1 #End If _ Public Class Bug344217 Public Class StrangeClass Sub TheFunc(ByRef output(,) As Double) output(0, 0) = 1.0 End Sub End Class _ Public Sub Main() Dim o As Object o = New StrangeClass Dim data(1, 1) As Double o.TheFunc(data) Assert.AreEqual(1.0, data(0, 0), "0,0") Assert.AreEqual(0.0, data(0, 1), "0,1") Assert.AreEqual(0.0, data(1, 0), "1,0") Assert.AreEqual(0.0, data(1, 1), "1,1") End Sub End Class _ Public Sub A_ShouldFailWithMono() ' FIXME: used to determine the environment the tests run in. Should be removed. Microsoft.VisualBasic.CompilerServices.ProjectData.ClearProjectError() End Sub Private Class C1 Public Function F(ByVal s As Byte) As String Return "Byte" End Function Public Function F(ByVal s As Short) As String Return "Short" End Function Public Function F(ByVal s As Integer) As String Return "Integer" End Function Public Function F(ByVal s As Long) As String Return "Long" End Function End Class _ Public Sub LateBind_PrimitiveTypes_1() Dim o As Object = New C1 Assert.AreEqual("Byte", o.F(b)) Assert.AreEqual("Short", o.F(s)) Assert.AreEqual("Integer", o.F(i)) Assert.AreEqual("Long", o.F(l)) End Sub Private Class C2 Public Function F(ByVal s As Short) As String Return "Short" End Function Public Function F(ByVal s As Long) As String Return "Long" End Function End Class _ Public Sub LateBind_PrimitiveTypes_11() Dim o As Object = New C2 Assert.AreEqual("Short", o.F(b)) Assert.AreEqual("Short", o.F(s)) Assert.AreEqual("Long", o.F(i)) Assert.AreEqual("Long", o.F(l)) End Sub Private Class C3 Public Function F(ByVal s As Byte) As String Return "Byte" End Function Public Function F(ByVal s As Integer) As String Return "Integer" End Function End Class _ Public Sub LateBind_PrimitiveTypes_12() Dim o As Object = New C3 Assert.AreEqual("Byte", o.F(b)) Assert.AreEqual("Integer", o.F(s)) Assert.AreEqual("Integer", o.F(i)) End Sub _ Public Sub LateBind_PrimitiveTypes_2() Dim o As Object = New C3 o.F(l) End Sub Private Class C4 Public Function F(ByVal s1 As Byte, ByVal s2 As Byte) As String Return "Byte,Byte" End Function Public Function F(ByVal s1 As Short, ByVal s2 As Short) As String Return "Short,Short" End Function Public Function F(ByVal s1 As Integer, ByVal s2 As Integer) As String Return "Integer,Integer" End Function Public Function F(ByVal s1 As Long, ByVal s2 As Long) As String Return "Long,Long" End Function End Class _ Public Sub LateBind_PrimitiveTypes_21() Dim o As Object = New C4 Assert.AreEqual("Byte,Byte", o.F(b, b)) Assert.AreEqual("Short,Short", o.F(s, s)) Assert.AreEqual("Integer,Integer", o.F(i, i)) Assert.AreEqual("Long,Long", o.F(l, l)) End Sub _ Public Sub LateBind_PrimitiveTypes_22() Dim o As Object = New C4 Assert.AreEqual("Short,Short", o.F(b, s)) Assert.AreEqual("Short,Short", o.F(s, b)) Assert.AreEqual("Integer,Integer", o.F(b, i)) Assert.AreEqual("Integer,Integer", o.F(i, b)) Assert.AreEqual("Integer,Integer", o.F(i, s)) Assert.AreEqual("Integer,Integer", o.F(s, i)) Assert.AreEqual("Long,Long", o.F(b, l)) Assert.AreEqual("Long,Long", o.F(l, b)) Assert.AreEqual("Long,Long", o.F(s, l)) Assert.AreEqual("Long,Long", o.F(l, s)) Assert.AreEqual("Long,Long", o.F(i, l)) Assert.AreEqual("Long,Long", o.F(l, i)) End Sub Private Class C5 Public Function F(ByVal s1 As Short, ByVal s2 As Short) As String Return "Short,Short" End Function Public Function F(ByVal s1 As Long, ByVal s2 As Long) As String Return "Long,Long" End Function End Class _ Public Sub LateBind_PrimitiveTypes_3() Dim o As Object = New C5 Assert.AreEqual("Short,Short", o.F(b, s)) Assert.AreEqual("Short,Short", o.F(s, b)) Assert.AreEqual("Long,Long", o.F(b, i)) Assert.AreEqual("Long,Long", o.F(i, b)) Assert.AreEqual("Long,Long", o.F(i, s)) Assert.AreEqual("Long,Long", o.F(s, i)) Assert.AreEqual("Long,Long", o.F(b, l)) Assert.AreEqual("Long,Long", o.F(l, b)) Assert.AreEqual("Long,Long", o.F(s, l)) Assert.AreEqual("Long,Long", o.F(l, s)) Assert.AreEqual("Long,Long", o.F(i, l)) Assert.AreEqual("Long,Long", o.F(l, i)) End Sub Private Class C6 Public Function F(ByVal s1 As Byte, ByVal s2 As Byte) As String Return "Byte,Byte" End Function Public Function F(ByVal s1 As Integer, ByVal s2 As Integer) As String Return "Integer,Integer" End Function End Class _ Public Sub LateBind_PrimitiveTypes_31() Dim o As Object = New C6 Assert.AreEqual("Integer,Integer", o.F(b, s)) Assert.AreEqual("Integer,Integer", o.F(s, b)) Assert.AreEqual("Integer,Integer", o.F(b, i)) Assert.AreEqual("Integer,Integer", o.F(i, b)) Assert.AreEqual("Integer,Integer", o.F(i, s)) Assert.AreEqual("Integer,Integer", o.F(s, i)) End Sub _ Public Sub LateBind_PrimitiveTypes_4() Dim o As Object = New C6 o.F(b, l) End Sub _ Public Sub LateBind_PrimitiveTypes_5() Dim o As Object = New C6 o.F(l, b) End Sub _ Public Sub LateBind_PrimitiveTypes_6() Dim o As Object = New C6 o.F(s, l) End Sub _ Public Sub LateBind_PrimitiveTypes_7() Dim o As Object = New C6 o.F(l, s) End Sub _ Public Sub LateBind_PrimitiveTypes_8() Dim o As Object = New C6 o.F(i, l) End Sub _ Public Sub LateBind_PrimitiveTypes_9() Dim o As Object = New C6 o.F(l, i) End Sub Private Class C100 Public Function F(ByVal s As Boolean) As String Return "Boolean" End Function Public Function F(ByVal s As Byte) As String Return "Byte" End Function Public Function F(ByVal s As Short) As String Return "Short" End Function #If NET_VER >= 2.0 Then Public Function F(ByVal s As SByte) As String Return "SByte" End Function Public Function F(ByVal s As UShort) As String Return "UShort" End Function Public Function F(ByVal s As UInteger) As String Return "UInteger" End Function Public Function F(ByVal s As ULong) As String Return "ULong" End Function #End If Public Function F(ByVal s As Integer) As String Return "Integer" End Function Public Function F(ByVal s As Long) As String Return "Long" End Function Public Function F(ByVal s As Char) As String Return "Char" End Function Public Function F(ByVal s As Double) As String Return "Double" End Function Public Function F(ByVal s As Single) As String Return "Single" End Function End Class _ Public Sub LateBind_PrimitiveTypes_100() Dim o As Object = New C100 Assert.AreEqual("Boolean", o.F(bo)) Assert.AreEqual("Byte", o.F(b)) Assert.AreEqual("Short", o.F(s)) Assert.AreEqual("Integer", o.F(i)) Assert.AreEqual("Long", o.F(l)) Assert.AreEqual("Char", o.F(c)) Assert.AreEqual("Double", o.F(d)) Assert.AreEqual("Single", o.F(si)) #If NET_VER >= 2.0 Then Assert.AreEqual("SByte", o.F(sb)) Assert.AreEqual("UShort", o.F(us)) Assert.AreEqual("UInteger", o.F(ui)) Assert.AreEqual("ULong", o.F(ul)) #End If End Sub Private Class C200 'Public Function F(ByVal s As Boolean) As String ' Return "Boolean" 'End Function Public Function F(ByVal s As Byte) As String Return "Byte" End Function Public Function F(ByVal s As Short) As String Return "Short" End Function #If NET_VER >= 2.0 Then Public Function F(ByVal s As SByte) As String Return "SByte" End Function Public Function F(ByVal s As UShort) As String Return "UShort" End Function Public Function F(ByVal s As UInteger) As String Return "UInteger" End Function Public Function F(ByVal s As ULong) As String Return "ULong" End Function #End If Public Function F(ByVal s As Integer) As String Return "Integer" End Function Public Function F(ByVal s As Long) As String Return "Long" End Function Public Function F(ByVal s As Char) As String Return "Char" End Function Public Function F(ByVal s As Double) As String Return "Double" End Function Public Function F(ByVal s As Single) As String Return "Single" End Function End Class _ Public Sub LateBind_PrimitiveTypes_200() Dim o As Object = New C200 'Assert.AreEqual("Boolean", o.F(bo)) Assert.AreEqual("Byte", o.F(b)) Assert.AreEqual("Short", o.F(s)) Assert.AreEqual("Integer", o.F(i)) Assert.AreEqual("Long", o.F(l)) Assert.AreEqual("Char", o.F(c)) Assert.AreEqual("Double", o.F(d)) Assert.AreEqual("Single", o.F(si)) #If NET_VER >= 2.0 Then Assert.AreEqual("SByte", o.F(sb)) Assert.AreEqual("UShort", o.F(us)) Assert.AreEqual("UInteger", o.F(ui)) Assert.AreEqual("ULong", o.F(ul)) #End If End Sub _ Public Sub LateBind_PrimitiveTypes_201() Dim o As Object = New C200 o.F(bo) End Sub Private Class C210 Public Function F(ByVal s As Boolean) As String Return "Boolean" End Function 'Public Function F(ByVal s As Byte) As String ' Return "Byte" 'End Function Public Function F(ByVal s As Short) As String Return "Short" End Function #If NET_VER >= 2.0 Then Public Function F(ByVal s As SByte) As String Return "SByte" End Function Public Function F(ByVal s As UShort) As String Return "UShort" End Function Public Function F(ByVal s As UInteger) As String Return "UInteger" End Function Public Function F(ByVal s As ULong) As String Return "ULong" End Function #End If Public Function F(ByVal s As Integer) As String Return "Integer" End Function Public Function F(ByVal s As Long) As String Return "Long" End Function Public Function F(ByVal s As Char) As String Return "Char" End Function Public Function F(ByVal s As Double) As String Return "Double" End Function Public Function F(ByVal s As Single) As String Return "Single" End Function End Class _ Public Sub LateBind_PrimitiveTypes_210() Dim o As Object = New C210 Assert.AreEqual("Boolean", o.F(bo)) Assert.AreEqual("Short", o.F(b)) Assert.AreEqual("Short", o.F(s)) Assert.AreEqual("Integer", o.F(i)) Assert.AreEqual("Long", o.F(l)) Assert.AreEqual("Char", o.F(c)) Assert.AreEqual("Double", o.F(d)) Assert.AreEqual("Single", o.F(si)) #If NET_VER >= 2.0 Then Assert.AreEqual("SByte", o.F(sb)) Assert.AreEqual("UShort", o.F(us)) Assert.AreEqual("UInteger", o.F(ui)) Assert.AreEqual("ULong", o.F(ul)) #End If End Sub Private Class C220 Public Function F(ByVal s As Boolean) As String Return "Boolean" End Function Public Function F(ByVal s As Byte) As String Return "Byte" End Function Public Function F(ByVal s As Short) As String Return "Short" End Function #If NET_VER >= 2.0 Then 'Public Function F(ByVal s As SByte) As String ' Return "SByte" 'End Function Public Function F(ByVal s As UShort) As String Return "UShort" End Function Public Function F(ByVal s As UInteger) As String Return "UInteger" End Function Public Function F(ByVal s As ULong) As String Return "ULong" End Function #End If Public Function F(ByVal s As Integer) As String Return "Integer" End Function Public Function F(ByVal s As Long) As String Return "Long" End Function Public Function F(ByVal s As Char) As String Return "Char" End Function Public Function F(ByVal s As Double) As String Return "Double" End Function Public Function F(ByVal s As Single) As String Return "Single" End Function End Class 'TargetJvmNotWorking - Assert.AreEqual("Short", o.F(sb)) Fail - support for 2.0 sbyte _ Public Sub LateBind_PrimitiveTypes_220() Dim o As Object = New C220 Assert.AreEqual("Boolean", o.F(bo)) Assert.AreEqual("Byte", o.F(b)) Assert.AreEqual("Short", o.F(s)) Assert.AreEqual("Integer", o.F(i)) Assert.AreEqual("Long", o.F(l)) Assert.AreEqual("Char", o.F(c)) Assert.AreEqual("Double", o.F(d)) Assert.AreEqual("Single", o.F(si)) #If NET_VER >= 2.0 Then Assert.AreEqual("Short", o.F(sb)) Assert.AreEqual("UShort", o.F(us)) Assert.AreEqual("UInteger", o.F(ui)) Assert.AreEqual("ULong", o.F(ul)) #End If End Sub Private Class C230 Public Function F(ByVal s As Boolean) As String Return "Boolean" End Function Public Function F(ByVal s As Byte) As String Return "Byte" End Function Public Function F(ByVal s As Short) As String Return "Short" End Function #If NET_VER >= 2.0 Then Public Function F(ByVal s As SByte) As String Return "SByte" End Function 'Public Function F(ByVal s As UShort) As String ' Return "UShort" 'End Function Public Function F(ByVal s As UInteger) As String Return "UInteger" End Function Public Function F(ByVal s As ULong) As String Return "ULong" End Function #End If Public Function F(ByVal s As Integer) As String Return "Integer" End Function Public Function F(ByVal s As Long) As String Return "Long" End Function Public Function F(ByVal s As Char) As String Return "Char" End Function Public Function F(ByVal s As Double) As String Return "Double" End Function Public Function F(ByVal s As Single) As String Return "Single" End Function End Class _ Public Sub LateBind_PrimitiveTypes_230() Dim o As Object = New C230 Assert.AreEqual("Boolean", o.F(bo)) Assert.AreEqual("Byte", o.F(b)) Assert.AreEqual("Short", o.F(s)) Assert.AreEqual("Integer", o.F(i)) Assert.AreEqual("Long", o.F(l)) Assert.AreEqual("Char", o.F(c)) Assert.AreEqual("Double", o.F(d)) Assert.AreEqual("Single", o.F(si)) #If NET_VER >= 2.0 Then Assert.AreEqual("SByte", o.F(sb)) Assert.AreEqual("Integer", o.F(us)) Assert.AreEqual("UInteger", o.F(ui)) Assert.AreEqual("ULong", o.F(ul)) #End If End Sub Private Class C240 Public Function F(ByVal s As Boolean) As String Return "Boolean" End Function Public Function F(ByVal s As Byte) As String Return "Byte" End Function Public Function F(ByVal s As Short) As String Return "Short" End Function #If NET_VER >= 2.0 Then Public Function F(ByVal s As SByte) As String Return "SByte" End Function Public Function F(ByVal s As UShort) As String Return "UShort" End Function 'Public Function F(ByVal s As UInteger) As String ' Return "UInteger" 'End Function Public Function F(ByVal s As ULong) As String Return "ULong" End Function #End If Public Function F(ByVal s As Integer) As String Return "Integer" End Function Public Function F(ByVal s As Long) As String Return "Long" End Function Public Function F(ByVal s As Char) As String Return "Char" End Function Public Function F(ByVal s As Double) As String Return "Double" End Function Public Function F(ByVal s As Single) As String Return "Single" End Function End Class _ Public Sub LateBind_PrimitiveTypes_240() Dim o As Object = New C240 Assert.AreEqual("Boolean", o.F(bo)) Assert.AreEqual("Byte", o.F(b)) Assert.AreEqual("Short", o.F(s)) Assert.AreEqual("Integer", o.F(i)) Assert.AreEqual("Long", o.F(l)) Assert.AreEqual("Char", o.F(c)) Assert.AreEqual("Double", o.F(d)) Assert.AreEqual("Single", o.F(si)) #If NET_VER >= 2.0 Then Assert.AreEqual("SByte", o.F(sb)) Assert.AreEqual("UShort", o.F(us)) Assert.AreEqual("Long", o.F(ui)) Assert.AreEqual("ULong", o.F(ul)) #End If End Sub Private Class C250 Public Function F(ByVal s As Boolean) As String Return "Boolean" End Function Public Function F(ByVal s As Byte) As String Return "Byte" End Function Public Function F(ByVal s As Short) As String Return "Short" End Function #If NET_VER >= 2.0 Then Public Function F(ByVal s As SByte) As String Return "SByte" End Function Public Function F(ByVal s As UShort) As String Return "UShort" End Function Public Function F(ByVal s As UInteger) As String Return "UInteger" End Function 'Public Function F(ByVal s As ULong) As String ' Return "ULong" 'End Function #End If Public Function F(ByVal s As Integer) As String Return "Integer" End Function Public Function F(ByVal s As Long) As String Return "Long" End Function Public Function F(ByVal s As Char) As String Return "Char" End Function Public Function F(ByVal s As Double) As String Return "Double" End Function Public Function F(ByVal s As Single) As String Return "Single" End Function End Class _ Public Sub LateBind_PrimitiveTypes_250() Dim o As Object = New C250 Assert.AreEqual("Boolean", o.F(bo)) Assert.AreEqual("Byte", o.F(b)) Assert.AreEqual("Short", o.F(s)) Assert.AreEqual("Integer", o.F(i)) Assert.AreEqual("Long", o.F(l)) Assert.AreEqual("Char", o.F(c)) Assert.AreEqual("Double", o.F(d)) Assert.AreEqual("Single", o.F(si)) #If NET_VER >= 2.0 Then Assert.AreEqual("SByte", o.F(sb)) Assert.AreEqual("UShort", o.F(us)) Assert.AreEqual("UInteger", o.F(ui)) Assert.AreEqual("Single", o.F(ul)) #End If End Sub Private Class C260 Public Function F(ByVal s As Boolean) As String Return "Boolean" End Function Public Function F(ByVal s As Byte) As String Return "Byte" End Function Public Function F(ByVal s As Short) As String Return "Short" End Function #If NET_VER >= 2.0 Then Public Function F(ByVal s As SByte) As String Return "SByte" End Function Public Function F(ByVal s As UShort) As String Return "UShort" End Function Public Function F(ByVal s As UInteger) As String Return "UInteger" End Function Public Function F(ByVal s As ULong) As String Return "ULong" End Function #End If 'Public Function F(ByVal s As Integer) As String ' Return "Integer" 'End Function Public Function F(ByVal s As Long) As String Return "Long" End Function Public Function F(ByVal s As Char) As String Return "Char" End Function Public Function F(ByVal s As Double) As String Return "Double" End Function Public Function F(ByVal s As Single) As String Return "Single" End Function End Class _ Public Sub LateBind_PrimitiveTypes_260() Dim o As Object = New C260 Assert.AreEqual("Boolean", o.F(bo)) Assert.AreEqual("Byte", o.F(b)) Assert.AreEqual("Short", o.F(s)) Assert.AreEqual("Long", o.F(i)) Assert.AreEqual("Long", o.F(l)) Assert.AreEqual("Char", o.F(c)) Assert.AreEqual("Double", o.F(d)) Assert.AreEqual("Single", o.F(si)) #If NET_VER >= 2.0 Then Assert.AreEqual("SByte", o.F(sb)) Assert.AreEqual("UShort", o.F(us)) Assert.AreEqual("UInteger", o.F(ui)) Assert.AreEqual("ULong", o.F(ul)) #End If End Sub Private Class C270 Public Function F(ByVal s As Boolean) As String Return "Boolean" End Function Public Function F(ByVal s As Byte) As String Return "Byte" End Function Public Function F(ByVal s As Short) As String Return "Short" End Function #If NET_VER >= 2.0 Then Public Function F(ByVal s As SByte) As String Return "SByte" End Function Public Function F(ByVal s As UShort) As String Return "UShort" End Function Public Function F(ByVal s As UInteger) As String Return "UInteger" End Function Public Function F(ByVal s As ULong) As String Return "ULong" End Function #End If Public Function F(ByVal s As Integer) As String Return "Integer" End Function 'Public Function F(ByVal s As Long) As String ' Return "Long" 'End Function Public Function F(ByVal s As Char) As String Return "Char" End Function Public Function F(ByVal s As Double) As String Return "Double" End Function Public Function F(ByVal s As Single) As String Return "Single" End Function End Class _ Public Sub LateBind_PrimitiveTypes_270() Dim o As Object = New C270 Assert.AreEqual("Boolean", o.F(bo)) Assert.AreEqual("Byte", o.F(b)) Assert.AreEqual("Short", o.F(s)) Assert.AreEqual("Integer", o.F(i)) Assert.AreEqual("Single", o.F(l)) Assert.AreEqual("Char", o.F(c)) Assert.AreEqual("Double", o.F(d)) Assert.AreEqual("Single", o.F(si)) #If NET_VER >= 2.0 Then Assert.AreEqual("SByte", o.F(sb)) Assert.AreEqual("UShort", o.F(us)) Assert.AreEqual("UInteger", o.F(ui)) Assert.AreEqual("ULong", o.F(ul)) #End If End Sub Private Class C280 Public Function F(ByVal s As Boolean) As String Return "Boolean" End Function Public Function F(ByVal s As Byte) As String Return "Byte" End Function Public Function F(ByVal s As Short) As String Return "Short" End Function #If NET_VER >= 2.0 Then Public Function F(ByVal s As SByte) As String Return "SByte" End Function Public Function F(ByVal s As UShort) As String Return "UShort" End Function Public Function F(ByVal s As UInteger) As String Return "UInteger" End Function Public Function F(ByVal s As ULong) As String Return "ULong" End Function #End If Public Function F(ByVal s As Integer) As String Return "Integer" End Function Public Function F(ByVal s As Long) As String Return "Long" End Function 'Public Function F(ByVal s As Char) As String ' Return "Char" 'End Function Public Function F(ByVal s As Double) As String Return "Double" End Function Public Function F(ByVal s As Single) As String Return "Single" End Function End Class _ Public Sub LateBind_PrimitiveTypes_280() Dim o As Object = New C280 Assert.AreEqual("Boolean", o.F(bo)) Assert.AreEqual("Byte", o.F(b)) Assert.AreEqual("Short", o.F(s)) Assert.AreEqual("Integer", o.F(i)) Assert.AreEqual("Long", o.F(l)) 'Assert.AreEqual("Char", o.F(c)) Assert.AreEqual("Double", o.F(d)) Assert.AreEqual("Single", o.F(si)) #If NET_VER >= 2.0 Then Assert.AreEqual("SByte", o.F(sb)) Assert.AreEqual("UShort", o.F(us)) Assert.AreEqual("UInteger", o.F(ui)) Assert.AreEqual("ULong", o.F(ul)) #End If End Sub _ Public Sub LateBind_PrimitiveTypes_281() Dim o As Object = New C280 Dim c As Char = "a"c o.F(c) End Sub Private Class C290 Public Function F(ByVal s As Boolean) As String Return "Boolean" End Function Public Function F(ByVal s As Byte) As String Return "Byte" End Function Public Function F(ByVal s As Short) As String Return "Short" End Function #If NET_VER >= 2.0 Then Public Function F(ByVal s As SByte) As String Return "SByte" End Function Public Function F(ByVal s As UShort) As String Return "UShort" End Function Public Function F(ByVal s As UInteger) As String Return "UInteger" End Function Public Function F(ByVal s As ULong) As String Return "ULong" End Function #End If Public Function F(ByVal s As Integer) As String Return "Integer" End Function Public Function F(ByVal s As Long) As String Return "Long" End Function Public Function F(ByVal s As Char) As String Return "Char" End Function 'Public Function F(ByVal s As Double) As String ' Return "Double" 'End Function Public Function F(ByVal s As Single) As String Return "Single" End Function End Class _ Public Sub LateBind_PrimitiveTypes_290() Dim o As Object = New C290 Assert.AreEqual("Boolean", o.F(bo)) Assert.AreEqual("Byte", o.F(b)) Assert.AreEqual("Short", o.F(s)) Assert.AreEqual("Integer", o.F(i)) Assert.AreEqual("Long", o.F(l)) Assert.AreEqual("Char", o.F(c)) 'Assert.AreEqual("Double", o.F(d)) Assert.AreEqual("Single", o.F(si)) #If NET_VER >= 2.0 Then Assert.AreEqual("SByte", o.F(sb)) Assert.AreEqual("UShort", o.F(us)) Assert.AreEqual("UInteger", o.F(ui)) Assert.AreEqual("ULong", o.F(ul)) #End If End Sub _ Public Sub LateBind_PrimitiveTypes_291() Dim o As Object = New C290 o.F(d) End Sub Private Class C300 Public Function F(ByVal s As Boolean) As String Return "Boolean" End Function Public Function F(ByVal s As Byte) As String Return "Byte" End Function Public Function F(ByVal s As Short) As String Return "Short" End Function #If NET_VER >= 2.0 Then Public Function F(ByVal s As SByte) As String Return "SByte" End Function Public Function F(ByVal s As UShort) As String Return "UShort" End Function Public Function F(ByVal s As UInteger) As String Return "UInteger" End Function Public Function F(ByVal s As ULong) As String Return "ULong" End Function #End If Public Function F(ByVal s As Integer) As String Return "Integer" End Function Public Function F(ByVal s As Long) As String Return "Long" End Function Public Function F(ByVal s As Char) As String Return "Char" End Function Public Function F(ByVal s As Double) As String Return "Double" End Function 'Public Function F(ByVal s As Single) As String ' Return "Single" 'End Function End Class _ Public Sub LateBind_PrimitiveTypes_300() Dim o As Object = New C300 Assert.AreEqual("Boolean", o.F(bo)) Assert.AreEqual("Byte", o.F(b)) Assert.AreEqual("Short", o.F(s)) Assert.AreEqual("Integer", o.F(i)) Assert.AreEqual("Long", o.F(l)) Assert.AreEqual("Char", o.F(c)) Assert.AreEqual("Double", o.F(d)) Assert.AreEqual("Double", o.F(si)) #If NET_VER >= 2.0 Then Assert.AreEqual("SByte", o.F(sb)) Assert.AreEqual("UShort", o.F(us)) Assert.AreEqual("UInteger", o.F(ui)) Assert.AreEqual("ULong", o.F(ul)) #End If End Sub Private Class C310 'Public Function F(ByVal s As Boolean) As String ' Return "Boolean" 'End Function Public Function F(ByVal s As Byte) As String Return "Byte" End Function 'Public Function F(ByVal s As Short) As String ' Return "Short" 'End Function #If NET_VER >= 2.0 Then Public Function F(ByVal s As SByte) As String Return "SByte" End Function 'Public Function F(ByVal s As UShort) As String ' Return "UShort" 'End Function Public Function F(ByVal s As UInteger) As String Return "UInteger" End Function 'Public Function F(ByVal s As ULong) As String ' Return "ULong" 'End Function #End If Public Function F(ByVal s As Integer) As String Return "Integer" End Function 'Public Function F(ByVal s As Long) As String ' Return "Long" 'End Function Public Function F(ByVal s As Char) As String Return "Char" End Function 'Public Function F(ByVal s As Double) As String ' Return "Double" 'End Function Public Function F(ByVal s As Single) As String Return "Single" End Function End Class _ Public Sub LateBind_PrimitiveTypes_310() Dim o As Object = New C310 'Assert.AreEqual("Short", o.F(bo)) Assert.AreEqual("Byte", o.F(b)) Assert.AreEqual("Integer", o.F(s)) Assert.AreEqual("Integer", o.F(i)) Assert.AreEqual("Single", o.F(l)) Assert.AreEqual("Char", o.F(c)) 'Assert.AreEqual("Double", o.F(d)) Assert.AreEqual("Single", o.F(si)) #If NET_VER >= 2.0 Then Assert.AreEqual("SByte", o.F(sb)) Assert.AreEqual("Integer", o.F(us)) Assert.AreEqual("UInteger", o.F(ui)) Assert.AreEqual("Single", o.F(ul)) #End If End Sub _ Public Sub LateBind_PrimitiveTypes_311() Dim o As Object = New C310 o.F(d) End Sub _ Public Sub LateBind_PrimitiveTypes_312() Dim o As Object = New C310 o.F(bo) End Sub Private Class C320 Public Function F(ByVal s As Boolean) As String Return "Boolean" End Function 'Public Function F(ByVal s As Byte) As String ' Return "Byte" 'End Function Public Function F(ByVal s As Short) As String Return "Short" End Function #If NET_VER >= 2.0 Then 'Public Function F(ByVal s As SByte) As String ' Return "SByte" 'End Function Public Function F(ByVal s As UShort) As String Return "UShort" End Function 'Public Function F(ByVal s As UInteger) As String ' Return "UInteger" 'End Function Public Function F(ByVal s As ULong) As String Return "ULong" End Function #End If 'Public Function F(ByVal s As Integer) As String ' Return "Integer" 'End Function Public Function F(ByVal s As Long) As String Return "Long" End Function 'Public Function F(ByVal s As Char) As String ' Return "Char" 'End Function Public Function F(ByVal s As Double) As String Return "Double" End Function 'Public Function F(ByVal s As Single) As String ' Return "Single" 'End Function End Class _ Public Sub LateBind_PrimitiveTypes_320() Dim o As Object = New C320 Assert.AreEqual("Boolean", o.F(bo)) Assert.AreEqual("Short", o.F(b)) Assert.AreEqual("Short", o.F(s)) Assert.AreEqual("Long", o.F(i)) Assert.AreEqual("Long", o.F(l)) 'Assert.AreEqual("Char", o.F(c)) Assert.AreEqual("Double", o.F(d)) Assert.AreEqual("Double", o.F(si)) #If NET_VER >= 2.0 Then Assert.AreEqual("Short", o.F(sb)) Assert.AreEqual("UShort", o.F(us)) Assert.AreEqual("Long", o.F(ui)) Assert.AreEqual("ULong", o.F(ul)) #End If End Sub _ Public Sub LateBind_PrimitiveTypes_321() Dim o As Object = New C320 o.F(c) End Sub Private Class C400 Public Function F(ByVal i As Integer) Return "Integer" End Function End Class _ Public Sub LateBind_PrimitiveTypes_400() Dim o As Object = New C400 o.F("w") End Sub _ Public Sub LateBind_PrimitiveTypes_402() Dim o As Object = New C400 Assert.AreEqual("Integer", o.F("23")) End Sub Private Class C401 Public Function F(ByVal i As Integer) Return "Integer" End Function Public Function F(ByVal b As Boolean) Return "Boolean" End Function End Class _ Public Sub LateBind_PrimitiveTypes_401() Dim o As Object = New C401 o.F("True") End Sub Private Class C402 Public Function F(ByVal b As Boolean) Return "Boolean" End Function Public Function F(ByVal b As Short) Return "Short" End Function End Class _ Public Sub LateBind_PrimitiveTypes_403() Dim o As Object = New C402 o.F(i) End Sub Private Class C403 Public Function F(ByVal c As Integer) Return "Integer" End Function End Class _ Public Sub LateBind_PrimitiveTypes_404() Dim o As Object = New C403 o.F(c) End Sub Private Class C404 Public Function F(ByVal c As Short) Return "Short" End Function Public Function F(ByVal c As String) Return "String" End Function End Class _ Public Sub LateBind_PrimitiveTypes_405() Dim o As Object = New C404 o.F(i) End Sub Private Class C500 Public Function F(ByVal s As Short, ByVal i As Integer) As String Return "Short,Integer" End Function Public Function F(ByVal l As Long, ByVal s As String) As String Return "Long,String" End Function End Class _ Public Sub LateBind_PrimitiveTypes_500() Dim o As Object = New C500 o.F(i, i) End Sub End Classmono-basic-2.4.2/vbruntime/Test/Microsoft.VisualBasic.CompilerServices/LateBindingTests5.vb0000644000175000001440000001011511213247532031312 0ustar builderusers' ' LateBindingTests5.vb ' ' Author: ' Boris Kirzner (borisk@mainsoft.com) ' ' ' Copyright (C) 2002-2006 Mainsoft Corporation. ' Copyright (C) 2004-2006 Novell, Inc (http://www.novell.com) ' ' Permission is hereby granted, free of charge, to any person obtaining ' a copy of this software and associated documentation files (the ' "Software"), to deal in the Software without restriction, including ' without limitation the rights to use, copy, modify, merge, publish, ' distribute, sublicense, and/or sell copies of the Software, and to ' permit persons to whom the Software is furnished to do so, subject to ' the following conditions: ' ' The above copyright notice and this permission notice shall be ' included in all copies or substantial portions of the Software. ' ' THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, ' EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF ' MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND ' NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE ' LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION ' OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION ' WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. Imports System Imports System.Reflection Imports NUnit.Framework _ Public Class LateBindingTests5 Private Class C1 Public a() As Integer = {1, 2, 3, 4, 5} End Class _ Public Sub LateBind_ArrayC() Dim c As Integer Dim o As Object = New C1 c = UBound(o.a, 1) Assert.AreEqual(4, c) c = LBound(o.a, 1) Assert.AreEqual(0, c) End Sub Class base Default Public ReadOnly Property Item(ByVal i As Integer) As Integer Get Return i End Get End Property End Class Class derive Inherits base Public Shadows ReadOnly Property Item(ByVal i As Integer) As Integer Get Return 2 * i End Get End Property End Class Class derive1 Inherits derive Default Public Shadows ReadOnly Property Item1(ByVal i As Integer) As Integer Get Return 3 * i End Get End Property End Class _ Public Sub LateBind_DefaultPropD() Dim a As Object = New derive1 Dim b As derive = a Dim i, j, k As Integer i = a(10) j = a.Item(10) k = b(10) Assert.AreEqual(30, i) Assert.AreEqual(20, j) Assert.AreEqual(10, k) End Sub Class C2 Public F As Integer = 10 End Class Private Function ReturnC() As Object Return New C2 End Function _ Public Sub LateBind_ExpressionMemberAccess() Assert.AreEqual(10, ReturnC().F) End Sub Private Shared i3 As Integer = 0 Class C3 Sub f1() i3 += 1 f2() End Sub Function f2() As Integer i3 += 2 End Function Function f2(ByVal i As Integer) As Integer i3 += 5 Return i3 End Function Function f2(ByVal o As Object) As Boolean Return True End Function Function f3(ByVal j As Integer) As Integer i3 += j End Function Function f4(ByVal j As Integer) As Integer i3 += j * 10 End Function End Class _ Public Sub LateBind_InvocationStatement() Dim obj As Object = New C3 Call obj.f1() Assert.AreEqual(3, i3) Assert.AreEqual(8, obj.f2(i3)) Assert.IsTrue(obj.f2("Hello")) Assert.IsTrue(obj.f2(2.3D)) End Sub Class C4 Function A(ByVal i As Integer) As Integer Return i End Function Function AB() As Integer Return 10 End Function End Class _ Public Sub LateBind_MethodDeclarationA() Dim o As Object = New C4 Assert.AreEqual(10, o.A(o.AB())) End Sub End Classmono-basic-2.4.2/vbruntime/Test/Microsoft.VisualBasic.CompilerServices/StringTypeTest.cs0000644000175000001440000000455111213247532030777 0ustar builderusers// StringTypeTest.cs - NUnit Test Cases for Microsoft.VisualBasic.CompilerServices.StringType // // Mizrahi Rafael (rafim@mainsoft.com) // // // Copyright (c) 2002-2006 Mainsoft Corporation. // Copyright (C) 2004 Novell, Inc (http://www.novell.com) // // Permission is hereby granted, free of charge, to any person obtaining // a copy of this software and associated documentation files (the // "Software"), to deal in the Software without restriction, including // without limitation the rights to use, copy, modify, merge, publish, // distribute, sublicense, and/or sell copies of the Software, and to // permit persons to whom the Software is furnished to do so, subject to // the following conditions: // // The above copyright notice and this permission notice shall be // included in all copies or substantial portions of the Software. // // THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, // EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF // MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND // NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE // LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION // OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION // WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. // using NUnit.Framework; using System; using System.IO; using Microsoft.VisualBasic; namespace MonoTests.Microsoft_VisualBasic.CompilerServices { [TestFixture] public class StringTypeTest { public StringTypeTest() { } [SetUp] public void GetReady() { } [TearDown] public void Clean() { } #region FromObject [Test] public void FromObject1() { string s1; object o1 = null; // test object = null s1 = Microsoft.VisualBasic.CompilerServices.StringType.FromObject(o1); Assert.AreEqual (null, s1); } [Test] [ExpectedException(typeof(InvalidCastException))] public void FromObject2() { string s1; ST1 st1 = new ST1(); s1 = Microsoft.VisualBasic.CompilerServices.StringType.FromObject(st1); } public class ST1 { } [Test] public void FromObject3() { string s1; Microsoft.VisualBasic.CompareMethod enum1 = Microsoft.VisualBasic.CompareMethod.Binary; s1 = Microsoft.VisualBasic.CompilerServices.StringType.FromObject(enum1); Assert.AreEqual ("0", s1); } #endregion } } mono-basic-2.4.2/vbruntime/Test/Microsoft.VisualBasic.CompilerServices/DecimalTypeTest.vb0000644000175000001440000000532511213247532031071 0ustar builderusers' ShortTypeTest.cs - NUnit Test Cases for Microsoft.VisualBasic.CompilerServices.ShortType ' ' Rolf Bjarne Kvinge (RKvinge@novell.com) ' ' ' Copyright (C) 2008 Novell, Inc (http:www.novell.com) ' ' Permission is hereby granted, free of charge, to any person obtaining ' a copy of this software and associated documentation files (the ' "Software"), to deal in the Software without restriction, including ' without limitation the rights to use, copy, modify, merge, publish, ' distribute, sublicense, and/or sell copies of the Software, and to ' permit persons to whom the Software is furnished to do so, subject to ' the following conditions: ' ' The above copyright notice and this permission notice shall be ' included in all copies or substantial portions of the Software. ' ' THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, ' EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF ' MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND ' NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE ' LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION ' OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION ' WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. ' Imports NUnit.Framework Imports System Imports System.IO Imports Microsoft.VisualBasic Namespace CompilerServices _ Public Class DecimalTypeTest Sub New() Helper.SetThreadCulture() End Sub _ Public Sub FromString() Try Microsoft.VisualBasic.CompilerServices.DecimalType.FromString("#ERROR") Assert.Fail("Expected InvalidCastException", "#01") Catch ex As InvalidCastException #If NET_VER >= 2.0 Then Assert.AreEqual("Conversion from string ""#ERROR"" to type 'Decimal' is not valid.", ex.Message, "#A2") #Else Assert.AreEqual("Cast from string ""#ERROR"" to type 'Decimal' is not valid.", ex.Message, "#A2") #End If Assert.IsNull(ex.InnerException, "#A3") End Try Try Microsoft.VisualBasic.CompilerServices.DecimalType.FromString("") Assert.Fail("Expected InvalidCastException", "#B1") Catch ex As InvalidCastException #If NET_VER >= 2.0 Then Assert.AreEqual("Conversion from string """" to type 'Decimal' is not valid.", ex.Message, "#A2") #Else Assert.AreEqual("Cast from string """" to type 'Decimal' is not valid.", ex.Message, "#A2") #End If Assert.IsNull(ex.InnerException, "#B3") End Try End Sub End Class End Namespacemono-basic-2.4.2/vbruntime/Test/Microsoft.VisualBasic.CompilerServices/SingleTypeTest.vb0000644000175000001440000000440011213247532030745 0ustar builderusers' ShortTypeTest.cs - NUnit Test Cases for Microsoft.VisualBasic.CompilerServices.ShortType ' ' Rolf Bjarne Kvinge (RKvinge@novell.com) ' ' ' Copyright (C) 2008 Novell, Inc (http:www.novell.com) ' ' Permission is hereby granted, free of charge, to any person obtaining ' a copy of this software and associated documentation files (the ' "Software"), to deal in the Software without restriction, including ' without limitation the rights to use, copy, modify, merge, publish, ' distribute, sublicense, and/or sell copies of the Software, and to ' permit persons to whom the Software is furnished to do so, subject to ' the following conditions: ' ' The above copyright notice and this permission notice shall be ' included in all copies or substantial portions of the Software. ' ' THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, ' EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF ' MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND ' NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE ' LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION ' OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION ' WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. ' Imports NUnit.Framework Imports System Imports System.IO Imports Microsoft.VisualBasic Namespace CompilerServices _ Public Class SingleTypeTest Sub New() Helper.SetThreadCulture() End Sub _ Public Sub FromString() Try Microsoft.VisualBasic.CompilerServices.SingleType.FromString("#ERROR") Assert.Fail("Expected InvalidCastException", "#01") Catch ex As InvalidCastException #If NET_VER >= 2.0 Then Assert.AreEqual("Conversion from string ""#ERROR"" to type 'Single' is not valid.", ex.Message, "#A2") #Else Assert.AreEqual("Cast from string ""#ERROR"" to type 'Single' is not valid.", ex.Message, "#A2") #End If Assert.IsNotNull(ex.InnerException, "#03") Assert.AreSame(GetType(FormatException), ex.InnerException.GetType, "#04") End Try End Sub End Class End Namespacemono-basic-2.4.2/vbruntime/Test/Microsoft.VisualBasic.CompilerServices/DateTypeTest.vb0000644000175000001440000001067311213247532030412 0ustar builderusers' ShortTypeTest.cs - NUnit Test Cases for Microsoft.VisualBasic.CompilerServices.ShortType ' ' Rolf Bjarne Kvinge (RKvinge@novell.com) ' ' ' Copyright (C) 2008 Novell, Inc (http:www.novell.com) ' ' Permission is hereby granted, free of charge, to any person obtaining ' a copy of this software and associated documentation files (the ' "Software"), to deal in the Software without restriction, including ' without limitation the rights to use, copy, modify, merge, publish, ' distribute, sublicense, and/or sell copies of the Software, and to ' permit persons to whom the Software is furnished to do so, subject to ' the following conditions: ' ' The above copyright notice and this permission notice shall be ' included in all copies or substantial portions of the Software. ' ' THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, ' EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF ' MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND ' NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE ' LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION ' OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION ' WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. ' Imports NUnit.Framework Imports System Imports System.IO Imports Microsoft.VisualBasic Namespace CompilerServices _ Public Class DateTypeTest Sub New() Helper.SetThreadCulture() End Sub _ Public Sub FromString() Try Microsoft.VisualBasic.CompilerServices.DateType.FromString("#ERROR") Assert.Fail("Expected InvalidCastException", "#A1") Catch ex As InvalidCastException #If NET_VER >= 2.0 Then Assert.AreEqual("Conversion from string ""#ERROR"" to type 'Date' is not valid.", ex.Message, "#A2") #Else Assert.AreEqual("Cast from string ""#ERROR"" to type 'Date' is not valid.", ex.Message, "#A2") #End If Assert.IsNull(ex.InnerException, "#A3") End Try Try Microsoft.VisualBasic.CompilerServices.DateType.FromString(448) Assert.Fail("Expected InvalidCastException", "#B1") Catch ex As InvalidCastException #If NET_VER >= 2.0 Then Assert.AreEqual("Conversion from string ""448"" to type 'Date' is not valid.", ex.Message, "#B2") #Else Assert.AreEqual("Cast from string ""448"" to type 'Date' is not valid.", ex.Message, "#B2") #End If Assert.IsNull(ex.InnerException, "#B3") End Try End Sub _ Public Sub FromObject() Try Microsoft.VisualBasic.CompilerServices.DateType.FromObject("#ERROR") Assert.Fail("Expected InvalidCastException", "#A1") Catch ex As InvalidCastException #If NET_VER >= 2.0 Then Assert.AreEqual("Conversion from string ""#ERROR"" to type 'Date' is not valid.", ex.Message, "#A2") #Else Assert.AreEqual("Cast from string ""#ERROR"" to type 'Date' is not valid.", ex.Message, "#A2") #End If Assert.IsNull(ex.InnerException, "#A3") End Try Try Microsoft.VisualBasic.CompilerServices.DateType.FromObject(448) Assert.Fail("Expected InvalidCastException", "#B1") Catch ex As InvalidCastException #If NET_VER >= 2.0 Then Assert.AreEqual("Conversion from type 'Integer' to type 'Date' is not valid.", ex.Message, "#B2") #Else Assert.AreEqual("Cast from type 'Integer' to type 'Date' is not valid.", ex.Message, "#B2") #End If Assert.IsNull(ex.InnerException, "#B3") End Try Try Microsoft.VisualBasic.CompilerServices.DateType.FromObject(New DateTypeTest()) Assert.Fail("Expected InvalidCastException", "#C1") Catch ex As InvalidCastException #If NET_VER >= 2.0 Then Assert.AreEqual("Conversion from type 'DateTypeTest' to type 'Date' is not valid.", ex.Message, "#C2") #Else Assert.AreEqual("Cast from type 'DateTypeTest' to type 'Date' is not valid.", ex.Message, "#C2") #End If Assert.IsNull(ex.InnerException, "#C3") End Try End Sub End Class End Namespacemono-basic-2.4.2/vbruntime/Test/Microsoft.VisualBasic.CompilerServices/LateBindingTests6.vb0000644000175000001440000001777011213247532031331 0ustar builderusers' ' LateBindingTests6.vb ' ' Author: ' Boris Kirzner (borisk@mainsoft.com) ' ' ' Copyright (C) 2002-2006 Mainsoft Corporation. ' Copyright (C) 2004-2006 Novell, Inc (http://www.novell.com) ' ' Permission is hereby granted, free of charge, to any person obtaining ' a copy of this software and associated documentation files (the ' "Software"), to deal in the Software without restriction, including ' without limitation the rights to use, copy, modify, merge, publish, ' distribute, sublicense, and/or sell copies of the Software, and to ' permit persons to whom the Software is furnished to do so, subject to ' the following conditions: ' ' The above copyright notice and this permission notice shall be ' included in all copies or substantial portions of the Software. ' ' THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, ' EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF ' MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND ' NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE ' LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION ' OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION ' WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. Imports System Imports System.Reflection Imports NUnit.Framework _ Public Class LateBindingTests6 Class C100 Overridable Function fun(ByVal j As Integer) Return -1 End Function End Class Class C200 Inherits C100 Overrides Function fun(ByVal j As Integer) i = j Return i End Function Public i As Integer = 2 End Class _ Public Sub LateBind_OverrideA() Dim a As Object = New C200 Assert.AreEqual(2, a.fun(a.i)) End Sub Class B100 Overridable Function F() As Integer Return 5 End Function End Class Class D100 Inherits B100 Overrides Function F() As Integer ' you should be able to access ' the members of base class ' using 'MyBase' as follows MyBase.F() Return 10 End Function End Class _ Public Sub LateBind_OverrideB() Dim x As Object x = New B100 Assert.AreEqual(5, x.F()) x = New D100 Assert.AreEqual(10, x.F()) End Sub Class base100 Default Public Overridable ReadOnly Property Item(ByVal i As Integer) As Integer Get Return i End Get End Property End Class Class derive100 Inherits base100 Default Public Overrides ReadOnly Property Item(ByVal i As Integer) As Integer Get Return 2 * i End Get End Property End Class _ Public Sub LateBind_OverrideC() Dim a As Object = New derive100 Assert.AreEqual(20, a(10)) End Sub Class base200 Public Overridable ReadOnly Property Item(ByVal i As Integer) As Integer Get Return i End Get End Property End Class Class derive200 Inherits base200 Public Overrides ReadOnly Property Item(ByVal i As Integer) As Integer Get Return 2 * i End Get End Property End Class _ Public Sub LateBind_OverrideD() Dim a As Object = New derive200 Assert.AreEqual(20, a.Item(10)) End Sub Class base300 Public Overridable Property Item(ByVal i As Integer) As Integer Get Return i End Get Set(ByVal Value As Integer) End Set End Property End Class Class derive300 Inherits base300 Public Overrides Property Item(ByVal i As Integer) As Integer Get Return 2 * i End Get Set(ByVal Value As Integer) End Set End Property End Class _ Public Sub LateBind_OverrideE() Dim a As Object = New derive300 Assert.AreEqual(20, a.Item(10)) End Sub Class C5 Private i As Integer = 20 Public Property p() As Integer Get Return i End Get Set(ByVal val As Integer) i = val End Set End Property End Class _ Public Sub LateBind_PropertyA() Dim o As Object = New C5 Assert.AreEqual(20, o.p) End Sub _ Public Sub LateBind_PropertyB() Dim o As Object = New C5 o.p = 10 Assert.AreEqual(10, o.p) End Sub Class C6 Public Shared y As Integer = 20 Public z As Integer = 30 Shared Sub New() End Sub Public Sub New() End Sub Shared Function f() As Integer Return 50 End Function End Class _ Public Sub LateBind_VariablesA() Assert.AreEqual(20, C6.y) Dim c As Object = New C6 Dim d As Object = New C6 Assert.AreEqual(20, c.y) Assert.AreEqual(20, d.y) C6.y = 25 Assert.AreEqual(25, c.y) c.y = 35 Assert.AreEqual(35, C6.y) Assert.AreEqual(35, d.y) Assert.AreEqual(30, c.z) Assert.AreEqual(50, C6.f) End Sub Class A100 Public Shared i As Integer End Class _ Public Sub LateBind_VariablesB() Dim o As Object = New A100 o.i = o.i + 1 A100.i = A100.i + 1 Assert.AreEqual(2, A100.i) End Sub Class A200 Public i As Integer Sub New() i = 20 End Sub Sub New(ByVal a As A200) i = a.i End Sub End Class _ Public Sub LateBind_VariablesC() Dim a As Object = New A200 Dim j As Object = New A200(a) Assert.AreEqual(20, j.i) End Sub Class A300 Inherits System.MarshalByRefObject Public Function fun() Return -1 End Function End Class Class A400 Public Function fun(ByVal a As A300) Return 1 End Function End Class _ Public Sub LateBind_VariablesD() Dim b As Object = New A300 Dim a As Object = New A400 Assert.AreEqual(1, a.fun(b)) End Sub Class C300 Public a1 As Integer = 10 Public a2 As String = "Hello" Sub f1() End Sub End Class _ Public Sub LateBind_IndexOfReturnObjectFromProperty1() Dim o As Object Dim res As Object o = New A res = o.dodo(0) Assert.AreEqual("1", res) End Sub _ Public Sub LateBind_IndexOfReturnObjectFromProperty2() Dim o As Object Dim res As Object o = New B res = o.dodo(0) Assert.AreEqual("3", res) End Sub Public Class A Public ReadOnly Property dodo() As Object() Get Return New Object() {"1", "2"} End Get End Property End Class Public Class B Public ReadOnly Property dodo() As C Get Return New C End Get End Property End Class Public Class C Default Public ReadOnly Property Blubber(ByVal i As Integer) As Object Get Return "3" End Get End Property End Class _ Public Sub LateBind_WithStatementA() Dim a As Object = New C300 Dim bRes1 As Boolean = False Dim bRes2 As Boolean = False With a .a2 = "Hello World" GoTo labelA ' Exit before all statements in With have been executed Throw New Exception("Exit before all statements in With have been executed") labelA: End With bRes1 = False If (a.a1 = 20) Then bRes1 = True Assert.AreEqual(False, bRes1) End Sub End Classmono-basic-2.4.2/vbruntime/Test/Microsoft.VisualBasic.CompilerServices/LongTypeTest.vb0000644000175000001440000000437111213247532030432 0ustar builderusers' ShortTypeTest.cs - NUnit Test Cases for Microsoft.VisualBasic.CompilerServices.ShortType ' ' Rolf Bjarne Kvinge (RKvinge@novell.com) ' ' ' Copyright (C) 2008 Novell, Inc (http:www.novell.com) ' ' Permission is hereby granted, free of charge, to any person obtaining ' a copy of this software and associated documentation files (the ' "Software"), to deal in the Software without restriction, including ' without limitation the rights to use, copy, modify, merge, publish, ' distribute, sublicense, and/or sell copies of the Software, and to ' permit persons to whom the Software is furnished to do so, subject to ' the following conditions: ' ' The above copyright notice and this permission notice shall be ' included in all copies or substantial portions of the Software. ' ' THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, ' EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF ' MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND ' NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE ' LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION ' OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION ' WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. ' Imports NUnit.Framework Imports System Imports System.IO Imports Microsoft.VisualBasic Namespace CompilerServices _ Public Class LongTypeTest Sub New() Helper.SetThreadCulture() End Sub _ Public Sub FromString() Try Microsoft.VisualBasic.CompilerServices.LongType.FromString("#ERROR") Assert.Fail("Expected InvalidCastException", "#01") Catch ex As InvalidCastException #If NET_VER >= 2.0 Then Assert.AreEqual("Conversion from string ""#ERROR"" to type 'Long' is not valid.", ex.Message, "#A2") #Else Assert.AreEqual("Cast from string ""#ERROR"" to type 'Long' is not valid.", ex.Message, "#A2") #End If Assert.IsNotNull(ex.InnerException, "#03") 'Assert.AreSame(GetType(FormatException), ex.InnerException.GetType, "#04") End Try End Sub End Class End Namespacemono-basic-2.4.2/vbruntime/Test/Microsoft.VisualBasic.CompilerServices/ShortTypeTest.vb0000644000175000001440000000437411213247532030635 0ustar builderusers' ShortTypeTest.cs - NUnit Test Cases for Microsoft.VisualBasic.CompilerServices.ShortType ' ' Rolf Bjarne Kvinge (RKvinge@novell.com) ' ' ' Copyright (C) 2008 Novell, Inc (http:www.novell.com) ' ' Permission is hereby granted, free of charge, to any person obtaining ' a copy of this software and associated documentation files (the ' "Software"), to deal in the Software without restriction, including ' without limitation the rights to use, copy, modify, merge, publish, ' distribute, sublicense, and/or sell copies of the Software, and to ' permit persons to whom the Software is furnished to do so, subject to ' the following conditions: ' ' The above copyright notice and this permission notice shall be ' included in all copies or substantial portions of the Software. ' ' THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, ' EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF ' MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND ' NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE ' LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION ' OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION ' WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. ' Imports NUnit.Framework Imports System Imports System.IO Imports Microsoft.VisualBasic Namespace CompilerServices _ Public Class ShortTypeTest Sub New() Helper.SetThreadCulture() End Sub _ Public Sub FromString() Try Microsoft.VisualBasic.CompilerServices.ShortType.FromString("#ERROR") Assert.Fail("Expected InvalidCastException", "#01") Catch ex As InvalidCastException #If NET_VER >= 2.0 Then Assert.AreEqual("Conversion from string ""#ERROR"" to type 'Short' is not valid.", ex.Message, "#A2") #Else Assert.AreEqual("Cast from string ""#ERROR"" to type 'Short' is not valid.", ex.Message, "#A2") #End If Assert.IsNotNull(ex.InnerException, "#03") Assert.AreSame(GetType(FormatException), ex.InnerException.GetType, "#04") End Try End Sub End Class End Namespacemono-basic-2.4.2/vbruntime/Test/Microsoft.VisualBasic.CompilerServices/ConversionsTests.vb0000644000175000001440000000151611213247532031362 0ustar builderusers#If NET_VER >= 2.0 Then Imports System Imports Microsoft.VisualBasic.CompilerServices Imports NUnit.Framework _ Public Class ConversionsTests _ Sub ToCharArrayRankOne() Dim chars() As Char chars = Conversions.ToCharArrayRankOne(CType("dog", Object)) Assert.AreEqual("dog".ToCharArray, chars) chars = Conversions.ToCharArrayRankOne("dog") Assert.AreEqual("dog".ToCharArray, chars) chars = Conversions.ToCharArrayRankOne(Nothing) Assert.AreEqual("".ToCharArray, chars) chars = Conversions.ToCharArrayRankOne(CType(Nothing, String)) Assert.AreEqual("".ToCharArray, chars) Conversions.ToCharArrayRankOne(5) 'ExpectedException: InvalidCastException End Sub End Class #End Ifmono-basic-2.4.2/vbruntime/Test/Microsoft.VisualBasic.CompilerServices/BooleanTypeTest.vb0000644000175000001440000000456011213247532031112 0ustar builderusers' ByteTypeTest.cs - NUnit Test Cases for Microsoft.VisualBasic.CompilerServices.ByteType ' ' Rolf Bjarne Kvinge (RKvinge@novell.com) ' ' ' Copyright (C) 2008 Novell, Inc (http:www.novell.com) ' ' Permission is hereby granted, free of charge, to any person obtaining ' a copy of this software and associated documentation files (the ' "Software"), to deal in the Software without restriction, including ' without limitation the rights to use, copy, modify, merge, publish, ' distribute, sublicense, and/or sell copies of the Software, and to ' permit persons to whom the Software is furnished to do so, subject to ' the following conditions: ' ' The above copyright notice and this permission notice shall be ' included in all copies or substantial portions of the Software. ' ' THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, ' EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF ' MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND ' NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE ' LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION ' OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION ' WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. ' Imports NUnit.Framework Imports System Imports System.IO Imports Microsoft.VisualBasic Namespace CompilerServices _ Public Class BooleanTypeTest Sub New() Helper.SetThreadCulture() End Sub _ Public Sub FromString() Try Microsoft.VisualBasic.CompilerServices.BooleanType.FromString("#ERROR") Assert.Fail("Expected InvalidCastException", "#A1") Catch ex As InvalidCastException #If NET_VER >= 2.0 Then Assert.AreEqual("Conversion from string ""#ERROR"" to type 'Boolean' is not valid.", ex.Message, "#A2") #Else Assert.AreEqual("Cast from string ""#ERROR"" to type 'Boolean' is not valid.", ex.Message, "#A2") #End If Assert.IsNotNull(ex.InnerException, "#A3") Assert.AreSame(GetType(FormatException), ex.InnerException.GetType, "#A4") End Try Assert.AreEqual(0, Microsoft.VisualBasic.CompilerServices.ByteType.FromString(Nothing), "#B0") End Sub End Class End Namespacemono-basic-2.4.2/vbruntime/Test/Microsoft.VisualBasic.CompilerServices/IntegerTypeTest.cs0000644000175000001440000001005411213247532031121 0ustar builderusers// IntegerTypeTest.cs - NUnit Test Cases for Microsoft.VisualBasic.CompilerServices.IntegerType // // Mizrahi Rafael (rafim@mainsoft.com) // Guy Cohen (guyc@mainsoft.com) // // Copyright (c) 2002-2006 Mainsoft Corporation. // Copyright (C) 2004 Novell, Inc (http://www.novell.com) // // Permission is hereby granted, free of charge, to any person obtaining // a copy of this software and associated documentation files (the // "Software"), to deal in the Software without restriction, including // without limitation the rights to use, copy, modify, merge, publish, // distribute, sublicense, and/or sell copies of the Software, and to // permit persons to whom the Software is furnished to do so, subject to // the following conditions: // // The above copyright notice and this permission notice shall be // included in all copies or substantial portions of the Software. // // THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, // EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF // MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND // NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE // LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION // OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION // WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. // using NUnit.Framework; using System; using System.IO; using Microsoft.VisualBasic; namespace MonoTests.Microsoft_VisualBasic.CompilerServices { [TestFixture] public class IntegerTypeTest { public IntegerTypeTest() { } [SetUp] public void GetReady() { } [TearDown] public void Clean() { } #region FromString [Test] public void FromStringTest() { string st = null; int i = 0; // test string = null i = Microsoft.VisualBasic.CompilerServices.IntegerType.FromString(st); Assert.AreEqual (null, st, "FromString#0"); } [Test] [ExpectedException(typeof(InvalidCastException))] public void FromString2() { int i; object o1 = null; string st = "garbage"; // test string = garbage i = Microsoft.VisualBasic.CompilerServices.IntegerType.FromString(st); } #endregion #region FromObject [Test] public void FromObject1() { int i1; object o1 = null; string st = null; byte b1; bool bool1; // test object = null i1 = Microsoft.VisualBasic.CompilerServices.IntegerType.FromObject(o1); Assert.AreEqual (0, i1); // test string = null i1 = Microsoft.VisualBasic.CompilerServices.IntegerType.FromObject(st); Assert.AreEqual (0, i1); // string st = "2"; i1 = Microsoft.VisualBasic.CompilerServices.IntegerType.FromObject(st); Assert.AreEqual (2, i1); // byte b1 = 1; i1 = Microsoft.VisualBasic.CompilerServices.IntegerType.FromObject(b1); Assert.AreEqual (1, i1); // bool bool1 = true; i1 = Microsoft.VisualBasic.CompilerServices.IntegerType.FromObject(bool1); Assert.AreEqual (-1, i1); bool1 = false; i1 = Microsoft.VisualBasic.CompilerServices.IntegerType.FromObject(bool1); Assert.AreEqual (0, i1); } [Test] [ExpectedException(typeof(InvalidCastException))] public void FromObject2() { object o1; o1 = 'w'; Microsoft.VisualBasic.CompilerServices.IntegerType.FromObject(o1); } [Test] [ExpectedException(typeof(InvalidCastException))] public void FromObject3() { int i1; string st1 = "2w"; i1 = Microsoft.VisualBasic.CompilerServices.IntegerType.FromObject(st1); } [Test] public void FromObjectTest4() { object ObjI; object o1 = true; long It = -1; // test object = True ObjI = Microsoft.VisualBasic.CompilerServices.IntegerType.FromObject(o1); Assert.AreEqual (It, ObjI, "FromObject#0"); // test object = False o1 = false; It = 0; ObjI = Microsoft.VisualBasic.CompilerServices.IntegerType.FromObject(o1); Assert.AreEqual (It, ObjI, "FromObject#1"); string ResTypeCode = ""; ResTypeCode = Type.GetTypeCode(ObjI.GetType()).ToString(); Assert.AreEqual ("Int32",ResTypeCode, "FromObject#2"); } #endregion } } mono-basic-2.4.2/vbruntime/Test/2005VB_test_VB.dll.sources.win0000644000175000001440000000360611213247537023276 0ustar builderusersMicrosoft.VisualBasic.CompilerServices\BooleanTypeTest.vb Microsoft.VisualBasic.CompilerServices\ByteTypeTest.vb Microsoft.VisualBasic.CompilerServices\ConversionsTests.vb Microsoft.VisualBasic.CompilerServices\DateTypeTest.vb Microsoft.VisualBasic.CompilerServices\DecimalTypeTest.vb Microsoft.VisualBasic.CompilerServices\DoubleTypeTest.vb Microsoft.VisualBasic.CompilerServices\IntegerTypeTest.vb Microsoft.VisualBasic.CompilerServices\LateBindingTests.vb Microsoft.VisualBasic.CompilerServices\LateBindingTests2.vb Microsoft.VisualBasic.CompilerServices\LateBindingTests3.vb Microsoft.VisualBasic.CompilerServices\LateBindingTests4.vb Microsoft.VisualBasic.CompilerServices\LateBindingTests5.vb Microsoft.VisualBasic.CompilerServices\LateBindingTests6.vb Microsoft.VisualBasic.CompilerServices\LongTypeTest.vb Microsoft.VisualBasic.CompilerServices\OperatorsTests.vb Microsoft.VisualBasic.CompilerServices\ShortTypeTest.vb Microsoft.VisualBasic.CompilerServices\SingleTypeTest.vb Microsoft.VisualBasic.Devices\ComputerInfoTests.vb Microsoft.VisualBasic.Devices\ComputerTests.vb Microsoft.VisualBasic.Devices\ClockTests.vb Microsoft.VisualBasic.Devices\AudioTests.vb Microsoft.VisualBasic.Devices\KeyboardTests.vb Microsoft.VisualBasic.Devices\MouseTests.vb Microsoft.VisualBasic.Devices\NetworkTests.vb Microsoft.VisualBasic.Devices\NetworkAvailableEventArgsTests.vb Microsoft.VisualBasic.Devices\PortsTests.vb Microsoft.VisualBasic.Devices\ServerComputerTests.vb Microsoft.VisualBasic.FileIO\FileSystemTest.vb Microsoft.VisualBasic\ErrObjectTests.vb Microsoft.VisualBasic\ExceptionFilteringTests.vb Microsoft.VisualBasic\FileSystemTestGenerated.vb Microsoft.VisualBasic\FileSystemTests.vb Microsoft.VisualBasic\FileSystemTests2.vb Microsoft.VisualBasic\GlobalsTests.vb Microsoft.VisualBasic\Helper.vb Microsoft.VisualBasic\InformationTests.vb Microsoft.VisualBasic\InteractionTests.vb Microsoft.VisualBasic\StringsTest.vbmono-basic-2.4.2/vbruntime/Test/Microsoft.VisualBasic.FileIO/0000755000175000001440000000000011213247566023333 5ustar builderusersmono-basic-2.4.2/vbruntime/Test/Microsoft.VisualBasic.FileIO/MalformedLineExceptionTest.cs0000644000175000001440000000730211213247531031111 0ustar builderusers// MalformedLineExceptionTest.cs - NUnit Test Cases for Microsoft.VisualBasic.FileIO.MalformedLineException // // Rolf Bjarne Kvinge (RKvinge@novell.com) // // // Copyright (C) 2007 Novell, Inc (http://www.novell.com) // // Permission is hereby granted, free of charge, to any person obtaining // a copy of this software and associated documentation files (the // "Software"), to deal in the Software without restriction, including // without limitation the rights to use, copy, modify, merge, publish, // distribute, sublicense, and/or sell copies of the Software, and to // permit persons to whom the Software is furnished to do so, subject to // the following conditions: // // The above copyright notice and this permission notice shall be // included in all copies or substantial portions of the Software. // // THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, // EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF // MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND // NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE // LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION // OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION // WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. // #if NET_2_0 using System; using System.Collections.Generic; using System.Text; using NUnit.Framework; using Microsoft.VisualBasic.FileIO; namespace MonoTests.Microsoft_VisualBasic.FileIO { [TestFixture] public class MalformedLineExceptionTest { [Test] public void Test () { MalformedLineException ex; ex = new MalformedLineException (); Assert.AreEqual (0, ex.LineNumber, "A1"); #if !TARGET_JVM Assert.AreEqual ("Microsoft.VisualBasic.FileIO.MalformedLineException: Exception of type 'Microsoft.VisualBasic.FileIO.MalformedLineException' was thrown. Line Number:0", ex.ToString (), "A2"); #endif ex = new MalformedLineException ("msg"); Assert.AreEqual (0, ex.LineNumber, "B1"); #if !TARGET_JVM Assert.AreEqual ("Microsoft.VisualBasic.FileIO.MalformedLineException: msg Line Number:0", ex.ToString (), "B2"); #endif ex = new MalformedLineException ("msg", new Exception ("InnerException")); Assert.AreEqual (0, ex.LineNumber, "C1"); #if !TARGET_JVM Assert.AreEqual ("Microsoft.VisualBasic.FileIO.MalformedLineException: msg ---> System.Exception: InnerException" + System.Environment.NewLine + " --- End of inner exception stack trace --- Line Number:0", ex.ToString (), "C2"); #endif ex = new MalformedLineException ("msg", 52); Assert.AreEqual (52, ex.LineNumber, "D1"); #if !TARGET_JVM Assert.AreEqual ("Microsoft.VisualBasic.FileIO.MalformedLineException: msg Line Number:52", ex.ToString (), "D2"); #endif ex = new MalformedLineException ("msg", 53, new Exception("InnerException")); Assert.AreEqual (53, ex.LineNumber, "E1"); #if !TARGET_JVM Assert.AreEqual ("Microsoft.VisualBasic.FileIO.MalformedLineException: msg ---> System.Exception: InnerException" + System.Environment.NewLine + " --- End of inner exception stack trace --- Line Number:53", ex.ToString (), "E2"); #endif ex = new MalformedLineException (); Assert.AreEqual (0, ex.LineNumber, "F1"); #if !TARGET_JVM Assert.AreEqual ("Microsoft.VisualBasic.FileIO.MalformedLineException: Exception of type 'Microsoft.VisualBasic.FileIO.MalformedLineException' was thrown. Line Number:0", ex.ToString (), "F2"); #endif ex.LineNumber = -345; Assert.AreEqual (-345, ex.LineNumber, "G1"); #if !TARGET_JVM Assert.AreEqual ("Microsoft.VisualBasic.FileIO.MalformedLineException: Exception of type 'Microsoft.VisualBasic.FileIO.MalformedLineException' was thrown. Line Number:-345", ex.ToString (), "G2"); #endif } } } #endifmono-basic-2.4.2/vbruntime/Test/Microsoft.VisualBasic.FileIO/FileSystemTest.vb0000644000175000001440000025470111213247532026612 0ustar builderusers' FileSystemTest.vb - NUnit Test Cases for Microsoft.VisualBasic.FileIO.FileSystem ' ' Rolf Bjarne Kvinge (RKvinge@novell.com) ' ' ' Copyright (C) 2007 Novell, Inc (http://www.novell.com) ' ' Permission is hereby granted, free of charge, to any person obtaining ' a copy of this software and associated documentation files (the ' "Software"), to deal in the Software without restriction, including ' without limitation the rights to use, copy, modify, merge, publish, ' distribute, sublicense, and/or sell copies of the Software, and to ' permit persons to whom the Software is furnished to do so, subject to ' the following conditions: ' ' The above copyright notice and this permission notice shall be ' included in all copies or substantial portions of the Software. ' ' THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, ' EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF ' MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND ' NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE ' LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION ' OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION ' WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. #If NET_2_0 Then Imports FS = Microsoft.VisualBasic.FileIO.FileSystem Imports System.IO Namespace FileIO _ Public Class FileSystemTest Private BASEDIR As String Private SLOWFILESIZE As Integer = 10000000 Sub New() Threading.Thread.CurrentThread.CurrentUICulture = New Globalization.CultureInfo("en-US") Threading.Thread.CurrentThread.CurrentCulture = Threading.Thread.CurrentThread.CurrentUICulture End Sub _ Public Sub Init() BASEDIR = StripBS(Path.Combine(Environment.CurrentDirectory, "FSTestData")) & Path.DirectorySeparatorChar If FS.DirectoryExists(BASEDIR) Then FS.DeleteDirectory(BASEDIR, Microsoft.VisualBasic.FileIO.DeleteDirectoryOption.DeleteAllContents) End If FS.CreateDirectory(BASEDIR) End Sub _ Public Sub CleanUp() Try FS.DeleteDirectory(BASEDIR, Microsoft.VisualBasic.FileIO.DeleteDirectoryOption.DeleteAllContents) Catch ex As Exception #If Not TARGET_JVM Then Throw ex #End If End Try End Sub _ Public Sub CombinePathTest() Assert.AreEqual(StripBS(IO.Path.Combine(IO.Path.GetFullPath("a"), "b")), FS.CombinePath("a", "b"), "#01") Assert.AreEqual(StripBS(IO.Path.Combine(IO.Path.GetFullPath("a/"), "b/")), FS.CombinePath("a/", "b/"), "#02") Assert.AreEqual(StripBS(IO.Path.Combine(IO.Path.GetFullPath("a\"), "b\")), FS.CombinePath("a\", "b\"), "#03") End Sub _ _ Public Sub CopyDirectoryTest1() Dim dira As String = BASEDIR & "CDT1_a" Dim filea1 As String = Path.Combine(dira, "filea1") Dim filea2 As String = Path.Combine(dira, "filea2") Dim filea3 As String = Path.Combine(dira, "filea3") Dim dirb As String = BASEDIR & "CDT1_b" Dim fileb1 As String = Path.Combine(dirb, "filea1") Dim fileb2 As String = Path.Combine(dirb, "filea2") Dim fileb3 As String = Path.Combine(dirb, "filea3") Dim smallgarbage As String = "somesmallgarbagehere" Dim mediumgarbage As String = CreateBigString(smallgarbage, 1024) Dim biggarbage As String = CreateBigString(mediumgarbage, 1024) FS.CreateDirectory(dira) FS.WriteAllText(filea1, smallgarbage, False) FS.WriteAllText(filea2, mediumgarbage, False) FS.WriteAllText(filea3, biggarbage, False) FS.CopyDirectory(dira, dirb) Helper.CompareDirectory(dira, dirb, "#CDT1-1") Try FS.CopyDirectory(dira, dirb) Assert.Fail("#CDT1-2 Expected 'IOException'") Catch ex As IOException Assert.AreEqual("Could not complete operation on some files and directories. See the Data property of the exception for more details.", ex.Message, "#CDT1-3") Catch ex As Exception Assert.Fail("#CDT1-4 Expected 'IOException'") End Try End Sub _ Public Sub CopyDirectoryTest2() Dim dira As String = BASEDIR & "CDT2_a" Dim filea1 As String = Path.Combine(dira, "filea1") Dim dirb As String = BASEDIR & "CDT2_b" Dim fileb1 As String = Path.Combine(dirb, "filea1") Dim smallgarbage As String = "thisisgarbage" FS.CreateDirectory(dira) FS.WriteAllText(filea1, smallgarbage, False) FS.CopyDirectory(dira, dirb) Helper.CompareDirectory(dira, dirb, "#CDT2-1") Try FS.CopyDirectory(dira, dirb) Assert.Fail("#CDT2-2 Expected 'IOException'") Catch ex As IOException Assert.AreEqual("Could not complete operation on some files and directories. See the Data property of the exception for more details.", ex.Message, "#CDT2-3") Catch ex As Exception Assert.Fail("#CDT2-4 Expected 'IOException'") End Try Try FS.CopyDirectory(dira, dirb, False) Assert.Fail("#CDT2-5 Expected 'IOException'") Catch ex As IOException Assert.AreEqual("Could not complete operation on some files and directories. See the Data property of the exception for more details.", ex.Message, "#CDT2-6") Catch ex As Exception Assert.Fail("#CDT2-7 Expected 'IOException'") End Try End Sub _ Public Sub CopyDirectoryTest3() Dim dira As String = BASEDIR & "CDT3_a" Dim filea1 As String = Path.Combine(dira, "filea1") Dim dirb As String = BASEDIR & "CDT3_b" Dim fileb1 As String = Path.Combine(dirb, "filea1") Dim smallgarbage As String = "moreGarBaGe" FS.CreateDirectory(dira) FS.WriteAllText(filea1, smallgarbage, False) FS.CopyDirectory(dira, dirb) Helper.CompareDirectory(dira, dirb, "#CDT3-1") FS.CopyDirectory(dira, dirb, True) Helper.CompareDirectory(dira, dirb, "#CDT3-2") End Sub 'TargetJvm - Cancle UI NotSupported _ _ _ Public Sub CopyDirectoryTest4() Dim dira As String = BASEDIR & "CDT4_a" Dim dirb As String = BASEDIR & "CDT4_b" CreateComplicatedFileHierarchy(dira, True) FS.CopyDirectory(dira, dirb, Microsoft.VisualBasic.FileIO.UIOption.AllDialogs, Microsoft.VisualBasic.FileIO.UICancelOption.ThrowException) MsgBox("On the next dialog press 'Cancel'") Try FS.CopyDirectory(dira, dirb, Microsoft.VisualBasic.FileIO.UIOption.AllDialogs, Microsoft.VisualBasic.FileIO.UICancelOption.ThrowException) Assert.Fail("#CDT4-1 Expected 'IOException', got no exception.") Catch ex As OperationCanceledException Assert.AreEqual("The operation was canceled.", ex.Message, "#CDT4-2") Catch ex As Exception Assert.Fail("#CDT4-3 Expected 'OperationCanceledException', got '" & ex.GetType.Name & "'") End Try End Sub _ _ Public Sub CopyDirectoryTest5() Dim dira As String = BASEDIR & "CDT5_a" Dim dirb As String = BASEDIR & "CDT5_b" CreateComplicatedFileHierarchy(dira, True) FS.CopyDirectory(dira, dirb, Microsoft.VisualBasic.FileIO.UIOption.AllDialogs, Microsoft.VisualBasic.FileIO.UICancelOption.DoNothing) MsgBox("On the next dialogs you may press any option") FS.CopyDirectory(dira, dirb, Microsoft.VisualBasic.FileIO.UIOption.AllDialogs, Microsoft.VisualBasic.FileIO.UICancelOption.DoNothing) End Sub _ _ Public Sub CopyDirectoryTest6() Dim dira As String = BASEDIR & "CDT6_a" Dim dirb As String = BASEDIR & "CDT6_b" CreateComplicatedFileHierarchy(dira, True) FS.CopyDirectory(dira, dirb, Microsoft.VisualBasic.FileIO.UIOption.OnlyErrorDialogs, Microsoft.VisualBasic.FileIO.UICancelOption.DoNothing) FS.CopyDirectory(dira, dirb, Microsoft.VisualBasic.FileIO.UIOption.OnlyErrorDialogs, Microsoft.VisualBasic.FileIO.UICancelOption.DoNothing) End Sub _ _ Public Sub CopyDirectoryTest7() Dim dira As String = BASEDIR & "CDT7_a" Dim dirb As String = BASEDIR & "CDT7_b" CreateComplicatedFileHierarchy(dira, True) FS.CopyDirectory(dira, dirb, Microsoft.VisualBasic.FileIO.UIOption.OnlyErrorDialogs, Microsoft.VisualBasic.FileIO.UICancelOption.ThrowException) FS.CopyDirectory(dira, dirb, Microsoft.VisualBasic.FileIO.UIOption.OnlyErrorDialogs, Microsoft.VisualBasic.FileIO.UICancelOption.ThrowException) End Sub _ _ Public Sub CopyFileTest1() Dim testname As String = "CFT1" Dim dir As String = Path.Combine(BASEDIR, testname) Dim a As String = Path.Combine(dir, "a.txt") Dim b As String = Path.Combine(dir, "b.txt") FS.CreateDirectory(dir) CreateFile(a, 100000) FS.CopyFile(a, b) Helper.CompareFile(a, b, testname) FS.DeleteDirectory(dir, Microsoft.VisualBasic.FileIO.DeleteDirectoryOption.DeleteAllContents) End Sub _ Public Sub CopyFileTest2() Dim testname As String = "CFT2" Dim dir As String = Path.Combine(BASEDIR, testname) Dim a As String = Path.Combine(dir, "a.txt") Dim b As String = Path.Combine(dir, "b.txt") FS.CreateDirectory(dir) CreateFile(a, 10) FS.CopyFile(a, b) Try FS.CopyFile(a, b) Assert.Fail(testname & "-1" & " Expected 'IOException'") Catch ex As IOException Assert.AreEqual(String.Format("The file '{0}' already exists.", b), ex.Message, testname & "-2") End Try FS.DeleteDirectory(dir, Microsoft.VisualBasic.FileIO.DeleteDirectoryOption.DeleteAllContents) End Sub _ Public Sub CopyFileTest3() Dim testname As String = "CFT3" Dim dir As String = Path.Combine(BASEDIR, testname) Dim a As String = Path.Combine(dir, "a.txt") Dim b As String = Path.Combine(dir, "b.txt") FS.CreateDirectory(dir) CreateFile(a, 10) FS.CopyFile(a, b) FS.CopyFile(a, b, True) Helper.CompareFile(a, b, testname) FS.DeleteDirectory(dir, Microsoft.VisualBasic.FileIO.DeleteDirectoryOption.DeleteAllContents) End Sub _ Public Sub CopyFileTest4() Dim testname As String = "CFT4" Dim dir As String = Path.Combine(BASEDIR, testname) Dim a As String = Path.Combine(dir, "a.txt") Dim b As String = Path.Combine(dir, "b.txt") FS.CreateDirectory(dir) CreateFile(a, 10) FS.CopyFile(a, b) Try FS.CopyFile(a, b, False) Assert.Fail(testname & "-1" & " Expected 'IOException'") Catch ex As IOException Assert.AreEqual(String.Format("The file '{0}' already exists.", b), ex.Message, testname & "-2") End Try FS.DeleteDirectory(dir, Microsoft.VisualBasic.FileIO.DeleteDirectoryOption.DeleteAllContents) End Sub _ _ Public Sub CopyFileTest5() Dim testname As String = "CopyFileTest5" Dim dir As String = Path.Combine(BASEDIR, testname) Dim a As String = Path.Combine(dir, "a.txt") Dim b As String = Path.Combine(dir, "b.txt") FS.CreateDirectory(dir) CreateFile(a, SLOWFILESIZE) FS.CopyFile(a, b, Microsoft.VisualBasic.FileIO.UIOption.AllDialogs, Microsoft.VisualBasic.FileIO.UICancelOption.DoNothing) MsgBox("On the next dialogs you may press any option") FS.CopyFile(a, b, Microsoft.VisualBasic.FileIO.UIOption.AllDialogs, Microsoft.VisualBasic.FileIO.UICancelOption.DoNothing) Helper.CompareFile(a, b, testname) FS.DeleteDirectory(dir, Microsoft.VisualBasic.FileIO.DeleteDirectoryOption.DeleteAllContents) End Sub _ _ Public Sub CopyFileTest6() Dim testname As String = "CopyFileTest6" Dim dir As String = Path.Combine(BASEDIR, testname) Dim a As String = Path.Combine(dir, "a.txt") Dim b As String = Path.Combine(dir, "b.txt") FS.CreateDirectory(dir) CreateFile(a, SLOWFILESIZE) FS.CopyFile(a, b, Microsoft.VisualBasic.FileIO.UIOption.OnlyErrorDialogs, Microsoft.VisualBasic.FileIO.UICancelOption.DoNothing) FS.CopyFile(a, b, Microsoft.VisualBasic.FileIO.UIOption.OnlyErrorDialogs, Microsoft.VisualBasic.FileIO.UICancelOption.DoNothing) Helper.CompareFile(a, b, testname) FS.DeleteDirectory(dir, Microsoft.VisualBasic.FileIO.DeleteDirectoryOption.DeleteAllContents) End Sub 'TargetJvm - Cancle UI NotSupported _ _ _ Public Sub CopyFileTest7() Dim testname As String = "CopyFileTest7" Dim dir As String = Path.Combine(BASEDIR, testname) Dim a As String = Path.Combine(dir, "a.txt") Dim b As String = Path.Combine(dir, "b.txt") FS.CreateDirectory(dir) CreateFile(a, SLOWFILESIZE) FS.CopyFile(a, b, Microsoft.VisualBasic.FileIO.UIOption.AllDialogs, Microsoft.VisualBasic.FileIO.UICancelOption.ThrowException) MsgBox("On the next dialogs press Cancel.") Try FS.CopyFile(a, b, Microsoft.VisualBasic.FileIO.UIOption.AllDialogs, Microsoft.VisualBasic.FileIO.UICancelOption.ThrowException) Assert.Fail(testname & "-1 Expected 'OperationCanceledException'") Catch ex As OperationCanceledException Assert.AreEqual("The operation was canceled.", ex.Message, testname & "-2") End Try FS.DeleteDirectory(dir, Microsoft.VisualBasic.FileIO.DeleteDirectoryOption.DeleteAllContents) End Sub _ _ Public Sub CopyFileTest8() Dim testname As String = "CopyFileTest8" Dim dir As String = Path.Combine(BASEDIR, testname) Dim a As String = Path.Combine(dir, "a.txt") Dim b As String = Path.Combine(dir, "b.txt") FS.CreateDirectory(dir) CreateFile(a, SLOWFILESIZE) FS.CopyFile(a, b, Microsoft.VisualBasic.FileIO.UIOption.OnlyErrorDialogs, Microsoft.VisualBasic.FileIO.UICancelOption.ThrowException) MsgBox("On the next dialogs press Cancel.") FS.CopyFile(a, b, Microsoft.VisualBasic.FileIO.UIOption.OnlyErrorDialogs, Microsoft.VisualBasic.FileIO.UICancelOption.ThrowException) Helper.CompareFile(a, b, testname) FS.DeleteDirectory(dir, Microsoft.VisualBasic.FileIO.DeleteDirectoryOption.DeleteAllContents) End Sub _ Public Sub DeleteDirectoryTest1() Dim testname As String = "DeleteDirectoryTest1" Dim dir As String = Path.Combine(BASEDIR, testname) FS.CreateDirectory(dir) FS.DeleteDirectory(dir, Microsoft.VisualBasic.FileIO.DeleteDirectoryOption.ThrowIfDirectoryNonEmpty) Assert.AreEqual(False, FS.DirectoryExists(dir), testname & "-1") FS.CreateDirectory(dir) FS.DeleteDirectory(dir, Microsoft.VisualBasic.FileIO.DeleteDirectoryOption.ThrowIfDirectoryNonEmpty) Assert.AreEqual(False, FS.DirectoryExists(dir), testname & "-2") End Sub _ _ Public Sub DeleteDirectoryTest2() Dim testname As String = "DeleteDirectoryTest2" Dim dir As String = Path.Combine(BASEDIR, testname) CreateComplicatedFileHierarchy(dir, False) FS.DeleteDirectory(dir, Microsoft.VisualBasic.FileIO.DeleteDirectoryOption.ThrowIfDirectoryNonEmpty) End Sub _ Public Sub DirectoryExistsTest1() Dim testname As String = "DirectoryExistsTest1" Dim dir As String = Path.Combine(BASEDIR, testname) Dim file As String = Path.Combine(dir, "file") Assert.AreEqual(False, FS.DirectoryExists(dir), testname & "-1") FS.CreateDirectory(dir) Assert.AreEqual(True, FS.DirectoryExists(dir), testname & "-2") CreateFile(file, 1) Assert.AreEqual(False, FS.DirectoryExists(file), testname & "-3") End Sub _ Public Sub DrivesTest1() Dim testname As String = "DrivesTest1" Dim dir As String = Path.Combine(BASEDIR, testname) Dim drives As ObjectModel.ReadOnlyCollection(Of DriveInfo) Dim realDrives As DriveInfo() = System.IO.DriveInfo.GetDrives() drives = FS.Drives Assert.AreEqual(realDrives.Length, drives.Count, testname & "-1") End Sub _ Public Sub FileExistsTest1() Dim testname As String = "FileExistsTest1" Dim dir As String = Path.Combine(BASEDIR, testname) Dim file As String = Path.Combine(dir, "file") Assert.AreEqual(False, FS.FileExists(file), testname & "-0") Assert.AreEqual(False, FS.FileExists(dir), testname & "-1") FS.CreateDirectory(dir) Assert.AreEqual(False, FS.FileExists(dir), testname & "-2") Assert.AreEqual(False, FS.FileExists(file), testname & "-3") CreateFile(file, 1) Assert.AreEqual(True, FS.FileExists(file), testname & "-3") End Sub _ Public Sub FindInFilesTest1() Dim testname As String = "FindInFilesTest1" Dim dir As String = Path.Combine(BASEDIR, testname) Dim file As String = Path.Combine(dir, "file") Dim found As ObjectModel.ReadOnlyCollection(Of String) CreateComplicatedFileHierarchy(dir, True, System.Text.Encoding.ASCII.GetBytes("FINDME")) found = FS.FindInFiles(dir, "D", False, Microsoft.VisualBasic.FileIO.SearchOption.SearchTopLevelOnly) Assert.AreEqual(2, found.Count, testname & "-1") found = FS.FindInFiles(dir, "D", False, Microsoft.VisualBasic.FileIO.SearchOption.SearchAllSubDirectories) Assert.AreEqual(14, found.Count, testname & "-2") found = FS.FindInFiles(dir, "D", True, Microsoft.VisualBasic.FileIO.SearchOption.SearchTopLevelOnly) Assert.AreEqual(2, found.Count, testname & "-3") found = FS.FindInFiles(dir, "D", True, Microsoft.VisualBasic.FileIO.SearchOption.SearchAllSubDirectories) Assert.AreEqual(14, found.Count, testname & "-4") found = FS.FindInFiles(dir, "d", False, Microsoft.VisualBasic.FileIO.SearchOption.SearchTopLevelOnly) Assert.AreEqual(0, found.Count, testname & "-5") found = FS.FindInFiles(dir, "d", False, Microsoft.VisualBasic.FileIO.SearchOption.SearchAllSubDirectories) Assert.AreEqual(0, found.Count, testname & "-6") found = FS.FindInFiles(dir, "d", True, Microsoft.VisualBasic.FileIO.SearchOption.SearchTopLevelOnly) Assert.AreEqual(2, found.Count, testname & "-7") found = FS.FindInFiles(dir, "d", True, Microsoft.VisualBasic.FileIO.SearchOption.SearchAllSubDirectories) Assert.AreEqual(14, found.Count, testname & "-8") found = FS.FindInFiles(dir, "FINDME", False, Microsoft.VisualBasic.FileIO.SearchOption.SearchTopLevelOnly) Assert.AreEqual(2, found.Count, testname & "-11") found = FS.FindInFiles(dir, "FINDME", False, Microsoft.VisualBasic.FileIO.SearchOption.SearchAllSubDirectories) Assert.AreEqual(14, found.Count, testname & "-12") found = FS.FindInFiles(dir, "FINDME", True, Microsoft.VisualBasic.FileIO.SearchOption.SearchTopLevelOnly) Assert.AreEqual(2, found.Count, testname & "-13") found = FS.FindInFiles(dir, "FINDME", True, Microsoft.VisualBasic.FileIO.SearchOption.SearchAllSubDirectories) Assert.AreEqual(14, found.Count, testname & "-14") found = FS.FindInFiles(dir, "findme", False, Microsoft.VisualBasic.FileIO.SearchOption.SearchTopLevelOnly) Assert.AreEqual(0, found.Count, testname & "-15") found = FS.FindInFiles(dir, "findme", False, Microsoft.VisualBasic.FileIO.SearchOption.SearchAllSubDirectories) Assert.AreEqual(0, found.Count, testname & "-16") found = FS.FindInFiles(dir, "findme", True, Microsoft.VisualBasic.FileIO.SearchOption.SearchTopLevelOnly) Assert.AreEqual(2, found.Count, testname & "-17") found = FS.FindInFiles(dir, "findme", True, Microsoft.VisualBasic.FileIO.SearchOption.SearchAllSubDirectories) Assert.AreEqual(14, found.Count, testname & "-18") found = FS.FindInFiles(dir, "NOTME", False, Microsoft.VisualBasic.FileIO.SearchOption.SearchTopLevelOnly) Assert.AreEqual(0, found.Count, testname & "-21") found = FS.FindInFiles(dir, "NOTME", False, Microsoft.VisualBasic.FileIO.SearchOption.SearchAllSubDirectories) Assert.AreEqual(0, found.Count, testname & "-22") found = FS.FindInFiles(dir, "NOTME", True, Microsoft.VisualBasic.FileIO.SearchOption.SearchTopLevelOnly) Assert.AreEqual(0, found.Count, testname & "-23") found = FS.FindInFiles(dir, "NOTME", True, Microsoft.VisualBasic.FileIO.SearchOption.SearchAllSubDirectories) Assert.AreEqual(0, found.Count, testname & "-24") found = FS.FindInFiles(dir, "notme", False, Microsoft.VisualBasic.FileIO.SearchOption.SearchTopLevelOnly) Assert.AreEqual(0, found.Count, testname & "-25") found = FS.FindInFiles(dir, "notme", False, Microsoft.VisualBasic.FileIO.SearchOption.SearchAllSubDirectories) Assert.AreEqual(0, found.Count, testname & "-26") found = FS.FindInFiles(dir, "notme", True, Microsoft.VisualBasic.FileIO.SearchOption.SearchTopLevelOnly) Assert.AreEqual(0, found.Count, testname & "-27") found = FS.FindInFiles(dir, "notme", True, Microsoft.VisualBasic.FileIO.SearchOption.SearchAllSubDirectories) Assert.AreEqual(0, found.Count, testname & "-28") End Sub _ Public Sub FindInFilesTest2() Dim testname As String = "FindInFilesTest2" Dim dir As String = Path.Combine(BASEDIR, testname) Dim file As String = Path.Combine(dir, "file") Dim found As ObjectModel.ReadOnlyCollection(Of String) Dim patterns As String() = New String() {"??"} CreateComplicatedFileHierarchy(dir, True, System.Text.Encoding.ASCII.GetBytes("FINDME")) found = FS.FindInFiles(dir, "D", False, Microsoft.VisualBasic.FileIO.SearchOption.SearchTopLevelOnly, patterns) Assert.AreEqual(2, found.Count, testname & "-1") found = FS.FindInFiles(dir, "D", False, Microsoft.VisualBasic.FileIO.SearchOption.SearchAllSubDirectories, patterns) Assert.AreEqual(14, found.Count, testname & "-2") found = FS.FindInFiles(dir, "D", True, Microsoft.VisualBasic.FileIO.SearchOption.SearchTopLevelOnly, patterns) Assert.AreEqual(2, found.Count, testname & "-3") found = FS.FindInFiles(dir, "D", True, Microsoft.VisualBasic.FileIO.SearchOption.SearchAllSubDirectories, patterns) Assert.AreEqual(14, found.Count, testname & "-4") found = FS.FindInFiles(dir, "d", False, Microsoft.VisualBasic.FileIO.SearchOption.SearchTopLevelOnly, patterns) Assert.AreEqual(0, found.Count, testname & "-5") found = FS.FindInFiles(dir, "d", False, Microsoft.VisualBasic.FileIO.SearchOption.SearchAllSubDirectories, patterns) Assert.AreEqual(0, found.Count, testname & "-6") found = FS.FindInFiles(dir, "d", True, Microsoft.VisualBasic.FileIO.SearchOption.SearchTopLevelOnly, patterns) Assert.AreEqual(2, found.Count, testname & "-7") found = FS.FindInFiles(dir, "d", True, Microsoft.VisualBasic.FileIO.SearchOption.SearchAllSubDirectories, patterns) Assert.AreEqual(14, found.Count, testname & "-8") found = FS.FindInFiles(dir, "FINDME", False, Microsoft.VisualBasic.FileIO.SearchOption.SearchTopLevelOnly, patterns) Assert.AreEqual(2, found.Count, testname & "-11") found = FS.FindInFiles(dir, "FINDME", False, Microsoft.VisualBasic.FileIO.SearchOption.SearchAllSubDirectories, patterns) Assert.AreEqual(14, found.Count, testname & "-12") found = FS.FindInFiles(dir, "FINDME", True, Microsoft.VisualBasic.FileIO.SearchOption.SearchTopLevelOnly, patterns) Assert.AreEqual(2, found.Count, testname & "-13") found = FS.FindInFiles(dir, "FINDME", True, Microsoft.VisualBasic.FileIO.SearchOption.SearchAllSubDirectories, patterns) Assert.AreEqual(14, found.Count, testname & "-14") found = FS.FindInFiles(dir, "findme", False, Microsoft.VisualBasic.FileIO.SearchOption.SearchTopLevelOnly, patterns) Assert.AreEqual(0, found.Count, testname & "-15") found = FS.FindInFiles(dir, "findme", False, Microsoft.VisualBasic.FileIO.SearchOption.SearchAllSubDirectories, patterns) Assert.AreEqual(0, found.Count, testname & "-16") found = FS.FindInFiles(dir, "findme", True, Microsoft.VisualBasic.FileIO.SearchOption.SearchTopLevelOnly, patterns) Assert.AreEqual(2, found.Count, testname & "-17") found = FS.FindInFiles(dir, "findme", True, Microsoft.VisualBasic.FileIO.SearchOption.SearchAllSubDirectories, patterns) Assert.AreEqual(14, found.Count, testname & "-18") found = FS.FindInFiles(dir, "NOTME", False, Microsoft.VisualBasic.FileIO.SearchOption.SearchTopLevelOnly, patterns) Assert.AreEqual(0, found.Count, testname & "-21") found = FS.FindInFiles(dir, "NOTME", False, Microsoft.VisualBasic.FileIO.SearchOption.SearchAllSubDirectories, patterns) Assert.AreEqual(0, found.Count, testname & "-22") found = FS.FindInFiles(dir, "NOTME", True, Microsoft.VisualBasic.FileIO.SearchOption.SearchTopLevelOnly, patterns) Assert.AreEqual(0, found.Count, testname & "-23") found = FS.FindInFiles(dir, "NOTME", True, Microsoft.VisualBasic.FileIO.SearchOption.SearchAllSubDirectories, patterns) Assert.AreEqual(0, found.Count, testname & "-24") found = FS.FindInFiles(dir, "notme", False, Microsoft.VisualBasic.FileIO.SearchOption.SearchTopLevelOnly, patterns) Assert.AreEqual(0, found.Count, testname & "-25") found = FS.FindInFiles(dir, "notme", False, Microsoft.VisualBasic.FileIO.SearchOption.SearchAllSubDirectories, patterns) Assert.AreEqual(0, found.Count, testname & "-26") found = FS.FindInFiles(dir, "notme", True, Microsoft.VisualBasic.FileIO.SearchOption.SearchTopLevelOnly, patterns) Assert.AreEqual(0, found.Count, testname & "-27") found = FS.FindInFiles(dir, "notme", True, Microsoft.VisualBasic.FileIO.SearchOption.SearchAllSubDirectories, patterns) Assert.AreEqual(0, found.Count, testname & "-28") End Sub _ Public Sub FindInFilesTest3() Dim testname As String = "FindInFilesTest3" Dim dir As String = Path.Combine(BASEDIR, testname) Dim file As String = Path.Combine(dir, "file") Dim found As ObjectModel.ReadOnlyCollection(Of String) Dim patterns As String() = New String() {"a*", "?b", "??"} CreateComplicatedFileHierarchy(dir, True, System.Text.Encoding.ASCII.GetBytes("FINDME")) found = FS.FindInFiles(dir, "D", False, Microsoft.VisualBasic.FileIO.SearchOption.SearchTopLevelOnly, patterns) Assert.AreEqual(2, found.Count, testname & "-1") found = FS.FindInFiles(dir, "D", False, Microsoft.VisualBasic.FileIO.SearchOption.SearchAllSubDirectories, patterns) Assert.AreEqual(14, found.Count, testname & "-2") found = FS.FindInFiles(dir, "D", True, Microsoft.VisualBasic.FileIO.SearchOption.SearchTopLevelOnly, patterns) Assert.AreEqual(2, found.Count, testname & "-3") found = FS.FindInFiles(dir, "D", True, Microsoft.VisualBasic.FileIO.SearchOption.SearchAllSubDirectories, patterns) Assert.AreEqual(14, found.Count, testname & "-4") found = FS.FindInFiles(dir, "d", False, Microsoft.VisualBasic.FileIO.SearchOption.SearchTopLevelOnly, patterns) Assert.AreEqual(0, found.Count, testname & "-5") found = FS.FindInFiles(dir, "d", False, Microsoft.VisualBasic.FileIO.SearchOption.SearchAllSubDirectories, patterns) Assert.AreEqual(0, found.Count, testname & "-6") found = FS.FindInFiles(dir, "d", True, Microsoft.VisualBasic.FileIO.SearchOption.SearchTopLevelOnly, patterns) Assert.AreEqual(2, found.Count, testname & "-7") found = FS.FindInFiles(dir, "d", True, Microsoft.VisualBasic.FileIO.SearchOption.SearchAllSubDirectories, patterns) Assert.AreEqual(14, found.Count, testname & "-8") found = FS.FindInFiles(dir, "FINDME", False, Microsoft.VisualBasic.FileIO.SearchOption.SearchTopLevelOnly, patterns) Assert.AreEqual(2, found.Count, testname & "-11") found = FS.FindInFiles(dir, "FINDME", False, Microsoft.VisualBasic.FileIO.SearchOption.SearchAllSubDirectories, patterns) Assert.AreEqual(14, found.Count, testname & "-12") found = FS.FindInFiles(dir, "FINDME", True, Microsoft.VisualBasic.FileIO.SearchOption.SearchTopLevelOnly, patterns) Assert.AreEqual(2, found.Count, testname & "-13") found = FS.FindInFiles(dir, "FINDME", True, Microsoft.VisualBasic.FileIO.SearchOption.SearchAllSubDirectories, patterns) Assert.AreEqual(14, found.Count, testname & "-14") found = FS.FindInFiles(dir, "findme", False, Microsoft.VisualBasic.FileIO.SearchOption.SearchTopLevelOnly, patterns) Assert.AreEqual(0, found.Count, testname & "-15") found = FS.FindInFiles(dir, "findme", False, Microsoft.VisualBasic.FileIO.SearchOption.SearchAllSubDirectories, patterns) Assert.AreEqual(0, found.Count, testname & "-16") found = FS.FindInFiles(dir, "findme", True, Microsoft.VisualBasic.FileIO.SearchOption.SearchTopLevelOnly, patterns) Assert.AreEqual(2, found.Count, testname & "-17") found = FS.FindInFiles(dir, "findme", True, Microsoft.VisualBasic.FileIO.SearchOption.SearchAllSubDirectories, patterns) Assert.AreEqual(14, found.Count, testname & "-18") found = FS.FindInFiles(dir, "NOTME", False, Microsoft.VisualBasic.FileIO.SearchOption.SearchTopLevelOnly, patterns) Assert.AreEqual(0, found.Count, testname & "-21") found = FS.FindInFiles(dir, "NOTME", False, Microsoft.VisualBasic.FileIO.SearchOption.SearchAllSubDirectories, patterns) Assert.AreEqual(0, found.Count, testname & "-22") found = FS.FindInFiles(dir, "NOTME", True, Microsoft.VisualBasic.FileIO.SearchOption.SearchTopLevelOnly, patterns) Assert.AreEqual(0, found.Count, testname & "-23") found = FS.FindInFiles(dir, "NOTME", True, Microsoft.VisualBasic.FileIO.SearchOption.SearchAllSubDirectories, patterns) Assert.AreEqual(0, found.Count, testname & "-24") found = FS.FindInFiles(dir, "notme", False, Microsoft.VisualBasic.FileIO.SearchOption.SearchTopLevelOnly, patterns) Assert.AreEqual(0, found.Count, testname & "-25") found = FS.FindInFiles(dir, "notme", False, Microsoft.VisualBasic.FileIO.SearchOption.SearchAllSubDirectories, patterns) Assert.AreEqual(0, found.Count, testname & "-26") found = FS.FindInFiles(dir, "notme", True, Microsoft.VisualBasic.FileIO.SearchOption.SearchTopLevelOnly, patterns) Assert.AreEqual(0, found.Count, testname & "-27") found = FS.FindInFiles(dir, "notme", True, Microsoft.VisualBasic.FileIO.SearchOption.SearchAllSubDirectories, patterns) Assert.AreEqual(0, found.Count, testname & "-28") End Sub _ Public Sub FindInFilesTest4() Dim testname As String = "FindInFilesTest4" Dim dir As String = Path.Combine(BASEDIR, testname) Dim file As String = Path.Combine(dir, "file") Dim found As ObjectModel.ReadOnlyCollection(Of String) Dim patterns As String() = New String() {"?"} CreateComplicatedFileHierarchy(dir, True, System.Text.Encoding.ASCII.GetBytes("FINDME")) found = FS.FindInFiles(dir, "D", False, Microsoft.VisualBasic.FileIO.SearchOption.SearchTopLevelOnly, patterns) Assert.AreEqual(0, found.Count, testname & "-1") found = FS.FindInFiles(dir, "D", False, Microsoft.VisualBasic.FileIO.SearchOption.SearchAllSubDirectories, patterns) Assert.AreEqual(0, found.Count, testname & "-2") found = FS.FindInFiles(dir, "D", True, Microsoft.VisualBasic.FileIO.SearchOption.SearchTopLevelOnly, patterns) Assert.AreEqual(0, found.Count, testname & "-3") found = FS.FindInFiles(dir, "D", True, Microsoft.VisualBasic.FileIO.SearchOption.SearchAllSubDirectories, patterns) Assert.AreEqual(0, found.Count, testname & "-4") found = FS.FindInFiles(dir, "d", False, Microsoft.VisualBasic.FileIO.SearchOption.SearchTopLevelOnly, patterns) Assert.AreEqual(0, found.Count, testname & "-5") found = FS.FindInFiles(dir, "d", False, Microsoft.VisualBasic.FileIO.SearchOption.SearchAllSubDirectories, patterns) Assert.AreEqual(0, found.Count, testname & "-6") found = FS.FindInFiles(dir, "d", True, Microsoft.VisualBasic.FileIO.SearchOption.SearchTopLevelOnly, patterns) Assert.AreEqual(0, found.Count, testname & "-7") found = FS.FindInFiles(dir, "d", True, Microsoft.VisualBasic.FileIO.SearchOption.SearchAllSubDirectories, patterns) Assert.AreEqual(0, found.Count, testname & "-8") found = FS.FindInFiles(dir, "FINDME", False, Microsoft.VisualBasic.FileIO.SearchOption.SearchTopLevelOnly, patterns) Assert.AreEqual(0, found.Count, testname & "-11") found = FS.FindInFiles(dir, "FINDME", False, Microsoft.VisualBasic.FileIO.SearchOption.SearchAllSubDirectories, patterns) Assert.AreEqual(0, found.Count, testname & "-12") found = FS.FindInFiles(dir, "FINDME", True, Microsoft.VisualBasic.FileIO.SearchOption.SearchTopLevelOnly, patterns) Assert.AreEqual(0, found.Count, testname & "-13") found = FS.FindInFiles(dir, "FINDME", True, Microsoft.VisualBasic.FileIO.SearchOption.SearchAllSubDirectories, patterns) Assert.AreEqual(0, found.Count, testname & "-14") found = FS.FindInFiles(dir, "findme", False, Microsoft.VisualBasic.FileIO.SearchOption.SearchTopLevelOnly, patterns) Assert.AreEqual(0, found.Count, testname & "-15") found = FS.FindInFiles(dir, "findme", False, Microsoft.VisualBasic.FileIO.SearchOption.SearchAllSubDirectories, patterns) Assert.AreEqual(0, found.Count, testname & "-16") found = FS.FindInFiles(dir, "findme", True, Microsoft.VisualBasic.FileIO.SearchOption.SearchTopLevelOnly, patterns) Assert.AreEqual(0, found.Count, testname & "-17") found = FS.FindInFiles(dir, "findme", True, Microsoft.VisualBasic.FileIO.SearchOption.SearchAllSubDirectories, patterns) Assert.AreEqual(0, found.Count, testname & "-18") found = FS.FindInFiles(dir, "NOTME", False, Microsoft.VisualBasic.FileIO.SearchOption.SearchTopLevelOnly, patterns) Assert.AreEqual(0, found.Count, testname & "-21") found = FS.FindInFiles(dir, "NOTME", False, Microsoft.VisualBasic.FileIO.SearchOption.SearchAllSubDirectories, patterns) Assert.AreEqual(0, found.Count, testname & "-22") found = FS.FindInFiles(dir, "NOTME", True, Microsoft.VisualBasic.FileIO.SearchOption.SearchTopLevelOnly, patterns) Assert.AreEqual(0, found.Count, testname & "-23") found = FS.FindInFiles(dir, "NOTME", True, Microsoft.VisualBasic.FileIO.SearchOption.SearchAllSubDirectories, patterns) Assert.AreEqual(0, found.Count, testname & "-24") found = FS.FindInFiles(dir, "notme", False, Microsoft.VisualBasic.FileIO.SearchOption.SearchTopLevelOnly, patterns) Assert.AreEqual(0, found.Count, testname & "-25") found = FS.FindInFiles(dir, "notme", False, Microsoft.VisualBasic.FileIO.SearchOption.SearchAllSubDirectories, patterns) Assert.AreEqual(0, found.Count, testname & "-26") found = FS.FindInFiles(dir, "notme", True, Microsoft.VisualBasic.FileIO.SearchOption.SearchTopLevelOnly, patterns) Assert.AreEqual(0, found.Count, testname & "-27") found = FS.FindInFiles(dir, "notme", True, Microsoft.VisualBasic.FileIO.SearchOption.SearchAllSubDirectories, patterns) Assert.AreEqual(0, found.Count, testname & "-28") End Sub _ Public Sub FindInFilesTest5() Dim testname As String = "FindInFilesTest5" Dim dir As String = Path.Combine(BASEDIR, testname) Dim file As String = Path.Combine(dir, "file") Dim found As ObjectModel.ReadOnlyCollection(Of String) Dim patterns As String() = New String() {"a?"} CreateComplicatedFileHierarchy(dir, True, System.Text.Encoding.ASCII.GetBytes("FINDME")) found = FS.FindInFiles(dir, "D", False, Microsoft.VisualBasic.FileIO.SearchOption.SearchTopLevelOnly, patterns) Assert.AreEqual(0, found.Count, testname & "-1") found = FS.FindInFiles(dir, "D", False, Microsoft.VisualBasic.FileIO.SearchOption.SearchAllSubDirectories, patterns) Assert.AreEqual(1, found.Count, testname & "-2") found = FS.FindInFiles(dir, "D", True, Microsoft.VisualBasic.FileIO.SearchOption.SearchTopLevelOnly, patterns) Assert.AreEqual(0, found.Count, testname & "-3") found = FS.FindInFiles(dir, "D", True, Microsoft.VisualBasic.FileIO.SearchOption.SearchAllSubDirectories, patterns) Assert.AreEqual(1, found.Count, testname & "-4") found = FS.FindInFiles(dir, "d", False, Microsoft.VisualBasic.FileIO.SearchOption.SearchTopLevelOnly, patterns) Assert.AreEqual(0, found.Count, testname & "-5") found = FS.FindInFiles(dir, "d", False, Microsoft.VisualBasic.FileIO.SearchOption.SearchAllSubDirectories, patterns) Assert.AreEqual(0, found.Count, testname & "-6") found = FS.FindInFiles(dir, "d", True, Microsoft.VisualBasic.FileIO.SearchOption.SearchTopLevelOnly, patterns) Assert.AreEqual(0, found.Count, testname & "-7") found = FS.FindInFiles(dir, "d", True, Microsoft.VisualBasic.FileIO.SearchOption.SearchAllSubDirectories, patterns) Assert.AreEqual(1, found.Count, testname & "-8") found = FS.FindInFiles(dir, "FINDME", False, Microsoft.VisualBasic.FileIO.SearchOption.SearchTopLevelOnly, patterns) Assert.AreEqual(0, found.Count, testname & "-11") found = FS.FindInFiles(dir, "FINDME", False, Microsoft.VisualBasic.FileIO.SearchOption.SearchAllSubDirectories, patterns) Assert.AreEqual(1, found.Count, testname & "-12") found = FS.FindInFiles(dir, "FINDME", True, Microsoft.VisualBasic.FileIO.SearchOption.SearchTopLevelOnly, patterns) Assert.AreEqual(0, found.Count, testname & "-13") found = FS.FindInFiles(dir, "FINDME", True, Microsoft.VisualBasic.FileIO.SearchOption.SearchAllSubDirectories, patterns) Assert.AreEqual(1, found.Count, testname & "-14") found = FS.FindInFiles(dir, "findme", False, Microsoft.VisualBasic.FileIO.SearchOption.SearchTopLevelOnly, patterns) Assert.AreEqual(0, found.Count, testname & "-15") found = FS.FindInFiles(dir, "findme", False, Microsoft.VisualBasic.FileIO.SearchOption.SearchAllSubDirectories, patterns) Assert.AreEqual(0, found.Count, testname & "-16") found = FS.FindInFiles(dir, "findme", True, Microsoft.VisualBasic.FileIO.SearchOption.SearchTopLevelOnly, patterns) Assert.AreEqual(0, found.Count, testname & "-17") found = FS.FindInFiles(dir, "findme", True, Microsoft.VisualBasic.FileIO.SearchOption.SearchAllSubDirectories, patterns) Assert.AreEqual(1, found.Count, testname & "-18") found = FS.FindInFiles(dir, "NOTME", False, Microsoft.VisualBasic.FileIO.SearchOption.SearchTopLevelOnly, patterns) Assert.AreEqual(0, found.Count, testname & "-21") found = FS.FindInFiles(dir, "NOTME", False, Microsoft.VisualBasic.FileIO.SearchOption.SearchAllSubDirectories, patterns) Assert.AreEqual(0, found.Count, testname & "-22") found = FS.FindInFiles(dir, "NOTME", True, Microsoft.VisualBasic.FileIO.SearchOption.SearchTopLevelOnly, patterns) Assert.AreEqual(0, found.Count, testname & "-23") found = FS.FindInFiles(dir, "NOTME", True, Microsoft.VisualBasic.FileIO.SearchOption.SearchAllSubDirectories, patterns) Assert.AreEqual(0, found.Count, testname & "-24") found = FS.FindInFiles(dir, "notme", False, Microsoft.VisualBasic.FileIO.SearchOption.SearchTopLevelOnly, patterns) Assert.AreEqual(0, found.Count, testname & "-25") found = FS.FindInFiles(dir, "notme", False, Microsoft.VisualBasic.FileIO.SearchOption.SearchAllSubDirectories, patterns) Assert.AreEqual(0, found.Count, testname & "-26") found = FS.FindInFiles(dir, "notme", True, Microsoft.VisualBasic.FileIO.SearchOption.SearchTopLevelOnly, patterns) Assert.AreEqual(0, found.Count, testname & "-27") found = FS.FindInFiles(dir, "notme", True, Microsoft.VisualBasic.FileIO.SearchOption.SearchAllSubDirectories, patterns) Assert.AreEqual(0, found.Count, testname & "-28") End Sub _ Public Sub FindInFilesTest6() Dim testname As String = "FindInFilesTest6" Dim dir As String = Path.Combine(BASEDIR, testname) Dim file As String = Path.Combine(dir, "file") Dim found As ObjectModel.ReadOnlyCollection(Of String) Dim patterns As String() = New String() {"[abc]?"} CreateComplicatedFileHierarchy(dir, True, System.Text.Encoding.ASCII.GetBytes("FINDME")) found = FS.FindInFiles(dir, "D", False, Microsoft.VisualBasic.FileIO.SearchOption.SearchTopLevelOnly, patterns) Assert.AreEqual(0, found.Count, testname & "-1") found = FS.FindInFiles(dir, "D", False, Microsoft.VisualBasic.FileIO.SearchOption.SearchAllSubDirectories, patterns) Assert.AreEqual(0, found.Count, testname & "-2") found = FS.FindInFiles(dir, "D", True, Microsoft.VisualBasic.FileIO.SearchOption.SearchTopLevelOnly, patterns) Assert.AreEqual(0, found.Count, testname & "-3") found = FS.FindInFiles(dir, "D", True, Microsoft.VisualBasic.FileIO.SearchOption.SearchAllSubDirectories, patterns) Assert.AreEqual(0, found.Count, testname & "-4") found = FS.FindInFiles(dir, "d", False, Microsoft.VisualBasic.FileIO.SearchOption.SearchTopLevelOnly, patterns) Assert.AreEqual(0, found.Count, testname & "-5") found = FS.FindInFiles(dir, "d", False, Microsoft.VisualBasic.FileIO.SearchOption.SearchAllSubDirectories, patterns) Assert.AreEqual(0, found.Count, testname & "-6") found = FS.FindInFiles(dir, "d", True, Microsoft.VisualBasic.FileIO.SearchOption.SearchTopLevelOnly, patterns) Assert.AreEqual(0, found.Count, testname & "-7") found = FS.FindInFiles(dir, "d", True, Microsoft.VisualBasic.FileIO.SearchOption.SearchAllSubDirectories, patterns) Assert.AreEqual(0, found.Count, testname & "-8") found = FS.FindInFiles(dir, "FINDME", False, Microsoft.VisualBasic.FileIO.SearchOption.SearchTopLevelOnly, patterns) Assert.AreEqual(0, found.Count, testname & "-11") found = FS.FindInFiles(dir, "FINDME", False, Microsoft.VisualBasic.FileIO.SearchOption.SearchAllSubDirectories, patterns) Assert.AreEqual(0, found.Count, testname & "-12") found = FS.FindInFiles(dir, "FINDME", True, Microsoft.VisualBasic.FileIO.SearchOption.SearchTopLevelOnly, patterns) Assert.AreEqual(0, found.Count, testname & "-13") found = FS.FindInFiles(dir, "FINDME", True, Microsoft.VisualBasic.FileIO.SearchOption.SearchAllSubDirectories, patterns) Assert.AreEqual(0, found.Count, testname & "-14") found = FS.FindInFiles(dir, "findme", False, Microsoft.VisualBasic.FileIO.SearchOption.SearchTopLevelOnly, patterns) Assert.AreEqual(0, found.Count, testname & "-15") found = FS.FindInFiles(dir, "findme", False, Microsoft.VisualBasic.FileIO.SearchOption.SearchAllSubDirectories, patterns) Assert.AreEqual(0, found.Count, testname & "-16") found = FS.FindInFiles(dir, "findme", True, Microsoft.VisualBasic.FileIO.SearchOption.SearchTopLevelOnly, patterns) Assert.AreEqual(0, found.Count, testname & "-17") found = FS.FindInFiles(dir, "findme", True, Microsoft.VisualBasic.FileIO.SearchOption.SearchAllSubDirectories, patterns) Assert.AreEqual(0, found.Count, testname & "-18") found = FS.FindInFiles(dir, "NOTME", False, Microsoft.VisualBasic.FileIO.SearchOption.SearchTopLevelOnly, patterns) Assert.AreEqual(0, found.Count, testname & "-21") found = FS.FindInFiles(dir, "NOTME", False, Microsoft.VisualBasic.FileIO.SearchOption.SearchAllSubDirectories, patterns) Assert.AreEqual(0, found.Count, testname & "-22") found = FS.FindInFiles(dir, "NOTME", True, Microsoft.VisualBasic.FileIO.SearchOption.SearchTopLevelOnly, patterns) Assert.AreEqual(0, found.Count, testname & "-23") found = FS.FindInFiles(dir, "NOTME", True, Microsoft.VisualBasic.FileIO.SearchOption.SearchAllSubDirectories, patterns) Assert.AreEqual(0, found.Count, testname & "-24") found = FS.FindInFiles(dir, "notme", False, Microsoft.VisualBasic.FileIO.SearchOption.SearchTopLevelOnly, patterns) Assert.AreEqual(0, found.Count, testname & "-25") found = FS.FindInFiles(dir, "notme", False, Microsoft.VisualBasic.FileIO.SearchOption.SearchAllSubDirectories, patterns) Assert.AreEqual(0, found.Count, testname & "-26") found = FS.FindInFiles(dir, "notme", True, Microsoft.VisualBasic.FileIO.SearchOption.SearchTopLevelOnly, patterns) Assert.AreEqual(0, found.Count, testname & "-27") found = FS.FindInFiles(dir, "notme", True, Microsoft.VisualBasic.FileIO.SearchOption.SearchAllSubDirectories, patterns) Assert.AreEqual(0, found.Count, testname & "-28") End Sub _ Public Sub GetDirectories1() Dim testname As String = "GetDirectories1" Dim dir As String = Path.Combine(BASEDIR, testname) Dim file As String = Path.Combine(dir, "file") Dim found As ObjectModel.ReadOnlyCollection(Of String) Dim patterns As String() CreateComplicatedFileHierarchy(dir, False) found = FS.GetDirectories(dir) Assert.AreEqual(2, found.Count, testname & "-1") found = FS.GetDirectories(dir, Microsoft.VisualBasic.FileIO.SearchOption.SearchAllSubDirectories) Assert.AreEqual(10, found.Count, testname & "-2") found = FS.GetDirectories(dir, Microsoft.VisualBasic.FileIO.SearchOption.SearchTopLevelOnly) Assert.AreEqual(2, found.Count, testname & "-3") patterns = New String() {"[abc]?"} found = FS.GetDirectories(dir, Microsoft.VisualBasic.FileIO.SearchOption.SearchAllSubDirectories, patterns) Assert.AreEqual(0, found.Count, testname & "-4") found = FS.GetDirectories(dir, Microsoft.VisualBasic.FileIO.SearchOption.SearchTopLevelOnly, patterns) Assert.AreEqual(0, found.Count, testname & "-5") patterns = New String() {"*"} found = FS.GetDirectories(dir, Microsoft.VisualBasic.FileIO.SearchOption.SearchAllSubDirectories, patterns) Assert.AreEqual(10, found.Count, testname & "-14") found = FS.GetDirectories(dir, Microsoft.VisualBasic.FileIO.SearchOption.SearchTopLevelOnly, patterns) Assert.AreEqual(2, found.Count, testname & "-15") patterns = New String() {"a*"} found = FS.GetDirectories(dir, Microsoft.VisualBasic.FileIO.SearchOption.SearchAllSubDirectories, patterns) Assert.AreEqual(1, found.Count, testname & "-24") found = FS.GetDirectories(dir, Microsoft.VisualBasic.FileIO.SearchOption.SearchTopLevelOnly, patterns) Assert.AreEqual(1, found.Count, testname & "-25") patterns = New String() {"a*", "*b"} found = FS.GetDirectories(dir, Microsoft.VisualBasic.FileIO.SearchOption.SearchAllSubDirectories, patterns) Assert.AreEqual(2, found.Count, testname & "-34") found = FS.GetDirectories(dir, Microsoft.VisualBasic.FileIO.SearchOption.SearchTopLevelOnly, patterns) Assert.AreEqual(1, found.Count, testname & "-35") End Sub _ Public Sub GetDirectoryInfoTest1() Dim testname As String = "GetDirectoryInfoTest1" Dim dir As String = Path.Combine(BASEDIR, testname) FS.CreateDirectory(dir) Assert.AreEqual(FS.GetDirectoryInfo(dir).ToString, New DirectoryInfo(dir).ToString, testname & "-1") End Sub _ Public Sub GetDriveInfoTest1() Dim testname As String = "GetDriveInfoTest1" Dim dir As String = Path.Combine(BASEDIR, testname) FS.CreateDirectory(dir) Dim dir1 As DriveInfo = FS.GetDriveInfo(dir) Dim dir2 As DriveInfo = New DriveInfo(dir) Assert.IsTrue(dir1.RootDirectory().Exists) Assert.AreEqual(dir1.ToString, dir2.ToString, testname & "-1") End Sub _ Public Sub GetFileInfoTest1() Dim testname As String = "GetFileInfoTest1" Dim dir As String = Path.Combine(BASEDIR, testname) Dim file As String = Path.Combine(dir, "file") FS.CreateDirectory(dir) CreateFile(file, 1) Assert.AreEqual(FS.GetFileInfo(file).ToString, New FileInfo(file).ToString, testname & "-1") End Sub _ Public Sub GetFiles1() Dim testname As String = "GetFiles1" Dim dir As String = Path.Combine(BASEDIR, testname) Dim file As String = Path.Combine(dir, "file") Dim found As ObjectModel.ReadOnlyCollection(Of String) Dim patterns As String() CreateComplicatedFileHierarchy(dir, False) found = FS.GetFiles(dir) Assert.AreEqual(1, found.Count, testname & "-1") found = FS.GetFiles(dir, Microsoft.VisualBasic.FileIO.SearchOption.SearchAllSubDirectories) Assert.AreEqual(13, found.Count, testname & "-2") found = FS.GetFiles(dir, Microsoft.VisualBasic.FileIO.SearchOption.SearchTopLevelOnly) Assert.AreEqual(1, found.Count, testname & "-3") patterns = New String() {"[abc]?"} found = FS.GetFiles(dir, Microsoft.VisualBasic.FileIO.SearchOption.SearchAllSubDirectories, patterns) Assert.AreEqual(0, found.Count, testname & "-4") found = FS.GetFiles(dir, Microsoft.VisualBasic.FileIO.SearchOption.SearchTopLevelOnly, patterns) Assert.AreEqual(0, found.Count, testname & "-5") patterns = New String() {"*"} found = FS.GetFiles(dir, Microsoft.VisualBasic.FileIO.SearchOption.SearchAllSubDirectories, patterns) Assert.AreEqual(13, found.Count, testname & "-14") found = FS.GetFiles(dir, Microsoft.VisualBasic.FileIO.SearchOption.SearchTopLevelOnly, patterns) Assert.AreEqual(1, found.Count, testname & "-15") patterns = New String() {"a*"} found = FS.GetFiles(dir, Microsoft.VisualBasic.FileIO.SearchOption.SearchAllSubDirectories, patterns) Assert.AreEqual(1, found.Count, testname & "-24") found = FS.GetFiles(dir, Microsoft.VisualBasic.FileIO.SearchOption.SearchTopLevelOnly, patterns) Assert.AreEqual(0, found.Count, testname & "-25") patterns = New String() {"a*", "*b"} found = FS.GetFiles(dir, Microsoft.VisualBasic.FileIO.SearchOption.SearchAllSubDirectories, patterns) Assert.AreEqual(2, found.Count, testname & "-34") found = FS.GetFiles(dir, Microsoft.VisualBasic.FileIO.SearchOption.SearchTopLevelOnly, patterns) Assert.AreEqual(0, found.Count, testname & "-35") End Sub _ Public Sub GetNameTest1() Dim testname As String = "GetNameTest1" Dim dir As String = Path.Combine(BASEDIR, testname) Dim file As String = Path.Combine(dir, "file") Assert.AreEqual("a", FS.GetName("a"), testname & "-1") Assert.AreEqual(IO.Path.GetFileName(file), FS.GetName(file), testname & "-2") Assert.AreEqual(IO.Path.GetFileName(dir), FS.GetName(dir), testname & "-3") End Sub _ Public Sub GetParentPathTest1() Dim testname As String = "GetParentPathTest1" Dim dir As String = Path.Combine(BASEDIR, testname) Dim file As String = Path.Combine(dir, "file") Assert.AreEqual("", FS.GetParentPath("a"), testname & "-1") Assert.AreEqual(IO.Path.GetDirectoryName(file), FS.GetParentPath(file), testname & "-2") Assert.AreEqual(IO.Path.GetDirectoryName(dir), FS.GetParentPath(dir), testname & "-3") End Sub _ Public Sub GetTempFileNameTest1() Dim testname As String = "GetTempFileNameTest1" Dim file, file2 As String file = FS.GetTempFileName() file2 = System.IO.Path.GetTempFileName Assert.AreEqual(System.IO.Path.GetDirectoryName(file), System.IO.Path.GetDirectoryName(file2), testname & "-1") IO.File.Delete(file) IO.File.Delete(file2) End Sub _ _ Public Sub MoveDirectoryTest1() Dim dira As String = BASEDIR & "MDT1_a" Dim filea1 As String = Path.Combine(dira, "filea1") Dim filea2 As String = Path.Combine(dira, "filea2") Dim filea3 As String = Path.Combine(dira, "filea3") Dim dirb As String = BASEDIR & "MDT1_b" Dim fileb1 As String = Path.Combine(dirb, "filea1") Dim fileb2 As String = Path.Combine(dirb, "filea2") Dim fileb3 As String = Path.Combine(dirb, "filea3") Dim smallgarbage As String = "somesmallgarbagehere" Dim mediumgarbage As String = CreateBigString(smallgarbage, 1024) Dim biggarbage As String = CreateBigString(mediumgarbage, 1024) FS.CreateDirectory(dira) FS.WriteAllText(filea1, smallgarbage, False) FS.WriteAllText(filea2, mediumgarbage, False) FS.WriteAllText(filea3, biggarbage, False) FS.MoveDirectory(dira, dirb) Try FS.MoveDirectory(dira, dirb) Assert.Fail("#MDT1-2 Expected 'IOException'") Catch ex As IOException Assert.AreEqual(String.Format("Could not find directory '{0}'.", dira), ex.Message, "#MDT1-3") Catch ex As Exception Assert.Fail("#MDT1-4 Expected 'IOException'") End Try End Sub _ Public Sub MoveDirectoryTest2() Dim dira As String = BASEDIR & "MDT2_a" Dim filea1 As String = Path.Combine(dira, "filea1") Dim dirb As String = BASEDIR & "MDT2_b" Dim fileb1 As String = Path.Combine(dirb, "filea1") Dim smallgarbage As String = "thisisgarbage" FS.CreateDirectory(dira) FS.WriteAllText(filea1, smallgarbage, False) FS.MoveDirectory(dira, dirb) Try FS.MoveDirectory(dira, dirb) Assert.Fail("#MDT2-2 Expected 'IOException'") Catch ex As IOException Assert.AreEqual(String.Format("Could not find directory '{0}'.", dira), ex.Message, "#MDT2-3") Catch ex As Exception Assert.Fail("#MDT2-4 Expected 'IOException'") End Try Try FS.MoveDirectory(dira, dirb, False) Assert.Fail("#MDT2-5 Expected 'IOException'") Catch ex As IOException Assert.AreEqual(String.Format("Could not find directory '{0}'.", dira), ex.Message, "#MDT2-6") Catch ex As Exception Assert.Fail("#MDT2-7 Expected 'IOException'") End Try End Sub _ Public Sub MoveDirectoryTest3() Dim dira As String = BASEDIR & "MDT3_a" Dim filea1 As String = Path.Combine(dira, "filea1") Dim dirb As String = BASEDIR & "MDT3_b" Dim fileb1 As String = Path.Combine(dirb, "filea1") Dim smallgarbage As String = "moreGarBaGe" FS.CreateDirectory(dira) FS.WriteAllText(filea1, smallgarbage, False) FS.MoveDirectory(dira, dirb) End Sub _ _ Public Sub MoveDirectoryTest5() Dim dira As String = BASEDIR & "MDT5_a" Dim dirb As String = BASEDIR & "MDT5_b" CreateComplicatedFileHierarchy(dira, True) FS.MoveDirectory(dira, dirb, Microsoft.VisualBasic.FileIO.UIOption.AllDialogs, Microsoft.VisualBasic.FileIO.UICancelOption.DoNothing) 'MsgBox("On the next dialogs you may press any option") 'FS.MoveDirectory(dira, dirb, Microsoft.VisualBasic.FileIO.UIOption.AllDialogs, Microsoft.VisualBasic.FileIO.UICancelOption.DoNothing) End Sub _ _ Public Sub MoveDirectoryTest6() Dim dira As String = BASEDIR & "MDT6_a" Dim dirb As String = BASEDIR & "MDT6_b" CreateComplicatedFileHierarchy(dira, True) FS.MoveDirectory(dira, dirb, Microsoft.VisualBasic.FileIO.UIOption.OnlyErrorDialogs, Microsoft.VisualBasic.FileIO.UICancelOption.DoNothing) 'FS.MoveDirectory(dira, dirb, Microsoft.VisualBasic.FileIO.UIOption.OnlyErrorDialogs, Microsoft.VisualBasic.FileIO.UICancelOption.DoNothing) End Sub _ _ Public Sub MoveDirectoryTest7() Dim dira As String = BASEDIR & "MDT7_a" Dim dirb As String = BASEDIR & "MDT7_b" CreateComplicatedFileHierarchy(dira, True) FS.MoveDirectory(dira, dirb, Microsoft.VisualBasic.FileIO.UIOption.OnlyErrorDialogs, Microsoft.VisualBasic.FileIO.UICancelOption.ThrowException) 'FS.MoveDirectory(dira, dirb, Microsoft.VisualBasic.FileIO.UIOption.OnlyErrorDialogs, Microsoft.VisualBasic.FileIO.UICancelOption.ThrowException) End Sub _ _ Public Sub MoveFileTest1() Dim testname As String = "MFT1" Dim dir As String = Path.Combine(BASEDIR, testname) Dim a As String = Path.Combine(dir, "a.txt") Dim b As String = Path.Combine(dir, "b.txt") FS.CreateDirectory(dir) CreateFile(a, 100000) FS.MoveFile(a, b) CreateFile(a, 100000) Helper.CompareFile(a, b, testname) FS.DeleteDirectory(dir, Microsoft.VisualBasic.FileIO.DeleteDirectoryOption.DeleteAllContents) End Sub _ Public Sub MoveFileTest2() Dim testname As String = "MFT2" Dim dir As String = Path.Combine(BASEDIR, testname) Dim a As String = Path.Combine(dir, "a.txt") Dim b As String = Path.Combine(dir, "b.txt") FS.CreateDirectory(dir) CreateFile(a, 10) FS.MoveFile(a, b) Try FS.MoveFile(a, b) Assert.Fail(testname & "-1" & " Expected 'IOException'") Catch ex As IOException #If Not TARGET_JVM Then Assert.AreEqual(String.Format("Could not find file '{0}'.", a), ex.Message, testname & "-2") #End If End Try FS.DeleteDirectory(dir, Microsoft.VisualBasic.FileIO.DeleteDirectoryOption.DeleteAllContents) End Sub _ Public Sub MoveFileTest3() Dim testname As String = "MFT3" Dim dir As String = Path.Combine(BASEDIR, testname) Dim a As String = Path.Combine(dir, "a.txt") Dim b As String = Path.Combine(dir, "b.txt") FS.CreateDirectory(dir) CreateFile(a, 10) CreateFile(b, 10) FS.MoveFile(a, b, True) Assert.AreEqual(True, FS.FileExists(b), testname & "-1") Assert.AreEqual(False, FS.FileExists(a), testname & "-2") FS.DeleteDirectory(dir, Microsoft.VisualBasic.FileIO.DeleteDirectoryOption.DeleteAllContents) End Sub _ Public Sub MoveFileTest4() Dim testname As String = "MFT4" Dim dir As String = Path.Combine(BASEDIR, testname) Dim a As String = Path.Combine(dir, "a.txt") Dim b As String = Path.Combine(dir, "b.txt") FS.CreateDirectory(dir) CreateFile(a, 10) CreateFile(b, 10) Try FS.MoveFile(a, b, False) Assert.Fail(testname & "-1" & " Expected 'IOException'") Catch ex As IOException 'Assert.AreEqual(String.Format("It is not possible to create a file that already exists." + Environment.NewLine, b), ex.Message, testname & "-2") End Try FS.DeleteDirectory(dir, Microsoft.VisualBasic.FileIO.DeleteDirectoryOption.DeleteAllContents) End Sub 'TargetJvm - Option Dialogs NotSupported _ _ _ Public Sub MoveFileTest5() Dim testname As String = "MoveFileTest5" Dim dir As String = Path.Combine(BASEDIR, testname) Dim a As String = Path.Combine(dir, "a.txt") Dim b As String = Path.Combine(dir, "b.txt") FS.CreateDirectory(dir) CreateFile(a, SLOWFILESIZE) CreateFile(b, SLOWFILESIZE) MsgBox("On the next dialogs press 'Yes'") FS.MoveFile(a, b, Microsoft.VisualBasic.FileIO.UIOption.AllDialogs, Microsoft.VisualBasic.FileIO.UICancelOption.DoNothing) Assert.AreEqual(True, FS.FileExists(b), testname & "-1") Assert.AreEqual(False, FS.FileExists(a), testname & "-2") FS.DeleteDirectory(dir, Microsoft.VisualBasic.FileIO.DeleteDirectoryOption.DeleteAllContents) End Sub _ _ Public Sub MoveFileTest6() Dim testname As String = "MoveFileTest6" Dim dir As String = Path.Combine(BASEDIR, testname) Dim a As String = Path.Combine(dir, "a.txt") Dim b As String = Path.Combine(dir, "b.txt") FS.CreateDirectory(dir) CreateFile(a, SLOWFILESIZE) CreateFile(b, SLOWFILESIZE) FS.MoveFile(a, b, Microsoft.VisualBasic.FileIO.UIOption.OnlyErrorDialogs, Microsoft.VisualBasic.FileIO.UICancelOption.DoNothing) Assert.AreEqual(True, FS.FileExists(b), testname & "-1") Assert.AreEqual(False, FS.FileExists(a), testname & "-2") FS.DeleteDirectory(dir, Microsoft.VisualBasic.FileIO.DeleteDirectoryOption.DeleteAllContents) End Sub _ _ Public Sub MoveFileTest7() Dim testname As String = "MoveFileTest7" Dim dir As String = Path.Combine(BASEDIR, testname) Dim a As String = Path.Combine(dir, "a.txt") Dim b As String = Path.Combine(dir, "b.txt") FS.CreateDirectory(dir) CreateFile(a, SLOWFILESIZE) CreateFile(b, SLOWFILESIZE) MsgBox("On the next dialogs press 'No'.") Try FS.MoveFile(a, b, Microsoft.VisualBasic.FileIO.UIOption.AllDialogs, Microsoft.VisualBasic.FileIO.UICancelOption.ThrowException) Assert.Fail(testname & "-1 Expected 'OperationCanceledException'") Catch ex As OperationCanceledException Assert.AreEqual("The operation was canceled.", ex.Message, testname & "-2") End Try Assert.AreEqual(True, FS.FileExists(b), testname & "-3") Assert.AreEqual(True, FS.FileExists(a), testname & "-4") FS.DeleteDirectory(dir, Microsoft.VisualBasic.FileIO.DeleteDirectoryOption.DeleteAllContents) End Sub _ _ Public Sub MoveFileTest8() Dim testname As String = "MoveFileTest8" Dim dir As String = Path.Combine(BASEDIR, testname) Dim a As String = Path.Combine(dir, "a.txt") Dim b As String = Path.Combine(dir, "b.txt") FS.CreateDirectory(dir) CreateFile(a, SLOWFILESIZE) CreateFile(b, SLOWFILESIZE) FS.MoveFile(a, b, Microsoft.VisualBasic.FileIO.UIOption.OnlyErrorDialogs, Microsoft.VisualBasic.FileIO.UICancelOption.ThrowException) Assert.AreEqual(True, FS.FileExists(b), testname & "-1") Assert.AreEqual(False, FS.FileExists(a), testname & "-2") FS.DeleteDirectory(dir, Microsoft.VisualBasic.FileIO.DeleteDirectoryOption.DeleteAllContents) End Sub _ Public Sub OpenTextFieldParserTest1() Dim testname As String = "OpenTextFieldParserTest1" Dim dir As String = Path.Combine(BASEDIR, testname) Dim a As String = Path.Combine(dir, "a.txt") FS.CreateDirectory(dir) FS.WriteAllText(a, "LINE", False) Using parser As Microsoft.VisualBasic.FileIO.TextFieldParser = FS.OpenTextFieldParser(a) Assert.AreEqual(parser.ReadLine, "LINE", testname & "-1") End Using End Sub _ Public Sub OpenTextFieldParserTest2() Dim testname As String = "OpenTextFieldParserTest2" Dim dir As String = Path.Combine(BASEDIR, testname) Dim a As String = Path.Combine(dir, "a.txt") FS.CreateDirectory(dir) FS.WriteAllText(a, "LINE" & vbNewLine & "a;b", False) Using parser As Microsoft.VisualBasic.FileIO.TextFieldParser = FS.OpenTextFieldParser(a, ";") Assert.AreEqual("LINE", parser.ReadLine, testname & "-1") Assert.AreEqual("a?b", Join(parser.ReadFields(), "?"), testname & "-2") End Using End Sub _ Public Sub OpenTextFieldParserTest3() Dim testname As String = "OpenTextFieldParserTest3" Dim dir As String = Path.Combine(BASEDIR, testname) Dim a As String = Path.Combine(dir, "a.txt") FS.CreateDirectory(dir) FS.WriteAllText(a, "LINE" & vbNewLine & "abc", False) Using parser As Microsoft.VisualBasic.FileIO.TextFieldParser = FS.OpenTextFieldParser(a, 1, 2) Assert.AreEqual("LINE", parser.ReadLine, testname & "-1") Assert.AreEqual("a?bc", Join(parser.ReadFields(), "?"), testname & "-2") End Using End Sub _ Public Sub OpenTextFileReaderTest1() Dim testname As String = "OpenTextFileReaderTest1" Dim dir As String = Path.Combine(BASEDIR, testname) Dim a As String = Path.Combine(dir, "a.txt") FS.CreateDirectory(dir) FS.WriteAllText(a, "LINE" & vbNewLine & "a;b", False) Using parser As StreamReader = FS.OpenTextFileReader(a) Assert.AreEqual("LINE", parser.ReadLine, testname & "-1") Assert.AreEqual(System.Text.Encoding.UTF8.EncodingName, parser.CurrentEncoding.EncodingName, testname & "-2") End Using End Sub _ Public Sub OpenTextFileReaderTest2() Dim testname As String = "OpenTextFileReaderTest2" Dim dir As String = Path.Combine(BASEDIR, testname) Dim a As String = Path.Combine(dir, "a.txt") FS.CreateDirectory(dir) FS.WriteAllText(a, "LINE", False) Using parser As StreamReader = FS.OpenTextFileReader(a, System.Text.Encoding.Unicode) Assert.AreEqual("LINE", parser.ReadLine, testname & "-1") Assert.AreEqual(True, parser.BaseStream.Length = parser.BaseStream.Position, testname & "-2") Assert.AreEqual(System.Text.Encoding.UTF8.EncodingName, parser.CurrentEncoding.EncodingName, testname & "-3") End Using End Sub _ Public Sub OpenTextFileWriterTest1() Dim testname As String = "OpenTextFileWriterTest1" Dim dir As String = Path.Combine(BASEDIR, testname) Dim a As String = Path.Combine(dir, "a.txt") FS.CreateDirectory(dir) Dim contents As String contents = "Line1" & vbNewLine & "Line2" & vbNewLine & "`-192" & vbNewLine Using writer As StreamWriter = FS.OpenTextFileWriter(a, False) writer.Write(contents) End Using Using reader As StreamReader = FS.OpenTextFileReader(a) Assert.AreEqual(System.Text.Encoding.UTF8.EncodingName, reader.CurrentEncoding.EncodingName, testname & "-1") Assert.AreEqual(contents, reader.ReadToEnd, testname & "-2") Assert.AreEqual(System.Text.Encoding.UTF8.EncodingName, reader.CurrentEncoding.EncodingName, testname & "-3") End Using Using writer As StreamWriter = FS.OpenTextFileWriter(a, True) writer.Write(contents) End Using contents &= contents Using reader As StreamReader = FS.OpenTextFileReader(a) Assert.AreEqual(System.Text.Encoding.UTF8.EncodingName, reader.CurrentEncoding.EncodingName, testname & "-4") Assert.AreEqual(contents, reader.ReadToEnd, testname & "-5") Assert.AreEqual(System.Text.Encoding.UTF8.EncodingName, reader.CurrentEncoding.EncodingName, testname & "-6") End Using End Sub _ Public Sub OpenTextFileWriterTest2() Dim testname As String = "OpenTextFileWriterTest2" Dim dir As String = Path.Combine(BASEDIR, testname) Dim a As String = Path.Combine(dir, "a.txt") FS.CreateDirectory(dir) Dim contents As String Dim wrongContents As String contents = "Line1" & vbNewLine & "Line2" & vbNewLine & "`-192" & vbNewLine wrongContents = "Line1" & vbNewLine & "Line2" & vbNewLine & "??`-?192" & vbNewLine Using writer As StreamWriter = FS.OpenTextFileWriter(a, False, System.Text.Encoding.ASCII) writer.Write(contents) End Using Using reader As StreamReader = FS.OpenTextFileReader(a, System.Text.Encoding.ASCII) Assert.AreEqual(System.Text.Encoding.ASCII.EncodingName, reader.CurrentEncoding.EncodingName, testname & "-1") Assert.AreEqual(contents, reader.ReadToEnd, testname & "-2") Assert.AreEqual(System.Text.Encoding.ASCII.EncodingName, reader.CurrentEncoding.EncodingName, testname & "-3") End Using Using writer As StreamWriter = FS.OpenTextFileWriter(a, True, System.Text.Encoding.ASCII) writer.Write(contents) End Using wrongContents &= wrongContents Using reader As StreamReader = FS.OpenTextFileReader(a, System.Text.Encoding.ASCII) Assert.AreEqual(System.Text.Encoding.ASCII.EncodingName, reader.CurrentEncoding.EncodingName, testname & "-4") Assert.AreEqual(contents & contents, reader.ReadToEnd, testname & "-5") Assert.AreEqual(System.Text.Encoding.ASCII.EncodingName, reader.CurrentEncoding.EncodingName, testname & "-6") End Using End Sub _ Public Sub ReadAllBytesTest1() Dim testname As String = "ReadAllBytesTest1" Dim dir As String = Path.Combine(BASEDIR, testname) Dim a As String = Path.Combine(dir, "a.txt") FS.CreateDirectory(dir) Dim contents As String Dim wrongContents As String contents = "Line1" & vbNewLine & "Line2" & vbNewLine & "`-192" & vbNewLine wrongContents = "Line1" & vbNewLine & "Line2" & vbNewLine & "??`-?192" & vbNewLine Using writer As StreamWriter = FS.OpenTextFileWriter(a, False, System.Text.Encoding.ASCII) writer.Write(contents) End Using Dim bytes() As Byte bytes = FS.ReadAllBytes(a) Assert.AreEqual(contents, System.Text.Encoding.ASCII.GetString(bytes), testname & "-1") End Sub _ Public Sub ReadAllTextTest1() Dim testname As String = "ReadAllTextTest1" Dim dir As String = Path.Combine(BASEDIR, testname) Dim a As String = Path.Combine(dir, "a.txt") FS.CreateDirectory(dir) Dim contents As String Dim wrongContents As String contents = "Line1" & vbNewLine & "Line2" & vbNewLine & "`-192" & vbNewLine wrongContents = "Line1" & vbNewLine & "Line2" & vbNewLine & "??`-?192" & vbNewLine Using writer As StreamWriter = FS.OpenTextFileWriter(a, False, System.Text.Encoding.ASCII) writer.Write(contents) End Using Dim result As String result = FS.ReadAllText(a) Assert.AreEqual(contents, contents, testname & "-1") End Sub _ Public Sub RenameDirectoryTest1() Dim testname As String = "RenameDirectoryTest1" Dim dir As String = Path.Combine(BASEDIR, testname) Dim dirb As String = Path.Combine(BASEDIR, testname & "-new") Dim a As String = Path.Combine(dir, "a.txt") FS.CreateDirectory(dir) FS.RenameDirectory(dir, testname & "-new") Assert.AreEqual(False, FS.DirectoryExists(dir), testname & "-1") Assert.AreEqual(True, FS.DirectoryExists(dirb), testname & "-2") End Sub _ Public Sub RenameFileTest1() Dim testname As String = "RenameFileTest1" Dim dir As String = Path.Combine(BASEDIR, testname) Dim b As String = Path.Combine(dir, "b.txt") Dim a As String = Path.Combine(dir, "a.txt") FS.CreateDirectory(dir) CreateFile(a, 1) FS.RenameFile(a, "b.txt") Assert.AreEqual(False, FS.FileExists(a), testname & "-1") Assert.AreEqual(True, FS.FileExists(b), testname & "-2") End Sub _ Public Sub ReadAllTextTest2() Dim testname As String = "ReadAllTextTest2" Dim dir As String = Path.Combine(BASEDIR, testname) Dim a As String = Path.Combine(dir, "a.txt") FS.CreateDirectory(dir) Dim contents As String Dim wrongContents As String contents = "Line1" & vbNewLine & "Line2" & vbNewLine & "`-192" & vbNewLine wrongContents = "Line1" & vbNewLine & "Line2" & vbNewLine & "??`-?192" & vbNewLine Using writer As StreamWriter = FS.OpenTextFileWriter(a, False, System.Text.Encoding.ASCII) writer.Write(contents) End Using Dim result As String result = FS.ReadAllText(a, System.Text.Encoding.ASCII) Assert.AreEqual(contents, contents, testname & "-1") result = FS.ReadAllText(a, System.Text.Encoding.UTF8) Assert.AreEqual(contents, contents, testname & "-2") End Sub _ Public Sub WriteAllBytesTest1() Dim testname As String = "WriteAllBytesTest1" Dim dir As String = Path.Combine(BASEDIR, testname) Dim a As String = Path.Combine(dir, "a.txt") FS.CreateDirectory(dir) Dim contents As String contents = "Line1" & vbNewLine & "Line2" & vbNewLine & "`-192" & vbNewLine Dim bytes(), bytesb() As Byte bytes = System.Text.Encoding.BigEndianUnicode.GetBytes(contents) FS.WriteAllBytes(a, bytes, False) bytesb = FS.ReadAllBytes(a) Helper.CompareBytes(bytes, bytesb, testname & "-1") FS.WriteAllBytes(a, bytes, True) bytesb = FS.ReadAllBytes(a) bytes = System.Text.Encoding.BigEndianUnicode.GetBytes(contents & contents) Helper.CompareBytes(bytes, bytesb, testname & "-2") End Sub _ Public Sub WriteAllTextTest1() Dim testname As String = "WriteAllTextTest1" Dim dir As String = Path.Combine(BASEDIR, testname) Dim a As String = Path.Combine(dir, "a.txt") FS.CreateDirectory(dir) Dim contents As String Dim wrongContents As String Dim result As String contents = "Line1" & vbNewLine & "Line2" & vbNewLine & "`-192" & vbNewLine wrongContents = "Line1" & vbNewLine & "Line2" & vbNewLine & "??`-?192" & vbNewLine FS.WriteAllText(a, contents, False) result = FS.ReadAllText(a) Assert.AreEqual(contents, result, testname & "-1") FS.WriteAllText(a, contents, True) result = FS.ReadAllText(a) Assert.AreEqual(contents & contents, result, testname & "-2") End Sub _ Public Sub WriteAllTextTest2() Dim testname As String = "WriteAllTextTest2" Dim dir As String = Path.Combine(BASEDIR, testname) Dim a As String = Path.Combine(dir, "a.txt") FS.CreateDirectory(dir) Dim contents As String Dim wrongContents As String Dim result As String contents = "Line1" & vbNewLine & "Line2" & vbNewLine & "`-192" & vbNewLine wrongContents = "Line1" & vbNewLine & "Line2" & vbNewLine & "??`-?192" & vbNewLine FS.WriteAllText(a, contents, False, System.Text.Encoding.BigEndianUnicode) result = FS.ReadAllText(a) Assert.AreEqual(contents, result, testname & "-1") FS.WriteAllText(a, contents, True, System.Text.Encoding.BigEndianUnicode) result = FS.ReadAllText(a) Assert.AreEqual(contents & contents, result, testname & "-2") End Sub #Region "Helper functions" Private Sub MsgBox(ByVal Message As String, Optional ByVal Style As Microsoft.VisualBasic.MsgBoxStyle = Microsoft.VisualBasic.MsgBoxStyle.OkOnly Or Microsoft.VisualBasic.MsgBoxStyle.Information) #If Not TARGET_JVM Then Microsoft.VisualBasic.Interaction.MsgBox(Message, Style Or Microsoft.VisualBasic.MsgBoxStyle.SystemModal) #End If End Sub Private Sub CreateFile(ByVal Name As String, ByVal Size As Integer) Dim buffer(1023) As Byte Dim written As Integer Using writer As New IO.FileStream(Name, FileMode.Create, FileAccess.Write, FileShare.Read) Do Until written >= Size Dim write As Integer write = Math.Min(1024, Size - written) If write = 0 Then Exit Do writer.Write(buffer, 0, write) written += write Loop End Using 'Console.WriteLine("Written " & written & " bytes to " & Name) End Sub Private Sub CreateComplicatedFileHierarchy(ByVal BasePath As String, ByVal anyBigFiles As Boolean, Optional ByVal contents As Byte() = Nothing) 'Create some directories Dim a, b, c, d, e, f, g, h, i, j As String a = Path.Combine(BasePath, "a") b = Path.Combine(a, "b") c = Path.Combine(b, "c") d = Path.Combine(b, "d") e = Path.Combine(a, "e") f = Path.Combine(b, "f") g = Path.Combine(e, "g") h = Path.Combine(d, "h") i = Path.Combine(g, "i") j = Path.Combine(BasePath, "j") FS.CreateDirectory(a) FS.CreateDirectory(b) FS.CreateDirectory(c) FS.CreateDirectory(d) FS.CreateDirectory(e) FS.CreateDirectory(f) FS.CreateDirectory(g) FS.CreateDirectory(h) FS.CreateDirectory(i) FS.CreateDirectory(j) 'Create some small files Dim aa, bb, cc, dd, ee, ff, gg, hh, ii, jj, kk, ll, mm As String aa = Path.Combine(a, "aa") bb = Path.Combine(a, "bb") cc = Path.Combine(a, "cc") dd = Path.Combine(c, "dd") ee = Path.Combine(e, "ee") ff = Path.Combine(e, "ff") gg = Path.Combine(e, "gg") hh = Path.Combine(i, "hh") ii = Path.Combine(f, "ii") jj = Path.Combine(f, "jj") kk = Path.Combine(f, "kk") ll = Path.Combine(i, "ll") mm = Path.Combine(BasePath, "mm") If contents Is Nothing Then FS.WriteAllBytes(aa, System.Text.Encoding.UTF32.GetBytes(aa), False) FS.WriteAllBytes(bb, System.Text.Encoding.UTF32.GetBytes(bb), False) FS.WriteAllBytes(cc, System.Text.Encoding.UTF32.GetBytes(cc), False) FS.WriteAllBytes(dd, System.Text.Encoding.UTF32.GetBytes(dd), False) FS.WriteAllBytes(ee, System.Text.Encoding.UTF32.GetBytes(ee), False) FS.WriteAllBytes(ff, System.Text.Encoding.UTF32.GetBytes(ff), False) FS.WriteAllBytes(gg, System.Text.Encoding.UTF32.GetBytes(gg), False) FS.WriteAllBytes(hh, System.Text.Encoding.UTF32.GetBytes(hh), False) FS.WriteAllBytes(ii, System.Text.Encoding.UTF32.GetBytes(ii), False) FS.WriteAllBytes(jj, System.Text.Encoding.UTF32.GetBytes(jj), False) FS.WriteAllBytes(kk, System.Text.Encoding.UTF32.GetBytes(kk), False) FS.WriteAllBytes(ll, System.Text.Encoding.UTF32.GetBytes(ll), False) FS.WriteAllBytes(mm, System.Text.Encoding.UTF32.GetBytes(mm), False) If anyBigFiles Then Dim xx, yy, zz As String zz = Path.Combine(BasePath, "zz") yy = Path.Combine(a, "yy") xx = Path.Combine(d, "xx") FS.WriteAllText(zz, CreateBigString(zz, 1024), False) FS.WriteAllText(zz, CreateBigString(zz, 1024 * 64), False) FS.WriteAllText(zz, CreateBigString(zz, 1024 * 256), False) End If Else FS.WriteAllBytes(aa, contents, False) FS.WriteAllBytes(bb, contents, False) FS.WriteAllBytes(cc, contents, False) FS.WriteAllBytes(dd, contents, False) FS.WriteAllBytes(ee, contents, False) FS.WriteAllBytes(ff, contents, False) FS.WriteAllBytes(gg, contents, False) FS.WriteAllBytes(hh, contents, False) FS.WriteAllBytes(ii, contents, False) FS.WriteAllBytes(jj, contents, False) FS.WriteAllBytes(kk, contents, False) FS.WriteAllBytes(ll, contents, False) FS.WriteAllBytes(mm, contents, False) If anyBigFiles Then Dim xx, yy, zz As String zz = Path.Combine(BasePath, "zz") yy = Path.Combine(a, "yy") xx = Path.Combine(d, "xx") FS.WriteAllText(zz, CreateBigString(System.Text.Encoding.ASCII.GetString(contents), 1024), False) FS.WriteAllText(zz, CreateBigString(System.Text.Encoding.ASCII.GetString(contents), 1024 * 64), False) FS.WriteAllText(zz, CreateBigString(System.Text.Encoding.ASCII.GetString(contents), 1024 * 256), False) End If End If End Sub Private Shared Function AsString(ByVal i As IDictionary) As String Dim result As String = "" For Each key As Object In i.Keys result &= key.ToString() & "=" & i.Item(key).ToString & vbNewLine Next Return result End Function Private Function CreateBigString(ByVal base As String, ByVal repeats As Integer) As String Dim builder As New System.Text.StringBuilder builder.Capacity = base.Length * repeats + 1 For i As Integer = 1 To repeats builder.Append(base) Next Return builder.ToString End Function Private Function StripBS(ByVal path As String) As String Return path.TrimEnd(System.IO.Path.DirectorySeparatorChar, System.IO.Path.AltDirectorySeparatorChar) End Function #End Region End Class End Namespace #End Ifmono-basic-2.4.2/vbruntime/Test/Microsoft.VisualBasic.FileIO/SpecialDirectoriesTest.cs0000644000175000001440000000631311213247531030272 0ustar builderusers// SpecialDirectoriesTest.cs - NUnit Test Cases for Microsoft.VisualBasic.FileUI.SpecialDirectories // // Rolf Bjarne Kvinge (RKvinge@novell.com) // // // Copyright (C) 2007 Novell, Inc (http://www.novell.com) // // Permission is hereby granted, free of charge, to any person obtaining // a copy of this software and associated documentation files (the // "Software"), to deal in the Software without restriction, including // without limitation the rights to use, copy, modify, merge, publish, // distribute, sublicense, and/or sell copies of the Software, and to // permit persons to whom the Software is furnished to do so, subject to // the following conditions: // // The above copyright notice and this permission notice shall be // included in all copies or substantial portions of the Software. // // THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, // EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF // MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND // NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE // LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION // OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION // WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. // #if NET_2_0 using System; using System.Collections.Generic; using System.Text; using System.IO; using NUnit.Framework; using Microsoft.VisualBasic.FileIO; namespace MonoTests.Microsoft_VisualBasic.FileIO { [TestFixture] public class SpecialDirectoriesTest { #if !TARGET_JVM [Category ("TargetJvmNotSupported")]//System.Windows.Forms.Application, ServerComputer.FileSystem property [Test] public void PathTest() { Assert.AreEqual (FixPath (System.Windows.Forms.Application.CommonAppDataPath), SpecialDirectories.AllUsersApplicationData, "AllUserApplicationData"); Assert.AreEqual (FixPath (System.Windows.Forms.Application.UserAppDataPath), SpecialDirectories.CurrentUserApplicationData, "CurrentUserApplicationData"); Assert.AreEqual (FixPath (Environment.GetFolderPath (Environment.SpecialFolder.Desktop)), SpecialDirectories.Desktop, "Desktop"); Assert.AreEqual (FixPath (Environment.GetFolderPath (Environment.SpecialFolder.MyDocuments)), SpecialDirectories.MyDocuments, "MyDocuments"); Assert.AreEqual (FixPath (Environment.GetFolderPath (Environment.SpecialFolder.MyMusic)), SpecialDirectories.MyMusic, "MyMusic"); Assert.AreEqual (FixPath (Environment.GetFolderPath (Environment.SpecialFolder.MyPictures)), SpecialDirectories.MyPictures, "MyPictures"); Assert.AreEqual (FixPath (Environment.GetFolderPath (Environment.SpecialFolder.ProgramFiles)), SpecialDirectories.ProgramFiles, "ProgramFiles"); Assert.AreEqual (FixPath (Environment.GetFolderPath (Environment.SpecialFolder.Programs)), SpecialDirectories.Programs, "Programs"); Assert.AreEqual (FixPath (System.IO.Path.GetTempPath ()), SpecialDirectories.Temp, "Temp"); } #endif string FixPath (string path) { // For some reason VB may return paths with \\ in them instead of just \. // So fix them so that the tests run correctly on MS runtime. return path.Replace (@"\\", @"\").TrimEnd (Path.DirectorySeparatorChar, Path.AltDirectorySeparatorChar); } } } #endifmono-basic-2.4.2/vbruntime/Test/Microsoft.VisualBasic.FileIO/TextFieldParserTest.cs0000644000175000001440000004453111213247531027566 0ustar builderusers// TextFieldParserTest.cs - NUnit Test Cases for Microsoft.VisualBasic.FileIO.TextFieldParser // // Rolf Bjarne Kvinge (RKvinge@novell.com) // // // Copyright (C) 2007 Novell, Inc (http://www.novell.com) // // Permission is hereby granted, free of charge, to any person obtaining // a copy of this software and associated documentation files (the // "Software"), to deal in the Software without restriction, including // without limitation the rights to use, copy, modify, merge, publish, // distribute, sublicense, and/or sell copies of the Software, and to // permit persons to whom the Software is furnished to do so, subject to // the following conditions: // // The above copyright notice and this permission notice shall be // included in all copies or substantial portions of the Software. // // THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, // EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF // MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND // NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE // LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION // OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION // WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. // #if NET_2_0 using System; using System.Collections.Generic; using System.Text; using NUnit.Framework; using Microsoft.VisualBasic.FileIO; using Microsoft.VisualBasic; using System.IO; namespace MonoTests.Microsoft_VisualBasic.FileIO { [TestFixture] public class TextFieldParserTest { [Test] public void CloseTest () { TextFieldParser t = new TextFieldParser (new System.IO.MemoryStream()); t.Close (); t.Close (); } [Test] public void DelimitedTest1 () { string [] delimiters; string text; delimiters = new string [] {";"}; text = "a;bb;ccc;dddd" + Constants.vbNewLine + "111;22;3"; using (StringReader reader = new StringReader (text)) using (TextFieldParser t = new TextFieldParser (reader)) { t.SetDelimiters (delimiters); t.TextFieldType = FieldType.Delimited; Assert.AreEqual ("a:bb:ccc:dddd", Strings.Join (t.ReadFields (), ":"), "#A1"); Assert.AreEqual ("111:22:3", Strings.Join (t.ReadFields (), ":"), "#A2"); Assert.AreEqual (null, Strings.Join (t.ReadFields (), ":"), "#A3"); } delimiters = new string [] { ";" }; text = "a;bb;ccc;dddd" + Constants.vbNewLine + "111;22;3"; using (StringReader reader = new StringReader (text)) using (TextFieldParser t = new TextFieldParser (reader)) { t.SetDelimiters (delimiters); t.TextFieldType = FieldType.Delimited; t.HasFieldsEnclosedInQuotes = true; Assert.AreEqual ("a:bb:ccc:dddd", Strings.Join (t.ReadFields (), ":"), "#B1"); Assert.AreEqual ("111:22:3", Strings.Join (t.ReadFields (), ":"), "#B2"); Assert.AreEqual (null, Strings.Join (t.ReadFields (), ":"), "#B3"); } delimiters = new string [] { ";" }; text = "a;bb;ccc;dddd" + Constants.vbNewLine + "\"111;22\";\"3\""; using (StringReader reader = new StringReader (text)) using (TextFieldParser t = new TextFieldParser (reader)) { t.SetDelimiters (delimiters); t.TextFieldType = FieldType.Delimited; t.HasFieldsEnclosedInQuotes = true; Assert.AreEqual ("a:bb:ccc:dddd", Strings.Join (t.ReadFields (), ":"), "#C1"); Assert.AreEqual ("111;22:3", Strings.Join (t.ReadFields (), ":"), "#C2"); Assert.AreEqual (null, Strings.Join (t.ReadFields (), ":"), "#C3"); } delimiters = new string [] { ";" }; text = "\""; using (StringReader reader = new StringReader (text)) using (TextFieldParser t = new TextFieldParser (reader)) { t.SetDelimiters (delimiters); t.TextFieldType = FieldType.Delimited; t.HasFieldsEnclosedInQuotes = true; try { t.ReadFields (); Assert.Fail ("#Dx1 - Expected MalformedLineException"); } catch (MalformedLineException ex) { Assert.AreEqual ("Line 1 cannot be parsed using the current Delimiters.", ex.Message, "#Dx2"); } catch (Exception ex) { Helper.RemoveWarning (ex); Assert.Fail ("#Dx3 - Expected MalformedLineException"); } } delimiters = new string [] { "a", "bb"}; text = "a;bb;ccc;dddd" + Constants.vbNewLine + "\"111;22\";\"3\""; using (StringReader reader = new StringReader (text)) using (TextFieldParser t = new TextFieldParser (reader)) { t.SetDelimiters (delimiters); t.TextFieldType = FieldType.Delimited; t.HasFieldsEnclosedInQuotes = true; Assert.AreEqual ("?;?;ccc;dddd", Strings.Join (t.ReadFields (), "?"), "#E1"); try { t.ReadFields (); Assert.Fail ("#Ex1 - Expected MalformedLineException"); } catch (MalformedLineException ex) { Assert.AreEqual ("Line 2 cannot be parsed using the current Delimiters.", ex.Message, "#Ex2"); } catch (Exception ex) { Helper.RemoveWarning (ex); Assert.Fail ("#Ex3 - Expected MalformedLineException"); } } delimiters = new string [] { ";" }; text = "a\"b\"c"; using (StringReader reader = new StringReader (text)) using (TextFieldParser t = new TextFieldParser (reader)) { t.SetDelimiters (delimiters); t.TextFieldType = FieldType.Delimited; t.HasFieldsEnclosedInQuotes = true; Assert.AreEqual ("a\"b\"c", Strings.Join (t.ReadFields (), "?"), "#F1"); } delimiters = new string [] { "a", "aa", "aaa" }; text = "a"; using (StringReader reader = new StringReader (text)) using (TextFieldParser t = new TextFieldParser (reader)) { t.SetDelimiters (delimiters); t.TextFieldType = FieldType.Delimited; Assert.AreEqual ("?", Strings.Join (t.ReadFields (), "?"), "#G1"); } delimiters = new string [] { "aa", "a", "aaa" }; text = "aaaaaaaaa"; using (StringReader reader = new StringReader (text)) using (TextFieldParser t = new TextFieldParser (reader)) { t.SetDelimiters (delimiters); t.TextFieldType = FieldType.Delimited; Assert.AreEqual ("?????", Strings.Join (t.ReadFields (), "?"), "#H1"); } delimiters = new string [] { ";" }; text = "\""; using (StringReader reader = new StringReader (text)) using (TextFieldParser t = new TextFieldParser (reader)) { t.SetDelimiters (delimiters); t.TextFieldType = FieldType.Delimited; t.HasFieldsEnclosedInQuotes = true; try { t.ReadFields (); Assert.Fail ("#Ix1 - Expected MalformedLineException"); } catch (MalformedLineException ex) { Assert.AreEqual ("Line 1 cannot be parsed using the current Delimiters.", ex.Message, "#Ix2"); } catch (Exception ex) { Helper.RemoveWarning (ex); Assert.Fail ("#Ix3 - Expected MalformedLineException"); } } delimiters = new string [] { ";" }; text = "\"a"; using (StringReader reader = new StringReader (text)) using (TextFieldParser t = new TextFieldParser (reader)) { t.SetDelimiters (delimiters); t.TextFieldType = FieldType.Delimited; t.HasFieldsEnclosedInQuotes = true; try { t.ReadFields (); Assert.Fail ("#Jx1 - Expected MalformedLineException"); } catch (MalformedLineException ex) { Assert.AreEqual ("Line 1 cannot be parsed using the current Delimiters.", ex.Message, "#Jx2"); } catch (Exception ex) { Helper.RemoveWarning (ex); Assert.Fail ("#Jx3 - Expected MalformedLineException"); } } delimiters = new string [] { "aa", "a", "aaa" }; text = "\"aaaaaaaaa\""; using (StringReader reader = new StringReader (text)) using (TextFieldParser t = new TextFieldParser (reader)) { t.SetDelimiters (delimiters); t.TextFieldType = FieldType.Delimited; t.HasFieldsEnclosedInQuotes = true; Assert.AreEqual ("aaaaaaaaa", Strings.Join (t.ReadFields (), "?"), "#K1"); } delimiters = new string [] { "aa", "a", "aaa" }; text = "aba"; using (StringReader reader = new StringReader (text)) using (TextFieldParser t = new TextFieldParser (reader)) { t.SetDelimiters (delimiters); t.TextFieldType = FieldType.Delimited; t.HasFieldsEnclosedInQuotes = true; Assert.AreEqual ("?b?", Strings.Join (t.ReadFields (), "?"), "#L1"); } } [Test] public void FixedTest1 () { using (StringReader reader = new StringReader ("abcdef" + Constants.vbNewLine + "1234" + Constants.vbNewLine + "ghijklmno" + Constants.vbNewLine)) using (TextFieldParser t = new TextFieldParser (reader)) { t.SetFieldWidths (new int [] {1, 3, 2}); t.TextFieldType = FieldType.FixedWidth; Assert.AreEqual ("a;bcd;ef", Strings.Join (t.ReadFields (), ";"), "#01"); try { Assert.AreEqual ("1;234", Strings.Join (t.ReadFields (), ";"), "#02"); Assert.Fail ("#E3 - Expected 'MalformedLineException'"); } catch (MalformedLineException ex) { Assert.AreEqual ("Line 2 cannot be parsed using the current FieldWidths.", ex.Message, "#E1"); Assert.AreEqual (2, ex.LineNumber, "#E2"); } catch (Exception ex) { Helper.RemoveWarning (ex); Assert.Fail ("#E4 - Expected 'MalformedLineException'"); } Assert.AreEqual ("g;hij;kl", Strings.Join (t.ReadFields (), ";"), "#03"); } using (StringReader reader = new StringReader ("abcdef" + Constants.vbNewLine + "1234" + Constants.vbNewLine + "ghijklmno" + Constants.vbNewLine)) using (TextFieldParser t = new TextFieldParser (reader)) { t.SetFieldWidths (new int [] {}); t.TextFieldType = FieldType.FixedWidth; try { Assert.AreEqual ("a;bcd;ef", Strings.Join (t.ReadFields (), ";"), "#11"); Assert.Fail ("#E12 - Expected 'InvalidOperationException'"); } catch (InvalidOperationException ex) { Assert.AreEqual ("Unable to read fixed width fields because FieldWidths is Nothing or empty.", ex.Message, "#E11"); } catch (Exception ex) { Helper.RemoveWarning (ex); Assert.Fail ("#E13 - Expected 'InvalidOperationException'"); } } using (StringReader reader = new StringReader (" bcdef" + Constants.vbNewLine + "1 234" + Constants.vbNewLine + "gh klmno" + Constants.vbNewLine)) using (TextFieldParser t = new TextFieldParser (reader)) { t.SetFieldWidths (new int [] { 1, 3, 2 }); t.TextFieldType = FieldType.FixedWidth; Assert.AreEqual (";bcd;ef", Strings.Join (t.ReadFields (), ";"), "#21"); try { Assert.AreEqual ("1;234", Strings.Join (t.ReadFields (), ";"), "#22"); Assert.Fail ("#E23 - Expected 'MalformedLineException'"); } catch (MalformedLineException ex) { Assert.AreEqual ("Line 2 cannot be parsed using the current FieldWidths.", ex.Message, "#E21"); Assert.AreEqual (2, ex.LineNumber, "#E22"); } catch (Exception ex) { Helper.RemoveWarning (ex); Assert.Fail ("#E24 - Expected 'MalformedLineException'"); } Assert.AreEqual ("g;h k;lm", Strings.Join (t.ReadFields (), ";"), "#23"); } } [Test] public void SetFieldWidhtsTest () { using (StringReader reader = new StringReader ("abcd" + Constants.vbNewLine + "efgh" + Constants.vbNewLine)) using (TextFieldParser t = new TextFieldParser (reader)) { t.TextFieldType = FieldType.Delimited; t.SetFieldWidths (new int [] { 1, 3, 2 }); Assert.AreEqual ("1;3;2", Helper.Join (t.FieldWidths, ";"), "#01"); Assert.AreEqual (FieldType.Delimited, t.TextFieldType, "#02"); } } [Test] public void SetDelimitersTest () { using (StringReader reader = new StringReader ("abcd" + Constants.vbNewLine + "efgh" + Constants.vbNewLine)) using (TextFieldParser t = new TextFieldParser (reader)) { t.TextFieldType = FieldType.FixedWidth; t.SetDelimiters (";", ":"); Assert.AreEqual (";?:", Helper.Join (t.Delimiters, "?"), "#01"); Assert.AreEqual (FieldType.FixedWidth, t.TextFieldType, "#02"); } } [Test] public void PeekTest () { using (StringReader reader = new StringReader ("abcd" + Constants.vbNewLine + "efgh" + Constants.vbNewLine + "'comment" + Constants.vbNewLine + "after comment" + Constants.vbNewLine)) using (TextFieldParser t = new TextFieldParser (reader)) { Assert.AreEqual ("a", t.PeekChars (1), "#01"); Assert.AreEqual ("a", t.PeekChars (1), "#02"); Assert.AreEqual ("ab", t.PeekChars (2), "#03"); Assert.AreEqual ("abcd", t.PeekChars (10), "#04"); Assert.AreEqual ("abcd", t.ReadLine (), "#05"); Assert.AreEqual ("ef", t.PeekChars (2), "#06"); try { t.PeekChars (0); } catch (ArgumentException ex){ Helper.RemoveWarning (ex); } catch (Exception ex) { Helper.RemoveWarning (ex); Assert.Fail ("#07 - Expected 'ArgumentException'"); } try { t.PeekChars (-1); } catch (ArgumentException ex) { Helper.RemoveWarning (ex); } catch (Exception ex) { Helper.RemoveWarning (ex); Assert.Fail ("#08 - Expected 'ArgumentException'"); } Assert.AreEqual ("efgh", t.PeekChars (10), "#09"); Assert.AreEqual ("efgh", t.ReadLine (), "#10"); t.CommentTokens = new string [] {"'"}; Assert.AreEqual ("afte", t.PeekChars (4), "#11"); Assert.AreEqual ("'comment", t.ReadLine (), "#12"); Assert.AreEqual ("af", t.PeekChars (2), "#13"); Assert.AreEqual ("after comment", t.ReadLine (), "#14"); } } [Test] public void DefaultPropertiesTest () { using (StringReader reader = new StringReader (String.Empty)) using (TextFieldParser t = new TextFieldParser (reader)) { Assert.IsNotNull (t.CommentTokens, "#C1"); Assert.AreEqual (null, Strings.Join(t.CommentTokens, ";"), "#C2"); Assert.IsNull (t.Delimiters, "#D1"); Assert.IsTrue (t.EndOfData, "#E1"); Assert.AreEqual ("", t.ErrorLine, "#E2"); Assert.AreEqual (-1, t.ErrorLineNumber, "#E3"); Assert.IsNull (t.FieldWidths, "#F1"); Assert.AreEqual (true, t.HasFieldsEnclosedInQuotes, "#H1"); Assert.AreEqual (-1, t.LineNumber, "#L1"); Assert.AreEqual (FieldType.Delimited, t.TextFieldType, "#T1"); Assert.AreEqual (true, t.TrimWhiteSpace, "#T2"); } } [Test] public void CtorTest1 () { using (StringReader reader = new StringReader (String.Empty)) using (TextFieldParser t = new TextFieldParser (reader)) { Assert.AreEqual (string.Empty, t.ReadToEnd (), "#A1"); } using (StringReader reader = new StringReader ("abc")) using (TextFieldParser t = new TextFieldParser (reader)) { Assert.AreEqual ("abc", t.ReadToEnd (), "#A2"); } using (MemoryStream reader = new System.IO.MemoryStream (Encoding.ASCII.GetBytes("abc"))) using (TextFieldParser t = new TextFieldParser (reader, Encoding.ASCII)) { Assert.AreEqual ("abc", t.ReadToEnd (), "#A3"); } using (MemoryStream reader = new System.IO.MemoryStream (Encoding.ASCII.GetBytes ("abc"))) using (TextFieldParser t = new TextFieldParser (reader, Encoding.Unicode)) { Assert.IsTrue ("abc" != t.ReadToEnd (), "#A4"); } using (MemoryStream reader = new System.IO.MemoryStream (Encoding.ASCII.GetBytes ("abc"))) using (TextFieldParser t = new TextFieldParser (reader, Encoding.Unicode, true)) { Assert.IsTrue ("abc" != t.ReadToEnd (), "#A5"); } using (MemoryStream reader = new System.IO.MemoryStream (Encoding.Unicode.GetBytes ("abc"))) using (TextFieldParser t = new TextFieldParser (reader, Encoding.ASCII, true)) { Assert.IsTrue ("abc" != t.ReadToEnd (), "#A6"); } // Unicode string with bom using (MemoryStream reader = new System.IO.MemoryStream (new byte [] {0xFF, 0xFE, 0x61, 0, 0x62, 0, 0x63, 0})) using (TextFieldParser t = new TextFieldParser (reader, Encoding.ASCII, true)) { Assert.AreEqual ("abc", t.ReadToEnd (), "#A7"); } // UTF8 string with bom using (MemoryStream reader = new System.IO.MemoryStream (new byte [] { 0xEF, 0xBB, 0xBF, 0x61, 0x62, 0x63 })) using (TextFieldParser t = new TextFieldParser (reader, Encoding.ASCII, true)) { Assert.AreEqual ("abc", t.ReadToEnd (), "#A8"); } try { using (StringReader reader = new StringReader ("abc")) { using (TextFieldParser t = new TextFieldParser (reader)) { Assert.AreEqual ("abc", t.ReadToEnd (), "#A9"); } reader.ReadToEnd (); } Assert.Fail ("Excepted 'ObjectDisposedException'"); } catch (ObjectDisposedException ex) { Helper.RemoveWarning (ex); } catch (Exception ex) { Helper.RemoveWarning (ex); Assert.Fail("Excepted 'ObjectDisposedException'"); } using (MemoryStream reader = new System.IO.MemoryStream (new byte [] { 0xEF, 0xBB, 0xBF, 0x61, 0x62, 0x63 })) { using (TextFieldParser t = new TextFieldParser (reader, Encoding.UTF8, true, true)) { Assert.AreEqual ("abc", t.ReadToEnd (), "#A10"); } reader.ReadByte (); } using (MemoryStream reader = new System.IO.MemoryStream (Encoding.UTF8.GetBytes ("abc"))) using (TextFieldParser t = new TextFieldParser (reader)) { Assert.AreEqual ("abc", t.ReadToEnd (), "#A11"); } string tmpfile; tmpfile = System.IO.Path.GetTempFileName (); try { Microsoft.VisualBasic.FileIO.FileSystem.WriteAllText (tmpfile, "abc", false); using (TextFieldParser t = new TextFieldParser (tmpfile)) { Assert.AreEqual ("abc", t.ReadToEnd (), "#B01"); } } finally { System.IO.File.Delete (tmpfile); } tmpfile = System.IO.Path.GetTempFileName (); try { Microsoft.VisualBasic.FileIO.FileSystem.WriteAllText (tmpfile, "abc", false); using (TextFieldParser t = new TextFieldParser (tmpfile, Encoding.ASCII)) { Assert.AreEqual ("abc", t.ReadToEnd (), "#B02"); } } finally { System.IO.File.Delete (tmpfile); } tmpfile = System.IO.Path.GetTempFileName (); try { Microsoft.VisualBasic.FileIO.FileSystem.WriteAllBytes (tmpfile, new byte [] {0xFF, 0xFE, 0x61, 0, 0x62, 0, 0x63, 0}, false); using (TextFieldParser t = new TextFieldParser (tmpfile, Encoding.Unicode)) { Assert.AreEqual ("abc", t.ReadToEnd (), "#B03"); } } finally { System.IO.File.Delete (tmpfile); } tmpfile = System.IO.Path.GetTempFileName (); try { Microsoft.VisualBasic.FileIO.FileSystem.WriteAllBytes (tmpfile, new byte [] { 0xFF, 0xFE, 0x61, 0, 0x62, 0, 0x63, 0 }, false); using (TextFieldParser t = new TextFieldParser (tmpfile, Encoding.UTF8, true)) { Assert.AreEqual ("abc", t.ReadToEnd (), "#B04"); } } finally { System.IO.File.Delete (tmpfile); } tmpfile = System.IO.Path.GetTempFileName (); try { Microsoft.VisualBasic.FileIO.FileSystem.WriteAllBytes (tmpfile, new byte [] { 0x61, 0x62, 0x63}, false); using (TextFieldParser t = new TextFieldParser (tmpfile, Encoding.UTF8, false)) { Assert.AreEqual ("abc", t.ReadToEnd (), "#B04"); } } finally { System.IO.File.Delete (tmpfile); } } } } #endifmono-basic-2.4.2/vbruntime/Test/Makefile0000644000175000001440000000637311213247537017523 0ustar builderusers thisdir = vbruntime/Test SUBDIRS = include ../../build/rules.make DISTFILES = \ 2005VB_test_CS.csproj \ 2005VB_test_CS.dll.rsp \ 2005VB_test_CS.dll.sources \ 2005VB_test_CS.dll.sources.win \ 2005VB_test_VB.dll.rsp \ 2005VB_test_VB.dll.sources \ 2005VB_test_VB.dll.sources.win \ 2005VB_test_VB.vbproj \ ChangeLog \ Make.cmd DISTFILES += $(wildcard *.vb) $(wildcard *.cs) $(wildcard */*.vb) $(wildcard */*.cs) DISTFILES += $(wildcard bin/*config) MONO_VB_PATH="../../class/lib/bootstrap$(PLATFORM_PATH_SEPARATOR)$$MONO_PATH" ifeq ("$(FXVERSION)", "") NUNIT_VERSION=2 else NUNIT_VERSION=$(FXVERSION) endif ifeq ("$(NUNIT_VERSION)", "1") CSCOMPILER=mcs CSDEFINES=-define:NET_1_0,NET_1_1 else CSCOMPILER=gmcs CSDEFINES=-define:NET_1_0,NET_1_1,NET_2_0 endif ifeq ($(PLATFORM), win32) WINTEST=-cmd /C Make.cmd 1_1; cmd /C Make.cmd 2_0 else WINTEST=-echo Linux environment. endif bin/nunit-console.exe: wget -O bin/nunit-console.exe http://anonsvn.mono-project.com/viewvc/trunk/mono-basic/vbruntime/Test/bin/nunit-console.exe?revision=76123 bin/nunit.framework.dll: wget -O bin/nunit.framework.dll http://anonsvn.mono-project.com/viewvc/trunk/mono-basic/vbruntime/Test/bin/nunit.framework.dll?revision=76123 bin/nunit.core.dll: wget -O bin/nunit.core.dll http://anonsvn.mono-project.com/viewvc/trunk/mono-basic/vbruntime/Test/bin/nunit.core.dll?revision=76123 bin/nunit.util.dll: wget -O bin/nunit.util.dll http://anonsvn.mono-project.com/viewvc/trunk/mono-basic/vbruntime/Test/bin/nunit.util.dll?revision=76123 init: bin/nunit-console.exe bin/nunit.framework.dll bin/nunit.core.dll bin/nunit.util.dll cp bin/nunit-console$(NUNIT_VERSION).exe.config bin/nunit-console.exe.config $(WINTEST) 2005VB_test_VB.dll.sources: 2005VB_test_VB.vbproj MONO_PATH=$(MONO_VB_PATH) mono ../../tools/extract-source/extract-source.exe -s:2005VB_test_VB.vbproj -d:2005VB_test_VB.dll.sources -m:l MONO_PATH=$(MONO_VB_PATH) mono ../../tools/extract-source/extract-source.exe -s:2005VB_test_VB.vbproj -d:2005VB_test_VB.dll.sources.win -m:w 2005VB_test_CS.dll.sources: 2005VB_test_CS.csproj MONO_PATH=$(MONO_VB_PATH) mono ../../tools/extract-source/extract-source.exe -s:2005VB_test_CS.csproj -d:2005VB_test_CS.dll.sources -m:l MONO_PATH=$(MONO_VB_PATH) mono ../../tools/extract-source/extract-source.exe -s:2005VB_test_CS.csproj -d:2005VB_test_CS.dll.sources.win -m:w test-first: cd ../Microsoft.VisualBasic && make && cp ../../class/lib/vbnc/Microsoft.VisualBasic.dll* ../Test/bin test-cs: test-first 2005VB_test_CS.dll.sources $(CSCOMPILER) "-out:bin/2005VB_test_CS.dll" @2005VB_test_CS.dll.rsp @2005VB_test_CS.dll.sources -lib:bin $(CSDEFINES) test-vb: test-first 2005VB_test_VB.dll.sources $(VBNC) -out:bin/2005VB_test_VB.dll @2005VB_test_VB.dll.rsp /d:NET_VER=2.0 @2005VB_test_VB.dll.sources /libpath:bin test-local: init run-test-cs run-test-vb clean-local: -rm -f bin/2005VB_test_VB.* -rm -f bin/2005VB_test_CS.* -rm -fR bin/data run-test-cs: test-cs -cd bin && mono --debug nunit-console.exe 2005VB_test_CS.dll /exclude:NotWorking /labels run-test-vb: test-vb -cd bin && mono --debug nunit-console.exe 2005VB_test_VB.dll /exclude:NotWorking /labels run-test-local: run-test-cs run-test-vb run-test-ondotnet-local all-local install-local uninstall-local: @: dist-local: dist-default mono-basic-2.4.2/vbruntime/Test/Microsoft.VisualBasic.Devices/0000755000175000001440000000000011213247566023606 5ustar builderusersmono-basic-2.4.2/vbruntime/Test/Microsoft.VisualBasic.Devices/ComputerInfoTests.vb0000644000175000001440000000460511213247532027572 0ustar builderusers' ComputerInfoTests.vb - NUnit Test Cases for Microsoft.VisualBasic.Devices.ComputerInfo ' ' Rolf Bjarne Kvinge (RKvinge@novell.com) ' ' ' Copyright (C) 2007 Novell, Inc (http://www.novell.com) ' ' Permission is hereby granted, free of charge, to any person obtaining ' a copy of this software and associated documentation files (the ' "Software"), to deal in the Software without restriction, including ' without limitation the rights to use, copy, modify, merge, publish, ' distribute, sublicense, and/or sell copies of the Software, and to ' permit persons to whom the Software is furnished to do so, subject to ' the following conditions: ' ' The above copyright notice and this permission notice shall be ' included in all copies or substantial portions of the Software. ' ' THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, ' EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF ' MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND ' NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE ' LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION ' OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION ' WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. #If NET_2_0 Then #If Not TARGET_JVM Then Imports Microsoft.VisualBasic.Devices 'Imports System.Windows.Forms Namespace Devices _ Public Class ComputerInfoTests _ _ _ Public Sub Test() Dim testname As String = "Test" Dim ci As New ComputerInfo() Assert.AreEqual(System.Globalization.CultureInfo.InstalledUICulture.Name, ci.InstalledUICulture.Name, testname & "-1") Assert.AreEqual(Environment.OSVersion.Platform.ToString, ci.OSFullName, testname & "-2") Assert.AreEqual(Environment.OSVersion.Platform.ToString, ci.OSPlatform, testname & "-3") Assert.AreEqual(Environment.OSVersion.Version.ToString, ci.OSVersion, testname & "-4") 'Assert.AreEqual(?, ci.AvailablePhysicalMemory, testname & "-5") 'Assert.AreEqual(?, ci.AvailableVirtualMemory, testname & "-6") 'Assert.AreEqual(?, ci.TotalPhysicalMemory, testname & "-7") 'Assert.AreEqual(?, ci.TotalVirtualMemory, testname & "-8") End Sub End Class End Namespace #End If #End Ifmono-basic-2.4.2/vbruntime/Test/Microsoft.VisualBasic.Devices/ServerComputerTests.vb0000644000175000001440000000375611213247532030153 0ustar builderusers' ServerComputerTests.vb - NUnit Test Cases for Microsoft.VisualBasic.Devices.ServerComputer ' ' Rolf Bjarne Kvinge (RKvinge@novell.com) ' ' ' Copyright (C) 2007 Novell, Inc (http://www.novell.com) ' ' Permission is hereby granted, free of charge, to any person obtaining ' a copy of this software and associated documentation files (the ' "Software"), to deal in the Software without restriction, including ' without limitation the rights to use, copy, modify, merge, publish, ' distribute, sublicense, and/or sell copies of the Software, and to ' permit persons to whom the Software is furnished to do so, subject to ' the following conditions: ' ' The above copyright notice and this permission notice shall be ' included in all copies or substantial portions of the Software. ' ' THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, ' EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF ' MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND ' NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE ' LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION ' OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION ' WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. #If NET_2_0 Then #If Not TARGET_JVM Then Imports Microsoft.VisualBasic.Devices Namespace Devices _ Public Class ServerComputerTests _ _ Public Sub Test() Dim testname As String = "Test" Dim sc As New ServerComputer Assert.IsNotNull(sc.Clock, testname & "-1") Assert.IsNotNull(sc.FileSystem, testname & "-2") Assert.IsNotNull(sc.Info, testname & "-3") Assert.AreEqual(System.Environment.MachineName, sc.Name, testname & "-4") Assert.IsNotNull(sc.Network, testname & "-5") Assert.IsNotNull(sc.Registry, testname & "-6") End Sub End Class End Namespace #End If #End Ifmono-basic-2.4.2/vbruntime/Test/Microsoft.VisualBasic.Devices/AudioTests.vb0000644000175000001440000001742211213247532026222 0ustar builderusers' AudioTests.vb - NUnit Test Cases for Microsoft.VisualBasic.Devices.Audio ' ' Rolf Bjarne Kvinge (RKvinge@novell.com) ' ' ' Copyright (C) 2007 Novell, Inc (http://www.novell.com) ' ' Permission is hereby granted, free of charge, to any person obtaining ' a copy of this software and associated documentation files (the ' "Software"), to deal in the Software without restriction, including ' without limitation the rights to use, copy, modify, merge, publish, ' distribute, sublicense, and/or sell copies of the Software, and to ' permit persons to whom the Software is furnished to do so, subject to ' the following conditions: ' ' The above copyright notice and this permission notice shall be ' included in all copies or substantial portions of the Software. ' ' THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, ' EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF ' MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND ' NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE ' LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION ' OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION ' WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. #If NET_2_0 Then #If Not TARGET_JVM Then Imports Microsoft.VisualBasic.Devices Namespace Devices _ Public Class AudioTests _ _ _ Public Sub Test() Dim testname As String = "Test" Dim sc As New Audio Dim result As MsgBoxResult If MsgBox("Do you have audio on your system (and is it turned on)?", MsgBoxStyle.Question Or MsgBoxStyle.YesNo) = MsgBoxResult.No Then Assert.Ignore("Ignored since the user cannot hear anything.") Return End If MsgBox("You should now here a beep.") sc.PlaySystemSound(Media.SystemSounds.Beep) result = MsgBox("Did you hear the sound?", MsgBoxStyle.Question Or MsgBoxStyle.YesNoCancel) If result = MsgBoxResult.Cancel Then Assert.Ignore("Cancelled by the user") Return End If Assert.AreEqual(MsgBoxResult.Yes, result, testname & "-1") Dim soundFile As String Dim bytes() As Byte Dim i As Integer soundFile = "sound.wav" If IO.File.Exists(soundFile) = False Then Assert.Ignore("Could not find an audio file.") Return End If bytes = Microsoft.VisualBasic.FileIO.FileSystem.ReadAllBytes(soundFile) i += 1 MsgBox("You should now here the test sound (once).") sc.Play(soundFile) result = MsgBox("Did you hear the sound?", MsgBoxStyle.Question Or MsgBoxStyle.YesNoCancel) If result = MsgBoxResult.Cancel Then Assert.Ignore("Cancelled by the user") Return End If Assert.AreEqual(MsgBoxResult.Yes, result, testname & "-" & i) i += 1 MsgBox("You should now here the test sound (once).") sc.Play(soundFile, AudioPlayMode.WaitToComplete) result = MsgBox("Did you hear the sound?", MsgBoxStyle.Question Or MsgBoxStyle.YesNoCancel) If result = MsgBoxResult.Cancel Then Assert.Ignore("Cancelled by the user") Return End If Assert.AreEqual(MsgBoxResult.Yes, result, testname & "-" & i) i += 1 MsgBox("You should now here the test sound (once).") sc.Play(soundFile, AudioPlayMode.Background) result = MsgBox("Did you hear the sound and did this messagebox appear before the sound stopped?", MsgBoxStyle.Question Or MsgBoxStyle.YesNoCancel) If result = MsgBoxResult.Cancel Then Assert.Ignore("Cancelled by the user") Return End If Assert.AreEqual(MsgBoxResult.Yes, result, testname & "-" & i) i += 1 MsgBox("You should now here the test sound (looping).") sc.Play(soundFile, AudioPlayMode.BackgroundLoop) result = MsgBox("Do you hear the sound?", MsgBoxStyle.Question Or MsgBoxStyle.YesNoCancel) If result = MsgBoxResult.Cancel Then Assert.Ignore("Cancelled by the user") Return End If Assert.AreEqual(MsgBoxResult.Yes, result, testname & "-" & i) i += 1 MsgBox("You should now here the test sound (once).") sc.Play(bytes, AudioPlayMode.WaitToComplete) result = MsgBox("Did you hear the sound?", MsgBoxStyle.Question Or MsgBoxStyle.YesNoCancel) If result = MsgBoxResult.Cancel Then Assert.Ignore("Cancelled by the user") Return End If Assert.AreEqual(MsgBoxResult.Yes, result, testname & "-" & i) i += 1 MsgBox("You should now here the test sound (once).") sc.Play(bytes, AudioPlayMode.Background) result = MsgBox("Did you hear the sound and did this messagebox appear before the sound stopped?", MsgBoxStyle.Question Or MsgBoxStyle.YesNoCancel) If result = MsgBoxResult.Cancel Then Assert.Ignore("Cancelled by the user") Return End If Assert.AreEqual(MsgBoxResult.Yes, result, testname & "-" & i) i += 1 MsgBox("You should now here the test sound (looping).") sc.Play(bytes, AudioPlayMode.BackgroundLoop) result = MsgBox("Do you hear the sound?", MsgBoxStyle.Question Or MsgBoxStyle.YesNoCancel) If result = MsgBoxResult.Cancel Then Assert.Ignore("Cancelled by the user") Return End If i += 1 Using stream As New IO.MemoryStream(bytes) Assert.AreEqual(MsgBoxResult.Yes, result, testname & "-" & i) MsgBox("You should now here the test sound (once).") sc.Play(stream, AudioPlayMode.WaitToComplete) result = MsgBox("Did you hear the sound?", MsgBoxStyle.Question Or MsgBoxStyle.YesNoCancel) If result = MsgBoxResult.Cancel Then Assert.Ignore("Cancelled by the user") Return End If Assert.AreEqual(MsgBoxResult.Yes, result, testname & "-" & i) End Using i += 1 Using stream As New IO.MemoryStream(bytes) MsgBox("You should now here the test sound (once).") sc.Play(stream, AudioPlayMode.Background) result = MsgBox("Did you hear the sound and did this messagebox appear before the sound stopped?", MsgBoxStyle.Question Or MsgBoxStyle.YesNoCancel) If result = MsgBoxResult.Cancel Then Assert.Ignore("Cancelled by the user") Return End If Assert.AreEqual(MsgBoxResult.Yes, result, testname & "-" & i) End Using i += 1 Using stream As New IO.MemoryStream(bytes) MsgBox("You should now here the test sound (looping).") sc.Play(stream, AudioPlayMode.BackgroundLoop) result = MsgBox("Do you hear the sound?", MsgBoxStyle.Question Or MsgBoxStyle.YesNoCancel) If result = MsgBoxResult.Cancel Then Assert.Ignore("Cancelled by the user") Return End If Assert.AreEqual(MsgBoxResult.Yes, result, testname & "-" & i) End Using MsgBox("Audio test finished") End Sub End Class End Namespace #End If #End Ifmono-basic-2.4.2/vbruntime/Test/Microsoft.VisualBasic.Devices/KeyboardTests.vb0000644000175000001440000000611611213247532026717 0ustar builderusers' KeyboardTests.vb - NUnit Test Cases for Microsoft.VisualBasic.Devices.Keyboard ' ' Rolf Bjarne Kvinge (RKvinge@novell.com) ' ' ' Copyright (C) 2007 Novell, Inc (http://www.novell.com) ' ' Permission is hereby granted, free of charge, to any person obtaining ' a copy of this software and associated documentation files (the ' "Software"), to deal in the Software without restriction, including ' without limitation the rights to use, copy, modify, merge, publish, ' distribute, sublicense, and/or sell copies of the Software, and to ' permit persons to whom the Software is furnished to do so, subject to ' the following conditions: ' ' The above copyright notice and this permission notice shall be ' included in all copies or substantial portions of the Software. ' ' THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, ' EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF ' MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND ' NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE ' LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION ' OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION ' WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. #If NET_2_0 Then #If Not TARGET_JVM Then Imports Microsoft.VisualBasic.Devices Imports System.Windows.Forms Imports NUnit.Framework Namespace Devices _ Public Class KeyboardTests _ _ _ Public Sub Test() Dim testname As String = "Test" Dim k As New Keyboard() MsgBox("Press the NumLock key (unless it's already on)") Assert.AreEqual(True, k.NumLock, testname & "-01") MsgBox("Press the NumLock key again (to turn it off)") Assert.AreEqual(False, k.NumLock, testname & "-02") MsgBox("Press the ScrollLock key (unless it's already on)") Assert.AreEqual(True, k.ScrollLock, testname & "-11") MsgBox("Press the ScrollLock key again (to turn it off)") Assert.AreEqual(False, k.ScrollLock, testname & "-12") MsgBox("Press the CapsLock key (unless it's already on)") Assert.AreEqual(True, k.CapsLock, testname & "-21") MsgBox("Press the CapsLock key again (to turn it off)") Assert.AreEqual(False, k.CapsLock, testname & "-22") Assert.AreEqual(False, k.AltKeyDown, testname & "-31") MsgBox("Press the ALT key while clicking OK") Assert.AreEqual(True, k.AltKeyDown, testname & "-32") Assert.AreEqual(False, k.CtrlKeyDown, testname & "-41") MsgBox("Press the CTLR key while clicking OK") Assert.AreEqual(True, k.CtrlKeyDown, testname & "-42") Assert.AreEqual(False, k.ShiftKeyDown, testname & "-51") MsgBox("Press the SHIFT key while clicking OK") Assert.AreEqual(True, k.ShiftKeyDown, testname & "-52") MsgBox("Keyboard test finished") End Sub End Class End Namespace #End If #End Ifmono-basic-2.4.2/vbruntime/Test/Microsoft.VisualBasic.Devices/ClockTests.vb0000644000175000001440000000400511213247532026205 0ustar builderusers' ClockTests.vb - NUnit Test Cases for Microsoft.VisualBasic.Devices.Clock ' ' Rolf Bjarne Kvinge (RKvinge@novell.com) ' ' ' Copyright (C) 2007 Novell, Inc (http://www.novell.com) ' ' Permission is hereby granted, free of charge, to any person obtaining ' a copy of this software and associated documentation files (the ' "Software"), to deal in the Software without restriction, including ' without limitation the rights to use, copy, modify, merge, publish, ' distribute, sublicense, and/or sell copies of the Software, and to ' permit persons to whom the Software is furnished to do so, subject to ' the following conditions: ' ' The above copyright notice and this permission notice shall be ' included in all copies or substantial portions of the Software. ' ' THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, ' EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF ' MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND ' NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE ' LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION ' OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION ' WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. #If NET_2_0 Then Imports Microsoft.VisualBasic.Devices Namespace Devices _ Public Class ClockTests _ Public Sub Test() Dim testname As String = "Test" Dim sc As New Clock If TimeSpan.FromTicks(Math.Abs(sc.GmtTime.Ticks - Date.UtcNow.Ticks)).TotalSeconds > 0.5 Then Assert.Fail(testname & "-1") End If If TimeSpan.FromTicks(Math.Abs(sc.LocalTime.Ticks - Date.Now.Ticks)).TotalSeconds > 0.5 Then Assert.Fail(testname & "-2") End If If TimeSpan.FromTicks(Math.Abs(sc.TickCount - Environment.TickCount)).TotalSeconds > 0.5 Then Assert.Fail(testname & "-3") End If End Sub End Class End Namespace #End Ifmono-basic-2.4.2/vbruntime/Test/Microsoft.VisualBasic.Devices/PortsTests.vb0000644000175000001440000000774311213247532026275 0ustar builderusers' PortsTests.vb - NUnit Test Cases for Microsoft.VisualBasic.Devices.Ports ' ' Rolf Bjarne Kvinge (RKvinge@novell.com) ' ' ' Copyright (C) 2007 Novell, Inc (http://www.novell.com) ' ' Permission is hereby granted, free of charge, to any person obtaining ' a copy of this software and associated documentation files (the ' "Software"), to deal in the Software without restriction, including ' without limitation the rights to use, copy, modify, merge, publish, ' distribute, sublicense, and/or sell copies of the Software, and to ' permit persons to whom the Software is furnished to do so, subject to ' the following conditions: ' ' The above copyright notice and this permission notice shall be ' included in all copies or substantial portions of the Software. ' ' THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, ' EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF ' MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND ' NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE ' LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION ' OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION ' WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. #If NET_2_0 Then #If Not TARGET_JVM Then Imports Microsoft.VisualBasic.Devices Imports System.IO.Ports Namespace Devices _ Public Class PortsTests _ _ Public Sub Test() Dim testname As String = "Test" Dim ports As New Ports Dim names() As String Dim vbNames As ObjectModel.ReadOnlyCollection(Of String) Dim realNames() As String = SerialPort.GetPortNames vbNames = ports.SerialPortNames ReDim names(vbNames.Count - 1) vbNames.CopyTo(names, 0) Array.Sort(names, 0, names.Length) Array.Sort(realNames, 0, realNames.Length) Assert.AreEqual(realNames.Length, names.Length, testname & "-1") Assert.AreEqual(Join(realNames, vbNewLine), Join(names, vbNewLine), testname & "-2") If vbNames.Count > 0 Then Dim portName As String = vbNames(0) Dim port As SerialPort port = ports.OpenSerialPort(portName) Assert.AreEqual(portName, port.PortName, testname & "-3") port.Close() port = ports.OpenSerialPort(portName, 9600) Assert.AreEqual(portName, port.PortName, testname & "-13") Assert.AreEqual(9600, port.BaudRate, testname & "-14") port.Close() port = ports.OpenSerialPort(portName, 9600, Parity.Even) Assert.AreEqual(portName, port.PortName, testname & "-23") Assert.AreEqual(9600, port.BaudRate, testname & "-24") Assert.AreEqual(Parity.Even, port.Parity, testname & "-25") port.Close() port = ports.OpenSerialPort(portName, 9600, Parity.Even, 7) Assert.AreEqual(portName, port.PortName, testname & "-33") Assert.AreEqual(9600, port.BaudRate, testname & "-34") Assert.AreEqual(Parity.Even, port.Parity, testname & "-35") Assert.AreEqual(7, port.DataBits, testname & "-36") port.Close() port = ports.OpenSerialPort(portName, 9600, Parity.Even, 7, StopBits.One) Assert.AreEqual(portName, port.PortName, testname & "-43") Assert.AreEqual(9600, port.BaudRate, testname & "-44") Assert.AreEqual(Parity.Even, port.Parity, testname & "-45") Assert.AreEqual(7, port.DataBits, testname & "-46") Assert.AreEqual(StopBits.One, port.StopBits, testname & "-47") port.Close() Else Assert.Ignore("No serial ports on this machine, skipping test") End If End Sub End Class End Namespace #End If #end ifmono-basic-2.4.2/vbruntime/Test/Microsoft.VisualBasic.Devices/NetworkAvailableEventArgsTests.vb0000644000175000001440000000353111213247532032226 0ustar builderusers' NetworkAvailableEventArgsTests.vb - NUnit Test Cases for Microsoft.VisualBasic.Devices.NetworkAvailableEventArgs ' ' Rolf Bjarne Kvinge (RKvinge@novell.com) ' ' ' Copyright (C) 2007 Novell, Inc (http://www.novell.com) ' ' Permission is hereby granted, free of charge, to any person obtaining ' a copy of this software and associated documentation files (the ' "Software"), to deal in the Software without restriction, including ' without limitation the rights to use, copy, modify, merge, publish, ' distribute, sublicense, and/or sell copies of the Software, and to ' permit persons to whom the Software is furnished to do so, subject to ' the following conditions: ' ' The above copyright notice and this permission notice shall be ' included in all copies or substantial portions of the Software. ' ' THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, ' EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF ' MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND ' NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE ' LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION ' OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION ' WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. #If NET_2_0 Then Imports Microsoft.VisualBasic.Devices Namespace Devices _ Public Class NetworkAvailableEventArgsTests _ Public Sub Test() Dim testname As String = "Test" Dim arg As NetworkAvailableEventArgs arg = New NetworkAvailableEventArgs(True) Assert.AreEqual(True, arg.IsNetworkAvailable, testname & "-1") arg = New NetworkAvailableEventArgs(False) Assert.AreEqual(False, arg.IsNetworkAvailable, testname & "-2") End Sub End Class End Namespace #End Ifmono-basic-2.4.2/vbruntime/Test/Microsoft.VisualBasic.Devices/MouseTests.vb0000644000175000001440000000366211213247532026252 0ustar builderusers' MouseTests.vb - NUnit Test Cases for Microsoft.VisualBasic.Devices.Mouse ' ' Rolf Bjarne Kvinge (RKvinge@novell.com) ' ' ' Copyright (C) 2007 Novell, Inc (http://www.novell.com) ' ' Permission is hereby granted, free of charge, to any person obtaining ' a copy of this software and associated documentation files (the ' "Software"), to deal in the Software without restriction, including ' without limitation the rights to use, copy, modify, merge, publish, ' distribute, sublicense, and/or sell copies of the Software, and to ' permit persons to whom the Software is furnished to do so, subject to ' the following conditions: ' ' The above copyright notice and this permission notice shall be ' included in all copies or substantial portions of the Software. ' ' THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, ' EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF ' MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND ' NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE ' LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION ' OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION ' WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. #If NET_2_0 Then #If Not TARGET_JVM Then Imports Microsoft.VisualBasic.Devices Imports System.Windows.Forms Namespace Devices _ Public Class MouseTests _ _ Public Sub Test() Dim testname As String = "Test" Dim mouse As New Mouse() Assert.AreEqual(SystemInformation.MouseButtonsSwapped, mouse.ButtonsSwapped, testname & "-1") Assert.AreEqual(SystemInformation.MouseWheelPresent, mouse.WheelExists, testname & "-2") Assert.AreEqual(SystemInformation.MouseWheelScrollLines, mouse.WheelScrollLines, testname & "-3") End Sub End Class End Namespace #End If #End Ifmono-basic-2.4.2/vbruntime/Test/Microsoft.VisualBasic.Devices/NetworkTests.vb0000644000175000001440000006654111213247532026620 0ustar builderusers' NetworkTests.vb - NUnit Test Cases for Microsoft.VisualBasic.Devices.Network ' ' Rolf Bjarne Kvinge (RKvinge@novell.com) ' ' ' Copyright (C) 2007 Novell, Inc (http://www.novell.com) ' ' Permission is hereby granted, free of charge, to any person obtaining ' a copy of this software and associated documentation files (the ' "Software"), to deal in the Software without restriction, including ' without limitation the rights to use, copy, modify, merge, publish, ' distribute, sublicense, and/or sell copies of the Software, and to ' permit persons to whom the Software is furnished to do so, subject to ' the following conditions: ' ' The above copyright notice and this permission notice shall be ' included in all copies or substantial portions of the Software. ' ' THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, ' EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF ' MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND ' NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE ' LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION ' OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION ' WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. #If NET_2_0 Then #If Not TARGET_JVM Then Imports Microsoft.VisualBasic.Devices Imports System.Net.NetworkInformation Imports FS = Microsoft.VisualBasic.FileIO.FileSystem Imports System.IO Namespace Devices _ Public Class NetworkTests Private BASEDIR As String Private SLOWFILESIZE As Integer = 10000000 Sub New() End Sub _ Public Sub Init() BASEDIR = Path.Combine(Environment.CurrentDirectory, "NetworkTestCache").TrimEnd(New Char() {Path.DirectorySeparatorChar, Path.AltDirectorySeparatorChar}) & Path.DirectorySeparatorChar If FS.DirectoryExists(BASEDIR) Then FS.DeleteDirectory(BASEDIR, Microsoft.VisualBasic.FileIO.DeleteDirectoryOption.DeleteAllContents) End If FS.CreateDirectory(BASEDIR) End Sub _ Public Sub CleanUp() FS.DeleteDirectory(BASEDIR, Microsoft.VisualBasic.FileIO.DeleteDirectoryOption.DeleteAllContents) End Sub Private Function ConnectedToInternet() As Boolean Try Return New Ping().Send("www.google.com").Status = IPStatus.Success Catch Return False End Try End Function _ Public Sub IsAvailableTest() Dim testname As String = "IsAvailableTest" Dim nw As New Network() Assert.AreEqual(NetworkInterface.GetIsNetworkAvailable(), nw.IsAvailable, testname & "-1") End Sub _ _ _ Public Sub PingTest() Dim testname As String = "PingTest" Dim nw As New Network() If Not ConnectedToInternet() Then Assert.Ignore("No internet connection, so skipping ping tests") Return End If Dim realHost As String = "www.google.com" Dim imaginaryHost As String = "www.changemeifiexist.com" Assert.AreEqual(True, nw.Ping(realHost), testname & "-12") Assert.AreEqual(True, nw.Ping(realHost, 10000), testname & "-13") Assert.AreEqual(True, nw.Ping(New Uri("http://" & realHost)), testname & "-14") Assert.AreEqual(True, nw.Ping(New Uri("http://" & realHost), 10000), testname & "-15") Assert.AreEqual(False, nw.Ping(imaginaryHost), testname & "-22") Assert.AreEqual(False, nw.Ping(imaginaryHost, 10000), testname & "-23") Assert.AreEqual(False, nw.Ping(New Uri("http://" & imaginaryHost)), testname & "-24") Assert.AreEqual(False, nw.Ping(New Uri("http://" & imaginaryHost), 10000), testname & "-25") End Sub _ _ _ Public Sub DownloadFileTest1() Dim testname As String = "DownloadFileTest1" Dim nw As New Network() If Not ConnectedToInternet() Then Assert.Ignore("No internet connection, so skipping download tests") Return End If Assert.Ignore("These tests are not implemented fully yet anyway") Dim smallrealFile As String = "http://www.google.com" Dim bigrealfile As String = "http://www.mono-project.com/" Dim imaginaryFile As String = "http://www.changemeifiexist.nowhere/nofile" Dim destination As String = Path.Combine(BASEDIR, "destination") Dim localsmallrealfile As String = Path.Combine(BASEDIR, "localsmallrealfile") Dim localbigrealfile As String = Path.Combine(BASEDIR, "localbigrealfile") Dim pwd As String Dim user As String Dim showUI As Boolean Dim timeout As Integer Dim onCancel As Microsoft.VisualBasic.FileIO.UICancelOption Dim i As Integer Dim overwrite As Boolean Using client As New Net.WebClient() client.DownloadFile(smallrealFile, localsmallrealfile) client.DownloadFile(bigrealfile, localbigrealfile) End Using '----------------------------- i += 1 IO.File.Delete(destination) nw.DownloadFile(smallrealFile, destination) Helper.CompareFile(destination, localsmallrealfile, testname & "-01") IO.File.Delete(destination) nw.DownloadFile(bigrealfile, destination) Helper.CompareFile(destination, localbigrealfile, testname & "-02") Try IO.File.Delete(destination) nw.DownloadFile(imaginaryFile, destination) Assert.Fail(testname & "-03 " & "?") Catch ex As Exception Assert.AreEqual("?", ex.Message, testname & "-04") End Try '----------------------------- i += 1 pwd = String.Empty user = String.Empty IO.File.Delete(destination) nw.DownloadFile(smallrealFile, destination, pwd, user) Helper.CompareFile(destination, localsmallrealfile, testname & "-" & i & "1") IO.File.Delete(destination) nw.DownloadFile(bigrealfile, destination, pwd, user) Helper.CompareFile(destination, localbigrealfile, testname & "-" & i & "2") Try IO.File.Delete(destination) nw.DownloadFile(imaginaryFile, destination, pwd, user) Assert.Fail(testname & "-" & i & "3 " & "?") Catch ex As Exception Assert.AreEqual("?", ex.Message, testname & "-" & i & "4") End Try '----------------------------- i += 1 pwd = "pwd" user = "user" IO.File.Delete(destination) nw.DownloadFile(smallrealFile, destination, pwd, user) Helper.CompareFile(destination, localsmallrealfile, testname & "-" & i & "1") IO.File.Delete(destination) nw.DownloadFile(bigrealfile, destination, pwd, user) Helper.CompareFile(destination, localbigrealfile, testname & "-" & i & "2") Try IO.File.Delete(destination) nw.DownloadFile(imaginaryFile, destination, pwd, user) Assert.Fail(testname & "-" & i & "03 " & "?") Catch ex As Exception Assert.AreEqual("?", ex.Message, testname & "-" & i & "4") End Try '----------------------------- i += 1 pwd = String.Empty user = String.Empty showUI = True timeout = 100000 overwrite = False IO.File.Delete(destination) nw.DownloadFile(smallrealFile, destination, pwd, user, showUI, timeout, overwrite) Helper.CompareFile(destination, localsmallrealfile, testname & "-" & i & "1") IO.File.Delete(destination) nw.DownloadFile(bigrealfile, destination, pwd, user, showUI, timeout, overwrite) Helper.CompareFile(destination, localbigrealfile, testname & "-" & i & "2") Try IO.File.Delete(destination) nw.DownloadFile(imaginaryFile, destination, pwd, user, showUI, timeout, overwrite) Assert.Fail(testname & "-" & i & "3 " & "?") Catch ex As Exception Assert.AreEqual("?", ex.Message, testname & "-" & i & "4") End Try '----------------------------- i += 1 pwd = String.Empty user = String.Empty showUI = True timeout = 100000 overwrite = True IO.File.Delete(destination) nw.DownloadFile(smallrealFile, destination, pwd, user, showUI, timeout, overwrite) Helper.CompareFile(destination, localsmallrealfile, testname & "-" & i & "1") IO.File.Delete(destination) nw.DownloadFile(bigrealfile, destination, pwd, user, showUI, timeout, overwrite) Helper.CompareFile(destination, localbigrealfile, testname & "-" & i & "2") Try IO.File.Delete(destination) nw.DownloadFile(imaginaryFile, destination, pwd, user, showUI, timeout, overwrite) Assert.Fail(testname & "-" & i & "3 " & "?") Catch ex As Exception Assert.AreEqual("?", ex.Message, testname & "-" & i & "4") End Try '----------------------------- i += 1 pwd = String.Empty user = String.Empty showUI = True timeout = 100000 overwrite = True nw.DownloadFile(smallrealFile, destination, pwd, user, showUI, timeout, overwrite) Helper.CompareFile(destination, localsmallrealfile, testname & "-" & i & "1") nw.DownloadFile(bigrealfile, destination, pwd, user, showUI, timeout, overwrite) Helper.CompareFile(destination, localbigrealfile, testname & "-" & i & "2") Try nw.DownloadFile(imaginaryFile, destination, pwd, user, showUI, timeout, overwrite) Assert.Fail(testname & "-" & i & "3 " & "?") Catch ex As Exception Assert.AreEqual("?", ex.Message, testname & "-" & i & "4") End Try '----------------------------- i += 1 pwd = String.Empty user = String.Empty showUI = True timeout = 100000 overwrite = True onCancel = Microsoft.VisualBasic.FileIO.UICancelOption.DoNothing IO.File.Delete(destination) nw.DownloadFile(smallrealFile, destination, pwd, user, showUI, timeout, overwrite, onCancel) Helper.CompareFile(destination, localsmallrealfile, testname & "-" & i & "1") IO.File.Delete(destination) nw.DownloadFile(bigrealfile, destination, pwd, user, showUI, timeout, overwrite, onCancel) Helper.CompareFile(destination, localbigrealfile, testname & "-" & i & "2") Try IO.File.Delete(destination) nw.DownloadFile(imaginaryFile, destination, pwd, user, showUI, timeout, overwrite, onCancel) Assert.Fail(testname & "-" & i & "3 " & "?") Catch ex As Exception Assert.AreEqual("?", ex.Message, testname & "-" & i & "4") End Try '----------------------------- i += 1 pwd = String.Empty user = String.Empty showUI = True timeout = 100000 overwrite = True onCancel = Microsoft.VisualBasic.FileIO.UICancelOption.ThrowException MsgBox("Please cancel the next download.") IO.File.Delete(destination) Try nw.DownloadFile(bigrealfile, destination, pwd, user, showUI, timeout, overwrite, onCancel) Assert.Fail(testname & "-" & i & "1" & "?") Catch ex As OperationCanceledException Assert.AreEqual("?", ex.Message, testname & "-" & i & "2") End Try Try IO.File.Delete(destination) nw.DownloadFile(imaginaryFile, destination, pwd, user, showUI, timeout, overwrite, onCancel) Assert.Fail(testname & "-" & i & "3 " & "?") Catch ex As Exception Assert.AreEqual("?", ex.Message, testname & "-" & i & "4") End Try '----------------------------- i += 1 pwd = String.Empty user = String.Empty showUI = True timeout = 100000 overwrite = True onCancel = Microsoft.VisualBasic.FileIO.UICancelOption.DoNothing MsgBox("Please cancel the next download.") IO.File.Delete(destination) nw.DownloadFile(bigrealfile, destination, pwd, user, showUI, timeout, overwrite, onCancel) Helper.CompareFile(destination, localbigrealfile, testname & "-" & i & "2") Try IO.File.Delete(destination) nw.DownloadFile(imaginaryFile, destination, pwd, user, showUI, timeout, overwrite, onCancel) Assert.Fail(testname & "-" & i & "3 " & "?") Catch ex As Exception Assert.AreEqual("?", ex.Message, testname & "-" & i & "4") End Try End Sub _ _ _ Public Sub DownloadFileTest2() Dim testname As String = "DownloadFileTest2" Dim nw As New Network() If Not ConnectedToInternet() Then Assert.Ignore("No internet connection, so skipping download tests") Return End If Assert.Ignore("These tests are not implemented fully yet anyway") Dim smallrealFile As String = "http://www.google.com" Dim bigrealfile As String = "http://www.mono-project.com/" Dim imaginaryFile As String = "http://www.changemeifiexist.nowhere/nofile" Dim destination As String = Path.Combine(BASEDIR, "destination") Dim localsmallrealfile As String = Path.Combine(BASEDIR, "localsmallrealfile") Dim localbigrealfile As String = Path.Combine(BASEDIR, "localbigrealfile") Dim pwd As String Dim user As String Dim showUI As Boolean Dim timeout As Integer Dim onCancel As Microsoft.VisualBasic.FileIO.UICancelOption Dim credentials As Net.NetworkCredential Dim smalluri, biguri, imaginaryuri As Uri Dim i As Integer Dim overwrite As Boolean Using client As New Net.WebClient() client.DownloadFile(smallrealFile, localsmallrealfile) client.DownloadFile(bigrealfile, localbigrealfile) End Using smalluri = New Uri(smallrealFile) biguri = New Uri(bigrealfile) imaginaryuri = New Uri(imaginaryFile) '----------------------------- i += 1 IO.File.Delete(destination) nw.DownloadFile(smalluri, destination) Helper.CompareFile(destination, localsmallrealfile, testname & "-01") IO.File.Delete(destination) nw.DownloadFile(biguri, destination) Helper.CompareFile(destination, localbigrealfile, testname & "-02") Try IO.File.Delete(destination) nw.DownloadFile(imaginaryuri, destination) Assert.Fail(testname & "-03 " & "?") Catch ex As Exception Assert.AreEqual("?", ex.Message, testname & "-04") End Try '----------------------------- i += 1 pwd = String.Empty user = String.Empty IO.File.Delete(destination) nw.DownloadFile(smalluri, destination, pwd, user) Helper.CompareFile(destination, localsmallrealfile, testname & "-" & i & "1") IO.File.Delete(destination) nw.DownloadFile(biguri, destination, pwd, user) Helper.CompareFile(destination, localbigrealfile, testname & "-" & i & "2") Try IO.File.Delete(destination) nw.DownloadFile(imaginaryuri, destination, pwd, user) Assert.Fail(testname & "-" & i & "3 " & "?") Catch ex As Exception Assert.AreEqual("?", ex.Message, testname & "-" & i & "4") End Try '----------------------------- i += 1 pwd = "pwd" user = "user" IO.File.Delete(destination) nw.DownloadFile(smalluri, destination, pwd, user) Helper.CompareFile(destination, localsmallrealfile, testname & "-" & i & "1") IO.File.Delete(destination) nw.DownloadFile(biguri, destination, pwd, user) Helper.CompareFile(destination, localbigrealfile, testname & "-" & i & "2") Try IO.File.Delete(destination) nw.DownloadFile(imaginaryuri, destination, pwd, user) Assert.Fail(testname & "-" & i & "03 " & "?") Catch ex As Exception Assert.AreEqual("?", ex.Message, testname & "-" & i & "4") End Try '----------------------------- i += 1 pwd = String.Empty user = String.Empty showUI = True timeout = 100000 overwrite = False IO.File.Delete(destination) nw.DownloadFile(smalluri, destination, pwd, user, showUI, timeout, overwrite) Helper.CompareFile(destination, localsmallrealfile, testname & "-" & i & "1") IO.File.Delete(destination) nw.DownloadFile(biguri, destination, pwd, user, showUI, timeout, overwrite) Helper.CompareFile(destination, localbigrealfile, testname & "-" & i & "2") Try IO.File.Delete(destination) nw.DownloadFile(imaginaryuri, destination, pwd, user, showUI, timeout, overwrite) Assert.Fail(testname & "-" & i & "3 " & "?") Catch ex As Exception Assert.AreEqual("?", ex.Message, testname & "-" & i & "4") End Try '----------------------------- i += 1 pwd = String.Empty user = String.Empty showUI = True timeout = 100000 overwrite = True IO.File.Delete(destination) nw.DownloadFile(smalluri, destination, pwd, user, showUI, timeout, overwrite) Helper.CompareFile(destination, localsmallrealfile, testname & "-" & i & "1") IO.File.Delete(destination) nw.DownloadFile(biguri, destination, pwd, user, showUI, timeout, overwrite) Helper.CompareFile(destination, localbigrealfile, testname & "-" & i & "2") Try IO.File.Delete(destination) nw.DownloadFile(imaginaryuri, destination, pwd, user, showUI, timeout, overwrite) Assert.Fail(testname & "-" & i & "3 " & "?") Catch ex As Exception Assert.AreEqual("?", ex.Message, testname & "-" & i & "4") End Try '----------------------------- i += 1 pwd = String.Empty user = String.Empty showUI = True timeout = 100000 overwrite = True nw.DownloadFile(smalluri, destination, pwd, user, showUI, timeout, overwrite) Helper.CompareFile(destination, localsmallrealfile, testname & "-" & i & "1") nw.DownloadFile(biguri, destination, pwd, user, showUI, timeout, overwrite) Helper.CompareFile(destination, localbigrealfile, testname & "-" & i & "2") Try nw.DownloadFile(imaginaryuri, destination, pwd, user, showUI, timeout, overwrite) Assert.Fail(testname & "-" & i & "3 " & "?") Catch ex As Exception Assert.AreEqual("?", ex.Message, testname & "-" & i & "4") End Try '----------------------------- i += 1 pwd = String.Empty user = String.Empty showUI = True timeout = 100000 overwrite = True onCancel = Microsoft.VisualBasic.FileIO.UICancelOption.DoNothing IO.File.Delete(destination) nw.DownloadFile(smalluri, destination, pwd, user, showUI, timeout, overwrite, onCancel) Helper.CompareFile(destination, localsmallrealfile, testname & "-" & i & "1") IO.File.Delete(destination) nw.DownloadFile(biguri, destination, pwd, user, showUI, timeout, overwrite, onCancel) Helper.CompareFile(destination, localbigrealfile, testname & "-" & i & "2") Try IO.File.Delete(destination) nw.DownloadFile(imaginaryuri, destination, pwd, user, showUI, timeout, overwrite, onCancel) Assert.Fail(testname & "-" & i & "3 " & "?") Catch ex As Exception Assert.AreEqual("?", ex.Message, testname & "-" & i & "4") End Try '----------------------------- i += 1 pwd = String.Empty user = String.Empty showUI = True timeout = 100000 overwrite = True onCancel = Microsoft.VisualBasic.FileIO.UICancelOption.ThrowException MsgBox("Please cancel the next download.") IO.File.Delete(destination) Try nw.DownloadFile(biguri, destination, pwd, user, showUI, timeout, overwrite, onCancel) Assert.Fail(testname & "-" & i & "1" & "?") Catch ex As OperationCanceledException Assert.AreEqual("?", ex.Message, testname & "-" & i & "2") End Try Try IO.File.Delete(destination) nw.DownloadFile(imaginaryuri, destination, pwd, user, showUI, timeout, overwrite, onCancel) Assert.Fail(testname & "-" & i & "3 " & "?") Catch ex As Exception Assert.AreEqual("?", ex.Message, testname & "-" & i & "4") End Try '----------------------------- i += 1 pwd = String.Empty user = String.Empty showUI = True timeout = 100000 overwrite = True onCancel = Microsoft.VisualBasic.FileIO.UICancelOption.DoNothing MsgBox("Please cancel the next download.") IO.File.Delete(destination) nw.DownloadFile(biguri, destination, pwd, user, showUI, timeout, overwrite, onCancel) Helper.CompareFile(destination, localbigrealfile, testname & "-" & i & "2") Try IO.File.Delete(destination) nw.DownloadFile(imaginaryuri, destination, pwd, user, showUI, timeout, overwrite, onCancel) Assert.Fail(testname & "-" & i & "3 " & "?") Catch ex As Exception Assert.AreEqual("?", ex.Message, testname & "-" & i & "4") End Try '----------------------------- i += 1 pwd = String.Empty user = String.Empty showUI = True timeout = 100000 overwrite = False onCancel = Microsoft.VisualBasic.FileIO.UICancelOption.ThrowException credentials = New Net.NetworkCredential(user, pwd) IO.File.Delete(destination) nw.DownloadFile(smalluri, destination, credentials, showUI, timeout, overwrite) Helper.CompareFile(destination, localsmallrealfile, testname & "-" & i & "1") IO.File.Delete(destination) nw.DownloadFile(biguri, destination, pwd, user, showUI, timeout, overwrite) Helper.CompareFile(destination, localbigrealfile, testname & "-" & i & "2") Try IO.File.Delete(destination) nw.DownloadFile(imaginaryuri, destination, pwd, user, showUI, timeout, overwrite) Assert.Fail(testname & "-" & i & "3 " & "?") Catch ex As Exception Assert.AreEqual("?", ex.Message, testname & "-" & i & "4") End Try '----------------------------- i += 1 pwd = String.Empty user = String.Empty showUI = True timeout = 100000 overwrite = False onCancel = Microsoft.VisualBasic.FileIO.UICancelOption.ThrowException credentials = New Net.NetworkCredential(user, pwd) MsgBox("Please cancel the next download.") IO.File.Delete(destination) Try nw.DownloadFile(biguri, destination, pwd, user, showUI, timeout, overwrite, onCancel) Assert.Fail(testname & "-" & i & "1" & "?") Catch ex As OperationCanceledException Assert.AreEqual("?", ex.Message, testname & "-" & i & "2") End Try Try IO.File.Delete(destination) nw.DownloadFile(imaginaryuri, destination, pwd, user, showUI, timeout, overwrite, onCancel) Assert.Fail(testname & "-" & i & "3 " & "?") Catch ex As Exception Assert.AreEqual("?", ex.Message, testname & "-" & i & "4") End Try '----------------------------- i += 1 pwd = String.Empty user = String.Empty showUI = True timeout = 100000 overwrite = False onCancel = Microsoft.VisualBasic.FileIO.UICancelOption.DoNothing credentials = New Net.NetworkCredential(user, pwd) MsgBox("Please cancel the next download.") IO.File.Delete(destination) nw.DownloadFile(biguri, destination, pwd, user, showUI, timeout, overwrite, onCancel) Helper.CompareFile(destination, localbigrealfile, testname & "-" & i & "2") Try IO.File.Delete(destination) nw.DownloadFile(imaginaryuri, destination, pwd, user, showUI, timeout, overwrite, onCancel) Assert.Fail(testname & "-" & i & "3 " & "?") Catch ex As Exception Assert.AreEqual("?", ex.Message, testname & "-" & i & "4") End Try End Sub _ _ _ Public Sub UploadFileTest1() Dim testname As String = "UploadFileTest1" Dim nw As New Network() If Not ConnectedToInternet() Then Assert.Ignore("No internet connection, so skipping upload tests") Return End If Assert.Ignore("Need some server to where to upload for this to work") End Sub Private Sub MsgBox(ByVal Message As String, Optional ByVal Style As Microsoft.VisualBasic.MsgBoxStyle = Microsoft.VisualBasic.MsgBoxStyle.OkOnly Or Microsoft.VisualBasic.MsgBoxStyle.Information) Microsoft.VisualBasic.Interaction.MsgBox(Message, Style Or Microsoft.VisualBasic.MsgBoxStyle.SystemModal) End Sub End Class End Namespace #End If #End Ifmono-basic-2.4.2/vbruntime/Test/Microsoft.VisualBasic.Devices/ComputerTests.vb0000644000175000001440000000466511213247532026764 0ustar builderusers' ComputerTests.vb - NUnit Test Cases for Microsoft.VisualBasic.Devices.Computer ' ' Rolf Bjarne Kvinge (RKvinge@novell.com) ' ' ' Copyright (C) 2007 Novell, Inc (http://www.novell.com) ' ' Permission is hereby granted, free of charge, to any person obtaining ' a copy of this software and associated documentation files (the ' "Software"), to deal in the Software without restriction, including ' without limitation the rights to use, copy, modify, merge, publish, ' distribute, sublicense, and/or sell copies of the Software, and to ' permit persons to whom the Software is furnished to do so, subject to ' the following conditions: ' ' The above copyright notice and this permission notice shall be ' included in all copies or substantial portions of the Software. ' ' THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, ' EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF ' MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND ' NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE ' LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION ' OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION ' WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. #If NET_2_0 Then #If Not TARGET_JVM Then Imports Microsoft.VisualBasic.Devices Namespace Devices _ Public Class ComputerTests _ _ Public Sub Test() Dim testname As String = "Test" Dim sc As New Computer Assert.IsNotNull(sc.Clock, testname & "-1") Assert.IsNotNull(sc.FileSystem, testname & "-2") Assert.IsNotNull(sc.Info, testname & "-3") Assert.AreEqual(System.Environment.MachineName, sc.Name, testname & "-4") Assert.IsNotNull(sc.Network, testname & "-5") Assert.IsNotNull(sc.Registry, testname & "-6") #If Not TARGET_JVM Then Assert.IsNotNull(sc.Audio, testname & "-7") Assert.IsNotNull(sc.Clipboard, testname & "-8") Assert.IsNotNull(sc.Keyboard, testname & "-9") Assert.IsNotNull(sc.Mouse, testname & "-10") Assert.IsNotNull(sc.Ports, testname & "-11") Assert.IsNotNull(sc.Screen, testname & "-12") Assert.AreSame(System.Windows.Forms.Screen.PrimaryScreen, sc.Screen, testname & "-13") #End If End Sub End Class End Namespace #End If #End Ifmono-basic-2.4.2/vbruntime/Test/2005VB_test_CS.dll.sources.win0000644000175000001440000000276611213247537023302 0ustar builderusersMicrosoft.VisualBasic.CompilerServices\BooleanTypeTest.cs Microsoft.VisualBasic.CompilerServices\DecimalTypeTest.cs Microsoft.VisualBasic.CompilerServices\DoubleTypeTest.cs Microsoft.VisualBasic.CompilerServices\IntegerTypeTest.cs Microsoft.VisualBasic.CompilerServices\LongTypeTest.cs Microsoft.VisualBasic.CompilerServices\ShortTypeTest.cs Microsoft.VisualBasic.CompilerServices\SingleTypeTest.cs Microsoft.VisualBasic.CompilerServices\StringTypeTest.cs Microsoft.VisualBasic.CompilerServices\UtilsTest.cs Microsoft.VisualBasic.FileIO\MalformedLineExceptionTest.cs Microsoft.VisualBasic.FileIO\SpecialDirectoriesTest.cs Microsoft.VisualBasic.FileIO\TextFieldParserTest.cs Microsoft.VisualBasic.Logging\FileLogTraceListener.cs Microsoft.VisualBasic.Logging\LogTest.cs Microsoft.VisualBasic.Logging\AspLogTest.cs Microsoft.VisualBasic.MyServices.Internal\ContextValueTest.cs Microsoft.VisualBasic.MyServices\ClipboardProxyTest.cs Microsoft.VisualBasic.MyServices\FileSystemProxyTest.cs Microsoft.VisualBasic.MyServices\RegistryProxyTest.cs Microsoft.VisualBasic.MyServices\SpecialDirectoriesProxyTest.cs Microsoft.VisualBasic\CollectionTests.cs Microsoft.VisualBasic\ConversionTests.cs Microsoft.VisualBasic\DateAndTimeTests.cs Microsoft.VisualBasic\ErrObjectTests.cs Microsoft.VisualBasic\FinancialTests.cs Microsoft.VisualBasic\InformationTests.cs Microsoft.VisualBasic\InteractionTests.cs Microsoft.VisualBasic\StringsTest.cs Microsoft.VisualBasic\VBMathTests.cs Microsoft.VisualBasic\Helper.csmono-basic-2.4.2/vbruntime/Test/Tester.vb0000644000175000001440000001020611213247537017650 0ustar builderusersImports System.Reflection Imports NUnit.Framework Module Tester Function Main() As Integer System.Threading.Thread.CurrentThread.CurrentCulture = Globalization.CultureInfo.GetCultureInfo("en-US") System.Threading.Thread.CurrentThread.CurrentUICulture = Globalization.CultureInfo.GetCultureInfo("en-US") Dim success As Boolean = True Dim objects As New ArrayList objects.Add(New MonoTests.Microsoft_VisualBasic.CompilerServices.BooleanTypeTest) objects.Add(New MonoTests.Microsoft_VisualBasic.CompilerServices.ByteTypeTest) objects.Add(New MonoTests.Microsoft_VisualBasic.CompilerServices.ShortTypeTest) objects.Add(New MonoTests.Microsoft_VisualBasic.CompilerServices.IntegerTypeTest) objects.Add(New MonoTests.Microsoft_VisualBasic.CompilerServices.LongTypeTest) objects.Add(New MonoTests.Microsoft_VisualBasic.CompilerServices.SingleTypeTest) objects.Add(New MonoTests.Microsoft_VisualBasic.CompilerServices.DoubleTypeTest) objects.Add(New MonoTests.Microsoft_VisualBasic.CompilerServices.DateTypeTest) objects.Add(New MonoTests.Microsoft_VisualBasic.CompilerServices.DecimalTypeTest) objects.Add(New MonoTests.Microsoft_VisualBasic.FileSystemTests2) Dim ms As New Microsoft.VisualBasic.CompilerServices.OptionCompareAttribute If True OrElse ms.GetType.Assembly.Location.Contains("assembly\GAC") = False Then objects.Add(New MonoTests.Microsoft_VisualBasic.FileSystemTestGenerated) End If Dim counter As Integer = 0 For Each obj As Object In objects For Each method As MethodInfo In obj.GetType.GetMethods() counter += 1 Dim failed As Boolean = False Dim ex2 As Exception = Nothing Dim exp As ExpectedExceptionAttribute = Nothing If method.IsDefined(GetType(TestAttribute), True) = False Then Continue For Dim exps() As Object = method.GetCustomAttributes(GetType(ExpectedExceptionAttribute), True) If exps IsNot Nothing AndAlso exps.Length = 1 Then exp = DirectCast(exps(0), ExpectedExceptionAttribute) End If Try method.Invoke(obj, New Object() {}) Catch ex As TargetInvocationException ex2 = ex.InnerException Catch ex As Exception ex2 = ex End Try Dim msg As String = Nothing If ex2 Is Nothing AndAlso exp IsNot Nothing Then msg = String.Format("Expected: " & exp.ExceptionType.FullName & " (" & exp.ExpectedMessage & ")") ElseIf ex2 IsNot Nothing AndAlso exp Is Nothing Then msg = String.Format("Didn't expect: " & ex2.GetType.FullName & " (" & ex2.Message & ")") ElseIf ex2 IsNot Nothing AndAlso exp IsNot Nothing AndAlso (ex2.GetType Is exp.ExceptionType = False OrElse (ex2.Message <> exp.ExpectedMessage AndAlso exp.ExpectedMessage <> "")) Then msg = String.Format("Expected: " & exp.ExceptionType.FullName & " (" & exp.ExpectedMessage & "), got: " & ex2.GetType.FullName & " (" & ex2.Message & ")") End If If msg <> "" Then failed = True success = False msg = ": " & msg End If Dim line As String = (Not failed).ToString()(0).ToString & " " & method.Name & msg Console.WriteLine(line) Debug.WriteLine(counter.ToString() & " " & line) If failed AndAlso System.Diagnostics.Debugger.IsAttached Then Stop End If success = success AndAlso failed = False Next Next If Not success Then Console.WriteLine("Find the 'ANY' key on the keyboard and press it to exit.") Console.Read() Else Debug.WriteLine("Succeded!") End If End Function End Module mono-basic-2.4.2/vbruntime/Test/2005VB_test_CS.csproj0000644000175000001440000001300311213247537021533 0ustar builderusers Debug AnyCPU 8.0.50727 2.0 {D1E99600-0061-4184-9778-85422E238DB9} Library Properties MonoTests.Microsoft_VisualBasic Microsoft.2005_VisualBasic_test True full False ./bin/Debug/ TRACE;DEBUG;NET_2_0,mono_not_yet prompt 4 Library Microsoft.2005_VisualBasic_test False True pdbonly True ./bin/Release/ TRACE NET_2_0=true prompt 4 Library Microsoft.2005_VisualBasic_test True False True bin\Edit\ False bin\nunit.framework.dll {3F2C04ED-C36A-4EF9-9479-0227E9CA7824} 2005VB {D1E99600-0061-4184-9778-85422E238DB9} mono-basic-2.4.2/vbruntime/Test/Make.cmd0000644000175000001440000000742311213247537017422 0ustar builderusersECHO OFF cls pushd . SETLOCAL IF "%FXVERSION%"=="" (SET FXVERSION=%1) CALL ..\InitPaths.cmd rem ECHO ON IF NOT "%ERRORLEVEL%"=="0" GOTO ENDOFFILE rem rem Build the vbruntime first without signing it, this way it will be linked to the test assembly and we're executing against our vbruntime rem Then build it signed, so that we can test against the MS vbruntime. rem cd .. echo Building the vbruntime without signing it SET EXTRA_VBRUNTIME_FLAGS=/define:DONTSIGN=true CALL Make.cmd %1 rem IF NOT "%COMPILATIONERROR%"=="" GOTO ENDOFFILE copy Microsoft.VisualBasic\Microsoft.VisualBasic.dll Test\Microsoft.VisualBasic.NOTSIGNED.dll echo Building the vbruntime signing it SET EXTRA_VBRUNTIME_FLAGS= CALL Make.cmd %1 rem IF NOT "%COMPILATIONERROR%"=="" GOTO ENDOFFILE copy Microsoft.VisualBasic\Microsoft.VisualBasic.dll Test\Microsoft.VisualBasic.SIGNED.dll popd IF %ERRORLEVEL%==1 GOTO ENDOFFILE echo Running the vbruntime tests with the signed vbruntime copy Microsoft.VisualBasic.SIGNED.dll Microsoft.VisualBasic.dll CALL :EXECUTEVBTEST CALL :EXECUTETEST echo Running the vbruntime tests with the unsigned vbruntime copy Microsoft.VisualBasic.NOTSIGNED.dll Microsoft.VisualBasic.dll CALL :EXECUTEVBTEST CALL :EXECUTETEST rem del Microsoft.VisualBasic.*.dll rem del Microsoft.VisualBasic.dll GOTO ENDOFFILE :EXECUTETEST pushd . copy Microsoft.VisualBasic.dll bin IF "%FXVERSION%"=="2" (GOTO SETDEFINES2_0) IF "%FXVERSION%"=="2_0" (GOTO SETDEFINES2_0) IF "%FXVERSION%"=="1_1" (GOTO SETDEFINES1_1) IF "%FXVERSION%"=="1" (GOTO SETDEFINES1_1) IF "%FXVERSION%"=="1_0" (GOTO SETDEFINES1_0) GOTO ENDSETDEFINES :SETDEFINES2_0 SET CSDEFINES=-define:NET_1_0,NET_1_1,NET_2_0 GOTO ENDSETDEFINES :SETDEFINES1_1 SET CSDEFINES=-define:NET_1_0,NET_1_1 -debug- GOTO ENDSETDEFINES :SETDEFINES1_0 SET CSDEFINES=-define:NET_1_0 -debug- GOTO ENDSETDEFINES :ENDSETDEFINES %CSC% "-out:bin\2005VB_test_CS.dll" @2005VB_test_CS.dll.rsp @2005VB_test_CS.dll.sources.win -lib:bin %CSDEFINES% IF ERRORLEVEL 1 (GOTO ENDOFFILE) cd bin IF "%FXVERSION%"=="2" GOTO SETNUNIT2 IF "%FXVERSION%"=="2_0" GOTO SETNUNIT2 GOTO SETNUNIT1 :SETNUNIT1 copy nunit-console1.exe.config nunit-console.exe.config GOTO ENDSETNUNITV :SETNUNIT2 copy nunit-console2.exe.config nunit-console.exe.config GOTO ENDSETNUNITV :ENDSETNUNITV nunit-console.exe 2005VB_test_CS.dll /labels /noshadow /exclude:Slow,NotDotNet,NotWorking ECHO %ERRORLEVEL% IF NOT "%ERRORLEVEL%"=="0" GOTO ENDOFFILE rem del Microsoft.VisualBasic.dll GOTO ENDOFFILE :EXECUTEVBTEST pushd . copy Microsoft.VisualBasic.dll bin IF "%FXVERSION%"=="2" (GOTO SETDEFINES2_0) IF "%FXVERSION%"=="2_0" (GOTO SETDEFINES2_0) IF "%FXVERSION%"=="1_1" (GOTO SETDEFINES1_1) IF "%FXVERSION%"=="1" (GOTO SETDEFINES1_1) IF "%FXVERSION%"=="1_0" (GOTO SETDEFINES1_0) GOTO ENDSETDEFINES :SETDEFINES2_0 SET VBDEFINES=-define:NET_VER=2.0 -novbruntimeref GOTO ENDSETDEFINES :SETDEFINES1_1 SET VBDEFINES=-define:NET_VER=1.1 GOTO ENDSETDEFINES :SETDEFINES1_0 SET VBDEFINES=-define:NET_VER=1.0 GOTO ENDSETDEFINES :ENDSETDEFINES %VBC% "-out:bin\2005VB_test_VB.dll" @2005VB_test_VB.dll.rsp @2005VB_test_VB.dll.sources.win -r:Microsoft.VisualBasic.dll -libpath:bin %VBDEFINES% -debug -verbose IF ERRORLEVEL 1 (GOTO ENDOFFILE) cd bin IF "%FXVERSION%"=="2" GOTO SETNUNIT2 IF "%FXVERSION%"=="2_0" GOTO SETNUNIT2 GOTO SETNUNIT1 :SETNUNIT1 copy nunit-console1.exe.config nunit-console.exe.config GOTO ENDSETNUNITV :SETNUNIT2 copy nunit-console2.exe.config nunit-console.exe.config GOTO ENDSETNUNITV :ENDSETNUNITV nunit-console.exe 2005VB_test_VB.dll /labels /noshadow /exclude:Slow,NotDotNet,NotWorking ECHO %ERRORLEVEL% IF NOT "%ERRORLEVEL%"=="0" GOTO ENDOFFILE rem del Microsoft.VisualBasic.dll :ENDOFFILE popdmono-basic-2.4.2/vbruntime/Test/2005VB_test_VB.dll.rsp0000644000175000001440000000037511213247537021623 0ustar builderusers-r:nunit.framework.dll,Microsoft.VisualBasic.dll -nowarn -imports:System,System.Collections,Microsoft.VisualBasic,NUnit.Framework -target:library -debug:full #-novbruntimeref -libpath:bin -optionstrict- -define:_MYTYPE=\"Empty\" -codepage:65001mono-basic-2.4.2/vbruntime/Test/Microsoft.VisualBasic.Logging/0000755000175000001440000000000011213247566023612 5ustar builderusersmono-basic-2.4.2/vbruntime/Test/Microsoft.VisualBasic.Logging/FileLogTraceListener.cs0000644000175000001440000004207211213247532030145 0ustar builderusers// FileLogTraceListenerTest.cs - NUnit Test Cases for Microsoft.VisualBasic.Logging.FileLogTraceListener // // Rolf Bjarne Kvinge (RKvinge@novell.com) // // // Copyright (C) 2007 Novell, Inc (http://www.novell.com) // // Permission is hereby granted, free of charge, to any person obtaining // a copy of this software and associated documentation files (the // "Software"), to deal in the Software without restriction, including // without limitation the rights to use, copy, modify, merge, publish, // distribute, sublicense, and/or sell copies of the Software, and to // permit persons to whom the Software is furnished to do so, subject to // the following conditions: // // The above copyright notice and this permission notice shall be // included in all copies or substantial portions of the Software. // // THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, // EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF // MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND // NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE // LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION // OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION // WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. // #if NET_2_0 && !TARGET_JVM //TargetJvmNotSupported #8857 using System; using System.Collections.Generic; using System.Text; using NUnit.Framework; using Microsoft.VisualBasic.Logging; using System.Globalization; namespace MonoTests.Microsoft_VisualBasic.Logging { [TestFixture] public class FileLogTraceListenerTest { [Test] public void SupportedAttributesTest () { Derived derived = new Derived (); Assert.AreEqual (Microsoft.VisualBasic.Strings.Join (derived.GetAttribs (), ";"), "append;Append;autoflush;AutoFlush;autoFlush;basefilename;BaseFilename;baseFilename;BaseFileName;baseFileName;customlocation;CustomLocation;customLocation;delimiter;Delimiter;diskspaceexhaustedbehavior;DiskSpaceExhaustedBehavior;diskSpaceExhaustedBehavior;encoding;Encoding;includehostname;IncludeHostName;includeHostName;location;Location;logfilecreationschedule;LogFileCreationSchedule;logFileCreationSchedule;maxfilesize;MaxFileSize;maxFileSize;reservediskspace;ReserveDiskSpace;reserveDiskSpace", "#01"); } [Test] public void DefaultPropertiesTest () { using (FileLogTraceListener log = new FileLogTraceListener ()) { Assert.AreEqual (true, log.Append, "A1"); Assert.AreEqual (false, log.AutoFlush, "A2"); Assert.AreEqual (System.IO.Path.GetFileNameWithoutExtension(System.Windows.Forms.Application.ExecutablePath), log.BaseFileName, "B1"); Assert.AreEqual (Microsoft.VisualBasic.FileIO.SpecialDirectories.CurrentUserApplicationData, log.CustomLocation, "C1"); Assert.AreEqual ("\t", log.Delimiter, "D1"); Assert.AreEqual (DiskSpaceExhaustedOption.DiscardMessages, log.DiskSpaceExhaustedBehavior, "D2"); Assert.AreEqual (System.Text.Encoding.UTF8.EncodingName, log.Encoding.EncodingName, "E1"); Assert.AreEqual (System.IO.Path.Combine(Microsoft.VisualBasic.FileIO.SpecialDirectories.CurrentUserApplicationData, log.BaseFileName) + ".log", log.FullLogFileName, "F1"); Assert.IsNull (log.Filter, "F2"); Assert.AreEqual (false, log.IncludeHostName, "I1"); Assert.AreEqual (LogFileLocation.LocalUserApplicationDirectory, log.Location, "L1"); Assert.AreEqual (LogFileCreationScheduleOption.None, log.LogFileCreationSchedule, "L2"); Assert.AreEqual (5000000, log.MaxFileSize, "M1"); Assert.AreEqual ("FileLogTraceListener", log.Name, "N1"); Assert.AreEqual (10000000, log.ReserveDiskSpace, "R1"); } } [Test] public void FilenameTest () { using (FileLogTraceListener log = new FileLogTraceListener ()) { log.LogFileCreationSchedule = LogFileCreationScheduleOption.None; log.Location = LogFileLocation.CommonApplicationDirectory; Assert.AreEqual (System.IO.Path.Combine(Microsoft.VisualBasic.FileIO.SpecialDirectories.AllUsersApplicationData, log.BaseFileName) + ".log", log.FullLogFileName, "#A1"); log.Location = LogFileLocation.ExecutableDirectory; Assert.AreEqual (System.IO.Path.Combine (System.IO.Path.GetDirectoryName(System.Windows.Forms.Application.ExecutablePath), log.BaseFileName) + ".log", log.FullLogFileName, "#A2"); log.Location = LogFileLocation.LocalUserApplicationDirectory; Assert.AreEqual (System.IO.Path.Combine (Microsoft.VisualBasic.FileIO.SpecialDirectories.CurrentUserApplicationData, log.BaseFileName) + ".log", log.FullLogFileName, "#A3"); log.Location = LogFileLocation.TempDirectory; Assert.AreEqual (System.IO.Path.Combine (Microsoft.VisualBasic.FileIO.SpecialDirectories.Temp, log.BaseFileName) + ".log", log.FullLogFileName, "#A4"); log.Location = LogFileLocation.Custom; Assert.AreEqual (System.IO.Path.Combine (Microsoft.VisualBasic.FileIO.SpecialDirectories.CurrentUserApplicationData, log.BaseFileName) + ".log", log.FullLogFileName, "#A5"); log.CustomLocation = Microsoft.VisualBasic.FileIO.SpecialDirectories.MyDocuments; Assert.AreEqual (System.IO.Path.Combine (Microsoft.VisualBasic.FileIO.SpecialDirectories.MyDocuments, log.BaseFileName) + ".log", log.FullLogFileName, "#A6"); } using (FileLogTraceListener log = new FileLogTraceListener ()) { log.LogFileCreationSchedule = LogFileCreationScheduleOption.Daily; log.Location = LogFileLocation.CommonApplicationDirectory; Assert.AreEqual (System.IO.Path.Combine (Microsoft.VisualBasic.FileIO.SpecialDirectories.AllUsersApplicationData, log.BaseFileName) + DateTime.Now.ToString("-yyyy-MM-dd") + ".log", log.FullLogFileName, "#B1"); log.Location = LogFileLocation.ExecutableDirectory; Assert.AreEqual (System.IO.Path.Combine (System.IO.Path.GetDirectoryName (System.Windows.Forms.Application.ExecutablePath), log.BaseFileName) + DateTime.Now.ToString ("-yyyy-MM-dd") + ".log", log.FullLogFileName, "#B2"); log.Location = LogFileLocation.LocalUserApplicationDirectory; Assert.AreEqual (System.IO.Path.Combine (Microsoft.VisualBasic.FileIO.SpecialDirectories.CurrentUserApplicationData, log.BaseFileName) + DateTime.Now.ToString ("-yyyy-MM-dd") + ".log", log.FullLogFileName, "#B3"); log.Location = LogFileLocation.TempDirectory; Assert.AreEqual (System.IO.Path.Combine (Microsoft.VisualBasic.FileIO.SpecialDirectories.Temp, log.BaseFileName) + DateTime.Now.ToString ("-yyyy-MM-dd") + ".log", log.FullLogFileName, "#B4"); log.Location = LogFileLocation.Custom; Assert.AreEqual (System.IO.Path.Combine (Microsoft.VisualBasic.FileIO.SpecialDirectories.CurrentUserApplicationData, log.BaseFileName) + DateTime.Now.ToString ("-yyyy-MM-dd") + ".log", log.FullLogFileName, "#B5"); log.CustomLocation = Microsoft.VisualBasic.FileIO.SpecialDirectories.MyDocuments; Assert.AreEqual (System.IO.Path.Combine (Microsoft.VisualBasic.FileIO.SpecialDirectories.MyDocuments, log.BaseFileName) + DateTime.Now.ToString ("-yyyy-MM-dd") + ".log", log.FullLogFileName, "#B6"); } using (FileLogTraceListener log = new FileLogTraceListener ()) { DateTime dt = DateTime.Today.AddDays (-(int)DateTime.Today.DayOfWeek); string format = dt.ToString ("-yyyy-MM-dd"); log.LogFileCreationSchedule = LogFileCreationScheduleOption.Weekly; log.Location = LogFileLocation.CommonApplicationDirectory; Assert.AreEqual (System.IO.Path.Combine (Microsoft.VisualBasic.FileIO.SpecialDirectories.AllUsersApplicationData, log.BaseFileName) + format + ".log", log.FullLogFileName, "#C1"); log.Location = LogFileLocation.ExecutableDirectory; Assert.AreEqual (System.IO.Path.Combine (System.IO.Path.GetDirectoryName (System.Windows.Forms.Application.ExecutablePath), log.BaseFileName) + format + ".log", log.FullLogFileName, "#C2"); log.Location = LogFileLocation.LocalUserApplicationDirectory; Assert.AreEqual (System.IO.Path.Combine (Microsoft.VisualBasic.FileIO.SpecialDirectories.CurrentUserApplicationData, log.BaseFileName) + format + ".log", log.FullLogFileName, "#C3"); log.Location = LogFileLocation.TempDirectory; Assert.AreEqual (System.IO.Path.Combine (Microsoft.VisualBasic.FileIO.SpecialDirectories.Temp, log.BaseFileName) + format + ".log", log.FullLogFileName, "#C4"); log.Location = LogFileLocation.Custom; Assert.AreEqual (System.IO.Path.Combine (Microsoft.VisualBasic.FileIO.SpecialDirectories.CurrentUserApplicationData, log.BaseFileName) + format + ".log", log.FullLogFileName, "#C5"); log.CustomLocation = Microsoft.VisualBasic.FileIO.SpecialDirectories.MyDocuments; Assert.AreEqual (System.IO.Path.Combine (Microsoft.VisualBasic.FileIO.SpecialDirectories.MyDocuments, log.BaseFileName) + format + ".log", log.FullLogFileName, "#C6"); } } [Test] [ExpectedException (typeof (InvalidOperationException))] public void DiskSpaceTest1 () { using (FileLogTraceListener log = new FileLogTraceListener ()) { log.Location = LogFileLocation.TempDirectory; log.ReserveDiskSpace = new System.IO.DriveInfo (log.FullLogFileName [0].ToString ()).TotalFreeSpace; log.DiskSpaceExhaustedBehavior = DiskSpaceExhaustedOption.ThrowException; log.WriteLine ("TestLine"); } } [Test] [ExpectedException (typeof (ArgumentException))] public void DiskSpaceTest2 () { using (FileLogTraceListener log = new FileLogTraceListener ()) { log.MaxFileSize = 0; } } [Test] [ExpectedException (typeof (InvalidOperationException))] public void DiskSpaceTest3 () { using (FileLogTraceListener log = new FileLogTraceListener ()) { log.Location = LogFileLocation.TempDirectory; log.MaxFileSize = 1000; log.DiskSpaceExhaustedBehavior = DiskSpaceExhaustedOption.ThrowException; log.Write (new string('z', 1001)); } } [Test] public void WriteTest () { using (FileLogTraceListener log = new FileLogTraceListener ()) { log.Filter = new System.Diagnostics.EventTypeFilter (System.Diagnostics.SourceLevels.All); string filename = log.FullLogFileName; string data; System.Diagnostics.TraceEventCache cache = new System.Diagnostics.TraceEventCache (); log.TraceData (cache, "nunit", System.Diagnostics.TraceEventType.Critical, 0, null); log.Close (); data = Microsoft.VisualBasic.FileIO.FileSystem.ReadAllText (filename); Microsoft.VisualBasic.FileIO.FileSystem.DeleteFile (filename); Assert.AreEqual ("nunit\tCritical\t0\t\r\n", data, "#01"); } using (FileLogTraceListener log = new FileLogTraceListener ()) { log.Filter = new System.Diagnostics.EventTypeFilter (System.Diagnostics.SourceLevels.All); string filename = log.FullLogFileName; string data; System.Diagnostics.TraceEventCache cache = new System.Diagnostics.TraceEventCache (); log.TraceData (cache, "nunit", System.Diagnostics.TraceEventType.Critical, 0, "data"); log.Close (); data = Microsoft.VisualBasic.FileIO.FileSystem.ReadAllText (filename); Microsoft.VisualBasic.FileIO.FileSystem.DeleteFile (filename); Assert.AreEqual ("nunit\tCritical\t0\tdata\r\n", data, "#02"); } using (FileLogTraceListener log = new FileLogTraceListener ()) { log.Filter = new System.Diagnostics.EventTypeFilter (System.Diagnostics.SourceLevels.All); string filename = log.FullLogFileName; string data; System.Diagnostics.TraceEventCache cache = new System.Diagnostics.TraceEventCache (); log.TraceData (cache, "nunit", System.Diagnostics.TraceEventType.Critical, 0, "data", "data2"); log.Close (); data = Microsoft.VisualBasic.FileIO.FileSystem.ReadAllText (filename); Microsoft.VisualBasic.FileIO.FileSystem.DeleteFile (filename); Assert.AreEqual ("nunit\tCritical\t0\tdata\tdata2\r\n", data, "#03"); } using (FileLogTraceListener log = new FileLogTraceListener ()) { log.Filter = new System.Diagnostics.EventTypeFilter (System.Diagnostics.SourceLevels.All); string filename = log.FullLogFileName; string data; System.Diagnostics.TraceEventCache cache = new System.Diagnostics.TraceEventCache (); log.TraceEvent (cache, "nunit", System.Diagnostics.TraceEventType.Critical, 0, "msg"); log.Close (); data = Microsoft.VisualBasic.FileIO.FileSystem.ReadAllText (filename); Microsoft.VisualBasic.FileIO.FileSystem.DeleteFile (filename); Assert.AreEqual ("nunit\tCritical\t0\tmsg\r\n", data, "#04"); } using (FileLogTraceListener log = new FileLogTraceListener ()) { log.Filter = new System.Diagnostics.EventTypeFilter (System.Diagnostics.SourceLevels.All); string filename = log.FullLogFileName; string data; System.Diagnostics.TraceEventCache cache = new System.Diagnostics.TraceEventCache (); log.TraceEvent (cache, "nunit", System.Diagnostics.TraceEventType.Critical, 0, "msg:{0}", "arg1"); log.Close (); data = Microsoft.VisualBasic.FileIO.FileSystem.ReadAllText (filename); Microsoft.VisualBasic.FileIO.FileSystem.DeleteFile (filename); Assert.AreEqual ("nunit\tCritical\t0\tmsg:arg1\r\n", data, "#05"); } using (FileLogTraceListener log = new FileLogTraceListener ()) { log.Filter = new System.Diagnostics.EventTypeFilter (System.Diagnostics.SourceLevels.All); string filename = log.FullLogFileName; string data; System.Diagnostics.TraceEventCache cache = new System.Diagnostics.TraceEventCache (); log.TraceOutputOptions = System.Diagnostics.TraceOptions.DateTime | System.Diagnostics.TraceOptions.LogicalOperationStack | System.Diagnostics.TraceOptions.ProcessId | System.Diagnostics.TraceOptions.ThreadId | System.Diagnostics.TraceOptions.Timestamp; log.TraceData (cache, "nunit", System.Diagnostics.TraceEventType.Critical, 0, null); log.Close (); data = Microsoft.VisualBasic.FileIO.FileSystem.ReadAllText (filename); Microsoft.VisualBasic.FileIO.FileSystem.DeleteFile (filename); Assert.AreEqual ("nunit\tCritical\t0\t\t\"\"\t" + cache.DateTime.ToString ("u", CultureInfo.InvariantCulture) + "\t" + cache.ProcessId + "\t" + cache.ThreadId + "\t" + cache.Timestamp + System.Environment.NewLine, data, "#06"); } using (FileLogTraceListener log = new FileLogTraceListener ()) { log.Filter = new System.Diagnostics.EventTypeFilter (System.Diagnostics.SourceLevels.All); log.IncludeHostName = true; string filename = log.FullLogFileName; string data; System.Diagnostics.TraceEventCache cache = new System.Diagnostics.TraceEventCache (); log.TraceOutputOptions = System.Diagnostics.TraceOptions.DateTime | System.Diagnostics.TraceOptions.LogicalOperationStack | System.Diagnostics.TraceOptions.ProcessId | System.Diagnostics.TraceOptions.ThreadId | System.Diagnostics.TraceOptions.Timestamp; log.TraceData (cache, "nunit", System.Diagnostics.TraceEventType.Critical, 0, null); log.Close (); data = Microsoft.VisualBasic.FileIO.FileSystem.ReadAllText (filename); Microsoft.VisualBasic.FileIO.FileSystem.DeleteFile (filename); Assert.AreEqual ("nunit\tCritical\t0\t\t\"\"\t" + cache.DateTime.ToString ("u", CultureInfo.InvariantCulture) + "\t" + cache.ProcessId + "\t" + cache.ThreadId + "\t" + cache.Timestamp + "\t" + Environment.MachineName + System.Environment.NewLine, data, "#07"); } } [Test] public void AppendTest () { using (FileLogTraceListener log = new FileLogTraceListener ()) { log.Filter = new System.Diagnostics.EventTypeFilter (System.Diagnostics.SourceLevels.All); log.Append = false; string filename = log.FullLogFileName; string data; System.Diagnostics.TraceEventCache cache = new System.Diagnostics.TraceEventCache (); log.TraceData (cache, "nunit", System.Diagnostics.TraceEventType.Critical, 0, null); log.Close (); data = Microsoft.VisualBasic.FileIO.FileSystem.ReadAllText (filename); Assert.AreEqual ("nunit\tCritical\t0\t\r\n", data, "#01"); } using (FileLogTraceListener log = new FileLogTraceListener ()) { log.Filter = new System.Diagnostics.EventTypeFilter (System.Diagnostics.SourceLevels.All); log.Append = true; string filename = log.FullLogFileName; string data; System.Diagnostics.TraceEventCache cache = new System.Diagnostics.TraceEventCache (); log.TraceData (cache, "nunit", System.Diagnostics.TraceEventType.Critical, 0, null); log.Close (); data = Microsoft.VisualBasic.FileIO.FileSystem.ReadAllText (filename); Assert.AreEqual ("nunit\tCritical\t0\t\r\n" + "nunit\tCritical\t0\t\r\n", data, "#02"); } using (FileLogTraceListener log = new FileLogTraceListener ()) { log.Filter = new System.Diagnostics.EventTypeFilter (System.Diagnostics.SourceLevels.All); log.Append = false; string filename = log.FullLogFileName; string data; System.Diagnostics.TraceEventCache cache = new System.Diagnostics.TraceEventCache (); log.TraceData (cache, "nunit", System.Diagnostics.TraceEventType.Critical, 0, null); log.Close (); data = Microsoft.VisualBasic.FileIO.FileSystem.ReadAllText (filename); Assert.AreEqual ("nunit\tCritical\t0\t\r\n", data, "#03"); Microsoft.VisualBasic.FileIO.FileSystem.DeleteFile (filename); } } } class Derived : FileLogTraceListener { protected override string [] GetSupportedAttributes () { return base.GetSupportedAttributes (); } public string [] GetAttribs () { return GetSupportedAttributes (); } } } #endifmono-basic-2.4.2/vbruntime/Test/Microsoft.VisualBasic.Logging/LogTest.cs0000644000175000001440000002536211213247532025523 0ustar builderusers// LogTest.cs - NUnit Test Cases for Microsoft.VisualBasic.Logging.Log // // Rolf Bjarne Kvinge (RKvinge@novell.com) // // // Copyright (C) 2007 Novell, Inc (http://www.novell.com) // // Permission is hereby granted, free of charge, to any person obtaining // a copy of this software and associated documentation files (the // "Software"), to deal in the Software without restriction, including // without limitation the rights to use, copy, modify, merge, publish, // distribute, sublicense, and/or sell copies of the Software, and to // permit persons to whom the Software is furnished to do so, subject to // the following conditions: // // The above copyright notice and this permission notice shall be // included in all copies or substantial portions of the Software. // // THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, // EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF // MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND // NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE // LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION // OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION // WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. // #if NET_2_0 using System; using System.Collections.Generic; using System.Text; using NUnit.Framework; using Microsoft.VisualBasic.Logging; namespace MonoTests.Microsoft_VisualBasic.Logging { [TestFixture] public class LoggingTest { [Test] [ExpectedException (typeof (ArgumentNullException))] public void TestWriteExNull1 () { Log log = new Log (); log.WriteException (null); } [Test] [ExpectedException (typeof (ArgumentNullException))] public void TestWriteExNull2 () { Log log = new Log (); log.WriteException (null, System.Diagnostics.TraceEventType.Information, ""); } [Test] [ExpectedException (typeof (ArgumentNullException))] public void TestWriteExNull3 () { Log log = new Log (); log.WriteException (null, System.Diagnostics.TraceEventType.Information, "", 0); } [Test] public void TestWriteEx1 () { Log log = new Log (); string em = "ExceptionMessage"; string ai = "AdditionalInformation"; Exception ex = new Exception (em); System.IO.StringWriter writer = new System.IO.StringWriter(); log.TraceSource.Listeners.Clear(); log.TraceSource.Listeners.Add (new System.Diagnostics.TextWriterTraceListener (writer)); log.TraceSource.Switch.Level = System.Diagnostics.SourceLevels.All; writer.GetStringBuilder ().Length = 0; log.WriteException (ex, System.Diagnostics.TraceEventType.Information, ""); Assert.AreEqual ("DefaultSource Information: 0 : ExceptionMessage" + System.Environment.NewLine, writer.ToString (), "#01"); writer.GetStringBuilder ().Length = 0; log.WriteException (ex, System.Diagnostics.TraceEventType.Error, ai); Assert.AreEqual (string.Format("DefaultSource Error: 2 : {0} {1}" + System.Environment.NewLine, em, ai), writer.ToString (), "#02"); writer.GetStringBuilder ().Length = 0; log.WriteException (ex, System.Diagnostics.TraceEventType.Warning, ai, 200); Assert.AreEqual (string.Format ("DefaultSource Warning: 200 : {0} {1}" + System.Environment.NewLine, em, ai), writer.ToString (), "#03"); writer.GetStringBuilder ().Length = 0; log.WriteException (ex); Assert.AreEqual (string.Format ("DefaultSource Error: 2 : {0}" + System.Environment.NewLine, em, ai), writer.ToString (), "#04"); writer.GetStringBuilder ().Length = 0; log.WriteException (ex, System.Diagnostics.TraceEventType.Critical, null); Assert.AreEqual (string.Format ("DefaultSource Critical: 3 : {0}" + System.Environment.NewLine, em, ai), writer.ToString (), "#10"); writer.GetStringBuilder ().Length = 0; log.WriteException (ex, System.Diagnostics.TraceEventType.Error, null); Assert.AreEqual (string.Format ("DefaultSource Error: 2 : {0}" + System.Environment.NewLine, em, ai), writer.ToString (), "#11"); writer.GetStringBuilder ().Length = 0; log.WriteException (ex, System.Diagnostics.TraceEventType.Information, null); Assert.AreEqual (string.Format ("DefaultSource Information: 0 : {0}" + System.Environment.NewLine, em, ai), writer.ToString (), "#12"); writer.GetStringBuilder ().Length = 0; log.WriteException (ex, System.Diagnostics.TraceEventType.Resume, null); Assert.AreEqual (string.Format ("DefaultSource Resume: 7 : {0}" + System.Environment.NewLine, em, ai), writer.ToString (), "#13"); writer.GetStringBuilder ().Length = 0; log.WriteException (ex, System.Diagnostics.TraceEventType.Start, null); Assert.AreEqual (string.Format ("DefaultSource Start: 4 : {0}" + System.Environment.NewLine, em, ai), writer.ToString (), "#14"); writer.GetStringBuilder ().Length = 0; log.WriteException (ex, System.Diagnostics.TraceEventType.Stop, null); Assert.AreEqual (string.Format ("DefaultSource Stop: 5 : {0}" + System.Environment.NewLine, em, ai), writer.ToString (), "#15"); writer.GetStringBuilder ().Length = 0; log.WriteException (ex, System.Diagnostics.TraceEventType.Suspend, null); Assert.AreEqual (string.Format ("DefaultSource Suspend: 6 : {0}" + System.Environment.NewLine, em, ai), writer.ToString (), "#16"); writer.GetStringBuilder ().Length = 0; log.WriteException (ex, System.Diagnostics.TraceEventType.Transfer, null); Assert.AreEqual (string.Format ("DefaultSource Transfer: 9 : {0}" + System.Environment.NewLine, em, ai), writer.ToString (), "#17"); writer.GetStringBuilder ().Length = 0; log.WriteException (ex, System.Diagnostics.TraceEventType.Verbose, null); Assert.AreEqual (string.Format ("DefaultSource Verbose: 8 : {0}" + System.Environment.NewLine, em, ai), writer.ToString (), "#18"); writer.GetStringBuilder ().Length = 0; log.WriteException (ex, System.Diagnostics.TraceEventType.Warning, null); Assert.AreEqual (string.Format ("DefaultSource Warning: 1 : {0}" + System.Environment.NewLine, em, ai), writer.ToString (), "#19"); } [Test] public void TestWriteEntry1 () { Log log = new Log (); string msg = "AdditionalInformation"; System.IO.StringWriter writer = new System.IO.StringWriter (); log.TraceSource.Listeners.Clear (); log.TraceSource.Listeners.Add (new System.Diagnostics.TextWriterTraceListener (writer)); log.TraceSource.Switch.Level = System.Diagnostics.SourceLevels.All; writer.GetStringBuilder ().Length = 0; log.WriteEntry (msg); Assert.AreEqual ("DefaultSource Information: 0 : AdditionalInformation" + System.Environment.NewLine, writer.ToString (), "#01"); writer.GetStringBuilder ().Length = 0; log.WriteEntry (msg, System.Diagnostics.TraceEventType.Error); Assert.AreEqual (string.Format ("DefaultSource Error: 2 : {0}" + System.Environment.NewLine, msg), writer.ToString (), "#02"); writer.GetStringBuilder ().Length = 0; log.WriteEntry (msg, System.Diagnostics.TraceEventType.Warning, 200); Assert.AreEqual (string.Format ("DefaultSource Warning: 200 : {0}" + System.Environment.NewLine, msg), writer.ToString (), "#03"); writer.GetStringBuilder ().Length = 0; log.WriteEntry (msg, System.Diagnostics.TraceEventType.Suspend); Assert.AreEqual (string.Format ("DefaultSource Suspend: 6 : {0}" + System.Environment.NewLine, msg), writer.ToString (), "#04"); writer.GetStringBuilder ().Length = 0; log.WriteEntry (null); Assert.AreEqual (string.Format ("DefaultSource Information: 0 : " + System.Environment.NewLine), writer.ToString (), "#05"); writer.GetStringBuilder ().Length = 0; log.WriteEntry (msg, System.Diagnostics.TraceEventType.Critical); Assert.AreEqual (string.Format ("DefaultSource Critical: 3 : {0}" + System.Environment.NewLine, msg), writer.ToString (), "#10"); writer.GetStringBuilder ().Length = 0; log.WriteEntry (msg, System.Diagnostics.TraceEventType.Error); Assert.AreEqual (string.Format ("DefaultSource Error: 2 : {0}" + System.Environment.NewLine, msg), writer.ToString (), "#11"); writer.GetStringBuilder ().Length = 0; log.WriteEntry (msg, System.Diagnostics.TraceEventType.Information); Assert.AreEqual (string.Format ("DefaultSource Information: 0 : {0}" + System.Environment.NewLine, msg), writer.ToString (), "#12"); writer.GetStringBuilder ().Length = 0; log.WriteEntry (msg, System.Diagnostics.TraceEventType.Resume); Assert.AreEqual (string.Format ("DefaultSource Resume: 7 : {0}" + System.Environment.NewLine, msg), writer.ToString (), "#13"); writer.GetStringBuilder ().Length = 0; log.WriteEntry (msg, System.Diagnostics.TraceEventType.Start); Assert.AreEqual (string.Format ("DefaultSource Start: 4 : {0}" + System.Environment.NewLine, msg), writer.ToString (), "#14"); writer.GetStringBuilder ().Length = 0; log.WriteEntry (msg, System.Diagnostics.TraceEventType.Stop); Assert.AreEqual (string.Format ("DefaultSource Stop: 5 : {0}" + System.Environment.NewLine, msg), writer.ToString (), "#15"); writer.GetStringBuilder ().Length = 0; log.WriteEntry (msg, System.Diagnostics.TraceEventType.Suspend); Assert.AreEqual (string.Format ("DefaultSource Suspend: 6 : {0}" + System.Environment.NewLine, msg), writer.ToString (), "#16"); writer.GetStringBuilder ().Length = 0; log.WriteEntry (msg, System.Diagnostics.TraceEventType.Transfer); Assert.AreEqual (string.Format ("DefaultSource Transfer: 9 : {0}" + System.Environment.NewLine, msg), writer.ToString (), "#17"); writer.GetStringBuilder ().Length = 0; log.WriteEntry (msg, System.Diagnostics.TraceEventType.Verbose); Assert.AreEqual (string.Format ("DefaultSource Verbose: 8 : {0}" + System.Environment.NewLine, msg), writer.ToString (), "#18"); writer.GetStringBuilder ().Length = 0; log.WriteEntry (msg, System.Diagnostics.TraceEventType.Warning); Assert.AreEqual (string.Format ("DefaultSource Warning: 1 : {0}" + System.Environment.NewLine, msg), writer.ToString (), "#19"); } [Test] public void TestDefaults () { Log log = new Log (); Assert.AreEqual ("FileLog", log.DefaultFileLogWriter.Name, "#01"); Assert.AreEqual ("DefaultSource", log.TraceSource.Name, "#02"); Assert.AreEqual (2, log.TraceSource.Listeners.Count, "#03"); Assert.AreEqual ("Default", getObjects (log.TraceSource.Listeners) [0].Name, "#04"); Assert.AreEqual ("FileLog", getObjects (log.TraceSource.Listeners) [1].Name, "#05"); Assert.AreEqual ("DefaultTraceListener", getObjects (log.TraceSource.Listeners) [0].GetType ().Name, "#06"); Assert.AreEqual ("FileLogTraceListener", getObjects (log.TraceSource.Listeners) [1].GetType ().Name, "#07"); Assert.AreEqual (System.Diagnostics.SourceLevels.Information, log.TraceSource.Switch.Level, "#08"); } private System.Diagnostics.TraceListener [] getObjects (System.Collections.IEnumerable en) { return Helper.getObjects < System.Diagnostics.TraceListener > (en); } } } #endifmono-basic-2.4.2/vbruntime/Test/Microsoft.VisualBasic.Logging/AspLogTest.cs0000644000175000001440000000462711213247532026170 0ustar builderusers// AspLogTest.cs - NUnit Test Cases for Microsoft.VisualBasic.Logging.AspLog // // Rolf Bjarne Kvinge (RKvinge@novell.com) // // // Copyright (C) 2007 Novell, Inc (http://www.novell.com) // // Permission is hereby granted, free of charge, to any person obtaining // a copy of this software and associated documentation files (the // "Software"), to deal in the Software without restriction, including // without limitation the rights to use, copy, modify, merge, publish, // distribute, sublicense, and/or sell copies of the Software, and to // permit persons to whom the Software is furnished to do so, subject to // the following conditions: // // The above copyright notice and this permission notice shall be // included in all copies or substantial portions of the Software. // // THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, // EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF // MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND // NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE // LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION // OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION // WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. // #if NET_2_0 && mono_not_yet using System; using System.Collections.Generic; using System.Text; using NUnit.Framework; using Microsoft.VisualBasic.Logging; namespace MonoTests.Microsoft_VisualBasic.Logging { [TestFixture] public class AspLogTest { [Test] public void TestDefaults () { AspLog log = new AspLog (); Assert.IsNull (log.DefaultFileLogWriter, "#01"); Assert.AreEqual ("DefaultSource", log.TraceSource.Name, "#02"); Assert.AreEqual (2, log.TraceSource.Listeners.Count, "#03"); Assert.AreEqual ("Default", Helper.getObjects (log.TraceSource.Listeners) [0].Name, "#04"); Assert.AreEqual ("", Helper.getObjects (log.TraceSource.Listeners) [1].Name, "#05"); Assert.AreEqual ("DefaultTraceListener", Helper.getObjects (log.TraceSource.Listeners) [0].GetType ().Name, "#06"); Assert.AreEqual ("WebPageTraceListener", Helper.getObjects (log.TraceSource.Listeners) [1].GetType ().Name, "#07"); Assert.AreEqual (System.Diagnostics.SourceLevels.Information, log.TraceSource.Switch.Level, "#08"); } } } #endifmono-basic-2.4.2/vbruntime/Test/Microsoft.VisualBasic/0000755000175000001440000000000011213247566022225 5ustar builderusersmono-basic-2.4.2/vbruntime/Test/Microsoft.VisualBasic/CollectionTests.cs0000644000175000001440000013471411213247537025702 0ustar builderusers// CollectionTests.cs - NUnit Test Cases for Microsoft.VisualBasic.Collection // // Boris Kirzner // // // Copyright (c) 2002-2006 Mainsoft Corporation. // Copyright (C) 2004 Novell, Inc (http://www.novell.com) // // Permission is hereby granted, free of charge, to any person obtaining // a copy of this software and associated documentation files (the // "Software"), to deal in the Software without restriction, including // without limitation the rights to use, copy, modify, merge, publish, // distribute, sublicense, and/or sell copies of the Software, and to // permit persons to whom the Software is furnished to do so, subject to // the following conditions: // // The above copyright notice and this permission notice shall be // included in all copies or substantial portions of the Software. // // THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, // EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF // MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND // NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE // LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION // OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION // WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. // using NUnit.Framework; using System; using System.IO; using System.Collections; using Microsoft.VisualBasic; namespace MonoTests.Microsoft_VisualBasic { [TestFixture] public class CollectionTests { public CollectionTests() { } [SetUp] public void GetReady() { System.Threading.Thread.CurrentThread.CurrentCulture = new System.Globalization.CultureInfo("en-US"); } [TearDown] public void Clean() { } // Test Constructor [Test] public void New () { Collection c; c = new Collection (); Assert.IsNotNull (c, "#N01"); Assert.AreEqual (0, c.Count, "#N02"); } #region AddTests [Test] public void Add_1() { Collection col = new Collection(); string s = "abc"; col.Add(s,null,null,null); col.Add(s,null,null,null); col.Add(s,null,null,null); Assert.AreEqual(3,col.Count); Assert.AreEqual("abc",col[1]); Assert.AreEqual("abc",col[2]); Assert.AreEqual("abc",col[3]); } [Test] public void Add_2() { Collection col = new Collection(); Byte o1 = 1; short o2 = 1; int o3 = 1; long o4 = 1000; Single o5 = 1.1F; Double o6 = 2.2; Decimal o7 = 1000; String o8 = "abc"; Object o9 = null; bool o10 = true; Char o11 = 'c'; DateTime o12 = DateTime.Parse("5/31/1993"); col.Add(o1,null,null,null); col.Add(o2,null,null,null); col.Add(o3,null,null,null); col.Add(o4,null,null,null); col.Add(o5,null,null,null); col.Add(o6,null,null,null); col.Add(o7,null,null,null); col.Add(o8,null,null,null); col.Add(o9,null,null,null); col.Add(o10,null,null,null); col.Add(o11,null,null,null); col.Add(o12,null,null,null); Assert.AreEqual(12,col.Count); Assert.AreEqual(o1,col[1]); Assert.AreEqual(o2,col[2]); Assert.AreEqual(o3,col[3]); Assert.AreEqual(o4,col[4]); Assert.AreEqual(o5,col[5]); Assert.AreEqual(o6,col[6]); Assert.AreEqual(o7,col[7]); Assert.AreEqual(o8,col[8]); Assert.AreEqual(o9,col[9]); Assert.AreEqual(o10,col[10]); Assert.AreEqual(o11,col[11]); Assert.AreEqual(o12,col[12]); } [Test] public void Add_Key_1() { Collection col = new Collection(); string s1 = "a"; string s2 = "b"; string s3 = "c"; col.Add(s2,"key2",null,null); col.Add(s1,"key3",null,null); col.Add(s3,"key1",null,null); Assert.AreEqual(3,col.Count); Assert.AreEqual(s2,col[1]); Assert.AreEqual(s1,col[2]); Assert.AreEqual(s3,col[3]); Assert.AreEqual(s1,col["key3"]); Assert.AreEqual(s2,col["key2"]); Assert.AreEqual(s3,col["key1"]); } [Test] [ExpectedException(typeof(ArgumentException))] public void Add_Key_2() { // Add failed. Duplicate key value supplied. Collection col = new Collection(); string s1 = "a"; string s2 = "b"; col.Add(s2,"key",null,null); col.Add(s1,"key",null,null); } [Test] public void Add_Before_1() { Collection col = new Collection(); string s1 = "a"; string s2 = "b"; string s3 = "c"; string s4 = "d"; col.Add(s1,null,null,null); col.Add(s2,null,1,null); col.Add(s3,null,2,null); col.Add(s4,null,2,null); Assert.AreEqual(4,col.Count); Assert.AreEqual(s2,col[1]); Assert.AreEqual(s4,col[2]); Assert.AreEqual(s3,col[3]); Assert.AreEqual(s1,col[4]); } [Test] public void Add_Before_2() { Collection col = new Collection(); string s1 = "a"; string s2 = "b"; string s3 = "c"; string s4 = "d"; col.Add(s1,"key4",null,null); col.Add(s2,"key3","key4",null); col.Add(s4,null,"key3",null); col.Add(s3,null,"key4",null); Assert.AreEqual(4,col.Count); Assert.AreEqual(s4,col[1]); Assert.AreEqual(s2,col[2]); Assert.AreEqual(s3,col[3]); Assert.AreEqual(s1,col[4]); } [Test] public void Add_Before_3() { Collection col = new Collection(); string s1 = "a"; string s2 = "b"; string s3 = "c"; string s4 = "d"; col.Add(s1,"key4",null,null); col.Add(s2,"key3",1,null); col.Add(s4,null,"key3",null); col.Add(s3,null,1,null); Assert.AreEqual(4,col.Count); Assert.AreEqual(s3,col[1]); Assert.AreEqual(s4,col[2]); Assert.AreEqual(s2,col[3]); Assert.AreEqual(s1,col[4]); } [Test] public void Add_After_1() { Collection col = new Collection(); string s1 = "a"; string s2 = "b"; string s3 = "c"; string s4 = "d"; col.Add(s1,null,null,null); col.Add(s2,null,null,1); col.Add(s3,null,null,2); col.Add(s4,null,null,1); Assert.AreEqual(4,col.Count); Assert.AreEqual(s1,col[1]); Assert.AreEqual(s4,col[2]); Assert.AreEqual(s2,col[3]); Assert.AreEqual(s3,col[4]); } [Test] public void Add_After_2() { Collection col = new Collection(); string s1 = "a"; string s2 = "b"; string s3 = "c"; string s4 = "d"; col.Add(s1,"key4",null,null); col.Add(s2,"key3",null,"key4"); col.Add(s4,null,null,"key4"); col.Add(s3,null,null,"key3"); Assert.AreEqual(4,col.Count); Assert.AreEqual(s1,col[1]); Assert.AreEqual(s4,col[2]); Assert.AreEqual(s2,col[3]); Assert.AreEqual(s3,col[4]); } [Test] public void Add_After_3() { Collection col = new Collection(); string s1 = "a"; string s2 = "b"; string s3 = "c"; string s4 = "d"; col.Add(s1,"key4",null,null); col.Add(s2,"key3",null,1); col.Add(s4,null,null,1); col.Add(s3,null,null,2); Assert.AreEqual(4,col.Count); Assert.AreEqual(s1,col[1]); Assert.AreEqual(s4,col[2]); Assert.AreEqual(s3,col[3]); Assert.AreEqual(s2,col[4]); } [Test] [ExpectedException(typeof(ArgumentException))] public void Add_3() { // 'Before' and 'After' arguments cannot be combined. Collection col = new Collection(); string s1 = "a"; string s2 = "b"; string s3 = "c"; string s4 = "d"; col.Add(s1,"key1",null,null); col.Add(s2,"key2",null,null); col.Add(s3,"key3",null,null); col.Add(s4,"key4",3,2); } [Test] [ExpectedException(typeof(ArgumentOutOfRangeException))] public void Add_4() { // Specified argument was out of the range of valid values. Collection col = new Collection(); string s1 = "a"; string s2 = "b"; col.Add(s1,"key1",null,null); col.Add(s2,"key2",3,null); } [Test] [ExpectedException(typeof(ArgumentOutOfRangeException))] public void Add_5() { // Specified argument was out of the range of valid values. Collection col = new Collection(); string s1 = "a"; string s2 = "b"; col.Add(s1,"key1",null,null); col.Add(s2,"key2",0,null); } [Test] [ExpectedException(typeof(ArgumentOutOfRangeException))] public void Add_6() { // Specified argument was out of the range of valid values. Collection col = new Collection(); string s1 = "a"; string s2 = "b"; col.Add(s1,"key1",null,null); col.Add(s2,"key2",null,3); } [Test] public void Add_After_4() { // Specified argument was out of the range of valid values. Collection col = new Collection(); string s1 = "a"; string s2 = "b"; col.Add(s1,"key1",null,null); col.Add(s2,"key2",null,0); Assert.AreEqual(2,col.Count); Assert.AreEqual(s2,col[1]); Assert.AreEqual(s1,col[2]); } [Test] public void Add_Before_4() { // Specified argument was out of the range of valid values. Collection col = new Collection(); string s1 = "a"; string s2 = "b"; col.Add(s1,"key1",null,null); col.Add(s2,"key2",2,null); Assert.AreEqual(2,col.Count); Assert.AreEqual(s1,col[1]); Assert.AreEqual(s2,col[2]); } [Test] [ExpectedException(typeof(ArgumentOutOfRangeException))] public void Add_7() { // Specified argument was out of the range of valid values. Collection col = new Collection(); string s1 = "a"; string s2 = "b"; col.Add(s1,"key1",null,null); col.Add(s2,"key2",null,-1); } [Test] public void Add_8() { Collection col = new Collection(); Object o1 = null; Object o2 = null; Object o3 = null; Object o4 = null; col.Add(o1,null,null,null); col.Add(o2,null,null,null); col.Add(o3,null,null,null); col.Add(o4,null,null,null); Assert.AreEqual(4,col.Count); Assert.AreEqual(o1,col[1]); Assert.AreEqual(o2,col[2]); Assert.AreEqual(o3,col[3]); Assert.AreEqual(o4,col[4]); } // Test Add method with Key == null [Test] public void AddNoKey () { Collection c; c = new Collection (); c.Add (typeof (int), null, null, null); c.Add (typeof (double), null, null, null); c.Add (typeof (string), null, null, null); Assert.AreEqual (3, c.Count, "#ANK01"); // Collection class is 1-based Assert.AreEqual (typeof (string), c[3], "#ANK02"); } // Test Add method with Key specified [Test] public void AddKey () { Collection c; c = new Collection (); c.Add ("Baseball", "Base", null, null); c.Add ("Football", "Foot", null, null); c.Add ("Basketball", "Basket", null, null); c.Add ("Volleyball", "Volley", null, null); Assert.AreEqual (4, c.Count, "#AK01"); // Collection class is 1-based Assert.AreEqual ("Baseball", c[1], "#AK02"); Assert.AreEqual ("Volleyball", c["Volley"], "#AK03"); } // Test Add method with Before specified and Key == null [Test] public void AddBeforeNoKey () { Collection c; c = new Collection (); c.Add (typeof (int), null, null, null); c.Add (typeof (double), null, 1, null); c.Add (typeof (string), null, 2, null); c.Add (typeof (object), null, 2, null); Assert.AreEqual (4, c.Count, "#ABNK01"); // Collection class is 1-based Assert.AreEqual (typeof (int), c[4], "#ABNK02"); Assert.AreEqual (typeof (double), c[1], "#ABNK03"); Assert.AreEqual (typeof (object), c[2], "#ABNK04"); } // Test Add method with Before and Key [Test] public void AddBeforeKey () { Collection c; c = new Collection (); c.Add ("Baseball", "Base", null, null); c.Add ("Football", "Foot", 1, null); c.Add ("Basketball", "Basket", 1, null); c.Add ("Volleyball", "Volley", 3, null); Assert.AreEqual (4, c.Count, "#ABK01"); Assert.AreEqual ("Basketball", c[1], "#ABK02"); Assert.AreEqual ("Baseball", c[4], "#ABK03"); Assert.AreEqual ("Volleyball", c["Volley"], "#ABK04"); Assert.AreEqual ("Football", c["Foot"], "#ABK05"); } // Test Add method with After specified and Key == null [Test] public void AddAfterNoKey () { Collection c; c = new Collection (); c.Add (typeof (int), null, null, 0); c.Add (typeof (double), null, null, 1); c.Add (typeof (string), null, null, 1); c.Add (typeof (object), null, null, 3); Assert.AreEqual (4, c.Count, "#AANK01"); Assert.AreEqual (typeof (object), c[4], "#AANK02"); Assert.AreEqual (typeof (int), c[1], "#AANK03"); Assert.AreEqual (typeof (string), c[2], "#AANK04"); } // Test Add method with After and Key [Test] public void AddAfterKey () { Collection c; c = new Collection (); c.Add ("Baseball", "Base", null, 0); c.Add ("Football", "Foot", null, 1); c.Add ("Basketball", "Basket", null, 1); c.Add ("Volleyball", "Volley", null, 2); Assert.AreEqual (4, c.Count, "#AAK01"); Assert.AreEqual ("Baseball", c[1], "#AAK02"); Assert.AreEqual ("Football", c[4], "#AAK03"); Assert.AreEqual ("Basketball", c["Basket"], "#AAK04"); Assert.AreEqual ("Volleyball", c["Volley"], "#AAK05"); } #endregion #region Item Tests [Test] public void Index_1() { Collection col = new Collection(); string s1 = "a"; string s2 = "b"; col.Add(s1,"key1",null,null); col.Add(s2,"key2",null,null); Assert.AreEqual(2,col.Count); Assert.AreEqual(s1,col[1]); Assert.AreEqual(s2,col[2]); Assert.AreEqual(s1,col["key1"]); Assert.AreEqual(s2,col["key2"]); } [Test] public void Index_2() { Collection col = new Collection(); string s1 = "a"; string s2 = "b"; object key1 = "key1"; object key2 = "key2"; col.Add(s1,(string)key1,null,null); col.Add(s2,(string)key2,null,null); Assert.AreEqual(2,col.Count); Assert.AreEqual(s1,col[1]); Assert.AreEqual(s2,col[2]); Assert.AreEqual(s1,col[key1]); Assert.AreEqual(s2,col[key2]); } [Test] [ExpectedException(typeof(ArgumentException))] public void Index_3() { // Argument 'Index' is not a valid value. Collection col = new Collection(); string s1 = "a"; string s2 = "b"; col.Add(s1,"key1",null,null); col.Add(s2,"key2",null,null); object o = col["key3"]; } [Test] [ExpectedException(typeof(IndexOutOfRangeException))] public void Index_4() { Collection col = new Collection(); string s1 = "a"; string s2 = "b"; col.Add(s1,"key1",null,null); col.Add(s2,"key2",null,null); object o = col[0]; } [Test] [ExpectedException(typeof(IndexOutOfRangeException))] public void Index_5() { Collection col = new Collection(); string s1 = "a"; string s2 = "b"; col.Add(s1,"key1",null,null); col.Add(s2,"key2",null,null); object o = col[-1]; } [Test] [ExpectedException(typeof(IndexOutOfRangeException))] public void Index_6() { Collection col = new Collection(); string s1 = "a"; string s2 = "b"; col.Add(s1,"key1",null,null); col.Add(s2,"key2",null,null); object o = col[3]; } [Test] [ExpectedException(typeof(IndexOutOfRangeException))] public void Index_7() { Collection col = new Collection(); string s1 = "a"; string s2 = "b"; col.Add(s1,"key1",null,null); col.Add(s2,"key2",null,null); object o = col[null]; } [Test] [ExpectedException(typeof(ArgumentOutOfRangeException))] public void Index_8() { Collection col = new Collection(); ((System.Collections.IList)col)[1] = "a"; } [Test] #if !NET_2_0 [ExpectedException(typeof(InvalidCastException))] #endif public void Index_9() { Collection col = new Collection(); string s1 = "a"; string s2 = "b"; col.Add(s1,"key1",null,null); col.Add(s2,"key2",null,null); System.Collections.IList il = (System.Collections.IList)col; il[0] = "q"; il[1] = "r"; object o = il[1]; } #endregion #region Remove Tests [Test] public void Remove_1() { Collection col = new Collection(); string s1 = "a"; string s2 = "b"; string s3 = "c"; col.Add(s2,null,null,null); col.Add(s1,null,null,null); col.Add(s3,null,null,null); col.Add(s2 + s1,null,null,null); col.Add(s1 + s1,null,null,null); col.Add(s3 + s1,null,null,null); col.Remove(1); Assert.AreEqual(5,col.Count); Assert.AreEqual("a",col[1]); Assert.AreEqual("c",col[2]); Assert.AreEqual("ba",col[3]); Assert.AreEqual("aa",col[4]); Assert.AreEqual("ca",col[5]); col.Remove(3); Assert.AreEqual(4,col.Count); Assert.AreEqual("a",col[1]); Assert.AreEqual("c",col[2]); Assert.AreEqual("aa",col[3]); Assert.AreEqual("ca",col[4]); col.Remove(4); Assert.AreEqual(3,col.Count); Assert.AreEqual("a",col[1]); Assert.AreEqual("c",col[2]); Assert.AreEqual("aa",col[3]); col.Remove(2); Assert.AreEqual(2,col.Count); Assert.AreEqual("a",col[1]); Assert.AreEqual("aa",col[2]); col.Remove(1); Assert.AreEqual(1,col.Count); Assert.AreEqual("aa",col[1]); col.Remove(1); Assert.AreEqual(0,col.Count); } [Test] public void Remove_2() { Collection col = new Collection(); string s1 = "a"; string s2 = "b"; string s3 = "c"; col.Add(s2,"keya",null,null); col.Add(s1,"keyb",null,null); col.Add(s3,"keyc",null,null); col.Add(s2 + s1,"keyd",null,null); col.Add(s1 + s1,"keye",null,null); col.Add(s3 + s1,"keyf",null,null); col.Remove("keya"); Assert.AreEqual(5,col.Count); Assert.AreEqual("a",col[1]); Assert.AreEqual("c",col[2]); Assert.AreEqual("ba",col[3]); Assert.AreEqual("aa",col[4]); Assert.AreEqual("ca",col[5]); col.Remove("keyd"); Assert.AreEqual(4,col.Count); Assert.AreEqual("a",col[1]); Assert.AreEqual("c",col[2]); Assert.AreEqual("aa",col[3]); Assert.AreEqual("ca",col[4]); col.Remove("keyf"); Assert.AreEqual(3,col.Count); Assert.AreEqual("a",col[1]); Assert.AreEqual("c",col[2]); Assert.AreEqual("aa",col[3]); col.Remove("keyc"); Assert.AreEqual(2,col.Count); Assert.AreEqual("a",col[1]); Assert.AreEqual("aa",col[2]); col.Remove("keyb"); Assert.AreEqual(1,col.Count); Assert.AreEqual("aa",col[1]); col.Remove("keye"); Assert.AreEqual(0,col.Count); } [Test] [ExpectedException(typeof(IndexOutOfRangeException))] public void Remove_3() { // Collection index must be in the range 1 to the size of the collection. Collection col = new Collection(); string s1 = "a"; string s2 = "b"; string s3 = "c"; col.Add(s2,"keya",null,null); col.Add(s1,"keyb",null,null); col.Add(s3,"keyc",null,null); col.Remove(-1); } [Test] [ExpectedException(typeof(IndexOutOfRangeException))] public void Remove_4() { // Collection index must be in the range 1 to the size of the collection. Collection col = new Collection(); string s1 = "a"; string s2 = "b"; string s3 = "c"; col.Add(s2,"keya",null,null); col.Add(s1,"keyb",null,null); col.Add(s3,"keyc",null,null); col.Remove(0); } [Test] [ExpectedException(typeof(IndexOutOfRangeException))] public void Remove_5() { // Collection index must be in the range 1 to the size of the collection. Collection col = new Collection(); string s1 = "a"; string s2 = "b"; string s3 = "c"; col.Add(s2,"keya",null,null); col.Add(s1,"keyb",null,null); col.Add(s3,"keyc",null,null); col.Remove(4); } [Test] [ExpectedException(typeof(ArgumentException))] public void Remove_6() { // Argument 'Key' is not a valid value. Collection col = new Collection(); string s1 = "a"; string s2 = "b"; string s3 = "c"; col.Add(s2,"keya",null,null); col.Add(s1,"keyb",null,null); col.Add(s3,"keyc",null,null); col.Remove("keyd"); } [Test] [ExpectedException(typeof(ArgumentNullException))] public void Remove_7() { // Key cannot be null Collection col = new Collection(); string s1 = "a"; string s2 = "b"; string s3 = "c"; col.Add(s2,"keya",null,null); col.Add(s1,"keyb",null,null); col.Add(s3,"keyc",null,null); col.Remove(null); } // Test Remove method with Index [Test] public void RemoveNoKey () { Collection c; c = new Collection (); c.Add (typeof (int), null, null, null); c.Add (typeof (double), null, null, null); c.Add (typeof (string), null, null, null); c.Add (typeof (object), null, null, null); Assert.AreEqual (4, c.Count, "#RNK01"); c.Remove (3); Assert.AreEqual (3, c.Count, "#RNK02"); // Collection class is 1-based Assert.AreEqual (typeof (object), c[3], "#RNK03"); c.Remove (1); Assert.AreEqual (2, c.Count, "#RNK04"); Assert.AreEqual (typeof (double), c[1], "#RNK05"); Assert.AreEqual (typeof (object), c[2], "#RNK06"); c.Remove (2); Assert.AreEqual (1, c.Count, "#RNK07"); Assert.AreEqual (typeof (double), c[1], "#RNK08"); c.Remove (1); Assert.AreEqual (0, c.Count, "#RNK09"); } // Test Remove method with Key [Test] public void RemoveKey () { Collection c; c = new Collection (); c.Add ("Baseball", "Base", null, null); c.Add ("Football", "Foot", null, null); c.Add ("Basketball", "Basket", null, null); c.Add ("Volleyball", "Volley", null, null); Assert.AreEqual (4, c.Count, "#RK01"); c.Remove ("Foot"); Assert.AreEqual (3, c.Count, "#RK02"); Assert.AreEqual ("Basketball", c["Basket"], "#RK03"); // Collection class is 1-based Assert.AreEqual ("Volleyball", c[3], "#RK04"); c.Remove ("Base"); Assert.AreEqual (2, c.Count, "#RK05"); Assert.AreEqual ("Basketball", c[1], "#RK06"); Assert.AreEqual ("Volleyball", c["Volley"], "#RK07"); c.Remove (2); Assert.AreEqual (1, c.Count, "#RK08"); Assert.AreEqual ("Basketball", c[1], "#RK09"); Assert.AreEqual ("Basketball", c["Basket"], "#RK10"); c.Remove (1); Assert.AreEqual (0, c.Count, "#RK11"); } #endregion #region GetEnumerator Tests [Test] public void GetEnumerator_1() { Collection col = new Collection(); Byte o1 = 1; short o2 = 1; int o3 = 1; long o4 = 1000; Single o5 = 1.1F; Double o6 = 2.2; Decimal o7 = 1000; String o8 = "abc"; Object o9 = null; bool o10 = true; Char o11 = 'c'; DateTime o12 = DateTime.Parse("5/31/1993"); col.Add(o1,null,null,null); col.Add(o2,null,null,null); col.Add(o3,null,null,null); col.Add(o4,null,null,null); col.Add(o5,null,null,null); col.Add(o6,null,null,null); col.Add(o7,null,null,null); col.Add(o8,null,null,null); col.Add(o9,null,null,null); col.Add(o10,null,null,null); col.Add(o11,null,null,null); col.Add(o12,null,null,null); IEnumerator en = col.GetEnumerator(); Assert.IsTrue(en.MoveNext()); Assert.AreEqual(o1,en.Current); Assert.IsTrue(en.MoveNext()); Assert.AreEqual(o2,en.Current); Assert.IsTrue(en.MoveNext()); Assert.AreEqual(o3,en.Current); Assert.IsTrue(en.MoveNext()); Assert.AreEqual(o4,en.Current); Assert.IsTrue(en.MoveNext()); Assert.AreEqual(o5,en.Current); Assert.IsTrue(en.MoveNext()); Assert.AreEqual(o6,en.Current); Assert.IsTrue(en.MoveNext()); Assert.AreEqual(o7,en.Current); Assert.IsTrue(en.MoveNext()); Assert.AreEqual(o8,en.Current); Assert.IsTrue(en.MoveNext()); Assert.AreEqual(o9,en.Current); Assert.IsTrue(en.MoveNext()); Assert.AreEqual(o10,en.Current); Assert.IsTrue(en.MoveNext()); Assert.AreEqual(o11,en.Current); Assert.IsTrue(en.MoveNext()); Assert.AreEqual(o12,en.Current); Assert.IsFalse(en.MoveNext()); Assert.AreEqual(null,en.Current); } [Test] #if !NET_2_0 [ExpectedException(typeof(IndexOutOfRangeException))] #endif public void GetEnumerator_2() { // Collection index must be in the range 1 to the size of the collection. Collection col = new Collection(); col.Add("a",null,null,null); IEnumerator en = col.GetEnumerator(); object o = en.Current; } [Test] public void GetEnumerator_3() { Collection col = new Collection(); Byte o1 = 1; short o2 = 1; int o3 = 1; long o4 = 1000; Single o5 = 1.1F; Double o6 = 2.2; Decimal o7 = 1000; String o8 = "abc"; Object o9 = null; bool o10 = true; Char o11 = 'c'; DateTime o12 = DateTime.Parse("5/31/1993"); col.Add(o1,null,null,null); col.Add(o2,null,null,null); col.Add(o3,null,null,null); col.Add(o4,null,null,null); col.Add(o5,null,null,null); col.Add(o6,null,null,null); col.Add(o7,null,null,null); col.Add(o8,null,null,null); col.Add(o9,null,null,null); col.Add(o10,null,null,null); col.Add(o11,null,null,null); col.Add(o12,null,null,null); IEnumerator en = col.GetEnumerator(); while(en.MoveNext()); Assert.AreEqual(null,en.Current); en.Reset(); Assert.IsTrue(en.MoveNext()); Assert.AreEqual(o1,en.Current); Assert.IsTrue(en.MoveNext()); Assert.AreEqual(o2,en.Current); Assert.IsTrue(en.MoveNext()); Assert.AreEqual(o3,en.Current); Assert.IsTrue(en.MoveNext()); Assert.AreEqual(o4,en.Current); Assert.IsTrue(en.MoveNext()); Assert.AreEqual(o5,en.Current); Assert.IsTrue(en.MoveNext()); Assert.AreEqual(o6,en.Current); Assert.IsTrue(en.MoveNext()); Assert.AreEqual(o7,en.Current); Assert.IsTrue(en.MoveNext()); Assert.AreEqual(o8,en.Current); Assert.IsTrue(en.MoveNext()); Assert.AreEqual(o9,en.Current); Assert.IsTrue(en.MoveNext()); Assert.AreEqual(o10,en.Current); Assert.IsTrue(en.MoveNext()); Assert.AreEqual(o11,en.Current); Assert.IsTrue(en.MoveNext()); Assert.AreEqual(o12,en.Current); Assert.IsFalse(en.MoveNext()); Assert.AreEqual(null,en.Current); } [Test] public void GetEnumerator_4() { Collection col = new Collection(); Byte o1 = 1; short o2 = 1; int o3 = 1; long o4 = 1000; col.Add(o1,null,null,null); col.Add(o2,null,null,null); col.Add(o3,null,null,null); IEnumerator en = col.GetEnumerator(); en.MoveNext(); col.Add(o4,null,null,null); Assert.AreEqual(o1,en.Current); Assert.IsTrue(en.MoveNext()); Assert.AreEqual(o2,en.Current); Assert.IsTrue(en.MoveNext()); Assert.AreEqual(o3,en.Current); Assert.IsTrue(en.MoveNext()); Assert.AreEqual(o4,en.Current); Assert.IsFalse(en.MoveNext()); } [Test] public void GetEnumerator_5() { Collection col = new Collection(); Byte o1 = 1; short o2 = 1; int o3 = 1; long o4 = 1000; col.Add(o1,null,null,null); col.Add(o2,null,null,null); col.Add(o3,null,null,null); IEnumerator en = col.GetEnumerator(); en.MoveNext(); col.Add(o4,null,1,null); Assert.AreEqual(o1,en.Current); Assert.IsTrue(en.MoveNext()); Assert.AreEqual(o2,en.Current); Assert.IsTrue(en.MoveNext()); Assert.AreEqual(o3,en.Current); Assert.IsFalse(en.MoveNext()); Assert.AreEqual(null,en.Current); col.Add(o4,null,null,null); #if NET_2_0 Assert.AreEqual(null,en.Current); #else Assert.AreEqual(o4,en.Current); #endif Assert.IsFalse(en.MoveNext()); } [Test] public void GetEnumerator_10() { Collection col = new Collection(); Byte o1 = 1; short o2 = 1; int o3 = 1; long o4 = 1000; col.Add(o1,null,null,null); col.Add(o2,null,null,null); col.Add(o3,null,null,null); IEnumerator en = col.GetEnumerator(); col.Add(o4,null,1,null); en.MoveNext(); Assert.AreEqual(o4,en.Current); Assert.IsTrue(en.MoveNext()); Assert.AreEqual(o1,en.Current); Assert.IsTrue(en.MoveNext()); Assert.AreEqual(o2,en.Current); Assert.IsTrue(en.MoveNext()); Assert.AreEqual(o3,en.Current); Assert.IsFalse(en.MoveNext()); Assert.AreEqual(null,en.Current); col.Add(o4,null,null,null); #if NET_2_0 Assert.AreEqual(null,en.Current); #else Assert.AreEqual(o4,en.Current); #endif Assert.IsFalse(en.MoveNext()); } [Test] #if !NET_2_0 [ExpectedException(typeof(IndexOutOfRangeException))] #endif public void GetEnumerator_11() { Collection col = new Collection(); Byte o1 = 1; short o2 = 1; int o3 = 1; col.Add(o1,null,null,null); col.Add(o2,null,null,null); col.Add(o3,null,null,null); IEnumerator en = col.GetEnumerator(); Assert.IsTrue(en.MoveNext()); Assert.AreEqual(o1,en.Current); col.Remove(1); object o = en.Current; Assert.AreEqual (o1, o, "#01"); } [Test] public void GetEnumerator_12() { Collection col = new Collection(); string s1 = "e"; string s2 = "g"; string s3 = "a"; string s4 = "f"; col.Add(s1,null,null,null); col.Add(s2,null,null,null); col.Add(s3,null,null,null); IEnumerator en = col.GetEnumerator(); Assert.IsTrue(en.MoveNext()); Assert.AreEqual(s1,en.Current); col.Remove(1); Assert.IsTrue(en.MoveNext()); Assert.AreEqual(s2,en.Current); Assert.IsTrue(en.MoveNext()); Assert.AreEqual(s3,en.Current); Assert.IsFalse(en.MoveNext()); col.Add(s4,null,null,null); #if NET_2_0 Assert.AreEqual(null,en.Current); #else Assert.AreEqual(s4,en.Current); #endif Assert.IsFalse(en.MoveNext()); } [Test] public void GetEnumerator_13() { Collection col = new Collection(); string s1 = "e"; string s2 = "g"; string s3 = "a"; string s4 = "f"; string s5 = "q"; col.Add(s1,null,null,null); col.Add(s2,null,null,null); IEnumerator en = col.GetEnumerator(); Assert.IsTrue(en.MoveNext()); Assert.AreEqual(s1,en.Current); Assert.IsTrue(en.MoveNext()); Assert.AreEqual(s2,en.Current); Assert.IsFalse(en.MoveNext()); Assert.AreEqual(null,en.Current); col.Add(s3,null,null,null); #if NET_2_0 Assert.AreEqual(null,en.Current); #else Assert.AreEqual(s3,en.Current); #endif col.Add(s4,null,null,null); col.Add(s5,null,null,null); #if !NET_2_0 Assert.IsTrue(en.MoveNext()); Assert.IsTrue(en.MoveNext()); Assert.AreEqual(s5,en.Current); #endif Assert.IsFalse(en.MoveNext()); } [Test] public void GetEnumerator_6() { Collection col = new Collection(); Byte o1 = 1; short o2 = 1; int o3 = 1; col.Add(o1,null,null,null); col.Add(o2,null,null,null); col.Add(o3,null,null,null); IEnumerator en = col.GetEnumerator(); en.MoveNext(); col.Remove(3); Assert.AreEqual(o1,en.Current); Assert.IsTrue(en.MoveNext()); Assert.AreEqual(o2,en.Current); Assert.IsFalse(en.MoveNext()); } [Test] #if !NET_2_0 [ExpectedException(typeof(IndexOutOfRangeException))] #endif public void GetEnumerator_7() { Collection col = new Collection(); Byte o1 = 1; short o2 = 1; int o3 = 1; col.Add(o1,null,null,null); col.Add(o2,null,null,null); col.Add(o3,null,null,null); IEnumerator en = col.GetEnumerator(); en.MoveNext(); col.Remove(1); object o = en.Current; } [Test] public void GetEnumerator_8() { Collection col = new Collection(); Byte o1 = 1; short o2 = 1; int o3 = 1; col.Add(o1,null,null,null); col.Add(o2,null,null,null); col.Add(o3,null,null,null); IEnumerator en = col.GetEnumerator(); en.MoveNext(); col.Remove(3); col.Remove(2); Assert.AreEqual(o1,en.Current); Assert.IsFalse(en.MoveNext()); } [Test] public void GetEnumerator_9() { Collection col = new Collection(); Byte o1 = 1; short o2 = 1; int o3 = 1; col.Add(o1,null,null,null); col.Add(o2,null,null,null); col.Add(o3,null,null,null); IEnumerator en = col.GetEnumerator(); Assert.IsTrue(en.MoveNext()); Assert.IsTrue(en.MoveNext()); Assert.IsTrue(en.MoveNext()); Assert.IsFalse(en.MoveNext()); Assert.AreEqual(null,en.Current); Assert.IsFalse(en.MoveNext()); Assert.AreEqual(null,en.Current); Assert.IsFalse(en.MoveNext()); } // Test GetEnumerator method [Test] public void GetEnumerator () { Collection c; IEnumerator e; object[] o = new object[4] {typeof(int), typeof(double), typeof(string), typeof(object)}; int i = 0; c = new Collection (); c.Add (typeof (int), null, null, null); c.Add (typeof (double), null, null, null); c.Add (typeof (string), null, null, null); c.Add (typeof (object), null, null, null); e = c.GetEnumerator (); Assert.IsNotNull (e, "#GE01"); while (e.MoveNext ()) { Assert.AreEqual (o[i], e.Current, "#GE02." + i.ToString ()); i++; } e.Reset (); e.MoveNext (); Assert.AreEqual (o[0], e.Current, "#GE03"); } // Test GetEnumerator method again, this time using foreach [Test] public void Foreach () { Collection c; object[] o = new object[4] {typeof(int), typeof(double), typeof(string), typeof(object)}; int i = 0; c = new Collection (); c.Add (typeof (int), null, null, null); c.Add (typeof (double), null, null, null); c.Add (typeof (string), null, null, null); c.Add (typeof (object), null, null, null); foreach (object item in c) { Assert.AreEqual (o[i], item, "#fe01." + i.ToString ()); i++; } } #endregion #region Count Tests [Test] public void Count_1() { Collection col = new Collection(); Assert.AreEqual(0,col.Count); col.Add("a",null,null,null); Assert.AreEqual(1,col.Count); col.Add("b",null,null,null); Assert.AreEqual(2,col.Count); col.Add("c",null,null,null); Assert.AreEqual(3,col.Count); col.Add("d",null,null,null); Assert.AreEqual(4,col.Count); col.Remove(1); col.Remove(1); Assert.AreEqual(2,col.Count); col.Remove(1); col.Remove(1); Assert.AreEqual(0,col.Count); } #endregion #region IList Tests [Test] public void IList_1() { Collection col = new Collection(); string s = "abc"; col.Add(s,null,null,null); Assert.AreEqual(false,((IList)col).IsFixedSize); Assert.AreEqual(false,((IList)col).IsReadOnly); Assert.AreEqual(false,((IList)col).IsSynchronized); } [Test] public void IList_Add() { Collection col = new Collection(); string s = "abc"; ((IList)col).Add(s); ((IList)col).Add(s); Assert.AreEqual(s,col[1]); Assert.AreEqual(s,col[2]); } [Test] public void IList_Contains() { Collection col = new Collection(); string s = "abc"; ((IList)col).Add(s); ((IList)col).Add(s); Assert.IsTrue(((IList)col).Contains(s)); } [Test] public void IList_CopyTo() { Collection col = new Collection(); string s1 = "abc1"; string s2 = "abc2"; string s3 = "abc3"; ((IList)col).Add(s1); ((IList)col).Add(s2); ((IList)col).Add(s3); ((IList)col).Add(s3); ((IList)col).Add(s2); ((IList)col).Add(s1); object[] oarr = new object[6]; ((IList)col).CopyTo(oarr,0); Assert.AreEqual(s1,oarr[0]); Assert.AreEqual(s2,oarr[1]); Assert.AreEqual(s3,oarr[2]); Assert.AreEqual(s3,oarr[3]); Assert.AreEqual(s2,oarr[4]); Assert.AreEqual(s1,oarr[5]); } [Test] public void IList_Count() { Collection col = new Collection(); string s1 = "abc1"; string s2 = "abc2"; string s3 = "abc3"; ((IList)col).Add(s1); ((IList)col).Add(s2); ((IList)col).Add(s3); ((IList)col).Add(s3); ((IList)col).Add(s2); ((IList)col).Add(s1); Assert.AreEqual(6,((IList)col).Count); } [Test] public void IList_IndexOf() { Collection col = new Collection(); string s1 = "abc1"; string s2 = "abc2"; string s3 = "abc3"; ((IList)col).Add(s1); ((IList)col).Add(s2); ((IList)col).Add(s3); Assert.AreEqual(0,((IList)col).IndexOf(s1)); Assert.AreEqual(1,((IList)col).IndexOf(s2)); Assert.AreEqual(2,((IList)col).IndexOf(s3)); } [Test] #if NET_2_0 [ExpectedException(typeof(ArgumentOutOfRangeException))] #endif public void IList_Insert_1() { Collection col = new Collection(); string s1 = "abc1"; string s2 = "abc2"; string s3 = "abc3"; ((IList)col).Add(s1); ((IList)col).Add(s2); ((IList)col).Add(s3); ((IList)col).Add(s1); ((IList)col).Add(s2); ((IList)col).Add(s3); ((IList)col).Insert(-1,s1+s1); ((IList)col).Insert(2,s2+s2); ((IList)col).Insert(4,s3+s3); Assert.AreEqual(9,col.Count); Assert.AreEqual(s1+s1,col[1]); Assert.AreEqual(s1,col[2]); Assert.AreEqual(s2,col[3]); Assert.AreEqual(s2+s2,col[4]); Assert.AreEqual(s3,col[5]); Assert.AreEqual(s3+s3,col[6]); Assert.AreEqual(s1,col[7]); Assert.AreEqual(s2,col[8]); Assert.AreEqual(s3,col[9]); ((IList)col).Insert(8,s3 + s3 + s3); Assert.AreEqual(10,col.Count); Assert.AreEqual(s3 + s3 + s3,col[10]); } [Test] #if !NET_2_0 [ExpectedException(typeof(ArgumentOutOfRangeException))] #endif public void IList_Insert_2() { Collection col = new Collection(); string s1 = "abc1"; string s2 = "abc2"; string s3 = "abc3"; ((IList)col).Add(s1); ((IList)col).Add(s2); ((IList)col).Add(s3); ((IList)col).Add(s1); ((IList)col).Add(s2); ((IList)col).Add(s3); ((IList)col).Insert(6,s1+s1); Assert.AreEqual ("abc3", col [6], "#01"); Assert.AreEqual ("abc2", col [5], "#02"); Assert.AreEqual ("abc1abc1", col [7], "#03"); } [Test] public void IList_Item() { Collection col = new Collection(); string s1 = "abc1"; string s2 = "abc2"; string s3 = "abc3"; ((IList)col).Add(s1); ((IList)col).Add(s2); ((IList)col).Add(s3); ((IList)col).Add(s1); ((IList)col).Add(s2); ((IList)col).Add(s3); Assert.AreEqual(s1,((IList)col)[0]); Assert.AreEqual(s2,((IList)col)[1]); Assert.AreEqual(s3,((IList)col)[2]); Assert.AreEqual(s1,((IList)col)[3]); Assert.AreEqual(s2,((IList)col)[4]); Assert.AreEqual(s3,((IList)col)[5]); } [Test] [Category("NotWorking")] // Unstable behaviour in .Net public void IList_Remove() { /* Collection col = new Collection(); string s1 = "abc1"; string s2 = "abc2"; string s3 = "abc3"; ((IList)col).Add(s1); ((IList)col).Add(s2); ((IList)col).Add(s3); ((IList)col).Add(s3); ((IList)col).Add(s2); ((IList)col).Add(s1); ((IList)col).Remove(s2); Assert.AreEqual(5,col.Count); Assert.AreEqual(s1,col[1]); Assert.AreEqual(s3,col[2]); Assert.AreEqual(s3,col[3]); Assert.AreEqual(s2,col[4]); Assert.AreEqual(s1,col[5]); ((IList)col).Remove(s1); Assert.AreEqual(4,col.Count); Assert.AreEqual(s3,col[1]); Assert.AreEqual(s3,col[2]); Assert.AreEqual(s2,col[3]); Assert.AreEqual(s1,col[4]); ((IList)col).Remove(s1); Assert.AreEqual(3,col.Count); Assert.AreEqual(s3,col[1]); Assert.AreEqual(s3,col[2]); Assert.AreEqual(s2,col[3]); */ } #endregion [Test] [ExpectedException(typeof(ArgumentException))] public void Dirty_Read() { Collection col = new Collection(); string s = "abc"; col.Add(s,null,null,null); col.Add(s,null,null,null); col.Add(s,null,null,null); col.Add(s,null,null,null); object o = col["abc"]; } // Test all the Exceptions we're supposed to throw [Test] public void Exception () { Collection c = new Collection (); try { // nothing in Collection yet object o = c[0]; Assert.Fail ("#E02"); } catch (IndexOutOfRangeException) { } c.Add ("Baseball", "Base", null, null); c.Add ("Football", "Foot", null, null); c.Add ("Basketball", "Basket", null, null); c.Add ("Volleyball", "Volley", null, null); try { // only 4 elements object o = c[5]; Assert.Fail ("#E04"); } catch (IndexOutOfRangeException) { } try { // Collection class is 1-based object o = c[0]; Assert.Fail ("#E06"); } catch (IndexOutOfRangeException) { } try { // no member with Key == "Kick" object o = c["Kick"]; Assert.Fail ("#E08"); } catch (ArgumentException) { // FIXME // VB Language Reference says IndexOutOfRangeException // here, but MS throws ArgumentException } try { // Even though Indexer is an object, really it's a string object o = c[typeof (int)]; Assert.Fail ("#E10"); } catch (ArgumentException) { } try { // can't specify both Before and After c.Add ("Kickball", "Kick", "Volley", "Foot"); Assert.Fail ("#E12"); } catch (ArgumentException) { } try { // Key "Foot" already exists c.Add ("Kickball", "Foot", null, null); Assert.Fail ("#E14"); } catch (ArgumentException) { } try { // Even though Before is object, it's really a string c.Add ("Dodgeball", "Dodge", typeof (int), null); Assert.Fail ("#E16"); } catch (InvalidCastException) { } try { // Even though After is object, it's really a string c.Add ("Wallyball", "Wally", null, typeof (int)); Assert.Fail ("#E18"); } catch (InvalidCastException) { } try { // have to pass a legitimate value to remove c.Remove (null); Assert.Fail ("#E20"); } catch (ArgumentNullException) { } try { // no Key "Golf" exists c.Remove ("Golf"); Assert.Fail ("#E22"); } catch (ArgumentException) { } try { // no Index 10 exists c.Remove (10); Assert.Fail ("#E24"); } catch (IndexOutOfRangeException) { } try { IEnumerator e = c.GetEnumerator (); // Must MoveNext before Current object item = e.Current; #if NET_2_0 Assert.IsNull (item, "#E25"); #else Assert.Fail ("#E26"); #endif } catch (IndexOutOfRangeException) { #if NET_2_0 Assert.Fail ("#E27"); #endif } try { IEnumerator e = c.GetEnumerator (); e.MoveNext (); c.Add ("Paintball", "Paint", null, null); // Can't MoveNext if Collection has been modified e.MoveNext (); // FIXME // On-line help says this should throw an error. MS doesn't. } catch (Exception) { Assert.Fail ("#E28"); } try { IEnumerator e = c.GetEnumerator (); e.MoveNext (); c.Add ("Racketball", "Racket", null, null); // Can't Reset if Collection has been modified e.Reset (); // FIXME // On-line help says this should throw an error. MS doesn't. } catch (InvalidOperationException) { Assert.Fail ("#E30"); } } [Test] public void IList_Remove_2 () { Collection c = new Collection (); IList list = (IList) c; list.Remove (null); c.Add ("Baseball", "Base", null, null); c.Add ("Paintball", "Paint", null, null); Assert.AreEqual (2, c.Count, "#1"); try { list.Contains (null); Assert.Fail ("#2"); } catch (NullReferenceException) { } Assert.AreEqual (2, c.Count, "#3"); list.Remove (c.GetType ()); Assert.AreEqual (2, c.Count, "#4"); list.Remove (1); Assert.AreEqual (2, c.Count, "#5"); list.Remove ("Something"); Assert.AreEqual (2, c.Count, "#6"); list.Remove ("Baseball"); Assert.AreEqual (1, c.Count, "#7"); Assert.AreEqual ("Paintball", c[1], "#8"); } [Test] public void IList_RemoveAt () { Collection c = new Collection (); IList list = (IList) c; try { list.RemoveAt (0); Assert.Fail ("#1"); } catch (ArgumentOutOfRangeException) { } try { list.RemoveAt (-1); Assert.Fail ("#2"); } catch (ArgumentOutOfRangeException) { } c.Add ("Baseball", "Base", null, null); c.Add ("Paintball", "Paint", null, null); Assert.AreEqual (2, c.Count, "#3"); Assert.AreEqual ("Baseball", list[0], "#4"); list.RemoveAt (0); Assert.AreEqual (1, c.Count, "#5"); Assert.AreEqual ("Paintball", list[0], "#6"); c.Add ("Baseball", "Base", null, null); c.Add ("Basketball", "Basket", null, null); Assert.AreEqual ("Paintball", list[0], "#7"); Assert.AreEqual ("Baseball", list[1], "#8"); Assert.AreEqual ("Basketball", list[2], "#9"); try { list.RemoveAt (3); Assert.Fail ("#10"); } catch (ArgumentOutOfRangeException) { } list.RemoveAt (-1); Assert.AreEqual (2, c.Count, "#11"); Assert.AreEqual ("Baseball", list[0], "#12"); Assert.AreEqual ("Basketball", list[1], "#13"); } [Test] public void IList_IndexOf_2 () { Collection c = new Collection (); IList list = (IList) c; Assert.AreEqual (-1, list.IndexOf (null), "#1"); c.Add ("Baseball", "Base", null, null); c.Add ("Paintball", "Paint", null, null); c.Add (5, "6", null, null); try { list.IndexOf (null); Assert.Fail ("#2"); } catch (NullReferenceException) { } Assert.AreEqual (0, list.IndexOf ("Baseball"), "#3"); Assert.AreEqual (-1, list.IndexOf ("Base"), "#4"); Assert.AreEqual (1, list.IndexOf ("Paintball"), "#5"); Assert.AreEqual (-1, list.IndexOf ("Pain"), "#6"); Assert.AreEqual (2, list.IndexOf (5), "#7"); Assert.AreEqual (-1, list.IndexOf (6), "#8"); Assert.AreEqual (-1, list.IndexOf ("Something"), "#9"); } [Test] public void IList_Contains_2 () { Collection c = new Collection (); IList list = (IList) c; Assert.IsFalse (list.Contains (null), "#1"); c.Add ("Baseball", "Base", null, null); c.Add ("Paintball", "Paint", null, null); c.Add (5, "6", null, null); try { list.Contains (null); Assert.Fail ("#2"); } catch (NullReferenceException) { } Assert.AreEqual (true, list.Contains ("Baseball"), "#3"); Assert.AreEqual (false, list.Contains ("Base"), "#4"); Assert.AreEqual (true, list.Contains ("Paintball"), "#5"); Assert.AreEqual (false, list.Contains ("Paint"), "#6"); Assert.AreEqual (true, list.Contains (5), "#7"); Assert.AreEqual (false, list.Contains (6), "#8"); Assert.AreEqual (false, list.Contains ("Something"), "#9"); } [Test] public void IList_Indexer_Get () { Collection c = new Collection (); IList list = (IList) c; try { object value = list[0]; Assert.Fail ("#1"); } catch (ArgumentOutOfRangeException) { } try { object value = list[-1]; Assert.Fail ("#2"); } catch (ArgumentOutOfRangeException) { } c.Add ("Baseball", "Base", null, null); c.Add ("Paintball", "Paint", null, null); c.Add (5, "6", null, null); Assert.AreEqual ("Baseball", list[0], "#3"); Assert.AreEqual ("Paintball", list[1], "#4"); Assert.AreEqual (5, list[2], "#5"); try { object value = list[3]; Assert.Fail ("#6"); } catch (ArgumentOutOfRangeException) { } object val = list[-1]; Assert.AreEqual ("Baseball", val, "#6"); Assert.AreEqual ("Baseball", list [-2], "#7"); Assert.AreEqual ("Baseball", list [int.MinValue], "#8"); } [Test] #if !NET_2_0 [Category ("NotDotNet")] // setter is badly broken in MS.NET 1.x #endif public void IList_Indexer_Set () { Collection c = new Collection (); IList list = (IList) c; try { list[0] = "Baseball"; Assert.Fail ("#1"); } catch (ArgumentOutOfRangeException) { } try { list[-1] = "Baseball"; Assert.Fail ("#2"); } catch (ArgumentOutOfRangeException) { } c.Add ("Baseball", "Base", null, null); c.Add ("Paintball", "Paint", null, null); c.Add (5, "6", null, null); Assert.AreEqual (3, c.Count, "#3"); list[0] = "Basketball"; list[2] = "Six"; Assert.AreEqual (3, c.Count, "#4"); Assert.AreEqual ("Basketball", list[0], "#5"); Assert.AreEqual ("Paintball", list[1], "#6"); Assert.AreEqual ("Six", list[2], "#7"); try { list[3] = "Baseball"; Assert.Fail ("#8"); } catch (ArgumentOutOfRangeException) { } list[-1] = "Whatever"; Assert.AreEqual (3, c.Count, "#8"); Assert.AreEqual ("Whatever", list[0], "#9"); Assert.AreEqual ("Paintball", list[1], "#10"); Assert.AreEqual ("Six", list[2], "#11"); } } } mono-basic-2.4.2/vbruntime/Test/Microsoft.VisualBasic/DateAndTimeTests.cs0000644000175000001440000025213611213247537025725 0ustar builderusers// DateAndTimeTest.cs - NUnit Test Cases for Microsoft.VisualBasic.DateAndTime // // Boris Kirzner // Chris J. Breisch (cjbreisch@altavista.net) // Martin Willemoes Hansen (mwh@sysrq.dk) // Guy Cohen (guyc@mainsoft.com) // // // Copyright (c) 2002-2006 Mainsoft Corporation. // Copyright (C) 2004 Novell, Inc (http://www.novell.com) // // Permission is hereby granted, free of charge, to any person obtaining // a copy of this software and associated documentation files (the // "Software"), to deal in the Software without restriction, including // without limitation the rights to use, copy, modify, merge, publish, // distribute, sublicense, and/or sell copies of the Software, and to // permit persons to whom the Software is furnished to do so, subject to // the following conditions: // // The above copyright notice and this permission notice shall be // included in all copies or substantial portions of the Software. // // THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, // EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF // MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND // NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE // LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION // OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION // WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. // using NUnit.Framework; using System; using System.IO; using System.Globalization; using Microsoft.VisualBasic; namespace MonoTests.Microsoft_VisualBasic { [TestFixture] public class DateAndTimeTests { String date; String time; public DateAndTimeTests() { } [TestFixtureSetUp] public void TestFixtureSetUp() { date = DateAndTime.DateString; time = DateAndTime.TimeString; System.Threading.Thread.CurrentThread.CurrentCulture = new System.Globalization.CultureInfo("en-US"); } [TestFixtureTearDown] public void TestFixtureTearDown() { DateAndTime.DateString = date; DateAndTime.TimeString = time; } [SetUp] public void GetReady() { } [TearDown] public void Clean() { } #region DateAdd Tests [Test] public void DateAdd() { DateTime dtNow = DateTime.Now; Assert.AreEqual( dtNow.AddYears(1), DateAndTime.DateAdd(DateInterval.Year, 1, dtNow), "#DA01"); Assert.AreEqual( dtNow.AddYears(-1), DateAndTime.DateAdd("yyyy", -1, dtNow),"#DA02"); bool caughtException = false; try { DateAndTime.DateAdd("foo", 1, dtNow); } catch (Exception e) { Assert.AreEqual(e.GetType(), typeof(ArgumentException),"#DA03"); caughtException = true; } Assert.AreEqual(true, caughtException, "#DA04"); Assert.AreEqual(dtNow.AddMonths(6), DateAndTime.DateAdd(DateInterval.Quarter, 2, dtNow),"#DA05"); Assert.AreEqual( dtNow.AddMonths(-6), DateAndTime.DateAdd("q", -2, dtNow),"#DA06"); Assert.AreEqual(dtNow.AddMonths(3), DateAndTime.DateAdd(DateInterval.Month, 3, dtNow),"#DA07"); Assert.AreEqual(dtNow.AddMonths(-3), DateAndTime.DateAdd("m", -3, dtNow),"#DA08"); Assert.AreEqual(dtNow.AddDays(28), DateAndTime.DateAdd(DateInterval.WeekOfYear, 4, dtNow),"#DA09"); Assert.AreEqual(dtNow.AddDays(-28), DateAndTime.DateAdd("ww", -4, dtNow),"#DA10"); Assert.AreEqual(dtNow.AddDays(5), DateAndTime.DateAdd(DateInterval.Weekday, 5, dtNow),"#DA11"); Assert.AreEqual(dtNow.AddDays(-5), DateAndTime.DateAdd("w", -5, dtNow),"#DA12"); Assert.AreEqual(dtNow.AddDays(6), DateAndTime.DateAdd(DateInterval.DayOfYear, 6, dtNow),"#DA13"); Assert.AreEqual(dtNow.AddDays(-6), DateAndTime.DateAdd("y", -6, dtNow),"#DA14"); Assert.AreEqual(dtNow.AddDays(7), DateAndTime.DateAdd(DateInterval.Day, 7, dtNow),"#DA15"); Assert.AreEqual(dtNow.AddDays(-7), DateAndTime.DateAdd("d", -7, dtNow),"#DA16"); Assert.AreEqual(dtNow.AddHours(8), DateAndTime.DateAdd(DateInterval.Hour, 8, dtNow),"#DA17"); Assert.AreEqual(dtNow.AddHours(-8), DateAndTime.DateAdd(DateInterval.Hour, -8, dtNow),"#DA18"); Assert.AreEqual(dtNow.AddMinutes(9), DateAndTime.DateAdd(DateInterval.Minute, 9, dtNow),"#DA19"); Assert.AreEqual(dtNow.AddMinutes(-9), DateAndTime.DateAdd("n", -9, dtNow),"#DA20"); Assert.AreEqual(dtNow.AddSeconds(10), DateAndTime.DateAdd(DateInterval.Second, 10, dtNow),"#DA21"); Assert.AreEqual(dtNow.AddSeconds(-10), DateAndTime.DateAdd("s", -10, dtNow),"#DA22"); try { DateAndTime.DateAdd(DateInterval.Year, int.MinValue, dtNow); } catch (Exception e) { Assert.AreEqual(typeof(ArgumentOutOfRangeException), e.GetType(), "#DA23"); } } [Test] public void DateAdd_DateInterval_1() { Assert.AreEqual(DateTime.Parse("12/7/2003 00:00:00"),DateAndTime.DateAdd(DateInterval.Day, 2, DateTime.Parse("12/5/03"))); Assert.AreEqual(DateTime.Parse("12/7/2003 00:00:00"),DateAndTime.DateAdd(DateInterval.DayOfYear, 2, DateTime.Parse("12/5/03"))); Assert.AreEqual(DateTime.Parse("12/5/2003 02:00:00"),DateAndTime.DateAdd(DateInterval.Hour, 2, DateTime.Parse("12/5/03"))); Assert.AreEqual(DateTime.Parse("12/5/2003 00:02:00"),DateAndTime.DateAdd(DateInterval.Minute, 2, DateTime.Parse("12/5/03"))); Assert.AreEqual(DateTime.Parse("2/5/2004 00:00:00"),DateAndTime.DateAdd(DateInterval.Month, 2, DateTime.Parse("12/5/03"))); Assert.AreEqual(DateTime.Parse("6/5/2004 00:00:00"),DateAndTime.DateAdd(DateInterval.Quarter, 2, DateTime.Parse("12/5/03"))); Assert.AreEqual(DateTime.Parse("12/5/2003 00:00:02"),DateAndTime.DateAdd(DateInterval.Second, 2, DateTime.Parse("12/5/03"))); Assert.AreEqual(DateTime.Parse("12/7/2003 00:00:00"),DateAndTime.DateAdd(DateInterval.Weekday, 2, DateTime.Parse("12/5/03"))); Assert.AreEqual(DateTime.Parse("12/19/2003 00:00:00"),DateAndTime.DateAdd(DateInterval.WeekOfYear, 2, DateTime.Parse("12/5/03"))); Assert.AreEqual(DateTime.Parse("12/5/2005 00:00:00"),DateAndTime.DateAdd(DateInterval.Year, 2, DateTime.Parse("12/5/03"))); } [Test] public void DateAdd_String_1() { Assert.AreEqual(DateTime.Parse("12/7/2003 00:00:00"),DateAndTime.DateAdd("d", 2, DateTime.Parse("12/5/03"))); Assert.AreEqual(DateTime.Parse("12/7/2003 00:00:00"),DateAndTime.DateAdd("y", 2, DateTime.Parse("12/5/03"))); Assert.AreEqual(DateTime.Parse("12/5/2003 02:00:00"),DateAndTime.DateAdd("h", 2, DateTime.Parse("12/5/03"))); Assert.AreEqual(DateTime.Parse("12/5/2003 00:02:00"),DateAndTime.DateAdd("n", 2, DateTime.Parse("12/5/03"))); Assert.AreEqual(DateTime.Parse("2/5/2004 00:00:00"),DateAndTime.DateAdd("m", 2, DateTime.Parse("12/5/03"))); Assert.AreEqual(DateTime.Parse("6/5/2004 00:00:00"),DateAndTime.DateAdd("q", 2, DateTime.Parse("12/5/03"))); Assert.AreEqual(DateTime.Parse("12/5/2003 00:00:02"),DateAndTime.DateAdd("s", 2, DateTime.Parse("12/5/03"))); Assert.AreEqual(DateTime.Parse("12/7/2003 00:00:00"),DateAndTime.DateAdd("w", 2, DateTime.Parse("12/5/03"))); Assert.AreEqual(DateTime.Parse("12/19/2003 00:00:00"),DateAndTime.DateAdd("ww", 2, DateTime.Parse("12/5/03"))); Assert.AreEqual(DateTime.Parse("12/5/2005 00:00:00"),DateAndTime.DateAdd("yyyy", 2, DateTime.Parse("12/5/03"))); } [Test] public void DateAdd_DateInterval_2() { Assert.AreEqual(DateTime.Parse("12/3/2003 00:00:00"),DateAndTime.DateAdd(DateInterval.Day, -2, DateTime.Parse("12/5/03"))); Assert.AreEqual(DateTime.Parse("12/3/2003 00:00:00"),DateAndTime.DateAdd(DateInterval.DayOfYear, -2, DateTime.Parse("12/5/03"))); Assert.AreEqual(DateTime.Parse("12/4/2003 22:00:00"),DateAndTime.DateAdd(DateInterval.Hour, -2, DateTime.Parse("12/5/03"))); Assert.AreEqual(DateTime.Parse("12/4/2003 23:58:00"),DateAndTime.DateAdd(DateInterval.Minute, -2, DateTime.Parse("12/5/03"))); Assert.AreEqual(DateTime.Parse("10/5/2003 00:00:00"),DateAndTime.DateAdd(DateInterval.Month, -2, DateTime.Parse("12/5/03"))); Assert.AreEqual(DateTime.Parse("6/5/2003 00:00:00"),DateAndTime.DateAdd(DateInterval.Quarter, -2, DateTime.Parse("12/5/03"))); Assert.AreEqual(DateTime.Parse("12/4/2003 23:59:58"),DateAndTime.DateAdd(DateInterval.Second, -2, DateTime.Parse("12/5/03"))); Assert.AreEqual(DateTime.Parse("12/3/2003 00:00:00"),DateAndTime.DateAdd(DateInterval.Weekday, -2, DateTime.Parse("12/5/03"))); Assert.AreEqual(DateTime.Parse("11/21/2003 00:00:00"),DateAndTime.DateAdd(DateInterval.WeekOfYear, -2, DateTime.Parse("12/5/03"))); Assert.AreEqual(DateTime.Parse("12/5/2001 00:00:00"),DateAndTime.DateAdd(DateInterval.Year, -2, DateTime.Parse("12/5/03"))); } [Test] public void DateAdd_String_2() { Assert.AreEqual(DateTime.Parse("12/3/2003 00:00:00"),DateAndTime.DateAdd("d", -2, DateTime.Parse("12/5/03"))); Assert.AreEqual(DateTime.Parse("12/3/2003 00:00:00"),DateAndTime.DateAdd("y", -2, DateTime.Parse("12/5/03"))); Assert.AreEqual(DateTime.Parse("12/4/2003 22:00:00"),DateAndTime.DateAdd("h", -2, DateTime.Parse("12/5/03"))); Assert.AreEqual(DateTime.Parse("12/4/2003 23:58:00"),DateAndTime.DateAdd("n", -2, DateTime.Parse("12/5/03"))); Assert.AreEqual(DateTime.Parse("10/5/2003 00:00:00"),DateAndTime.DateAdd("m", -2, DateTime.Parse("12/5/03"))); Assert.AreEqual(DateTime.Parse("6/5/2003 00:00:00"),DateAndTime.DateAdd("q", -2, DateTime.Parse("12/5/03"))); Assert.AreEqual(DateTime.Parse("12/4/2003 23:59:58"),DateAndTime.DateAdd("s", -2, DateTime.Parse("12/5/03"))); Assert.AreEqual(DateTime.Parse("12/3/2003 00:00:00"),DateAndTime.DateAdd("w", -2, DateTime.Parse("12/5/03"))); Assert.AreEqual(DateTime.Parse("11/21/2003 00:00:00"),DateAndTime.DateAdd("ww", -2, DateTime.Parse("12/5/03"))); Assert.AreEqual(DateTime.Parse("12/5/2001 00:00:00"),DateAndTime.DateAdd("yyyy", -2, DateTime.Parse("12/5/03"))); } [Test] public void DateAdd_DateInterval_3() { Assert.AreEqual(DateTime.Parse("12/5/03 00:00:00"),DateAndTime.DateAdd(DateInterval.Day, 0, DateTime.Parse("12/5/03"))); Assert.AreEqual(DateTime.Parse("12/5/2003 00:00:00"),DateAndTime.DateAdd(DateInterval.DayOfYear, 0, DateTime.Parse("12/5/03"))); Assert.AreEqual(DateTime.Parse("12/5/2003 00:00:00"),DateAndTime.DateAdd(DateInterval.Hour, 0, DateTime.Parse("12/5/03"))); Assert.AreEqual(DateTime.Parse("12/5/2003 00:00:00"),DateAndTime.DateAdd(DateInterval.Minute, 0, DateTime.Parse("12/5/03"))); Assert.AreEqual(DateTime.Parse("12/5/2003 00:00:00"),DateAndTime.DateAdd(DateInterval.Month, 0, DateTime.Parse("12/5/03"))); Assert.AreEqual(DateTime.Parse("12/5/2003 00:00:00"),DateAndTime.DateAdd(DateInterval.Quarter, 0, DateTime.Parse("12/5/03"))); Assert.AreEqual(DateTime.Parse("12/5/2003 00:00:00"),DateAndTime.DateAdd(DateInterval.Second, 0, DateTime.Parse("12/5/03"))); Assert.AreEqual(DateTime.Parse("12/5/2003 00:00:00"),DateAndTime.DateAdd(DateInterval.Weekday, 0, DateTime.Parse("12/5/03"))); Assert.AreEqual(DateTime.Parse("12/5/2003 00:00:00"),DateAndTime.DateAdd(DateInterval.WeekOfYear, 0, DateTime.Parse("12/5/03"))); Assert.AreEqual(DateTime.Parse("12/5/2003 00:00:00"),DateAndTime.DateAdd(DateInterval.Year, 0, DateTime.Parse("12/5/03"))); } [Test] public void DateAdd_String_3() { Assert.AreEqual(DateTime.Parse("12/5/2003 00:00:00"),DateAndTime.DateAdd("d", 0, DateTime.Parse("12/5/03"))); Assert.AreEqual(DateTime.Parse("12/5/2003 00:00:00"),DateAndTime.DateAdd("y", 0, DateTime.Parse("12/5/03"))); Assert.AreEqual(DateTime.Parse("12/5/2003 00:00:00"),DateAndTime.DateAdd("h", 0, DateTime.Parse("12/5/03"))); Assert.AreEqual(DateTime.Parse("12/5/2003 00:00:00"),DateAndTime.DateAdd("n", 0, DateTime.Parse("12/5/03"))); Assert.AreEqual(DateTime.Parse("12/5/2003 00:00:00"),DateAndTime.DateAdd("m", 0, DateTime.Parse("12/5/03"))); Assert.AreEqual(DateTime.Parse("12/5/2003 00:00:00"),DateAndTime.DateAdd("q", 0, DateTime.Parse("12/5/03"))); Assert.AreEqual(DateTime.Parse("12/5/2003 00:00:00"),DateAndTime.DateAdd("s", 0, DateTime.Parse("12/5/03"))); Assert.AreEqual(DateTime.Parse("12/5/2003 00:00:00"),DateAndTime.DateAdd("w", 0, DateTime.Parse("12/5/03"))); Assert.AreEqual(DateTime.Parse("12/5/2003 00:00:00"),DateAndTime.DateAdd("ww", 0, DateTime.Parse("12/5/03"))); Assert.AreEqual(DateTime.Parse("12/5/2003 00:00:00"),DateAndTime.DateAdd("yyyy", 0, DateTime.Parse("12/5/03"))); } [Test] [ExpectedException(typeof(InvalidCastException))] public void DateAdd_1() { // Argument 'DateValue' cannot be converted to type 'Date'. DateAndTime.DateAdd("d", 0, "12test5/03"); } [Test] [ExpectedException(typeof(OverflowException))] public void DateAdd_2() { DateAndTime.DateAdd("yyyy", 9999999999999999999L, DateTime.Parse("12/5/03")); } [Test] [ExpectedException(typeof(ArgumentOutOfRangeException))] public void DateAdd_3() { DateAndTime.DateAdd("yyyy", -5, new DateTime()); } [Test] [ExpectedException(typeof(ArgumentException))] public void DateAdd_5() { DateAndTime.DateAdd("yyy", 5, DateTime.Parse("12/5/03")); } #endregion #region DateDiff Tests [Test] public void DateDiff () { DateTime dtNow = DateTime.Now; DateTime dtOld = dtNow.AddYears(-1); // TODO: Test this better long diff = DateAndTime.DateDiff(DateInterval.Year, dtOld, dtNow, FirstDayOfWeek.System, FirstWeekOfYear.System); Assert.AreEqual(dtNow, dtOld.AddYears((int)diff),"#DD01"); DateTime dtJan1 = new DateTime(2002, 1, 1); DateTime dtDec31 = new DateTime(2001, 12, 31); diff = DateAndTime.DateDiff(DateInterval.Year, dtDec31, dtJan1, FirstDayOfWeek.System, FirstWeekOfYear.System); Assert.AreEqual(1L, diff,"#DD02"); diff = DateAndTime.DateDiff(DateInterval.Quarter, dtDec31, dtJan1, FirstDayOfWeek.System, FirstWeekOfYear.System); Assert.AreEqual(1L, diff,"#DD03"); diff = DateAndTime.DateDiff(DateInterval.Month, dtDec31, dtJan1, FirstDayOfWeek.System, FirstWeekOfYear.System); Assert.AreEqual(1L, diff,"#DD04"); DateTime dtJan4 = new DateTime(2001, 1, 4); // This is a Thursday DateTime dtJan9 = new DateTime(2001, 1, 9); // This is the next Tuesday long WD = DateAndTime.DateDiff(DateInterval.Weekday, dtJan4, dtJan9, FirstDayOfWeek.System, FirstWeekOfYear.System); Assert.AreEqual (0L, WD,"#DD05"); long WY = DateAndTime.DateDiff(DateInterval.WeekOfYear, dtJan4, dtJan9, FirstDayOfWeek.System, FirstWeekOfYear.System); Assert.AreEqual (1L, WY, "#DD06"); } [Test] public void DateDiff_DateInterval_1() { Assert.AreEqual(727,DateAndTime.DateDiff(DateInterval.Day, DateTime.Parse("12/5/03"),DateTime.Parse("12/1/05"),FirstDayOfWeek.System ,FirstWeekOfYear.System)); Assert.AreEqual(727,DateAndTime.DateDiff(DateInterval.DayOfYear, DateTime.Parse("12/5/03"),DateTime.Parse("12/1/05"),FirstDayOfWeek.System ,FirstWeekOfYear.System)); Assert.AreEqual(17448,DateAndTime.DateDiff(DateInterval.Hour, DateTime.Parse("12/5/03"),DateTime.Parse("12/1/05"),FirstDayOfWeek.System ,FirstWeekOfYear.System)); Assert.AreEqual(1046880,DateAndTime.DateDiff(DateInterval.Minute, DateTime.Parse("12/5/03"),DateTime.Parse("12/1/05"),FirstDayOfWeek.System ,FirstWeekOfYear.System)); Assert.AreEqual(24,DateAndTime.DateDiff(DateInterval.Month, DateTime.Parse("12/5/03"),DateTime.Parse("12/1/05"),FirstDayOfWeek.System ,FirstWeekOfYear.System)); Assert.AreEqual(8,DateAndTime.DateDiff(DateInterval.Quarter, DateTime.Parse("12/5/03"),DateTime.Parse("12/1/05"),FirstDayOfWeek.System ,FirstWeekOfYear.System)); Assert.AreEqual(62812800,DateAndTime.DateDiff(DateInterval.Second, DateTime.Parse("12/5/03"),DateTime.Parse("12/1/05"),FirstDayOfWeek.System ,FirstWeekOfYear.System)); Assert.AreEqual(103,DateAndTime.DateDiff(DateInterval.Weekday, DateTime.Parse("12/5/03"),DateTime.Parse("12/1/05"),FirstDayOfWeek.System ,FirstWeekOfYear.System)); Assert.AreEqual(2,DateAndTime.DateDiff(DateInterval.Year, DateTime.Parse("12/5/03"),DateTime.Parse("12/1/05"),FirstDayOfWeek.System ,FirstWeekOfYear.System)); } [Test] public void DateDiff_String_1() { Assert.AreEqual(727,DateAndTime.DateDiff("d", DateTime.Parse("12/5/03"),DateTime.Parse("12/1/05"),FirstDayOfWeek.System ,FirstWeekOfYear.System)); Assert.AreEqual(727,DateAndTime.DateDiff("y", DateTime.Parse("12/5/03"),DateTime.Parse("12/1/05"),FirstDayOfWeek.System ,FirstWeekOfYear.System)); Assert.AreEqual(17448,DateAndTime.DateDiff("h", DateTime.Parse("12/5/03"),DateTime.Parse("12/1/05"),FirstDayOfWeek.System ,FirstWeekOfYear.System)); Assert.AreEqual(1046880,DateAndTime.DateDiff("n", DateTime.Parse("12/5/03"),DateTime.Parse("12/1/05"),FirstDayOfWeek.System ,FirstWeekOfYear.System)); Assert.AreEqual(24,DateAndTime.DateDiff("m", DateTime.Parse("12/5/03"),DateTime.Parse("12/1/05"),FirstDayOfWeek.System ,FirstWeekOfYear.System)); Assert.AreEqual(8,DateAndTime.DateDiff("q", DateTime.Parse("12/5/03"),DateTime.Parse("12/1/05"),FirstDayOfWeek.System ,FirstWeekOfYear.System)); Assert.AreEqual(62812800,DateAndTime.DateDiff("s", DateTime.Parse("12/5/03"),DateTime.Parse("12/1/05"),FirstDayOfWeek.System ,FirstWeekOfYear.System)); Assert.AreEqual(103,DateAndTime.DateDiff("w", DateTime.Parse("12/5/03"),DateTime.Parse("12/1/05"),FirstDayOfWeek.System ,FirstWeekOfYear.System)); Assert.AreEqual(2,DateAndTime.DateDiff("yyyy", DateTime.Parse("12/5/03"),DateTime.Parse("12/1/05"),FirstDayOfWeek.System ,FirstWeekOfYear.System)); } [Test] public void DateDiff_FirstDayOfWeek_1() { Assert.AreEqual(727,DateAndTime.DateDiff(DateInterval.Day, DateTime.Parse("12/5/03"),DateTime.Parse("12/1/05"),FirstDayOfWeek.Sunday ,FirstWeekOfYear.System)); Assert.AreEqual(727,DateAndTime.DateDiff(DateInterval.DayOfYear, DateTime.Parse("12/5/03"),DateTime.Parse("12/1/05"),FirstDayOfWeek.Sunday ,FirstWeekOfYear.System)); Assert.AreEqual(17448,DateAndTime.DateDiff(DateInterval.Hour, DateTime.Parse("12/5/03"),DateTime.Parse("12/1/05"),FirstDayOfWeek.Sunday ,FirstWeekOfYear.System)); Assert.AreEqual(1046880,DateAndTime.DateDiff(DateInterval.Minute, DateTime.Parse("12/5/03"),DateTime.Parse("12/1/05"),FirstDayOfWeek.Sunday ,FirstWeekOfYear.System)); Assert.AreEqual(24,DateAndTime.DateDiff(DateInterval.Month, DateTime.Parse("12/5/03"),DateTime.Parse("12/1/05"),FirstDayOfWeek.Sunday ,FirstWeekOfYear.System)); Assert.AreEqual(8,DateAndTime.DateDiff(DateInterval.Quarter, DateTime.Parse("12/5/03"),DateTime.Parse("12/1/05"),FirstDayOfWeek.Sunday ,FirstWeekOfYear.System)); Assert.AreEqual(62812800,DateAndTime.DateDiff(DateInterval.Second, DateTime.Parse("12/5/03"),DateTime.Parse("12/1/05"),FirstDayOfWeek.Sunday ,FirstWeekOfYear.System)); Assert.AreEqual(103,DateAndTime.DateDiff(DateInterval.Weekday, DateTime.Parse("12/5/03"),DateTime.Parse("12/1/05"),FirstDayOfWeek.Sunday ,FirstWeekOfYear.System)); Assert.AreEqual(2,DateAndTime.DateDiff(DateInterval.Year, DateTime.Parse("12/5/03"),DateTime.Parse("12/1/05"),FirstDayOfWeek.Sunday ,FirstWeekOfYear.System)); Assert.AreEqual(727,DateAndTime.DateDiff(DateInterval.Day, DateTime.Parse("12/5/03"),DateTime.Parse("12/1/05"),FirstDayOfWeek.Monday ,FirstWeekOfYear.System)); Assert.AreEqual(727,DateAndTime.DateDiff(DateInterval.DayOfYear, DateTime.Parse("12/5/03"),DateTime.Parse("12/1/05"),FirstDayOfWeek.Monday ,FirstWeekOfYear.System)); Assert.AreEqual(17448,DateAndTime.DateDiff(DateInterval.Hour, DateTime.Parse("12/5/03"),DateTime.Parse("12/1/05"),FirstDayOfWeek.Monday ,FirstWeekOfYear.System)); Assert.AreEqual(1046880,DateAndTime.DateDiff(DateInterval.Minute, DateTime.Parse("12/5/03"),DateTime.Parse("12/1/05"),FirstDayOfWeek.Monday ,FirstWeekOfYear.System)); Assert.AreEqual(24,DateAndTime.DateDiff(DateInterval.Month, DateTime.Parse("12/5/03"),DateTime.Parse("12/1/05"),FirstDayOfWeek.Monday ,FirstWeekOfYear.System)); Assert.AreEqual(8,DateAndTime.DateDiff(DateInterval.Quarter, DateTime.Parse("12/5/03"),DateTime.Parse("12/1/05"),FirstDayOfWeek.Monday ,FirstWeekOfYear.System)); Assert.AreEqual(62812800,DateAndTime.DateDiff(DateInterval.Second, DateTime.Parse("12/5/03"),DateTime.Parse("12/1/05"),FirstDayOfWeek.Monday ,FirstWeekOfYear.System)); Assert.AreEqual(103,DateAndTime.DateDiff(DateInterval.Weekday, DateTime.Parse("12/5/03"),DateTime.Parse("12/1/05"),FirstDayOfWeek.Monday ,FirstWeekOfYear.System)); Assert.AreEqual(2,DateAndTime.DateDiff(DateInterval.Year, DateTime.Parse("12/5/03"),DateTime.Parse("12/1/05"),FirstDayOfWeek.Monday ,FirstWeekOfYear.System)); Assert.AreEqual(727,DateAndTime.DateDiff(DateInterval.Day, DateTime.Parse("12/5/03"),DateTime.Parse("12/1/05"),FirstDayOfWeek.Tuesday ,FirstWeekOfYear.System)); Assert.AreEqual(727,DateAndTime.DateDiff(DateInterval.DayOfYear, DateTime.Parse("12/5/03"),DateTime.Parse("12/1/05"),FirstDayOfWeek.Tuesday ,FirstWeekOfYear.System)); Assert.AreEqual(17448,DateAndTime.DateDiff(DateInterval.Hour, DateTime.Parse("12/5/03"),DateTime.Parse("12/1/05"),FirstDayOfWeek.Tuesday ,FirstWeekOfYear.System)); Assert.AreEqual(1046880,DateAndTime.DateDiff(DateInterval.Minute, DateTime.Parse("12/5/03"),DateTime.Parse("12/1/05"),FirstDayOfWeek.Tuesday ,FirstWeekOfYear.System)); Assert.AreEqual(24,DateAndTime.DateDiff(DateInterval.Month, DateTime.Parse("12/5/03"),DateTime.Parse("12/1/05"),FirstDayOfWeek.Tuesday ,FirstWeekOfYear.System)); Assert.AreEqual(8,DateAndTime.DateDiff(DateInterval.Quarter, DateTime.Parse("12/5/03"),DateTime.Parse("12/1/05"),FirstDayOfWeek.Tuesday ,FirstWeekOfYear.System)); Assert.AreEqual(62812800,DateAndTime.DateDiff(DateInterval.Second, DateTime.Parse("12/5/03"),DateTime.Parse("12/1/05"),FirstDayOfWeek.Tuesday ,FirstWeekOfYear.System)); Assert.AreEqual(103,DateAndTime.DateDiff(DateInterval.Weekday, DateTime.Parse("12/5/03"),DateTime.Parse("12/1/05"),FirstDayOfWeek.Tuesday ,FirstWeekOfYear.System)); Assert.AreEqual(2,DateAndTime.DateDiff(DateInterval.Year, DateTime.Parse("12/5/03"),DateTime.Parse("12/1/05"),FirstDayOfWeek.Tuesday ,FirstWeekOfYear.System)); Assert.AreEqual(727,DateAndTime.DateDiff(DateInterval.Day, DateTime.Parse("12/5/03"),DateTime.Parse("12/1/05"),FirstDayOfWeek.Wednesday ,FirstWeekOfYear.System)); Assert.AreEqual(727,DateAndTime.DateDiff(DateInterval.DayOfYear, DateTime.Parse("12/5/03"),DateTime.Parse("12/1/05"),FirstDayOfWeek.Wednesday ,FirstWeekOfYear.System)); Assert.AreEqual(17448,DateAndTime.DateDiff(DateInterval.Hour, DateTime.Parse("12/5/03"),DateTime.Parse("12/1/05"),FirstDayOfWeek.Wednesday ,FirstWeekOfYear.System)); Assert.AreEqual(1046880,DateAndTime.DateDiff(DateInterval.Minute, DateTime.Parse("12/5/03"),DateTime.Parse("12/1/05"),FirstDayOfWeek.Wednesday ,FirstWeekOfYear.System)); Assert.AreEqual(24,DateAndTime.DateDiff(DateInterval.Month, DateTime.Parse("12/5/03"),DateTime.Parse("12/1/05"),FirstDayOfWeek.Wednesday ,FirstWeekOfYear.System)); Assert.AreEqual(8,DateAndTime.DateDiff(DateInterval.Quarter, DateTime.Parse("12/5/03"),DateTime.Parse("12/1/05"),FirstDayOfWeek.Wednesday ,FirstWeekOfYear.System)); Assert.AreEqual(62812800,DateAndTime.DateDiff(DateInterval.Second, DateTime.Parse("12/5/03"),DateTime.Parse("12/1/05"),FirstDayOfWeek.Wednesday ,FirstWeekOfYear.System)); Assert.AreEqual(103,DateAndTime.DateDiff(DateInterval.Weekday, DateTime.Parse("12/5/03"),DateTime.Parse("12/1/05"),FirstDayOfWeek.Wednesday ,FirstWeekOfYear.System)); Assert.AreEqual(2,DateAndTime.DateDiff(DateInterval.Year, DateTime.Parse("12/5/03"),DateTime.Parse("12/1/05"),FirstDayOfWeek.Wednesday ,FirstWeekOfYear.System)); Assert.AreEqual(727,DateAndTime.DateDiff(DateInterval.Day, DateTime.Parse("12/5/03"),DateTime.Parse("12/1/05"),FirstDayOfWeek.Thursday ,FirstWeekOfYear.System)); Assert.AreEqual(727,DateAndTime.DateDiff(DateInterval.DayOfYear, DateTime.Parse("12/5/03"),DateTime.Parse("12/1/05"),FirstDayOfWeek.Thursday ,FirstWeekOfYear.System)); Assert.AreEqual(17448,DateAndTime.DateDiff(DateInterval.Hour, DateTime.Parse("12/5/03"),DateTime.Parse("12/1/05"),FirstDayOfWeek.Thursday ,FirstWeekOfYear.System)); Assert.AreEqual(1046880,DateAndTime.DateDiff(DateInterval.Minute, DateTime.Parse("12/5/03"),DateTime.Parse("12/1/05"),FirstDayOfWeek.Thursday ,FirstWeekOfYear.System)); Assert.AreEqual(24,DateAndTime.DateDiff(DateInterval.Month, DateTime.Parse("12/5/03"),DateTime.Parse("12/1/05"),FirstDayOfWeek.Thursday ,FirstWeekOfYear.System)); Assert.AreEqual(8,DateAndTime.DateDiff(DateInterval.Quarter, DateTime.Parse("12/5/03"),DateTime.Parse("12/1/05"),FirstDayOfWeek.Thursday ,FirstWeekOfYear.System)); Assert.AreEqual(62812800,DateAndTime.DateDiff(DateInterval.Second, DateTime.Parse("12/5/03"),DateTime.Parse("12/1/05"),FirstDayOfWeek.Thursday ,FirstWeekOfYear.System)); Assert.AreEqual(103,DateAndTime.DateDiff(DateInterval.Weekday, DateTime.Parse("12/5/03"),DateTime.Parse("12/1/05"),FirstDayOfWeek.Thursday ,FirstWeekOfYear.System)); Assert.AreEqual(2,DateAndTime.DateDiff(DateInterval.Year, DateTime.Parse("12/5/03"),DateTime.Parse("12/1/05"),FirstDayOfWeek.Thursday ,FirstWeekOfYear.System)); Assert.AreEqual(727,DateAndTime.DateDiff(DateInterval.Day, DateTime.Parse("12/5/03"),DateTime.Parse("12/1/05"),FirstDayOfWeek.Friday ,FirstWeekOfYear.System)); Assert.AreEqual(727,DateAndTime.DateDiff(DateInterval.DayOfYear, DateTime.Parse("12/5/03"),DateTime.Parse("12/1/05"),FirstDayOfWeek.Friday ,FirstWeekOfYear.System)); Assert.AreEqual(17448,DateAndTime.DateDiff(DateInterval.Hour, DateTime.Parse("12/5/03"),DateTime.Parse("12/1/05"),FirstDayOfWeek.Friday ,FirstWeekOfYear.System)); Assert.AreEqual(1046880,DateAndTime.DateDiff(DateInterval.Minute, DateTime.Parse("12/5/03"),DateTime.Parse("12/1/05"),FirstDayOfWeek.Friday ,FirstWeekOfYear.System)); Assert.AreEqual(24,DateAndTime.DateDiff(DateInterval.Month, DateTime.Parse("12/5/03"),DateTime.Parse("12/1/05"),FirstDayOfWeek.Friday ,FirstWeekOfYear.System)); Assert.AreEqual(8,DateAndTime.DateDiff(DateInterval.Quarter, DateTime.Parse("12/5/03"),DateTime.Parse("12/1/05"),FirstDayOfWeek.Friday ,FirstWeekOfYear.System)); Assert.AreEqual(62812800,DateAndTime.DateDiff(DateInterval.Second, DateTime.Parse("12/5/03"),DateTime.Parse("12/1/05"),FirstDayOfWeek.Friday ,FirstWeekOfYear.System)); Assert.AreEqual(103,DateAndTime.DateDiff(DateInterval.Weekday, DateTime.Parse("12/5/03"),DateTime.Parse("12/1/05"),FirstDayOfWeek.Friday ,FirstWeekOfYear.System)); Assert.AreEqual(2,DateAndTime.DateDiff(DateInterval.Year, DateTime.Parse("12/5/03"),DateTime.Parse("12/1/05"),FirstDayOfWeek.Friday ,FirstWeekOfYear.System)); Assert.AreEqual(727,DateAndTime.DateDiff(DateInterval.Day, DateTime.Parse("12/5/03"),DateTime.Parse("12/1/05"),FirstDayOfWeek.Saturday ,FirstWeekOfYear.System)); Assert.AreEqual(727,DateAndTime.DateDiff(DateInterval.DayOfYear, DateTime.Parse("12/5/03"),DateTime.Parse("12/1/05"),FirstDayOfWeek.Saturday ,FirstWeekOfYear.System)); Assert.AreEqual(17448,DateAndTime.DateDiff(DateInterval.Hour, DateTime.Parse("12/5/03"),DateTime.Parse("12/1/05"),FirstDayOfWeek.Saturday ,FirstWeekOfYear.System)); Assert.AreEqual(1046880,DateAndTime.DateDiff(DateInterval.Minute, DateTime.Parse("12/5/03"),DateTime.Parse("12/1/05"),FirstDayOfWeek.Saturday ,FirstWeekOfYear.System)); Assert.AreEqual(24,DateAndTime.DateDiff(DateInterval.Month, DateTime.Parse("12/5/03"),DateTime.Parse("12/1/05"),FirstDayOfWeek.Saturday ,FirstWeekOfYear.System)); Assert.AreEqual(8,DateAndTime.DateDiff(DateInterval.Quarter, DateTime.Parse("12/5/03"),DateTime.Parse("12/1/05"),FirstDayOfWeek.Saturday ,FirstWeekOfYear.System)); Assert.AreEqual(62812800,DateAndTime.DateDiff(DateInterval.Second, DateTime.Parse("12/5/03"),DateTime.Parse("12/1/05"),FirstDayOfWeek.Saturday ,FirstWeekOfYear.System)); Assert.AreEqual(103,DateAndTime.DateDiff(DateInterval.Weekday, DateTime.Parse("12/5/03"),DateTime.Parse("12/1/05"),FirstDayOfWeek.Saturday ,FirstWeekOfYear.System)); Assert.AreEqual(2,DateAndTime.DateDiff(DateInterval.Year, DateTime.Parse("12/5/03"),DateTime.Parse("12/1/05"),FirstDayOfWeek.Saturday ,FirstWeekOfYear.System)); } [Test] public void DateDiff_FirstWeekOfYear_1() { Assert.AreEqual(727,DateAndTime.DateDiff(DateInterval.Day, DateTime.Parse("12/5/03"),DateTime.Parse("12/1/05"),FirstDayOfWeek.System ,FirstWeekOfYear.Jan1 )); Assert.AreEqual(727,DateAndTime.DateDiff(DateInterval.DayOfYear, DateTime.Parse("12/5/03"),DateTime.Parse("12/1/05"),FirstDayOfWeek.System ,FirstWeekOfYear.Jan1 )); Assert.AreEqual(17448,DateAndTime.DateDiff(DateInterval.Hour, DateTime.Parse("12/5/03"),DateTime.Parse("12/1/05"),FirstDayOfWeek.System ,FirstWeekOfYear.Jan1 )); Assert.AreEqual(1046880,DateAndTime.DateDiff(DateInterval.Minute, DateTime.Parse("12/5/03"),DateTime.Parse("12/1/05"),FirstDayOfWeek.System ,FirstWeekOfYear.Jan1 )); Assert.AreEqual(24,DateAndTime.DateDiff(DateInterval.Month, DateTime.Parse("12/5/03"),DateTime.Parse("12/1/05"),FirstDayOfWeek.System ,FirstWeekOfYear.Jan1 )); Assert.AreEqual(8,DateAndTime.DateDiff(DateInterval.Quarter, DateTime.Parse("12/5/03"),DateTime.Parse("12/1/05"),FirstDayOfWeek.System ,FirstWeekOfYear.Jan1 )); Assert.AreEqual(62812800,DateAndTime.DateDiff(DateInterval.Second, DateTime.Parse("12/5/03"),DateTime.Parse("12/1/05"),FirstDayOfWeek.System ,FirstWeekOfYear.Jan1 )); Assert.AreEqual(103,DateAndTime.DateDiff(DateInterval.Weekday, DateTime.Parse("12/5/03"),DateTime.Parse("12/1/05"),FirstDayOfWeek.System ,FirstWeekOfYear.Jan1 )); Assert.AreEqual(2,DateAndTime.DateDiff(DateInterval.Year, DateTime.Parse("12/5/03"),DateTime.Parse("12/1/05"),FirstDayOfWeek.System ,FirstWeekOfYear.Jan1 )); Assert.AreEqual(727,DateAndTime.DateDiff(DateInterval.Day, DateTime.Parse("12/5/03"),DateTime.Parse("12/1/05"),FirstDayOfWeek.System ,FirstWeekOfYear.FirstFourDays )); Assert.AreEqual(727,DateAndTime.DateDiff(DateInterval.DayOfYear, DateTime.Parse("12/5/03"),DateTime.Parse("12/1/05"),FirstDayOfWeek.System ,FirstWeekOfYear.FirstFourDays )); Assert.AreEqual(17448,DateAndTime.DateDiff(DateInterval.Hour, DateTime.Parse("12/5/03"),DateTime.Parse("12/1/05"),FirstDayOfWeek.System ,FirstWeekOfYear.FirstFourDays )); Assert.AreEqual(1046880,DateAndTime.DateDiff(DateInterval.Minute, DateTime.Parse("12/5/03"),DateTime.Parse("12/1/05"),FirstDayOfWeek.System ,FirstWeekOfYear.FirstFourDays )); Assert.AreEqual(24,DateAndTime.DateDiff(DateInterval.Month, DateTime.Parse("12/5/03"),DateTime.Parse("12/1/05"),FirstDayOfWeek.System ,FirstWeekOfYear.FirstFourDays )); Assert.AreEqual(8,DateAndTime.DateDiff(DateInterval.Quarter, DateTime.Parse("12/5/03"),DateTime.Parse("12/1/05"),FirstDayOfWeek.System ,FirstWeekOfYear.FirstFourDays )); Assert.AreEqual(62812800,DateAndTime.DateDiff(DateInterval.Second, DateTime.Parse("12/5/03"),DateTime.Parse("12/1/05"),FirstDayOfWeek.System ,FirstWeekOfYear.FirstFourDays )); Assert.AreEqual(103,DateAndTime.DateDiff(DateInterval.Weekday, DateTime.Parse("12/5/03"),DateTime.Parse("12/1/05"),FirstDayOfWeek.System ,FirstWeekOfYear.FirstFourDays )); Assert.AreEqual(2,DateAndTime.DateDiff(DateInterval.Year, DateTime.Parse("12/5/03"),DateTime.Parse("12/1/05"),FirstDayOfWeek.System ,FirstWeekOfYear.FirstFourDays )); Assert.AreEqual(727,DateAndTime.DateDiff(DateInterval.Day, DateTime.Parse("12/5/03"),DateTime.Parse("12/1/05"),FirstDayOfWeek.System ,FirstWeekOfYear.FirstFullWeek )); Assert.AreEqual(727,DateAndTime.DateDiff(DateInterval.DayOfYear, DateTime.Parse("12/5/03"),DateTime.Parse("12/1/05"),FirstDayOfWeek.System ,FirstWeekOfYear.FirstFullWeek )); Assert.AreEqual(17448,DateAndTime.DateDiff(DateInterval.Hour, DateTime.Parse("12/5/03"),DateTime.Parse("12/1/05"),FirstDayOfWeek.System ,FirstWeekOfYear.FirstFullWeek )); Assert.AreEqual(1046880,DateAndTime.DateDiff(DateInterval.Minute, DateTime.Parse("12/5/03"),DateTime.Parse("12/1/05"),FirstDayOfWeek.System ,FirstWeekOfYear.FirstFullWeek )); Assert.AreEqual(24,DateAndTime.DateDiff(DateInterval.Month, DateTime.Parse("12/5/03"),DateTime.Parse("12/1/05"),FirstDayOfWeek.System ,FirstWeekOfYear.FirstFullWeek )); Assert.AreEqual(8,DateAndTime.DateDiff(DateInterval.Quarter, DateTime.Parse("12/5/03"),DateTime.Parse("12/1/05"),FirstDayOfWeek.System ,FirstWeekOfYear.FirstFullWeek )); Assert.AreEqual(62812800,DateAndTime.DateDiff(DateInterval.Second, DateTime.Parse("12/5/03"),DateTime.Parse("12/1/05"),FirstDayOfWeek.System ,FirstWeekOfYear.FirstFullWeek )); Assert.AreEqual(103,DateAndTime.DateDiff(DateInterval.Weekday, DateTime.Parse("12/5/03"),DateTime.Parse("12/1/05"),FirstDayOfWeek.System ,FirstWeekOfYear.FirstFullWeek )); Assert.AreEqual(2,DateAndTime.DateDiff(DateInterval.Year, DateTime.Parse("12/5/03"),DateTime.Parse("12/1/05"),FirstDayOfWeek.System ,FirstWeekOfYear.FirstFullWeek )); } [Test] public void DateDiff_DateInterval_WeekOfYear() { Assert.AreEqual(104,DateAndTime.DateDiff(DateInterval.WeekOfYear, DateTime.Parse("12/5/03"),DateTime.Parse("12/1/05"),FirstDayOfWeek.System,FirstWeekOfYear.System),"1"); Assert.AreEqual(104,DateAndTime.DateDiff("ww", DateTime.Parse("12/5/03"),DateTime.Parse("12/1/05"),FirstDayOfWeek.System,FirstWeekOfYear.System),"2"); Assert.AreEqual(104,DateAndTime.DateDiff(DateInterval.WeekOfYear, DateTime.Parse("12/5/03"),DateTime.Parse("12/1/05"),FirstDayOfWeek.Sunday,FirstWeekOfYear.System),"3"); Assert.AreEqual(104,DateAndTime.DateDiff(DateInterval.WeekOfYear, DateTime.Parse("12/5/03"),DateTime.Parse("12/1/05"),FirstDayOfWeek.Monday,FirstWeekOfYear.System),"4"); Assert.AreEqual(104,DateAndTime.DateDiff(DateInterval.WeekOfYear, DateTime.Parse("12/5/03"),DateTime.Parse("12/1/05"),FirstDayOfWeek.Tuesday,FirstWeekOfYear.System)); Assert.AreEqual(104,DateAndTime.DateDiff(DateInterval.WeekOfYear, DateTime.Parse("12/5/03"),DateTime.Parse("12/1/05"),FirstDayOfWeek.Wednesday,FirstWeekOfYear.System)); Assert.AreEqual(104,DateAndTime.DateDiff(DateInterval.WeekOfYear, DateTime.Parse("12/5/03"),DateTime.Parse("12/1/05"),FirstDayOfWeek.Thursday,FirstWeekOfYear.System)); Assert.AreEqual(103,DateAndTime.DateDiff(DateInterval.WeekOfYear, DateTime.Parse("12/5/03"),DateTime.Parse("12/1/05"),FirstDayOfWeek.Friday,FirstWeekOfYear.System)); Assert.AreEqual(104,DateAndTime.DateDiff(DateInterval.WeekOfYear, DateTime.Parse("12/5/03"),DateTime.Parse("12/1/05"),FirstDayOfWeek.Saturday,FirstWeekOfYear.System)); Assert.AreEqual(104,DateAndTime.DateDiff(DateInterval.WeekOfYear, DateTime.Parse("12/5/03"),DateTime.Parse("12/1/05"),FirstDayOfWeek.System,FirstWeekOfYear.Jan1 )); Assert.AreEqual(104,DateAndTime.DateDiff(DateInterval.WeekOfYear, DateTime.Parse("12/5/03"),DateTime.Parse("12/1/05"),FirstDayOfWeek.System,FirstWeekOfYear.FirstFourDays )); Assert.AreEqual(104,DateAndTime.DateDiff(DateInterval.WeekOfYear, DateTime.Parse("12/5/03"),DateTime.Parse("12/1/05"),FirstDayOfWeek.System,FirstWeekOfYear.FirstFullWeek )); } [Test] [ExpectedException(typeof(ArgumentException))] public void DateDiff_1() { // Argument 'Interval' is not a valid value. DateAndTime.DateDiff("k", DateTime.Parse("12/5/03"),DateTime.Parse("12/1/05"),FirstDayOfWeek.System ,FirstWeekOfYear.System ); } [Test] [ExpectedException(typeof(InvalidCastException))] public void DateDiff_3() { // Argument 'Date2' cannot be converted to type 'Date'. DateAndTime.DateDiff("d", DateTime.Parse("12/5/03"),"12test5/03", (FirstDayOfWeek)8 ,FirstWeekOfYear.System ); } #endregion #region DatePart Tests [Test] public void DatePart () { DateTime dtJan4 = new DateTime(2001, 1, 4); // TODO: Test this better Assert.AreEqual(2001, DateAndTime.DatePart(DateInterval.Year, dtJan4, FirstDayOfWeek.System, FirstWeekOfYear.System),"#DP01"); Assert.AreEqual(1, DateAndTime.DatePart(DateInterval.Quarter, dtJan4, FirstDayOfWeek.System, FirstWeekOfYear.System),"#DP02"); Assert.AreEqual(1, DateAndTime.DatePart(DateInterval.Month, dtJan4, FirstDayOfWeek.System, FirstWeekOfYear.System),"#DP03"); Assert.AreEqual(1, DateAndTime.DatePart(DateInterval.WeekOfYear, dtJan4, FirstDayOfWeek.System, FirstWeekOfYear.FirstFourDays),"#DP04"); Assert.AreEqual(53, DateAndTime.DatePart(DateInterval.WeekOfYear, dtJan4, FirstDayOfWeek.System, FirstWeekOfYear.FirstFullWeek),"#DP05"); Assert.AreEqual(1, DateAndTime.DatePart(DateInterval.WeekOfYear, dtJan4, FirstDayOfWeek.System, FirstWeekOfYear.Jan1),"#DP06"); Assert.AreEqual(1, DateAndTime.DatePart(DateInterval.WeekOfYear, dtJan4, FirstDayOfWeek.System, FirstWeekOfYear.System),"#DP07"); Assert.AreEqual(7, DateAndTime.DatePart(DateInterval.Weekday, dtJan4, FirstDayOfWeek.Friday, FirstWeekOfYear.FirstFourDays),"#DP08"); Assert.AreEqual(6, DateAndTime.DatePart(DateInterval.Weekday, dtJan4, FirstDayOfWeek.Saturday, FirstWeekOfYear.FirstFourDays),"#DP09"); Assert.AreEqual(5, DateAndTime.DatePart(DateInterval.Weekday, dtJan4, FirstDayOfWeek.Sunday, FirstWeekOfYear.FirstFourDays),"#DP10"); Assert.AreEqual(4, DateAndTime.DatePart(DateInterval.Weekday, dtJan4, FirstDayOfWeek.Monday, FirstWeekOfYear.FirstFourDays),"#DP11"); Assert.AreEqual(3, DateAndTime.DatePart(DateInterval.Weekday, dtJan4, FirstDayOfWeek.Tuesday, FirstWeekOfYear.FirstFourDays),"#DP12"); Assert.AreEqual(2, DateAndTime.DatePart(DateInterval.Weekday, dtJan4, FirstDayOfWeek.Wednesday, FirstWeekOfYear.FirstFourDays),"#DP13"); Assert.AreEqual(1, DateAndTime.DatePart(DateInterval.Weekday, dtJan4, FirstDayOfWeek.Thursday, FirstWeekOfYear.FirstFourDays),"#DP14"); Assert.AreEqual(5, DateAndTime.DatePart(DateInterval.Weekday, dtJan4, FirstDayOfWeek.System, FirstWeekOfYear.FirstFourDays),"#DP15"); } [Test] public void DatePart_DateInterval_1() { Assert.AreEqual(5,DateAndTime.DatePart(DateInterval.Day, DateTime.Parse("12/5/03 15:22:33"),FirstDayOfWeek.System ,FirstWeekOfYear.System)); Assert.AreEqual(339,DateAndTime.DatePart(DateInterval.DayOfYear, DateTime.Parse("12/5/03 15:22:33"),FirstDayOfWeek.System ,FirstWeekOfYear.System)); Assert.AreEqual(15,DateAndTime.DatePart(DateInterval.Hour, DateTime.Parse("12/5/03 15:22:33"),FirstDayOfWeek.System ,FirstWeekOfYear.System)); Assert.AreEqual(22,DateAndTime.DatePart(DateInterval.Minute, DateTime.Parse("12/5/03 15:22:33"),FirstDayOfWeek.System ,FirstWeekOfYear.System)); Assert.AreEqual(12,DateAndTime.DatePart(DateInterval.Month, DateTime.Parse("12/5/03 15:22:33"),FirstDayOfWeek.System ,FirstWeekOfYear.System)); Assert.AreEqual(4,DateAndTime.DatePart(DateInterval.Quarter, DateTime.Parse("12/5/03 15:22:33"),FirstDayOfWeek.System ,FirstWeekOfYear.System)); Assert.AreEqual(33,DateAndTime.DatePart(DateInterval.Second, DateTime.Parse("12/5/03 15:22:33"),FirstDayOfWeek.System ,FirstWeekOfYear.System)); Assert.AreEqual(6,DateAndTime.DatePart(DateInterval.Weekday, DateTime.Parse("12/5/03 15:22:33"),FirstDayOfWeek.System ,FirstWeekOfYear.System)); Assert.AreEqual(49,DateAndTime.DatePart(DateInterval.WeekOfYear, DateTime.Parse("12/5/03 15:22:33"),FirstDayOfWeek.System ,FirstWeekOfYear.System)); Assert.AreEqual(2003,DateAndTime.DatePart(DateInterval.Year, DateTime.Parse("12/5/03 15:22:33"),FirstDayOfWeek.System ,FirstWeekOfYear.System)); } [Test] public void DatePart_String_1() { Assert.AreEqual(5,DateAndTime.DatePart("d", DateTime.Parse("12/5/03 15:22:33"),FirstDayOfWeek.System ,FirstWeekOfYear.System)); Assert.AreEqual(339,DateAndTime.DatePart("y", DateTime.Parse("12/5/03 15:22:33"),FirstDayOfWeek.System ,FirstWeekOfYear.System)); Assert.AreEqual(15,DateAndTime.DatePart("h", DateTime.Parse("12/5/03 15:22:33"),FirstDayOfWeek.System ,FirstWeekOfYear.System)); Assert.AreEqual(22,DateAndTime.DatePart("n", DateTime.Parse("12/5/03 15:22:33"),FirstDayOfWeek.System ,FirstWeekOfYear.System)); Assert.AreEqual(12,DateAndTime.DatePart("m", DateTime.Parse("12/5/03 15:22:33"),FirstDayOfWeek.System ,FirstWeekOfYear.System)); Assert.AreEqual(4,DateAndTime.DatePart("q", DateTime.Parse("12/5/03 15:22:33"),FirstDayOfWeek.System ,FirstWeekOfYear.System)); Assert.AreEqual(33,DateAndTime.DatePart("s", DateTime.Parse("12/5/03 15:22:33"),FirstDayOfWeek.System ,FirstWeekOfYear.System)); Assert.AreEqual(6,DateAndTime.DatePart("w", DateTime.Parse("12/5/03 15:22:33"),FirstDayOfWeek.System ,FirstWeekOfYear.System)); Assert.AreEqual(49,DateAndTime.DatePart("ww", DateTime.Parse("12/5/03 15:22:33"),FirstDayOfWeek.System ,FirstWeekOfYear.System)); Assert.AreEqual(2003,DateAndTime.DatePart("yyyy", DateTime.Parse("12/5/03 15:22:33"),FirstDayOfWeek.System ,FirstWeekOfYear.System)); } [Test] public void DatePart_FirstDayOfWeek_1() { Assert.AreEqual(5,DateAndTime.DatePart(DateInterval.Day, DateTime.Parse("12/5/03 15:22:33"),FirstDayOfWeek.Sunday ,FirstWeekOfYear.System)); Assert.AreEqual(339,DateAndTime.DatePart(DateInterval.DayOfYear , DateTime.Parse("12/5/03 15:22:33"),FirstDayOfWeek.Sunday ,FirstWeekOfYear.System)); Assert.AreEqual(15,DateAndTime.DatePart(DateInterval.Hour, DateTime.Parse("12/5/03 15:22:33"),FirstDayOfWeek.Sunday ,FirstWeekOfYear.System)); Assert.AreEqual(22,DateAndTime.DatePart(DateInterval.Minute, DateTime.Parse("12/5/03 15:22:33"),FirstDayOfWeek.Sunday ,FirstWeekOfYear.System)); Assert.AreEqual(12,DateAndTime.DatePart(DateInterval.Month, DateTime.Parse("12/5/03 15:22:33"),FirstDayOfWeek.Sunday ,FirstWeekOfYear.System)); Assert.AreEqual(4,DateAndTime.DatePart(DateInterval.Quarter, DateTime.Parse("12/5/03 15:22:33"),FirstDayOfWeek.Sunday ,FirstWeekOfYear.System)); Assert.AreEqual(33,DateAndTime.DatePart(DateInterval.Second, DateTime.Parse("12/5/03 15:22:33"),FirstDayOfWeek.Sunday ,FirstWeekOfYear.System)); Assert.AreEqual(6,DateAndTime.DatePart(DateInterval.Weekday, DateTime.Parse("12/5/03 15:22:33"),FirstDayOfWeek.Sunday ,FirstWeekOfYear.System)); Assert.AreEqual(2003,DateAndTime.DatePart(DateInterval.Year, DateTime.Parse("12/5/03 15:22:33"),FirstDayOfWeek.Sunday ,FirstWeekOfYear.System)); Assert.AreEqual(5,DateAndTime.DatePart(DateInterval.Day, DateTime.Parse("12/5/03 15:22:33"),FirstDayOfWeek.Monday ,FirstWeekOfYear.System)); Assert.AreEqual(339,DateAndTime.DatePart(DateInterval.DayOfYear , DateTime.Parse("12/5/03 15:22:33"),FirstDayOfWeek.Monday ,FirstWeekOfYear.System)); Assert.AreEqual(15,DateAndTime.DatePart(DateInterval.Hour, DateTime.Parse("12/5/03 15:22:33"),FirstDayOfWeek.Monday ,FirstWeekOfYear.System)); Assert.AreEqual(22,DateAndTime.DatePart(DateInterval.Minute, DateTime.Parse("12/5/03 15:22:33"),FirstDayOfWeek.Monday ,FirstWeekOfYear.System)); Assert.AreEqual(12,DateAndTime.DatePart(DateInterval.Month, DateTime.Parse("12/5/03 15:22:33"),FirstDayOfWeek.Monday ,FirstWeekOfYear.System)); Assert.AreEqual(4,DateAndTime.DatePart(DateInterval.Quarter, DateTime.Parse("12/5/03 15:22:33"),FirstDayOfWeek.Monday ,FirstWeekOfYear.System)); Assert.AreEqual(33,DateAndTime.DatePart(DateInterval.Second, DateTime.Parse("12/5/03 15:22:33"),FirstDayOfWeek.Monday ,FirstWeekOfYear.System)); Assert.AreEqual(5,DateAndTime.DatePart(DateInterval.Weekday, DateTime.Parse("12/5/03 15:22:33"),FirstDayOfWeek.Monday ,FirstWeekOfYear.System)); Assert.AreEqual(2003,DateAndTime.DatePart(DateInterval.Year, DateTime.Parse("12/5/03 15:22:33"),FirstDayOfWeek.Monday ,FirstWeekOfYear.System)); Assert.AreEqual(5,DateAndTime.DatePart(DateInterval.Day, DateTime.Parse("12/5/03 15:22:33"),FirstDayOfWeek.Tuesday ,FirstWeekOfYear.System)); Assert.AreEqual(339,DateAndTime.DatePart(DateInterval.DayOfYear , DateTime.Parse("12/5/03 15:22:33"),FirstDayOfWeek.Tuesday ,FirstWeekOfYear.System)); Assert.AreEqual(15,DateAndTime.DatePart(DateInterval.Hour, DateTime.Parse("12/5/03 15:22:33"),FirstDayOfWeek.Tuesday ,FirstWeekOfYear.System)); Assert.AreEqual(22,DateAndTime.DatePart(DateInterval.Minute, DateTime.Parse("12/5/03 15:22:33"),FirstDayOfWeek.Tuesday ,FirstWeekOfYear.System)); Assert.AreEqual(12,DateAndTime.DatePart(DateInterval.Month, DateTime.Parse("12/5/03 15:22:33"),FirstDayOfWeek.Tuesday ,FirstWeekOfYear.System)); Assert.AreEqual(4,DateAndTime.DatePart(DateInterval.Quarter, DateTime.Parse("12/5/03 15:22:33"),FirstDayOfWeek.Tuesday ,FirstWeekOfYear.System)); Assert.AreEqual(33,DateAndTime.DatePart(DateInterval.Second, DateTime.Parse("12/5/03 15:22:33"),FirstDayOfWeek.Tuesday ,FirstWeekOfYear.System)); Assert.AreEqual(4,DateAndTime.DatePart(DateInterval.Weekday, DateTime.Parse("12/5/03 15:22:33"),FirstDayOfWeek.Tuesday ,FirstWeekOfYear.System)); Assert.AreEqual(2003,DateAndTime.DatePart(DateInterval.Year, DateTime.Parse("12/5/03 15:22:33"),FirstDayOfWeek.Tuesday ,FirstWeekOfYear.System)); Assert.AreEqual(5,DateAndTime.DatePart(DateInterval.Day, DateTime.Parse("12/5/03 15:22:33"),FirstDayOfWeek.Wednesday ,FirstWeekOfYear.System)); Assert.AreEqual(339,DateAndTime.DatePart(DateInterval.DayOfYear , DateTime.Parse("12/5/03 15:22:33"),FirstDayOfWeek.Wednesday ,FirstWeekOfYear.System)); Assert.AreEqual(15,DateAndTime.DatePart(DateInterval.Hour, DateTime.Parse("12/5/03 15:22:33"),FirstDayOfWeek.Wednesday ,FirstWeekOfYear.System)); Assert.AreEqual(22,DateAndTime.DatePart(DateInterval.Minute, DateTime.Parse("12/5/03 15:22:33"),FirstDayOfWeek.Wednesday ,FirstWeekOfYear.System)); Assert.AreEqual(12,DateAndTime.DatePart(DateInterval.Month, DateTime.Parse("12/5/03 15:22:33"),FirstDayOfWeek.Wednesday ,FirstWeekOfYear.System)); Assert.AreEqual(4,DateAndTime.DatePart(DateInterval.Quarter, DateTime.Parse("12/5/03 15:22:33"),FirstDayOfWeek.Wednesday ,FirstWeekOfYear.System)); Assert.AreEqual(33,DateAndTime.DatePart(DateInterval.Second, DateTime.Parse("12/5/03 15:22:33"),FirstDayOfWeek.Wednesday ,FirstWeekOfYear.System)); Assert.AreEqual(3,DateAndTime.DatePart(DateInterval.Weekday, DateTime.Parse("12/5/03 15:22:33"),FirstDayOfWeek.Wednesday ,FirstWeekOfYear.System)); Assert.AreEqual(2003,DateAndTime.DatePart(DateInterval.Year, DateTime.Parse("12/5/03 15:22:33"),FirstDayOfWeek.Wednesday ,FirstWeekOfYear.System)); Assert.AreEqual(5,DateAndTime.DatePart(DateInterval.Day, DateTime.Parse("12/5/03 15:22:33"),FirstDayOfWeek.Thursday ,FirstWeekOfYear.System)); Assert.AreEqual(339,DateAndTime.DatePart(DateInterval.DayOfYear , DateTime.Parse("12/5/03 15:22:33"),FirstDayOfWeek.Thursday ,FirstWeekOfYear.System)); Assert.AreEqual(15,DateAndTime.DatePart(DateInterval.Hour, DateTime.Parse("12/5/03 15:22:33"),FirstDayOfWeek.Thursday ,FirstWeekOfYear.System)); Assert.AreEqual(22,DateAndTime.DatePart(DateInterval.Minute, DateTime.Parse("12/5/03 15:22:33"),FirstDayOfWeek.Thursday ,FirstWeekOfYear.System)); Assert.AreEqual(12,DateAndTime.DatePart(DateInterval.Month, DateTime.Parse("12/5/03 15:22:33"),FirstDayOfWeek.Thursday ,FirstWeekOfYear.System)); Assert.AreEqual(4,DateAndTime.DatePart(DateInterval.Quarter, DateTime.Parse("12/5/03 15:22:33"),FirstDayOfWeek.Thursday ,FirstWeekOfYear.System)); Assert.AreEqual(33,DateAndTime.DatePart(DateInterval.Second, DateTime.Parse("12/5/03 15:22:33"),FirstDayOfWeek.Thursday ,FirstWeekOfYear.System)); Assert.AreEqual(2,DateAndTime.DatePart(DateInterval.Weekday, DateTime.Parse("12/5/03 15:22:33"),FirstDayOfWeek.Thursday ,FirstWeekOfYear.System)); Assert.AreEqual(2003,DateAndTime.DatePart(DateInterval.Year, DateTime.Parse("12/5/03 15:22:33"),FirstDayOfWeek.Thursday ,FirstWeekOfYear.System)); Assert.AreEqual(5,DateAndTime.DatePart(DateInterval.Day, DateTime.Parse("12/5/03 15:22:33"),FirstDayOfWeek.Friday ,FirstWeekOfYear.System)); Assert.AreEqual(339,DateAndTime.DatePart(DateInterval.DayOfYear , DateTime.Parse("12/5/03 15:22:33"),FirstDayOfWeek.Friday ,FirstWeekOfYear.System)); Assert.AreEqual(15,DateAndTime.DatePart(DateInterval.Hour, DateTime.Parse("12/5/03 15:22:33"),FirstDayOfWeek.Friday ,FirstWeekOfYear.System)); Assert.AreEqual(22,DateAndTime.DatePart(DateInterval.Minute, DateTime.Parse("12/5/03 15:22:33"),FirstDayOfWeek.Friday ,FirstWeekOfYear.System)); Assert.AreEqual(12,DateAndTime.DatePart(DateInterval.Month, DateTime.Parse("12/5/03 15:22:33"),FirstDayOfWeek.Friday ,FirstWeekOfYear.System)); Assert.AreEqual(4,DateAndTime.DatePart(DateInterval.Quarter, DateTime.Parse("12/5/03 15:22:33"),FirstDayOfWeek.Friday ,FirstWeekOfYear.System)); Assert.AreEqual(33,DateAndTime.DatePart(DateInterval.Second, DateTime.Parse("12/5/03 15:22:33"),FirstDayOfWeek.Friday ,FirstWeekOfYear.System)); Assert.AreEqual(1,DateAndTime.DatePart(DateInterval.Weekday, DateTime.Parse("12/5/03 15:22:33"),FirstDayOfWeek.Friday ,FirstWeekOfYear.System)); Assert.AreEqual(2003,DateAndTime.DatePart(DateInterval.Year, DateTime.Parse("12/5/03 15:22:33"),FirstDayOfWeek.Friday ,FirstWeekOfYear.System)); Assert.AreEqual(5,DateAndTime.DatePart(DateInterval.Day, DateTime.Parse("12/5/03 15:22:33"),FirstDayOfWeek.Saturday ,FirstWeekOfYear.System)); Assert.AreEqual(339,DateAndTime.DatePart(DateInterval.DayOfYear , DateTime.Parse("12/5/03 15:22:33"),FirstDayOfWeek.Saturday ,FirstWeekOfYear.System)); Assert.AreEqual(15,DateAndTime.DatePart(DateInterval.Hour, DateTime.Parse("12/5/03 15:22:33"),FirstDayOfWeek.Saturday ,FirstWeekOfYear.System)); Assert.AreEqual(22,DateAndTime.DatePart(DateInterval.Minute, DateTime.Parse("12/5/03 15:22:33"),FirstDayOfWeek.Saturday ,FirstWeekOfYear.System)); Assert.AreEqual(12,DateAndTime.DatePart(DateInterval.Month, DateTime.Parse("12/5/03 15:22:33"),FirstDayOfWeek.Saturday ,FirstWeekOfYear.System)); Assert.AreEqual(4,DateAndTime.DatePart(DateInterval.Quarter, DateTime.Parse("12/5/03 15:22:33"),FirstDayOfWeek.Saturday ,FirstWeekOfYear.System)); Assert.AreEqual(33,DateAndTime.DatePart(DateInterval.Second, DateTime.Parse("12/5/03 15:22:33"),FirstDayOfWeek.Saturday ,FirstWeekOfYear.System)); Assert.AreEqual(7,DateAndTime.DatePart(DateInterval.Weekday, DateTime.Parse("12/5/03 15:22:33"),FirstDayOfWeek.Saturday ,FirstWeekOfYear.System)); Assert.AreEqual(2003,DateAndTime.DatePart(DateInterval.Year, DateTime.Parse("12/5/03 15:22:33"),FirstDayOfWeek.Saturday ,FirstWeekOfYear.System)); } [Test] public void DatePart_FirstWeekOfYear_1() { Assert.AreEqual(5,DateAndTime.DatePart(DateInterval.Day, DateTime.Parse("12/5/03 15:22:33"),FirstDayOfWeek.System ,FirstWeekOfYear.Jan1 )); Assert.AreEqual(339,DateAndTime.DatePart(DateInterval.DayOfYear, DateTime.Parse("12/5/03 15:22:33"),FirstDayOfWeek.System ,FirstWeekOfYear.Jan1 )); Assert.AreEqual(15,DateAndTime.DatePart(DateInterval.Hour, DateTime.Parse("12/5/03 15:22:33"),FirstDayOfWeek.System ,FirstWeekOfYear.Jan1 )); Assert.AreEqual(22,DateAndTime.DatePart(DateInterval.Minute, DateTime.Parse("12/5/03 15:22:33"),FirstDayOfWeek.System ,FirstWeekOfYear.Jan1 )); Assert.AreEqual(12,DateAndTime.DatePart(DateInterval.Month, DateTime.Parse("12/5/03 15:22:33"),FirstDayOfWeek.System ,FirstWeekOfYear.Jan1 )); Assert.AreEqual(4,DateAndTime.DatePart(DateInterval.Quarter, DateTime.Parse("12/5/03 15:22:33"),FirstDayOfWeek.System ,FirstWeekOfYear.Jan1 )); Assert.AreEqual(33,DateAndTime.DatePart(DateInterval.Second, DateTime.Parse("12/5/03 15:22:33"),FirstDayOfWeek.System ,FirstWeekOfYear.Jan1 )); Assert.AreEqual(6,DateAndTime.DatePart(DateInterval.Weekday, DateTime.Parse("12/5/03 15:22:33"),FirstDayOfWeek.System ,FirstWeekOfYear.Jan1 )); Assert.AreEqual(2003,DateAndTime.DatePart(DateInterval.Year, DateTime.Parse("12/5/03 15:22:33"),FirstDayOfWeek.System ,FirstWeekOfYear.Jan1 )); Assert.AreEqual(5,DateAndTime.DatePart(DateInterval.Day, DateTime.Parse("12/5/03 15:22:33"),FirstDayOfWeek.System ,FirstWeekOfYear.FirstFourDays )); Assert.AreEqual(339,DateAndTime.DatePart(DateInterval.DayOfYear, DateTime.Parse("12/5/03 15:22:33"),FirstDayOfWeek.System ,FirstWeekOfYear.FirstFourDays )); Assert.AreEqual(15,DateAndTime.DatePart(DateInterval.Hour, DateTime.Parse("12/5/03 15:22:33"),FirstDayOfWeek.System ,FirstWeekOfYear.FirstFourDays )); Assert.AreEqual(22,DateAndTime.DatePart(DateInterval.Minute, DateTime.Parse("12/5/03 15:22:33"),FirstDayOfWeek.System ,FirstWeekOfYear.FirstFourDays )); Assert.AreEqual(12,DateAndTime.DatePart(DateInterval.Month, DateTime.Parse("12/5/03 15:22:33"),FirstDayOfWeek.System ,FirstWeekOfYear.FirstFourDays )); Assert.AreEqual(4,DateAndTime.DatePart(DateInterval.Quarter, DateTime.Parse("12/5/03 15:22:33"),FirstDayOfWeek.System ,FirstWeekOfYear.FirstFourDays )); Assert.AreEqual(33,DateAndTime.DatePart(DateInterval.Second, DateTime.Parse("12/5/03 15:22:33"),FirstDayOfWeek.System ,FirstWeekOfYear.FirstFourDays )); Assert.AreEqual(6,DateAndTime.DatePart(DateInterval.Weekday, DateTime.Parse("12/5/03 15:22:33"),FirstDayOfWeek.System ,FirstWeekOfYear.FirstFourDays )); Assert.AreEqual(2003,DateAndTime.DatePart(DateInterval.Year, DateTime.Parse("12/5/03 15:22:33"),FirstDayOfWeek.System ,FirstWeekOfYear.FirstFourDays )); Assert.AreEqual(5,DateAndTime.DatePart(DateInterval.Day, DateTime.Parse("12/5/03 15:22:33"),FirstDayOfWeek.System ,FirstWeekOfYear.FirstFullWeek )); Assert.AreEqual(339,DateAndTime.DatePart(DateInterval.DayOfYear, DateTime.Parse("12/5/03 15:22:33"),FirstDayOfWeek.System ,FirstWeekOfYear.FirstFullWeek )); Assert.AreEqual(15,DateAndTime.DatePart(DateInterval.Hour, DateTime.Parse("12/5/03 15:22:33"),FirstDayOfWeek.System ,FirstWeekOfYear.FirstFullWeek )); Assert.AreEqual(22,DateAndTime.DatePart(DateInterval.Minute, DateTime.Parse("12/5/03 15:22:33"),FirstDayOfWeek.System ,FirstWeekOfYear.FirstFullWeek )); Assert.AreEqual(12,DateAndTime.DatePart(DateInterval.Month, DateTime.Parse("12/5/03 15:22:33"),FirstDayOfWeek.System ,FirstWeekOfYear.FirstFullWeek )); Assert.AreEqual(4,DateAndTime.DatePart(DateInterval.Quarter, DateTime.Parse("12/5/03 15:22:33"),FirstDayOfWeek.System ,FirstWeekOfYear.FirstFullWeek )); Assert.AreEqual(33,DateAndTime.DatePart(DateInterval.Second, DateTime.Parse("12/5/03 15:22:33"),FirstDayOfWeek.System ,FirstWeekOfYear.FirstFullWeek )); Assert.AreEqual(6,DateAndTime.DatePart(DateInterval.Weekday, DateTime.Parse("12/5/03 15:22:33"),FirstDayOfWeek.System ,FirstWeekOfYear.FirstFullWeek )); Assert.AreEqual(2003,DateAndTime.DatePart(DateInterval.Year, DateTime.Parse("12/5/03 15:22:33"),FirstDayOfWeek.System ,FirstWeekOfYear.FirstFullWeek )); } [Test] [ExpectedException(typeof(ArgumentException))] public void DatePart_1() { // Argument 'Interval' is not a valid value. DateAndTime.DatePart("k", DateTime.Parse("12/5/03"),FirstDayOfWeek.System ,FirstWeekOfYear.System ); } [Test] [ExpectedException(typeof(InvalidCastException))] public void DatePart_3() { // Argument 'Date2' cannot be converted to type 'Date'. DateAndTime.DatePart("d", "12test5/03", (FirstDayOfWeek)8 ,FirstWeekOfYear.System ); } #endregion #region DateSerial Tests [Test] public void DateSerial () { DateTime dtJan4 = new DateTime(2001, 1, 4); DateTime dtSerial = DateAndTime.DateSerial(2001, 1, 4); Assert.AreEqual( dtJan4, dtSerial); } [Test] public void DateSerial_1() { Assert.AreEqual(DateTime.Parse("12/1/2003"),DateAndTime.DateSerial(2003,12,1)); Assert.AreEqual(new DateTime(DateTime.Now.Year - 6,5,24),DateAndTime.DateSerial(-5,-6,-7)); Assert.AreEqual(DateTime.Parse("12/1/9999"),DateAndTime.DateSerial(9999,12,1)); Assert.AreEqual(DateTime.Parse("12/1/2003"),DateAndTime.DateSerial(03,12,1)); Assert.AreEqual(DateTime.Parse("12/1/2025"),DateAndTime.DateSerial(25,12,1)); Assert.AreEqual(DateTime.Parse("12/1/2000"),DateAndTime.DateSerial(0,12,1)); Assert.AreEqual(new DateTime(DateTime.Now.Year - 1,12,1),DateAndTime.DateSerial(-1,12,1)); Assert.AreEqual(new DateTime(DateTime.Now.Year - 99,12,1),DateAndTime.DateSerial(-99,12,1)); } [Test] public void DateSerial_2() { Assert.AreEqual(DateTime.Parse("1/1/2003"),DateAndTime.DateSerial(2003,1,1)); Assert.AreEqual(DateTime.Parse("12/1/2002"),DateAndTime.DateSerial(2003,0,1)); Assert.AreEqual(DateTime.Parse("11/1/2002"),DateAndTime.DateSerial(2003,-1,1)); Assert.AreEqual(DateTime.Parse("1/1/2004"),DateAndTime.DateSerial(2003,13,1)); Assert.AreEqual(DateTime.Parse("2/1/2001"),DateAndTime.DateSerial(2003,-22,1)); } [Test] public void DateSerial_3() { Assert.AreEqual(DateTime.Parse("5/1/2003"),DateAndTime.DateSerial(2003,5,1)); Assert.AreEqual(DateTime.Parse("4/30/2003"),DateAndTime.DateSerial(2003,5,0)); Assert.AreEqual(DateTime.Parse("4/29/2003"),DateAndTime.DateSerial(2003,5,-1)); Assert.AreEqual(DateTime.Parse("6/24/2003"),DateAndTime.DateSerial(2003,5,55)); } #endregion #region DateString Tests [Test] public void DateString() { string s = DateAndTime.DateString; DateTime dtNow = DateTime.Today; Assert.AreEqual(dtNow.ToShortDateString(), DateTime.Parse(s).ToShortDateString()); // TODO: Add a test for setting the date string too } //DateAndTime.DateString property is read-only under TARGET_JVM [Category("TargetJvmNotWorking")] [Test] public void DateString_1() { DateTime now = DateTime.Now; try { Assert.AreEqual(Strings.Format(DateTime.Now,"MM-dd-yyyy"),DateAndTime.DateString); DateAndTime.DateString = "9-5-2003"; Assert.AreEqual("09-05-2003",DateAndTime.DateString); Assert.AreEqual(Strings.Format(DateTime.Now,"MM-dd-yyyy"),DateAndTime.DateString); DateAndTime.DateString = "9-5-03"; Assert.AreEqual("09-05-2003",DateAndTime.DateString); Assert.AreEqual(Strings.Format(DateTime.Now,"MM-dd-yyyy"),DateAndTime.DateString); DateAndTime.DateString = "9/5/2003"; Assert.AreEqual("09-05-2003",DateAndTime.DateString); Assert.AreEqual(Strings.Format(DateTime.Now,"MM-dd-yyyy"),DateAndTime.DateString); DateAndTime.DateString = "9/5/03"; Assert.AreEqual("09-05-2003",DateAndTime.DateString); Assert.AreEqual(Strings.Format(DateTime.Now,"MM-dd-yyyy"),DateAndTime.DateString); } catch (System.UnauthorizedAccessException exception) { Assert.Ignore (exception.Message); } finally { try { DateAndTime.Today = now; DateAndTime.TimeOfDay = now; } catch { } } } [Test] [ExpectedException(typeof(InvalidCastException))] public void DateString_2() { // Cast from string "9-5-003" to type 'Date' is not valid. DateAndTime.DateString = "9-5-003"; } #endregion #region DateValue Tests [Test] public void DateValue () { try { DateAndTime.DateValue("This is not a date."); } catch (InvalidCastException) { /* do nothing. this is what we expect */ } catch (Exception e) { Assert.Fail ("Unexpected exception:" + e); } Assert.AreEqual(( new DateTime(1969, 2, 12)), DateAndTime.DateValue("02/12/1969"),"#DV03"); Assert.AreEqual((new DateTime(1969, 2, 12)), DateAndTime.DateValue("February 12, 1969"),"#DV04"); } [Test] public void DateValue_1() { if (Helper.OnMono) Assert.Ignore ("Buggy mono: #81535"); Assert.AreEqual(DateTime.Parse("12/30/1991"),DateAndTime.DateValue("12/30/1991")); Assert.AreEqual(DateTime.Parse("12/30/1991"),DateAndTime.DateValue("12/30/91")); Assert.AreEqual(DateTime.Parse("12/30/1991"),DateAndTime.DateValue("December 30, 1991")); Assert.AreEqual(DateTime.Parse("12/30/1991"),DateAndTime.DateValue("Dec 30, 1991")); Assert.AreEqual(DateTime.Parse("12/30/1991"),DateAndTime.DateValue("12/30/91 12:13:14")); } [Test] [ExpectedException(typeof(InvalidCastException))] public void DateValue_2() { DateAndTime.DateValue("26:33"); } [Test] public void DateValue_3() { Assert.AreEqual(DateTime.Parse("1/1/0001 00:00:00"),DateAndTime.DateValue("22:33")); } #endregion #region Day Tests [Test] public void Day () { DateTime jan1 = new DateTime(2001, 1, 1, 1, 1, 1); Assert.AreEqual(jan1.Day, DateAndTime.Day(jan1),"#D01"); } [Test] public void Day_1() { Assert.AreEqual(3,DateAndTime.Day(DateTime.Parse("2/3/2003"))); Assert.AreEqual(28,DateAndTime.Day(DateTime.Parse("2/28/2003"))); Assert.AreEqual(1,DateAndTime.Day(DateTime.Parse("1/1/0001"))); Assert.AreEqual(31,DateAndTime.Day(DateTime.Parse("12/31/9999"))); } #endregion #region Hour Tests [Test] public void Hour () { DateTime jan1 = new DateTime(2001, 1, 1, 1, 1, 1); Assert.AreEqual(jan1.Hour, DateAndTime.Hour(jan1),"#H01"); } [Test] public void Hour_1() { Assert.AreEqual(0,DateAndTime.Hour(DateTime.Parse("2/2/03 12:11:23 AM"))); Assert.AreEqual(15,DateAndTime.Hour(DateTime.Parse("2/2/03 03:11:23 PM"))); Assert.AreEqual(17,DateAndTime.Hour(DateTime.Parse("2/2/03 17:11:23"))); Assert.AreEqual(15,DateAndTime.Hour(DateTime.Parse("2/2/03 03:11:23 pm"))); } #endregion #region Minute Tests [Test] public void Minute () { DateTime jan1 = new DateTime(2001, 1, 1, 1, 1, 1); Assert.AreEqual(jan1.Minute, DateAndTime.Minute(jan1),"#MI01"); } [Test] public void Minute_1() { Assert.AreEqual(11,DateAndTime.Minute(DateTime.Parse("2/2/03 12:11:23 AM"))); Assert.AreEqual(0,DateAndTime.Minute(DateTime.Parse("2/2/03 03:00:23 PM"))); Assert.AreEqual(59,DateAndTime.Minute(DateTime.Parse("2/2/03 17:59:23"))); Assert.AreEqual(16,DateAndTime.Minute(DateTime.Parse("2/2/03 03:16:23 pm"))); } #endregion #region Month Tests [Test] public void Month () { DateTime jan1 = new DateTime(2001, 1, 1, 1, 1, 1); Assert.AreEqual(jan1.Month, DateAndTime.Month(jan1),"#MO01"); } [Test] public void Month_1() { Assert.AreEqual(1,DateAndTime.Month(DateTime.Parse("1/1/03 12:11:23 AM"))); Assert.AreEqual(2,DateAndTime.Month(DateTime.Parse("2/27/03 03:00:23 PM"))); Assert.AreEqual(12,DateAndTime.Month(DateTime.Parse("12/12/03 17:59:23"))); Assert.AreEqual(5,DateAndTime.Month(DateTime.Parse("5/5/03 03:16:23 pm"))); } #endregion #region MonthName Tests [Test] public void MonthName () { DateTime jan1 = new DateTime(2001, 1, 1, 1, 1, 1); Assert.AreEqual(CultureInfo.CurrentCulture.DateTimeFormat.GetAbbreviatedMonthName(jan1.Month), DateAndTime.MonthName(jan1.Month, true),"#MN01"); Assert.AreEqual(CultureInfo.CurrentCulture.DateTimeFormat.GetMonthName(jan1.Month), DateAndTime.MonthName(jan1.Month, false),"#MN02"); bool caughtException = false; try { DateAndTime.MonthName(0, false); } catch (Exception e) { Assert.AreEqual(typeof(ArgumentException), e.GetType(),"#MN03"); caughtException = true; } Assert.AreEqual(true, caughtException,"#MN04"); caughtException = false; try { DateAndTime.MonthName(14, false); } catch (Exception e) { Assert.AreEqual(typeof(ArgumentException), e.GetType(),"#MN05"); caughtException = true; } Assert.AreEqual(true, caughtException,"#MN06"); //Assert.AreEqual("#MN07", "", DateAndTime.MonthName(13, false)); } [Test] public void MonthName_1() { Assert.AreEqual("January",DateAndTime.MonthName(1,false)); Assert.AreEqual("February",DateAndTime.MonthName(2,false)); Assert.AreEqual("March",DateAndTime.MonthName(3,false)); Assert.AreEqual("April",DateAndTime.MonthName(4,false)); Assert.AreEqual("May",DateAndTime.MonthName(5,false)); Assert.AreEqual("June",DateAndTime.MonthName(6,false)); Assert.AreEqual("July",DateAndTime.MonthName(7,false)); Assert.AreEqual("August",DateAndTime.MonthName(8,false)); Assert.AreEqual("September",DateAndTime.MonthName(9,false)); Assert.AreEqual("October",DateAndTime.MonthName(10,false)); Assert.AreEqual("November",DateAndTime.MonthName(11,false)); Assert.AreEqual("December",DateAndTime.MonthName(12,false)); } [Test] public void MonthName_2() { Assert.AreEqual("Jan",DateAndTime.MonthName(1,true)); Assert.AreEqual("Feb",DateAndTime.MonthName(2,true)); Assert.AreEqual("Mar",DateAndTime.MonthName(3,true)); Assert.AreEqual("Apr",DateAndTime.MonthName(4,true)); Assert.AreEqual("May",DateAndTime.MonthName(5,true)); Assert.AreEqual("Jun",DateAndTime.MonthName(6,true)); Assert.AreEqual("Jul",DateAndTime.MonthName(7,true)); Assert.AreEqual("Aug",DateAndTime.MonthName(8,true)); Assert.AreEqual("Sep",DateAndTime.MonthName(9,true)); Assert.AreEqual("Oct",DateAndTime.MonthName(10,true)); Assert.AreEqual("Nov",DateAndTime.MonthName(11,true)); Assert.AreEqual("Dec",DateAndTime.MonthName(12,true)); } [Test] [ExpectedException(typeof(ArgumentException))] public void MonthName_3() { DateAndTime.MonthName(0,false); } [Test] [ExpectedException(typeof(ArgumentException))] public void MonthName_4() { DateAndTime.MonthName(-1,false); } [Test] [ExpectedException(typeof(ArgumentException))] public void MonthName_6() { DateAndTime.MonthName(15,false); } //[Test] //public void MonthName_5() //{ // // LAMESPEC: MSDN states that in 12-month calendar the // // 13 month should return empty string, but exception is thrown instead // Assert.AreEqual(String.Empty,DateAndTime.MonthName(13,false)); //} #endregion #region Now Tests [Test] public void Now() { DateTime dtNow = DateTime.Now; DateTime dtTest = DateAndTime.Now; DateTime dtNow2 = DateTime.Now; Assert.AreEqual(true, dtTest >= dtNow, "#N01"); Assert.AreEqual(true, dtNow2 >= dtTest,"#N02"); } [Test] public void Now_1() { Assert.AreEqual(DateTime.Now.Year, DateAndTime.Now.Year); Assert.AreEqual(DateTime.Now.Month, DateAndTime.Now.Month); Assert.AreEqual(DateTime.Now.Day, DateAndTime.Now.Day); Assert.AreEqual(DateTime.Now.Hour, DateAndTime.Now.Hour); Assert.AreEqual(DateTime.Now.Minute, DateAndTime.Now.Minute); } #endregion #region Second Tests [Test] public void Second () { DateTime jan1 = new DateTime(2001, 1, 1, 1, 1, 1); Assert.AreEqual(jan1.Second, DateAndTime.Second(jan1)); } [Test] public void Second_1() { Assert.AreEqual(23,DateAndTime.Second(DateTime.Parse("2/2/03 12:11:23 AM"))); Assert.AreEqual(0,DateAndTime.Second(DateTime.Parse("2/2/03 03:11:00 PM"))); Assert.AreEqual(59,DateAndTime.Second(DateTime.Parse("2/2/03 17:11:59"))); Assert.AreEqual(6,DateAndTime.Second(DateTime.Parse("2/2/03 03:11:06 pm"))); } #endregion #region TimeOfDay Tests [Test] public void TimeOfDay() { DateTime dtNow = DateTime.Now; TimeSpan tsNow = new TimeSpan(dtNow.Hour, dtNow.Minute, dtNow.Second); DateTime dtTest = DateAndTime.TimeOfDay; TimeSpan tsTest = new TimeSpan(dtTest.Hour, dtTest.Minute, dtTest.Second); DateTime dtNow2 = DateTime.Now; TimeSpan tsNow2 = new TimeSpan(dtNow2.Hour, dtNow2.Minute, dtNow2.Second); Assert.AreEqual(true, tsTest.Ticks >= tsNow.Ticks,"#TOD01"); Assert.AreEqual(true, tsNow2.Ticks >= tsTest.Ticks,"#TOD02"); // TODO: add a test case for setting time of day } //DateAndTime.TimeOfDay property is read-only under TARGET_JVM [Category("TargetJvmNotWorking")] [Test] public void TimeOfDay_1() { DateTime dt = DateAndTime.TimeOfDay; try { DateAndTime.TimeOfDay = DateTime.Parse("12/2/03 23:34:45"); DateTime d1 = DateTime.Parse ("1/1/0001 23:34:45"); DateTime d2 = DateAndTime.TimeOfDay; Assert.IsTrue(Math.Abs((d1 - d2).TotalMilliseconds) < 50); } catch (System.UnauthorizedAccessException exception) { Assert.Ignore (exception.Message); } finally { try { DateAndTime.TimeOfDay = dt; } catch { } } } #endregion #region TimeSerial Tests [Test] public void TimeSerial () { bool caughtException = false; try { DateAndTime.TimeSerial(0, -1440, -1); } catch (Exception e) { Assert.AreEqual(typeof(ArgumentOutOfRangeException), e.GetType()); caughtException = true; } Assert.AreEqual(true, caughtException); Assert.AreEqual((new DateTime(1, 1, 1, 1, 1, 1)), DateAndTime.TimeSerial(1, 1, 1)); } [Test] public void TimeSerial_1() { Assert.AreEqual(DateTime.Parse("1/1/0001 02:03:04"),DateAndTime.TimeSerial(2,3,4)); Assert.AreEqual(DateTime.Parse("1/1/0001 21:56:56"),DateAndTime.TimeSerial(-2,-3,-4)); Assert.AreEqual(DateTime.Parse("1/1/0001 22:33:34"),DateAndTime.TimeSerial(22,33,34)); Assert.AreEqual(DateTime.Parse("1/1/0001 01:26:16"),DateAndTime.TimeSerial(-22,-33,-44)); Assert.AreEqual(DateTime.Parse("1/2/0001 05:30:34"),DateAndTime.TimeSerial(28,89,94)); Assert.AreEqual(DateTime.Parse("1/1/0001 00:00:00"),DateAndTime.TimeSerial(-24,0,0)); } [Test] [ExpectedException(typeof(ArgumentOutOfRangeException))] public void TimeSerial_2() { DateAndTime.TimeSerial(-24,0,-1); } [Test] [ExpectedException(typeof(ArgumentOutOfRangeException))] public void TimeSerial_3() { DateAndTime.TimeSerial(-28,-89,-94); } #endregion #region TimeString Tests [Test] public void TimeString() { DateTime dtNow = DateTime.Now; TimeSpan tsNow = new TimeSpan(dtNow.Hour, dtNow.Minute, dtNow.Second); string s = DateAndTime.TimeString; DateTime dtTest = DateTime.Parse(s); TimeSpan tsTest = new TimeSpan(dtTest.Hour, dtTest.Minute, dtTest.Second); DateTime dtNow2 = DateTime.Now; TimeSpan tsNow2 = new TimeSpan(dtNow2.Hour, dtNow2.Minute, dtNow2.Second); Assert.AreEqual(true, tsTest.Ticks >= tsNow.Ticks, "#TS01"); Assert.AreEqual(true, tsNow2.Ticks >= tsTest.Ticks, "#TS02"); // TODO: add a test case for setting TimeString } //DateAndTime.TimeString property is read-only under TARGET_JVM [Category("TargetJvmNotWorking")] [Test] public void TimeString_1() { string dt = DateAndTime.TimeString; try { Assert.AreEqual(Strings.Format(DateTime.Now,"HH:mm:ss"),DateAndTime.TimeString); DateAndTime.TimeString = "11:23:44"; Assert.AreEqual("11:23:44",DateAndTime.TimeString); Assert.AreEqual(Strings.Format(DateTime.Now,"HH:mm:ss"),DateAndTime.TimeString); DateAndTime.TimeString = "15:23:44"; Assert.AreEqual("15:23:44",DateAndTime.TimeString); Assert.AreEqual(Strings.Format(DateTime.Now,"HH:mm:ss"),DateAndTime.TimeString); DateAndTime.TimeString = "1:23:44"; Assert.AreEqual("01:23:44",DateAndTime.TimeString); Assert.AreEqual(Strings.Format(DateTime.Now,"HH:mm:ss"),DateAndTime.TimeString); DateAndTime.TimeString = "11:23:44 am"; Assert.AreEqual("11:23:44",DateAndTime.TimeString); Assert.AreEqual(Strings.Format(DateTime.Now,"HH:mm:ss"),DateAndTime.TimeString); DateAndTime.TimeString = "11:23:44 pm"; Assert.AreEqual("23:23:44",DateAndTime.TimeString); Assert.AreEqual(Strings.Format(DateTime.Now,"HH:mm:ss"),DateAndTime.TimeString); DateAndTime.TimeString = "11:23"; Assert.AreEqual("11:23:00",DateAndTime.TimeString); Assert.AreEqual(Strings.Format(DateTime.Now,"HH:mm:ss"),DateAndTime.TimeString); DateAndTime.TimeString = "1:3"; Assert.AreEqual("01:03:00",DateAndTime.TimeString); Assert.AreEqual(Strings.Format(DateTime.Now,"HH:mm:ss"),DateAndTime.TimeString); } catch (UnauthorizedAccessException exception) { Assert.Ignore (exception.Message); } finally { try { DateAndTime.TimeString = dt; } catch { } } } [Test] [ExpectedException(typeof(InvalidCastException))] public void TimeString_2() { DateAndTime.TimeString = "25:56"; } #endregion #region TimeValue Tests [Test] public void TimeValue () { try { DateAndTime.TimeValue("This is not a time."); } catch (InvalidCastException) { /* do nothing. this is what we expect */ } catch (Exception e) { Assert.Fail ("Unexpected exception:" + e); } Assert.AreEqual((new DateTime(1, 1, 1, 16, 35, 17)), DateAndTime.TimeValue("16:35:17"),"#TV03"); Assert.AreEqual((new DateTime(1, 1, 1, 16, 35, 17)), DateAndTime.TimeValue("4:35:17 PM"),"#TV04"); // Thread.CurrentThread.CurrentCulture = new CultureInfo ("en-US"); Assert.AreEqual((new DateTime(1, 1, 1, 16, 35, 17)), DateAndTime.TimeValue("4:35:17 PM"),"#TV05"); } [Test] public void TimeValue_1() { Assert.AreEqual(DateTime.Parse("1/1/0001 11:23:44"),DateAndTime.TimeValue("11:23:44")); Assert.AreEqual(DateTime.Parse("1/1/0001 23:23:44"),DateAndTime.TimeValue("11:23:44 PM")); Assert.AreEqual(DateTime.Parse("1/1/0001 17:02:34"),DateAndTime.TimeValue("5:2:34 pm")); Assert.AreEqual(DateTime.Parse("1/1/0001 10:11:00"),DateAndTime.TimeValue("10:11 am")); Assert.AreEqual(DateTime.Parse("1/1/0001 10:11:00"),DateAndTime.TimeValue("1/2/03 10:11 am")); } [Test] [ExpectedException(typeof(InvalidCastException))] public void TimeValue_2() { DateAndTime.TimeValue("26:33"); } #endregion #region Today Tests [Test] public void Today() { Assert.AreEqual(DateTime.Today, DateAndTime.Today); // TODO: Add a test for setting Today } [Test] [Category("NotWorking")] public void Today_1() { Assert.AreEqual(new DateTime(DateTime.Now.Year,DateTime.Now.Month,DateTime.Now.Day,0,0,0,0),DateAndTime.Today); DateAndTime.Today = DateTime.Parse("12/12/03 12:33:34"); Assert.AreEqual(DateTime.Parse("12/12/03 00:00:00"),DateAndTime.Today); } #endregion #region Weekday Tests [Test] public void Weekday () { DateTime jan1 = new DateTime(2001, 1, 1, 1, 1, 1); Assert.AreEqual((int)jan1.DayOfWeek + 1, DateAndTime.Weekday(jan1, FirstDayOfWeek.System)); } [Test] public void Weekday_1() { Assert.AreEqual(6,DateAndTime.Weekday(DateTime.Parse("12/12/03"),FirstDayOfWeek.System)); Assert.AreEqual(6,DateAndTime.Weekday(DateTime.Parse("12/12/03"),FirstDayOfWeek.Sunday)); Assert.AreEqual(5,DateAndTime.Weekday(DateTime.Parse("12/12/03"),FirstDayOfWeek.Monday)); Assert.AreEqual(4,DateAndTime.Weekday(DateTime.Parse("12/12/03"),FirstDayOfWeek.Tuesday)); Assert.AreEqual(3,DateAndTime.Weekday(DateTime.Parse("12/12/03"),FirstDayOfWeek.Wednesday)); Assert.AreEqual(2,DateAndTime.Weekday(DateTime.Parse("12/12/03"),FirstDayOfWeek.Thursday)); Assert.AreEqual(1,DateAndTime.Weekday(DateTime.Parse("12/12/03"),FirstDayOfWeek.Friday)); Assert.AreEqual(7,DateAndTime.Weekday(DateTime.Parse("12/12/03"),FirstDayOfWeek.Saturday)); } #endregion #region WeekdayName Tests [Test] public void WeekdayName () { DateTime jan1 = new DateTime(2001, 1, 1, 1, 1, 1); Assert.AreEqual("Tue", DateAndTime.WeekdayName((int)jan1.DayOfWeek + 1, true, FirstDayOfWeek.Monday)); Assert.AreEqual("Tuesday", DateAndTime.WeekdayName((int)jan1.DayOfWeek + 1, false, FirstDayOfWeek.Monday)); bool caughtException = false; try { DateAndTime.WeekdayName(0, false, FirstDayOfWeek.Monday); } catch (Exception e) { Assert.AreEqual(typeof(ArgumentException), e.GetType(),"#WN03"); caughtException = true; } Assert.AreEqual(true, caughtException,"#WN04"); caughtException = false; try { DateAndTime.WeekdayName(8, false, FirstDayOfWeek.Monday); } catch (Exception e) { Assert.AreEqual(typeof(ArgumentException), e.GetType(),"#WN05"); caughtException = true; } Assert.AreEqual(true, caughtException,"#WN06"); Assert.AreEqual("Tuesday", DateAndTime.WeekdayName((int)jan1.DayOfWeek + 1, false, FirstDayOfWeek.Monday),"#WN07"); } [Test] public void WeekdayName_1() { Assert.AreEqual("Sunday",DateAndTime.WeekdayName(1,false,FirstDayOfWeek.System)); Assert.AreEqual("Monday",DateAndTime.WeekdayName(2,false,FirstDayOfWeek.System)); Assert.AreEqual("Tuesday",DateAndTime.WeekdayName(3,false,FirstDayOfWeek.System)); Assert.AreEqual("Wednesday",DateAndTime.WeekdayName(4,false,FirstDayOfWeek.System)); Assert.AreEqual("Thursday",DateAndTime.WeekdayName(5,false,FirstDayOfWeek.System)); Assert.AreEqual("Friday",DateAndTime.WeekdayName(6,false,FirstDayOfWeek.System)); Assert.AreEqual("Saturday",DateAndTime.WeekdayName(7,false,FirstDayOfWeek.System)); Assert.AreEqual("Sunday",DateAndTime.WeekdayName(1,false,FirstDayOfWeek.Sunday)); Assert.AreEqual("Monday",DateAndTime.WeekdayName(2,false,FirstDayOfWeek.Sunday)); Assert.AreEqual("Tuesday",DateAndTime.WeekdayName(3,false,FirstDayOfWeek.Sunday)); Assert.AreEqual("Wednesday",DateAndTime.WeekdayName(4,false,FirstDayOfWeek.Sunday)); Assert.AreEqual("Thursday",DateAndTime.WeekdayName(5,false,FirstDayOfWeek.Sunday)); Assert.AreEqual("Friday",DateAndTime.WeekdayName(6,false,FirstDayOfWeek.Sunday)); Assert.AreEqual("Saturday",DateAndTime.WeekdayName(7,false,FirstDayOfWeek.Sunday)); Assert.AreEqual("Monday",DateAndTime.WeekdayName(1,false,FirstDayOfWeek.Monday)); Assert.AreEqual("Tuesday",DateAndTime.WeekdayName(2,false,FirstDayOfWeek.Monday)); Assert.AreEqual("Wednesday",DateAndTime.WeekdayName(3,false,FirstDayOfWeek.Monday)); Assert.AreEqual("Thursday",DateAndTime.WeekdayName(4,false,FirstDayOfWeek.Monday)); Assert.AreEqual("Friday",DateAndTime.WeekdayName(5,false,FirstDayOfWeek.Monday)); Assert.AreEqual("Saturday",DateAndTime.WeekdayName(6,false,FirstDayOfWeek.Monday)); Assert.AreEqual("Sunday",DateAndTime.WeekdayName(7,false,FirstDayOfWeek.Monday)); Assert.AreEqual("Tuesday",DateAndTime.WeekdayName(1,false,FirstDayOfWeek.Tuesday)); Assert.AreEqual("Wednesday",DateAndTime.WeekdayName(2,false,FirstDayOfWeek.Tuesday)); Assert.AreEqual("Thursday",DateAndTime.WeekdayName(3,false,FirstDayOfWeek.Tuesday)); Assert.AreEqual("Friday",DateAndTime.WeekdayName(4,false,FirstDayOfWeek.Tuesday)); Assert.AreEqual("Saturday",DateAndTime.WeekdayName(5,false,FirstDayOfWeek.Tuesday)); Assert.AreEqual("Sunday",DateAndTime.WeekdayName(6,false,FirstDayOfWeek.Tuesday)); Assert.AreEqual("Monday",DateAndTime.WeekdayName(7,false,FirstDayOfWeek.Tuesday)); Assert.AreEqual("Wednesday",DateAndTime.WeekdayName(1,false,FirstDayOfWeek.Wednesday)); Assert.AreEqual("Thursday",DateAndTime.WeekdayName(2,false,FirstDayOfWeek.Wednesday)); Assert.AreEqual("Friday",DateAndTime.WeekdayName(3,false,FirstDayOfWeek.Wednesday)); Assert.AreEqual("Saturday",DateAndTime.WeekdayName(4,false,FirstDayOfWeek.Wednesday)); Assert.AreEqual("Sunday",DateAndTime.WeekdayName(5,false,FirstDayOfWeek.Wednesday)); Assert.AreEqual("Monday",DateAndTime.WeekdayName(6,false,FirstDayOfWeek.Wednesday)); Assert.AreEqual("Tuesday",DateAndTime.WeekdayName(7,false,FirstDayOfWeek.Wednesday)); Assert.AreEqual("Thursday",DateAndTime.WeekdayName(1,false,FirstDayOfWeek.Thursday)); Assert.AreEqual("Friday",DateAndTime.WeekdayName(2,false,FirstDayOfWeek.Thursday)); Assert.AreEqual("Saturday",DateAndTime.WeekdayName(3,false,FirstDayOfWeek.Thursday)); Assert.AreEqual("Sunday",DateAndTime.WeekdayName(4,false,FirstDayOfWeek.Thursday)); Assert.AreEqual("Monday",DateAndTime.WeekdayName(5,false,FirstDayOfWeek.Thursday)); Assert.AreEqual("Tuesday",DateAndTime.WeekdayName(6,false,FirstDayOfWeek.Thursday)); Assert.AreEqual("Wednesday",DateAndTime.WeekdayName(7,false,FirstDayOfWeek.Thursday)); Assert.AreEqual("Friday",DateAndTime.WeekdayName(1,false,FirstDayOfWeek.Friday)); Assert.AreEqual("Saturday",DateAndTime.WeekdayName(2,false,FirstDayOfWeek.Friday)); Assert.AreEqual("Sunday",DateAndTime.WeekdayName(3,false,FirstDayOfWeek.Friday)); Assert.AreEqual("Monday",DateAndTime.WeekdayName(4,false,FirstDayOfWeek.Friday)); Assert.AreEqual("Tuesday",DateAndTime.WeekdayName(5,false,FirstDayOfWeek.Friday)); Assert.AreEqual("Wednesday",DateAndTime.WeekdayName(6,false,FirstDayOfWeek.Friday)); Assert.AreEqual("Thursday",DateAndTime.WeekdayName(7,false,FirstDayOfWeek.Friday)); Assert.AreEqual("Saturday",DateAndTime.WeekdayName(1,false,FirstDayOfWeek.Saturday)); Assert.AreEqual("Sunday",DateAndTime.WeekdayName(2,false,FirstDayOfWeek.Saturday)); Assert.AreEqual("Monday",DateAndTime.WeekdayName(3,false,FirstDayOfWeek.Saturday)); Assert.AreEqual("Tuesday",DateAndTime.WeekdayName(4,false,FirstDayOfWeek.Saturday)); Assert.AreEqual("Wednesday",DateAndTime.WeekdayName(5,false,FirstDayOfWeek.Saturday)); Assert.AreEqual("Thursday",DateAndTime.WeekdayName(6,false,FirstDayOfWeek.Saturday)); Assert.AreEqual("Friday",DateAndTime.WeekdayName(7,false,FirstDayOfWeek.Saturday)); } [Test] public void WeekdayName_2() { Assert.AreEqual("Sun",DateAndTime.WeekdayName(1,true,FirstDayOfWeek.System)); Assert.AreEqual("Mon",DateAndTime.WeekdayName(2,true,FirstDayOfWeek.System)); Assert.AreEqual("Tue",DateAndTime.WeekdayName(3,true,FirstDayOfWeek.System)); Assert.AreEqual("Wed",DateAndTime.WeekdayName(4,true,FirstDayOfWeek.System)); Assert.AreEqual("Thu",DateAndTime.WeekdayName(5,true,FirstDayOfWeek.System)); Assert.AreEqual("Fri",DateAndTime.WeekdayName(6,true,FirstDayOfWeek.System)); Assert.AreEqual("Sat",DateAndTime.WeekdayName(7,true,FirstDayOfWeek.System)); Assert.AreEqual("Sun",DateAndTime.WeekdayName(1,true,FirstDayOfWeek.Sunday)); Assert.AreEqual("Mon",DateAndTime.WeekdayName(2,true,FirstDayOfWeek.Sunday)); Assert.AreEqual("Tue",DateAndTime.WeekdayName(3,true,FirstDayOfWeek.Sunday)); Assert.AreEqual("Wed",DateAndTime.WeekdayName(4,true,FirstDayOfWeek.Sunday)); Assert.AreEqual("Thu",DateAndTime.WeekdayName(5,true,FirstDayOfWeek.Sunday)); Assert.AreEqual("Fri",DateAndTime.WeekdayName(6,true,FirstDayOfWeek.Sunday)); Assert.AreEqual("Sat",DateAndTime.WeekdayName(7,true,FirstDayOfWeek.Sunday)); Assert.AreEqual("Mon",DateAndTime.WeekdayName(1,true,FirstDayOfWeek.Monday)); Assert.AreEqual("Tue",DateAndTime.WeekdayName(2,true,FirstDayOfWeek.Monday)); Assert.AreEqual("Wed",DateAndTime.WeekdayName(3,true,FirstDayOfWeek.Monday)); Assert.AreEqual("Thu",DateAndTime.WeekdayName(4,true,FirstDayOfWeek.Monday)); Assert.AreEqual("Fri",DateAndTime.WeekdayName(5,true,FirstDayOfWeek.Monday)); Assert.AreEqual("Sat",DateAndTime.WeekdayName(6,true,FirstDayOfWeek.Monday)); Assert.AreEqual("Sun",DateAndTime.WeekdayName(7,true,FirstDayOfWeek.Monday)); Assert.AreEqual("Tue",DateAndTime.WeekdayName(1,true,FirstDayOfWeek.Tuesday)); Assert.AreEqual("Wed",DateAndTime.WeekdayName(2,true,FirstDayOfWeek.Tuesday)); Assert.AreEqual("Thu",DateAndTime.WeekdayName(3,true,FirstDayOfWeek.Tuesday)); Assert.AreEqual("Fri",DateAndTime.WeekdayName(4,true,FirstDayOfWeek.Tuesday)); Assert.AreEqual("Sat",DateAndTime.WeekdayName(5,true,FirstDayOfWeek.Tuesday)); Assert.AreEqual("Sun",DateAndTime.WeekdayName(6,true,FirstDayOfWeek.Tuesday)); Assert.AreEqual("Mon",DateAndTime.WeekdayName(7,true,FirstDayOfWeek.Tuesday)); Assert.AreEqual("Wed",DateAndTime.WeekdayName(1,true,FirstDayOfWeek.Wednesday)); Assert.AreEqual("Thu",DateAndTime.WeekdayName(2,true,FirstDayOfWeek.Wednesday)); Assert.AreEqual("Fri",DateAndTime.WeekdayName(3,true,FirstDayOfWeek.Wednesday)); Assert.AreEqual("Sat",DateAndTime.WeekdayName(4,true,FirstDayOfWeek.Wednesday)); Assert.AreEqual("Sun",DateAndTime.WeekdayName(5,true,FirstDayOfWeek.Wednesday)); Assert.AreEqual("Mon",DateAndTime.WeekdayName(6,true,FirstDayOfWeek.Wednesday)); Assert.AreEqual("Tue",DateAndTime.WeekdayName(7,true,FirstDayOfWeek.Wednesday)); Assert.AreEqual("Thu",DateAndTime.WeekdayName(1,true,FirstDayOfWeek.Thursday)); Assert.AreEqual("Fri",DateAndTime.WeekdayName(2,true,FirstDayOfWeek.Thursday)); Assert.AreEqual("Sat",DateAndTime.WeekdayName(3,true,FirstDayOfWeek.Thursday)); Assert.AreEqual("Sun",DateAndTime.WeekdayName(4,true,FirstDayOfWeek.Thursday)); Assert.AreEqual("Mon",DateAndTime.WeekdayName(5,true,FirstDayOfWeek.Thursday)); Assert.AreEqual("Tue",DateAndTime.WeekdayName(6,true,FirstDayOfWeek.Thursday)); Assert.AreEqual("Wed",DateAndTime.WeekdayName(7,true,FirstDayOfWeek.Thursday)); Assert.AreEqual("Fri",DateAndTime.WeekdayName(1,true,FirstDayOfWeek.Friday)); Assert.AreEqual("Sat",DateAndTime.WeekdayName(2,true,FirstDayOfWeek.Friday)); Assert.AreEqual("Sun",DateAndTime.WeekdayName(3,true,FirstDayOfWeek.Friday)); Assert.AreEqual("Mon",DateAndTime.WeekdayName(4,true,FirstDayOfWeek.Friday)); Assert.AreEqual("Tue",DateAndTime.WeekdayName(5,true,FirstDayOfWeek.Friday)); Assert.AreEqual("Wed",DateAndTime.WeekdayName(6,true,FirstDayOfWeek.Friday)); Assert.AreEqual("Thu",DateAndTime.WeekdayName(7,true,FirstDayOfWeek.Friday)); Assert.AreEqual("Sat",DateAndTime.WeekdayName(1,true,FirstDayOfWeek.Saturday)); Assert.AreEqual("Sun",DateAndTime.WeekdayName(2,true,FirstDayOfWeek.Saturday)); Assert.AreEqual("Mon",DateAndTime.WeekdayName(3,true,FirstDayOfWeek.Saturday)); Assert.AreEqual("Tue",DateAndTime.WeekdayName(4,true,FirstDayOfWeek.Saturday)); Assert.AreEqual("Wed",DateAndTime.WeekdayName(5,true,FirstDayOfWeek.Saturday)); Assert.AreEqual("Thu",DateAndTime.WeekdayName(6,true,FirstDayOfWeek.Saturday)); Assert.AreEqual("Fri",DateAndTime.WeekdayName(7,true,FirstDayOfWeek.Saturday)); } [Test] [ExpectedException(typeof(ArgumentException))] public void WeekdayName_3() { DateAndTime.WeekdayName(0,true,FirstDayOfWeek.System); } [Test] [ExpectedException(typeof(ArgumentException))] public void WeekdayName_4() { DateAndTime.WeekdayName(-1,true,FirstDayOfWeek.System); } [Test] [ExpectedException(typeof(ArgumentException))] public void WeekdayName_5() { DateAndTime.WeekdayName(8,true,FirstDayOfWeek.System); } #endregion #region Year Tests [Test] public void Year () { DateTime jan1 = new DateTime(2001, 1, 1, 1, 1, 1); Assert.AreEqual(jan1.Year, DateAndTime.Year(jan1),"#Y01"); } [Test] public void Year_1() { Assert.AreEqual(2003,DateAndTime.Year(DateTime.Parse("1/1/03 12:11:23 AM"))); Assert.AreEqual(1003,DateAndTime.Year(DateTime.Parse("2/27/1003 03:00:23 PM"))); Assert.AreEqual(9999,DateAndTime.Year(DateTime.Parse("12/12/9999 17:59:23"))); Assert.AreEqual(1,DateAndTime.Year(DateTime.Parse("5/5/0001 03:16:23 pm"))); } #endregion #region Timer Tests [Test] [Category ("Slow")] public void Timer() { double secTimer = DateAndTime.Timer; DateTime dtNow = DateTime.Now; double secNow = dtNow.Hour * 3600 + dtNow.Minute * 60 + dtNow.Second + (dtNow.Millisecond + 1) / 1000D; double secTimer2 = DateAndTime.Timer + .002D; // before was .001; but we need to allow for rounding differences // waste a little time for (int i = 0; i < int.MaxValue; i++); // get another timer double secTimer3 = DateAndTime.Timer; // should be same time within a reasonable tolerance Assert.AreEqual(true, secNow >= secTimer,"#TI01"); Assert.AreEqual(true, secTimer2 >= secNow,"#TI02: slacked SecTimer2=" + secTimer2 + " secNow=" + secNow); // third timer should be greater than the first Assert.AreEqual(true, secTimer3 > secTimer,"#TI03"); } #endregion } } mono-basic-2.4.2/vbruntime/Test/Microsoft.VisualBasic/FileSystemTests.vb0000644000175000001440000007576611213247537025710 0ustar builderusers' ' FileSystemTests.vb - NUnit Test Cases for Microsoft.VisualBasic.Information ' ' Guy Cohen (guyc@mainsoft.com) ' ' ' ' Copyright (C) 2002-2006 Mainsoft Corporation. ' Copyright (C) 2004-2006 Novell, Inc (http://www.novell.com) ' ' Permission is hereby granted, free of charge, to any person obtaining ' a copy of this software and associated documentation files (the ' "Software"), to deal in the Software without restriction, including ' without limitation the rights to use, copy, modify, merge, publish, ' distribute, sublicense, and/or sell copies of the Software, and to ' permit persons to whom the Software is furnished to do so, subject to ' the following conditions: ' ' The above copyright notice and this permission notice shall be ' included in all copies or substantial portions of the Software. ' ' THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, ' EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF ' MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND ' NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE ' LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION ' OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION ' WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. ' Imports NUnit.Framework Imports System Imports System.IO Imports System.Text Imports System.Collections Imports System.Threading Imports Microsoft.VisualBasic _ Public Class FilesSystemTest Public DATA_DIR As String Public sep_ch As Char _ Public Sub GetReady() DATA_DIR = Environment.GetEnvironmentVariable("DATA_DIR") sep_ch = Path.DirectorySeparatorChar If Not (DATA_DIR) Then 'System.Console.WriteLine("DATA_DIR environment variable not found, set default value") DATA_DIR = (Directory.GetCurrentDirectory() + sep_ch + "data") End If If Not Directory.Exists(DATA_DIR) Then Directory.CreateDirectory(DATA_DIR) Else Directory.Delete(DATA_DIR, True) Directory.CreateDirectory(DATA_DIR) End If End Sub _ Public Sub Clean_All() End Sub _ Public Sub Clean() End Sub #Region "ChDir" _ Public Sub ChDir_1() Dim test_dir As String = "chdir_test1" Dim cur_dir, tmpStr As String Dim last_ch As Integer Directory.CreateDirectory(DATA_DIR + sep_ch + test_dir) FileSystem.ChDir(DATA_DIR + sep_ch + test_dir) tmpStr = Directory.GetCurrentDirectory() last_ch = tmpStr.LastIndexOf(sep_ch) cur_dir = tmpStr.Substring(last_ch + 1, (tmpStr.Length - last_ch) - 1) Assert.AreEqual(cur_dir, test_dir) FileSystem.ChDir("..") Directory.Delete(DATA_DIR + sep_ch + test_dir) End Sub _ Public Sub ChDir_2() FileSystem.ChDir("") End Sub #If NET_VER >= 2.0 Then _ Public Sub ChDir_3() Dim test_dir As String = "chdir_test3" FileSystem.ChDir(test_dir) End Sub #Else _ Public Sub ChDir_3() Dim test_dir As String = "chdir_test3" FileSystem.ChDir(test_dir) End Sub #End If #End Region #Region "CurDir" _ Public Sub CurDir_1() Dim cur_dir, test_dir As String Dim bRes As Boolean = True FileSystem.ChDir(DATA_DIR) cur_dir = Directory.GetCurrentDirectory() test_dir = FileSystem.CurDir() Assert.AreEqual(cur_dir, test_dir) Directory.CreateDirectory("CurDir_1") FileSystem.ChDir(DATA_DIR + sep_ch + "CurDir_1") test_dir = FileSystem.CurDir() If (cur_dir = test_dir) Then bRes = False Assert.AreEqual(True, bRes) FileSystem.ChDir("..") Directory.Delete(DATA_DIR + sep_ch + "CurDir_1") End Sub _ Public Sub CurDir_2() FileSystem.CurDir("2") End Sub _ Public Sub CurDir_3() '' hopefully J won`t exist on this computer Dim test_drive As Char = "J"c FileSystem.CurDir(test_drive) End Sub #End Region #Region "ChDrive" _ Public Sub ChDrive_1() Dim test_drive As Char = "C"c Dim cur_drive As Char Dim tmpStr As String FileSystem.ChDrive(test_drive) tmpStr = Directory.GetDirectoryRoot(Directory.GetCurrentDirectory()) cur_drive = tmpStr.Substring(0, 1) Assert.AreEqual(cur_drive, test_drive) End Sub _ Public Sub ChDrive_2() Dim test_drive As String = "" Dim cur_drive, last_drive As Char Dim tmpStr As String tmpStr = Directory.GetDirectoryRoot(Directory.GetCurrentDirectory()) last_drive = tmpStr.Substring(0, 1) FileSystem.ChDrive(test_drive) tmpStr = Directory.GetDirectoryRoot(Directory.GetCurrentDirectory()) cur_drive = tmpStr.Substring(0, 1) Assert.AreEqual(cur_drive, last_drive) End Sub _ Public Sub ChDrive_3() FileSystem.ChDrive("2") End Sub _ Public Sub ChDrive_4() FileSystem.ChDrive("TR:\") End Sub #End Region #Region "FileCopy" _ Public Sub FileCopy_1() Dim dest_dir As String = "temp_dir1" Dim src_file As String = "FileCopy_1.txt" Dim fs As FileStream If File.Exists(DATA_DIR + sep_ch + src_file) Then File.Delete(DATA_DIR + sep_ch + src_file) fs = File.Create(DATA_DIR + sep_ch + src_file) fs.Close() If Directory.Exists(CStr(DATA_DIR + sep_ch + dest_dir)) Then Directory.Delete(CStr(DATA_DIR + sep_ch + dest_dir)) Directory.CreateDirectory(CStr(DATA_DIR + sep_ch + dest_dir)) FileSystem.FileCopy(DATA_DIR + sep_ch + src_file, DATA_DIR + sep_ch + dest_dir + sep_ch + src_file) ' wait a while till the copy ends Thread.Sleep(100) Assert.AreEqual(True, File.Exists(DATA_DIR + sep_ch + dest_dir + sep_ch + src_file)) File.Delete(DATA_DIR + sep_ch + dest_dir + sep_ch + src_file) Directory.Delete(DATA_DIR + sep_ch + dest_dir, True) End Sub _ Public Sub FileCopy_2() Dim dest_dir As String = "temp_dir2" Dim src_file As String = "FileCopy_2.txt" If File.Exists(DATA_DIR + sep_ch + src_file) Then File.Delete(DATA_DIR + sep_ch + src_file) File.CreateText(DATA_DIR + sep_ch + src_file) If Directory.Exists(CStr(DATA_DIR + sep_ch + dest_dir)) Then Directory.Delete(CStr(DATA_DIR + sep_ch + dest_dir)) Directory.CreateDirectory(CStr(DATA_DIR + sep_ch + dest_dir)) '' pass null src FileSystem.FileCopy("", DATA_DIR + sep_ch + dest_dir) End Sub _ Public Sub FileCopy_3() Dim dest_dir As String = "temp_dir3" Dim src_file As String = "FileCopy_3.txt" If File.Exists(DATA_DIR + sep_ch + src_file) Then File.Delete(DATA_DIR + sep_ch + src_file) File.CreateText(DATA_DIR + sep_ch + src_file) If Directory.Exists(CStr(DATA_DIR + sep_ch + dest_dir)) Then Directory.Delete(CStr(DATA_DIR + sep_ch + dest_dir)) Directory.CreateDirectory(CStr(DATA_DIR + sep_ch + dest_dir)) '' pass existing directory name to copy FileSystem.FileCopy(DATA_DIR + sep_ch + src_file, DATA_DIR + sep_ch + dest_dir) File.Delete(DATA_DIR + sep_ch + src_file) File.Delete(DATA_DIR + sep_ch + dest_dir) File.Delete(DATA_DIR + sep_ch + dest_dir + sep_ch + src_file) Directory.Delete(DATA_DIR + sep_ch + dest_dir) End Sub _ Public Sub FileCopy_4() Dim dest_dir As String = "temp_dir4" Dim src_file As String = "FileCopy_4.txt" If File.Exists(DATA_DIR + sep_ch + src_file) Then File.Delete(DATA_DIR + sep_ch + src_file) File.CreateText(DATA_DIR + sep_ch + src_file) If Directory.Exists(CStr(DATA_DIR + sep_ch + dest_dir)) Then Directory.Delete(CStr(DATA_DIR + sep_ch + dest_dir)) Directory.CreateDirectory(CStr(DATA_DIR + sep_ch + dest_dir)) '' pass null destination FileSystem.FileCopy(DATA_DIR + sep_ch + dest_dir, "") End Sub _ Public Sub FileCopy_5() Dim dest_dir As String = "temp_dir5" Dim src_file As String = "FileCopy_5.txt" If File.Exists(DATA_DIR + sep_ch + src_file) Then File.Delete(DATA_DIR + sep_ch + src_file) If Directory.Exists(CStr(DATA_DIR + sep_ch + dest_dir)) Then Directory.Delete(CStr(DATA_DIR + sep_ch + dest_dir)) Directory.CreateDirectory(CStr(DATA_DIR + sep_ch + dest_dir)) '' pass missing src file FileSystem.FileCopy(DATA_DIR + sep_ch + src_file, DATA_DIR + sep_ch + dest_dir + sep_ch + src_file) End Sub _ Public Sub FileCopy_6() Dim dest_dir As String = "temp_dir6" Dim src_file As String = "FileCopy_6.txt" If File.Exists(DATA_DIR + sep_ch + src_file) Then File.Delete(DATA_DIR + sep_ch + src_file) File.CreateText(DATA_DIR + sep_ch + src_file) If Directory.Exists(CStr(DATA_DIR + sep_ch + dest_dir)) Then Directory.Delete(CStr(DATA_DIR + sep_ch + dest_dir)) '' pass missing directory to destination FileSystem.FileCopy(DATA_DIR + sep_ch + src_file, DATA_DIR + sep_ch + dest_dir + sep_ch + src_file) End Sub #End Region #Region "FileDateTime" 'TargetJvmNotSupported - File metadata/attributes feature is not supported #If Not TARGET_JVM Then _ Public Sub FileDateTime_1() Dim test_file As String = "FileDateTime_test1.dat" Dim create_time, test_time As Date Dim fs As FileStream fs = File.Create(DATA_DIR + sep_ch + test_file) create_time = File.GetCreationTime(DATA_DIR + sep_ch + test_file) test_time = FileSystem.FileDateTime(DATA_DIR + sep_ch + test_file) Assert.AreEqual(create_time, test_time, "Creation Time should be the same") fs.Close() Thread.Sleep(600) File.Delete(DATA_DIR + sep_ch + test_file) End Sub #End If #If Not TARGET_JVM Then 'TargetJvmNotSupported - File metadata/attributes feature is not supported _ Public Sub FileDateTime_2() Dim test_file As String = "FileDateTime_test1.dat" Dim modify_time, test_time As Date Dim fs As FileStream fs = File.Create(DATA_DIR + sep_ch + test_file) Thread.Sleep(60) Dim info As Byte() = New UTF8Encoding(True).GetBytes("This is some text in the file.") ' Add some information to the file. fs.Write(info, 0, info.Length) fs.Close() modify_time = File.GetLastAccessTime(DATA_DIR + sep_ch + test_file) test_time = FileSystem.FileDateTime(DATA_DIR + sep_ch + test_file) Assert.AreEqual(modify_time, test_time, "Modification Time should be the same") Thread.Sleep(60) File.Delete(DATA_DIR + sep_ch + test_file) End Sub #End If _ Public Sub FileDateTime_3() FileSystem.FileDateTime("") End Sub _ Public Sub FileDateTime_4() FileSystem.FileDateTime("c:\test_wrong_path\?") End Sub _ Public Sub FileDateTime_5() Dim test_file As String = "FileDateTime_test3.txt" FileSystem.FileDateTime(test_file) End Sub #End Region #Region "FileLen" _ Public Sub FileLen_1() Dim test_file As String = "FileLen_test1.dat" Dim file_len As Integer Dim fs As FileStream fs = File.Create(DATA_DIR + sep_ch + test_file) Thread.Sleep(60) Dim info As Byte() = New UTF8Encoding(True).GetBytes("This is some text in the file.") ' Add some information to the file. fs.Write(info, 0, info.Length) fs.Close() file_len = FileSystem.FileLen(DATA_DIR + sep_ch + test_file) Assert.AreEqual(30, file_len) Thread.Sleep(60) File.Delete(DATA_DIR + sep_ch + test_file) End Sub _ Public Sub FileLen_2() FileSystem.FileLen("") End Sub _ Public Sub FileLen_3() Dim test_dir As String = "FileLen_test3.dat" FileSystem.FileLen(test_dir) End Sub #End Region #Region "GetAttr" 'TargetJvmNotSupported - File metadata/attributes feature is not supported _ Public Sub GetAttr_1() '' check attr to file Dim test_file As String = "GetAttr_test1.dat" Dim file_attr As FileAttribute, req_attr As FileAttributes Dim fs As FileStream req_attr = FileAttributes.Hidden Or FileAttributes.Archive fs = File.Create(DATA_DIR + sep_ch + test_file) Thread.Sleep(60) fs.Close() File.SetAttributes(DATA_DIR + sep_ch + test_file, req_attr) file_attr = FileSystem.GetAttr(DATA_DIR + sep_ch + test_file) Assert.AreEqual(req_attr.ToString(), file_attr.ToString()) Thread.Sleep(60) File.Delete(DATA_DIR + sep_ch + test_file) End Sub 'TargetJvmNotSupported - File metadata/attributes feature is not supported _ Public Sub GetAttr_2() '' check attr to directory Dim test_dir As String = "GetAttr_Dirtest2" Dim file_attr As FileAttribute, req_attr As FileAttributes req_attr = FileAttributes.Hidden Or FileAttributes.Archive Or FileAttributes.Directory Directory.CreateDirectory(DATA_DIR + sep_ch + test_dir) File.SetAttributes(DATA_DIR + sep_ch + test_dir, req_attr) file_attr = FileSystem.GetAttr(DATA_DIR + sep_ch + test_dir) Assert.AreEqual(CObj(req_attr), CObj(file_attr)) Thread.Sleep(60) Directory.Delete(DATA_DIR + sep_ch + test_dir) End Sub _ Public Sub GetAttr_3() FileSystem.GetAttr("") End Sub _ Public Sub GetAttr_4() Dim test_dir As String = "GetAttr_test4.dat" FileSystem.GetAttr(test_dir) End Sub #End Region #Region "Kill" _ Public Sub Kill_1() '' kill one file Dim test_file1 As String = "Kill_1_test1.dat" Dim fs As FileStream = File.Create(DATA_DIR + sep_ch + test_file1, 1024) fs.Close() FileSystem.Kill(DATA_DIR + sep_ch + test_file1) Thread.Sleep(60) Assert.AreEqual(False, File.Exists(DATA_DIR + sep_ch + test_file1)) End Sub _ Public Sub Kill_2() '' kill files with *.dat Dim test_file1 As String = "Kill_2_test1.dat" Dim test_file2 As String = "Kill_2_test2.dat" Dim fs As FileStream = File.Create(DATA_DIR + sep_ch + test_file1, 1024) Dim fs1 As FileStream = File.Create(DATA_DIR + sep_ch + test_file2, 1024) fs.Close() fs1.Close() FileSystem.Kill(DATA_DIR + sep_ch + "Kill*.dat") Thread.Sleep(60) Assert.AreEqual(False, File.Exists(DATA_DIR + sep_ch + test_file1), "kill need to remove also Kill_2_test1.dat") Assert.AreEqual(False, File.Exists(DATA_DIR + sep_ch + test_file2), "kill need to remove also Kill_2_test2.dat") End Sub _ Public Sub Kill_3() '' try to kill a directory Dim test_dir As String = "Kill_Dirtest2" Directory.CreateDirectory(DATA_DIR + sep_ch + test_dir) FileSystem.Kill(DATA_DIR + sep_ch + test_dir) End Sub _ Public Sub Kill_4() FileSystem.Kill("") End Sub _ Public Sub Kill_5() Dim test_dir As String = "Kill_test4.dat" FileSystem.Kill(test_dir) End Sub _ Public Sub Kill_6() '' * in the path Dim test_dir As String = "Kill_test4.dat" FileSystem.Kill(DATA_DIR + "*" + sep_ch + test_dir) End Sub #End Region #Region "MKDir" _ Public Sub MKDir_1() Dim test_dir As String = "MKDir_test1" FileSystem.MkDir(DATA_DIR + sep_ch + test_dir) Dim dirinfo As New DirectoryInfo(DATA_DIR + sep_ch + test_dir) Assert.AreEqual(True, dirinfo.Exists) Directory.Delete(DATA_DIR + sep_ch + test_dir) End Sub _ Public Sub MKDir_2() Dim test_dir As String = "MKDir_test2" Directory.CreateDirectory(DATA_DIR + sep_ch + test_dir) FileSystem.MkDir(DATA_DIR + sep_ch + test_dir) End Sub _ Public Sub MKDir_3() FileSystem.MkDir("") End Sub _ Public Sub MKDir_4() Dim test_dir As String = "MKdir_t _ Public Sub Rename_1() '' rename directory Dim test_dir As String = "Rename_test1" Dim test_dir_new As String = "Rename_test1_new" Directory.CreateDirectory(DATA_DIR + sep_ch + test_dir) FileSystem.Rename(DATA_DIR + sep_ch + test_dir, DATA_DIR + sep_ch + test_dir_new) Dim dirinfo_new As New DirectoryInfo(DATA_DIR + sep_ch + test_dir_new) Assert.AreEqual(True, dirinfo_new.Exists) Thread.Sleep(60) Directory.Delete(DATA_DIR + sep_ch + test_dir_new) End Sub _ Public Sub Rename_2() '' rename file Dim test_file As String = "Rename_test2.txt" Dim test_file_new As String = "Rename_test2_new.dat" Dim fs As FileStream = File.Create(DATA_DIR + sep_ch + test_file, 1024) fs.Close() FileSystem.Rename(DATA_DIR + sep_ch + test_file, DATA_DIR + sep_ch + test_file_new) Dim fileinfo_new As New FileInfo(DATA_DIR + sep_ch + test_file_new) Assert.AreEqual(True, fileinfo_new.Exists) File.Delete(DATA_DIR + sep_ch + test_file_new) End Sub #If NET_VER >= 2.0 Then _ Public Sub Rename_3() #Else _ Public Sub Rename_3() #End If Dim test_dir As String = "Rename_test3" Dim tmp_dir As String = "Try_Dir" Directory.CreateDirectory(DATA_DIR + sep_ch + test_dir) Directory.CreateDirectory(DATA_DIR + sep_ch + tmp_dir) FileSystem.Rename(DATA_DIR + sep_ch + test_dir, DATA_DIR + sep_ch + tmp_dir) End Sub _ Public Sub Rename_4() FileSystem.Rename("", "Test") End Sub #If NET_VER >= 2.0 Then _ Public Sub Rename_5() Dim test_dir As String = "Rename_test5" FileSystem.Rename("fff", test_dir) End Sub #Else _ Public Sub Rename_5() Dim test_dir As String = "Rename_test5" FileSystem.Rename("fff", test_dir) End Sub #End If _ Public Sub Rename_6() Dim test_file As String = "Rename_t _ Public Sub Rename_7() Dim test_file As String = "Rename_test7.dat" Dim fs As FileStream = File.Create(DATA_DIR + sep_ch + test_file, 1024) FileSystem.Rename(test_file, "") End Sub _ Public Sub Rename_8() '' move a file to unavailable directory Dim test_file As String = "Rename_test8.txt" Dim test_file_new As String = "Rename_test8_new.dat" Dim fs As FileStream = File.Create(DATA_DIR + sep_ch + test_file, 1024) fs.Close() FileSystem.Rename(DATA_DIR + sep_ch + test_file, DATA_DIR + sep_ch + "not_there" + sep_ch + test_file_new) Dim fileinfo_new As New FileInfo(DATA_DIR + sep_ch + test_file_new) Assert.AreEqual(False, fileinfo_new.Exists) File.Delete(DATA_DIR + sep_ch + test_file_new) End Sub #End Region #Region "SetAttr" 'TargetJvmNotSupported - File metadata/attributes feature is not supported _ Public Sub SetAttr_1() '' check attr on file Dim test_file As String = "SetAttr_test1.dat" Dim file_attr As FileAttributes, req_attr As FileAttribute Dim fs As FileStream req_attr = vbHidden Or vbArchive fs = File.Create(DATA_DIR + sep_ch + test_file) Thread.Sleep(60) fs.Close() FileSystem.SetAttr(DATA_DIR + sep_ch + test_file, req_attr) file_attr = File.GetAttributes(DATA_DIR + sep_ch + test_file) Assert.AreEqual(CObj(req_attr), CObj(file_attr)) Thread.Sleep(60) File.Delete(DATA_DIR + sep_ch + test_file) End Sub 'TargetJvmNotSupported - File metadata/attributes feature is not supported _ Public Sub SetAttr_2() '' check attr on directory Dim test_dir As String = "SetAttr_Dirtest2" Dim file_attr As FileAttribute, req_attr As FileAttribute req_attr = vbHidden Or vbArchive Directory.CreateDirectory(DATA_DIR + sep_ch + test_dir) FileSystem.SetAttr(DATA_DIR + sep_ch + test_dir, req_attr) file_attr = FileSystem.GetAttr(DATA_DIR + sep_ch + test_dir) Assert.AreEqual(CObj(req_attr Or vbDirectory), CObj(file_attr)) Thread.Sleep(60) Directory.Delete(DATA_DIR + sep_ch + test_dir) End Sub _ Public Sub SetAttr_3() FileSystem.GetAttr("") End Sub _ Public Sub SetAttr_4() Dim test_dir As String = "SetAttr_test4.dat" FileSystem.GetAttr(test_dir) End Sub #End Region #Region "RMDir" _ Public Sub RMDir_1() Dim test_dir As String = "RMDir_test1" Directory.CreateDirectory(DATA_DIR + sep_ch + test_dir) FileSystem.RmDir(DATA_DIR + sep_ch + test_dir) Dim dirinfo As New DirectoryInfo(DATA_DIR + sep_ch + test_dir) Assert.AreEqual(False, dirinfo.Exists) End Sub _ Public Sub RMDir_2() '' directory not empty Dim test_dir As String = "RMDir_test2" Directory.CreateDirectory(DATA_DIR + sep_ch + test_dir) Dim fs1 As FileStream = File.Create(DATA_DIR + sep_ch + test_dir + sep_ch + "sss.txt", 1024) fs1.Close() FileSystem.RmDir(DATA_DIR + sep_ch + test_dir) End Sub _ Public Sub RMDir_3() FileSystem.MkDir("") End Sub _ Public Sub RMDir_4() Dim test_dir As String = "RMDir_t _ Public Sub RMDir_5() Dim test_dir As String = "RMDir_test5" FileSystem.RmDir(DATA_DIR + sep_ch + test_dir) End Sub #End Region #Region "DirTests" _ Public Sub Dir_1() Dim test_dir As String = "Dir_test1" FileSystem.Dir() End Sub _ Public Sub Dir_2() Dim test_dir As String = "Dir_test2" Dim res_dir As String res_dir = FileSystem.Dir(DATA_DIR + sep_ch + test_dir) Assert.AreEqual("", res_dir) End Sub _ Public Sub Dir_3() Dim test_dir As String = "Dir_test3" Dim res_dir As String Directory.CreateDirectory(DATA_DIR + sep_ch + test_dir) res_dir = FileSystem.Dir(DATA_DIR + sep_ch + test_dir, FileAttribute.Directory) Assert.AreEqual(test_dir, res_dir) '' Directory.Delete(DATA_DIR + sep_ch + test_dir) End Sub _ Public Sub Dir_4() Dim test_dir1 As String = "Dir_test4_1" Dim test_dir2 As String = "Dir_test4_2" Dim test_dir3 As String = "Dir_test4_3" Dim res_dir As String Directory.CreateDirectory(DATA_DIR + sep_ch + test_dir1) Directory.CreateDirectory(DATA_DIR + sep_ch + test_dir2) Directory.CreateDirectory(DATA_DIR + sep_ch + test_dir3) res_dir = FileSystem.Dir(DATA_DIR + sep_ch + "Dir_test4_?", FileAttribute.Directory) Assert.AreEqual(test_dir1, res_dir) res_dir = FileSystem.Dir() Assert.AreEqual(test_dir2, res_dir) res_dir = FileSystem.Dir() Assert.AreEqual(test_dir3, res_dir) End Sub _ Public Sub Dir_5() Dim test_dir1 As String = "Dir_test5_1" Dim test_dir2 As String = "Dir_test5_2" Dim res_dir As String Directory.CreateDirectory(DATA_DIR + sep_ch + test_dir1) Directory.CreateDirectory(DATA_DIR + sep_ch + test_dir2) res_dir = FileSystem.Dir(DATA_DIR + sep_ch + "Dir_test5_?", FileAttribute.Directory) Assert.AreEqual(test_dir1, res_dir) res_dir = FileSystem.Dir() Assert.AreEqual(test_dir2, res_dir) res_dir = FileSystem.Dir() Assert.AreEqual(Nothing, res_dir) '' after last match retyrn null End Sub _ Public Sub Dir_6() Dim test_dir1 As String = "Dir_test5_1" Dim test_dir2 As String = "Dir_test5_2" Dim res_dir As String Directory.CreateDirectory(DATA_DIR + sep_ch + test_dir1) Directory.CreateDirectory(DATA_DIR + sep_ch + test_dir2) res_dir = FileSystem.Dir(DATA_DIR + sep_ch + "Dir_test5_?", FileAttribute.Directory) Assert.AreEqual(test_dir1, res_dir) res_dir = FileSystem.Dir() Assert.AreEqual(test_dir2, res_dir) res_dir = FileSystem.Dir() Assert.AreEqual(Nothing, res_dir) res_dir = FileSystem.Dir() '' this one should raise an exception End Sub _ Public Sub Dir_7() Dim test_file1 As String = "Dir_test_file7_1.check" Dim test_file2 As String = "Dir_test_file7_2.check" Dim res_file As String Dim fs1 As FileStream = File.Create(DATA_DIR + sep_ch + test_file1, 1024) fs1.Close() Dim fs2 As FileStream = File.Create(DATA_DIR + sep_ch + test_file2, 1024) fs2.Close() res_file = FileSystem.Dir(DATA_DIR + sep_ch + "Dir_test_file7_*.*") Assert.AreEqual(test_file1, res_file) res_file = FileSystem.Dir() Assert.AreEqual(test_file2, res_file) res_file = FileSystem.Dir() Assert.AreEqual(Nothing, res_file) '' after last match return null End Sub _ Public Sub Dir_8() Dim test_file1 As String = "Dir_test_file8_1.check" Dim test_file2 As String = "Dir_test_file8_2.check" Dim res_file As String Dim fs1 As FileStream = File.Create(DATA_DIR + sep_ch + test_file1, 1024) fs1.Close() Dim fs2 As FileStream = File.Create(DATA_DIR + sep_ch + test_file2, 1024) fs2.Close() res_file = FileSystem.Dir(DATA_DIR + sep_ch + "Dir_test_file8_1.*") Assert.AreEqual(test_file1, res_file) res_file = FileSystem.Dir() Assert.AreEqual(Nothing, res_file) '' after last match retyrn null End Sub _ Public Sub Dir_9() Dim test_file1 As String = "Dir_test_file9_1.check" Dim res_file As String res_file = FileSystem.Dir("c:\tes^~~^^^\Dir_test_file9_1.*") Assert.AreEqual("", res_file) End Sub _ Public Sub Dir_10() Dim res_file As String Dim test_dir1 As String = "Dir_test_10" Directory.CreateDirectory(DATA_DIR + sep_ch + test_dir1) Dim test_file1 As String = "Dir_test_11_file_1.check" Dim test_file2 As String = "Dir_test_11_file_2.txt" Dim fs1 As FileStream = File.Create(DATA_DIR + sep_ch + test_dir1 + sep_ch + test_file1, 1024) fs1.Close() Dim fs2 As FileStream = File.Create(DATA_DIR + sep_ch + test_dir1 + sep_ch + test_file2, 1024) fs2.Close() FileSystem.ChDir(DATA_DIR + sep_ch + test_dir1) res_file = FileSystem.Dir("") '' returns all files with normal attr Assert.AreEqual(test_file1, res_file) res_file = FileSystem.Dir() Assert.AreEqual(test_file2, res_file) End Sub _ Public Sub Dir_11() Dim test_dir1 As String = "Dir_test_11_1" Dim test_dir2 As String = "Dir_test_11_2" Dim test_dir3 As String = "Dir_test_11_3" Dim res_dir As String Directory.CreateDirectory(DATA_DIR + sep_ch + test_dir1) Directory.CreateDirectory(DATA_DIR + sep_ch + test_dir2) Directory.CreateDirectory(DATA_DIR + sep_ch + test_dir3) Dim test_file1 As String = "Dir_test_11_file_1.check" Dim test_file2 As String = "Dir_test_11_file_2.check" Dim fs1 As FileStream = File.Create(DATA_DIR + sep_ch + test_file1, 1024) fs1.Close() Dim fs2 As FileStream = File.Create(DATA_DIR + sep_ch + test_file2, 1024) fs2.Close() res_dir = FileSystem.Dir(DATA_DIR + sep_ch + "Dir_test_11*", FileAttribute.Directory) '' all files and dirs Assert.AreEqual(test_dir1, res_dir, "1") res_dir = FileSystem.Dir() Assert.AreEqual(test_dir2, res_dir, "2") res_dir = FileSystem.Dir() Assert.AreEqual(test_dir3, res_dir, "3") res_dir = FileSystem.Dir() Assert.AreEqual(test_file1, res_dir, "4") res_dir = FileSystem.Dir() Assert.AreEqual(test_file2, res_dir, "5") End Sub #End Region End Classmono-basic-2.4.2/vbruntime/Test/Microsoft.VisualBasic/InformationTests.cs0000644000175000001440000005315511213247537026073 0ustar builderusers// InformationTests.cs - NUnit Test Cases for Microsoft.VisualBasic.Information // // Guy Cohen (guyc@mainsoft.com) // // // Copyright (c) 2002-2006 Mainsoft Corporation. // Copyright (C) 2004 Novell, Inc (http://www.novell.com) // // Permission is hereby granted, free of charge, to any person obtaining // a copy of this software and associated documentation files (the // "Software"), to deal in the Software without restriction, including // without limitation the rights to use, copy, modify, merge, publish, // distribute, sublicense, and/or sell copies of the Software, and to // permit persons to whom the Software is furnished to do so, subject to // the following conditions: // // The above copyright notice and this permission notice shall be // included in all copies or substantial portions of the Software. // // THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, // EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF // MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND // NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE // LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION // OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION // WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. // using NUnit.Framework; using System; using System.IO; using System.Collections; using Microsoft.VisualBasic; namespace MonoTests.Microsoft_VisualBasic { [TestFixture] public class InformationTests { public InformationTests() { } [SetUp] public void GetReady() { } [TearDown] public void Clean() { } #region IsError tests [Test] public void IsError_1() { byte oDT1 = 1; short oDT2 = 1; int oDT3 = 1; long oDT4 = 1000; float oDT5 = 22; double oDT6 = 2.2; decimal oDT7 = 1000; string oDT8 = "abc"; object oDT9 = null; bool oDT10 = true; char oDT11 = 'c'; System.DateTime oDT12 = System.DateTime.Parse("5/31/1993"); Assert.AreEqual(false,Information.IsError(oDT1)); Assert.AreEqual(false,Information.IsError(oDT2)); Assert.AreEqual(false,Information.IsError(oDT3)); Assert.AreEqual(false,Information.IsError(oDT4)); Assert.AreEqual(false,Information.IsError(oDT5)); Assert.AreEqual(false,Information.IsError(oDT6)); Assert.AreEqual(false,Information.IsError(oDT7)); Assert.AreEqual(false,Information.IsError(oDT8)); Assert.AreEqual(false,Information.IsError(oDT9)); Assert.AreEqual(false,Information.IsError(oDT10)); Assert.AreEqual(false,Information.IsError(oDT11)); Assert.AreEqual(false,Information.IsError(oDT12)); } [Test] public void IsError_2() { string BadArg = "BAD ARGS"; object ReturnVal = new System.ArgumentOutOfRangeException(BadArg); object o1; o1 = new ArgumentOutOfRangeException(); Assert.AreEqual(true,Information.IsError(o1)); Assert.AreEqual(true,Information.IsError(ReturnVal)); } #endregion #region IsNothing tests [Test] public void IsNothing_1() { object o1; o1 = "test"; Assert.AreEqual(false,Information.IsNothing(o1)); o1 = null; Assert.AreEqual(true,Information.IsNothing(o1)); } [Test] public void IsNothing_2() { byte oDT1 = 1; short oDT2 = 1; int oDT3 = 1; long oDT4 = 1000; float oDT5 = 22; double oDT6 = 2.2; decimal oDT7 = 1000; string oDT8 = "abc"; object oDT9 = null; bool oDT10 = true; char oDT11 = 'c'; System.DateTime oDT12 = System.DateTime.Parse("5/31/1993"); Assert.AreEqual(false,Information.IsNothing(oDT1)); Assert.AreEqual(false,Information.IsNothing(oDT2)); Assert.AreEqual(false,Information.IsNothing(oDT3)); Assert.AreEqual(false,Information.IsNothing(oDT4)); Assert.AreEqual(false,Information.IsNothing(oDT5)); Assert.AreEqual(false,Information.IsNothing(oDT6)); Assert.AreEqual(false,Information.IsNothing(oDT7)); Assert.AreEqual(false,Information.IsNothing(oDT8)); Assert.AreEqual(true,Information.IsNothing(oDT9)); Assert.AreEqual(false,Information.IsNothing(oDT10)); Assert.AreEqual(false,Information.IsNothing(oDT11)); Assert.AreEqual(false,Information.IsNothing(oDT12)); } [Test] public void IsNothing_4() { test_nothing tmp_class = new test_nothing(); Assert.AreEqual(false,Information.IsNothing(tmp_class)); } internal class test_nothing { } #endregion #region RGB tests [Test] public void RGB_1() { Assert.AreEqual(0,Information.RGB(0,0,0)); Assert.AreEqual(6579300,Information.RGB(100,100,100)); Assert.AreEqual(13158600,Information.RGB(200,200,200)); Assert.AreEqual(16777215,Information.RGB(255,255,290)); } [Test] [ExpectedException (typeof(ArgumentException))] public void RGB_2() { int i; i = Information.RGB(50,12,-1); } [Test] [ExpectedException (typeof(ArgumentException))] public void RGB_3() { int i; i = Information.RGB(50,-1,1); } [Test] [ExpectedException (typeof(ArgumentException))] public void RGB_4() { int i; i = Information.RGB(-1,122,11); } [Test] public void RGB_5() { decimal d = 0; for (int i = 0; i <= 255; i += 255) { for (int j = 0; j <= 255; j += 255) { for (int k = 0; k <= 255; k += 255) { d = d + Information.RGB(i, j, k); } } } Assert.AreEqual(67108860,d); } [Test] public void RGB_6() { // greater than 255, 255 is used decimal resA1, resA2, resB1, resB2, resC1, resC2; resA1 = Information.RGB(255, 0, 0); resA2 = Information.RGB(256, 0, 0); resB1 = Information.RGB(0, 255, 0); resB2 = Information.RGB(0, 256, 0); resC1 = Information.RGB(0, 0, 255); resC2 = Information.RGB(0, 0, 256); Assert.AreEqual(resA1,resA2); Assert.AreEqual(resB1,resB2); Assert.AreEqual(resC1,resC2); } #endregion #region IsNumeric tests [Test] public void IsNumeric_1() { if (Helper.OnMono) Assert.Ignore ("Buggy mono: #81777"); object tmpobj1 = "43"; object tmpobj2 = "343 TEST"; Assert.AreEqual(false,Information.IsNumeric("20 werwer")); Assert.AreEqual(true,Information.IsNumeric("2020")); Assert.AreEqual(true,Information.IsNumeric("222,34")); Assert.AreEqual(true,Information.IsNumeric(".45")); Assert.AreEqual(true,Information.IsNumeric(-0.3)); Assert.AreEqual(false,Information.IsNumeric("14.33.33")); Assert.AreEqual(true,Information.IsNumeric(tmpobj1)); Assert.AreEqual(false,Information.IsNumeric(tmpobj2)); } [Test] public void IsNumeric_2() { byte oDT1 = 1; short oDT2 = 1; int oDT3 = 1; long oDT4 = 1000; float oDT5 = 1; double oDT6 = 2.2; decimal oDT7 = 1000; string oDT8 = "abc"; object oDT9 = oDT1; bool oDT10 = true; char oDT11 = 'c'; System.DateTime oDT12 = System.DateTime.Parse("5/31/1993"); string oDT13 = ""; Assert.AreEqual(true,Information.IsNumeric(oDT1),"oDT1"); Assert.AreEqual(true,Information.IsNumeric(oDT2),"oDT2"); Assert.AreEqual(true,Information.IsNumeric(oDT3),"oDT3"); Assert.AreEqual(true,Information.IsNumeric(oDT4),"oDT4"); Assert.AreEqual(true,Information.IsNumeric(oDT5),"oDT5"); Assert.AreEqual(true,Information.IsNumeric(oDT6)); Assert.AreEqual(true,Information.IsNumeric(oDT7)); Assert.AreEqual(false,Information.IsNumeric(oDT8)); Assert.AreEqual(true,Information.IsNumeric(oDT9)); Assert.AreEqual(true,Information.IsNumeric(oDT10)); Assert.AreEqual(false,Information.IsNumeric(oDT11)); Assert.AreEqual(false,Information.IsNumeric(oDT12)); Assert.AreEqual(false,Information.IsNumeric(oDT13)); } [Test] public void IsNumeric_3() { test_cls tmpobj1 = new test_cls(); Itest_cls Itest = null; Assert.AreEqual(false,Information.IsNumeric(tmpobj1)); Assert.AreEqual(false,Information.IsNumeric(Itest)); } internal interface Itest_cls { }; #endregion #region IsDBNull tests [Test] public void IsDBNull_1() { object tmpobj = null; object tmpDBnullobj = System.DBNull.Value; Assert.AreEqual(false,Information.IsDBNull("werwer")); Assert.AreEqual(false,Information.IsDBNull("")); Assert.AreEqual(false,Information.IsDBNull(tmpobj)); Assert.AreEqual(true,Information.IsDBNull(tmpDBnullobj)); } [Test] public void IsDBNull_2() { byte oDT1 = 1; short oDT2 = 1; int oDT3 = 1; long oDT4 = 1000; float oDT5 = 22; double oDT6 = 2.2; decimal oDT7 = 1000; string oDT8 = "abc"; object oDT9 = null; bool oDT10 = true; char oDT11 = 'c'; System.DateTime oDT12 = System.DateTime.Parse("5/31/1993"); Assert.AreEqual(false,Information.IsDBNull(oDT1)); Assert.AreEqual(false,Information.IsDBNull(oDT2)); Assert.AreEqual(false,Information.IsDBNull(oDT3)); Assert.AreEqual(false,Information.IsDBNull(oDT4)); Assert.AreEqual(false,Information.IsDBNull(oDT5)); Assert.AreEqual(false,Information.IsDBNull(oDT6)); Assert.AreEqual(false,Information.IsDBNull(oDT7)); Assert.AreEqual(false,Information.IsDBNull(oDT8)); Assert.AreEqual(false,Information.IsDBNull(oDT9)); Assert.AreEqual(false,Information.IsDBNull(oDT10)); Assert.AreEqual(false,Information.IsDBNull(oDT11)); Assert.AreEqual(false,Information.IsDBNull(oDT12)); } #endregion #region IsReference tests [Test] public void IsReference_1() { int i = 3; String tempStr = "TEST STRING"; Object tmpObj = null; bool[] bArr = new bool[2]; Assert.AreEqual(false,Information.IsReference(i)); Assert.AreEqual(true,Information.IsReference(tempStr)); Assert.AreEqual(true,Information.IsReference(bArr)); Assert.AreEqual(true,Information.IsReference(tmpObj)); Assert.AreEqual(false,Information.IsReference(-0.3)); } [Test] public void IsReference_2() { byte oDT1 = 1; short oDT2 = 1; int oDT3 = 1; long oDT4 = 1000; float oDT5 = 1; double oDT6 = 2.2; decimal oDT7 = 1000; string oDT8 = "abc"; object oDT9 = oDT1; bool oDT10 = true; char oDT11 = 'c'; System.DateTime oDT12 = System.DateTime.Parse("5/31/1993"); string oDT13 = ""; string oDT14 = null; Assert.AreEqual(false,Information.IsReference(oDT1)); Assert.AreEqual(false,Information.IsReference(oDT2)); Assert.AreEqual(false,Information.IsReference(oDT3)); Assert.AreEqual(false,Information.IsReference(oDT4)); Assert.AreEqual(false,Information.IsReference(oDT5)); Assert.AreEqual(false,Information.IsReference(oDT6)); Assert.AreEqual(false,Information.IsReference(oDT7)); Assert.AreEqual(true,Information.IsReference(oDT8)); Assert.AreEqual(false,Information.IsReference(oDT9)); Assert.AreEqual(false,Information.IsReference(oDT10)); Assert.AreEqual(false,Information.IsReference(oDT11)); Assert.AreEqual(false,Information.IsReference(oDT12)); Assert.AreEqual(true,Information.IsReference(oDT13)); Assert.AreEqual(true,Information.IsReference(oDT14)); } [Test] public void IsReference_3() { test_cls tmpobj1 = new test_cls(); Itest_cls Itest = null; Assert.AreEqual(true,Information.IsReference(tmpobj1)); Assert.AreEqual(true,Information.IsReference(Itest)); } #endregion #region SystemTypeName tests [Test] public void SystemTypeName_1() { Assert.AreEqual("System.Boolean",Information.SystemTypeName("BOolean")); Assert.AreEqual("System.Byte",Information.SystemTypeName("bYte")); Assert.AreEqual("System.Int16",Information.SystemTypeName("Short")); Assert.AreEqual("System.Int32",Information.SystemTypeName("Integer")); Assert.AreEqual("System.Char",Information.SystemTypeName("char")); Assert.AreEqual("System.Single",Information.SystemTypeName("single")); Assert.AreEqual("System.Double",Information.SystemTypeName("double")); Assert.AreEqual("System.String",Information.SystemTypeName("StRing")); Assert.AreEqual("System.DateTime",Information.SystemTypeName("DATE")); Assert.AreEqual("System.Decimal",Information.SystemTypeName("decimal")); Assert.AreEqual("System.Object",Information.SystemTypeName("Object")); Assert.AreEqual("System.DateTime",Information.SystemTypeName("date")); Assert.AreEqual("System.Int64",Information.SystemTypeName("Long")); Assert.AreEqual(null,Information.SystemTypeName("MUKY")); } #endregion #region IsDate tests [Test] public void IsDate_1() { DateTime tmpDate = DateTime.Parse("5/31/1993"); String tmpStr = "RRRR"; object tmpObj = null; Assert.AreEqual(true,Information.IsDate(tmpDate)); Assert.AreEqual(false,Information.IsDate(tmpStr)); Assert.AreEqual(true,Information.IsDate("February 12, 1969")); Assert.AreEqual(false,Information.IsDate(30)); Assert.AreEqual(false,Information.IsDate(tmpObj)); } [Test] public void IsDate_2() { byte oDT1 = 1; short oDT2 = 1; int oDT3 = 1; long oDT4 = 1000; float oDT5 = 1; double oDT6 = 2.2; decimal oDT7 = 1000; string oDT8 = "abc"; object oDT9 = null; bool oDT10 = true; char oDT11 = 'c'; Assert.AreEqual(false,Information.IsDate(oDT1)); Assert.AreEqual(false,Information.IsDate(oDT2)); Assert.AreEqual(false,Information.IsDate(oDT3)); Assert.AreEqual(false,Information.IsDate(oDT4)); Assert.AreEqual(false,Information.IsDate(oDT5)); Assert.AreEqual(false,Information.IsDate(oDT6)); Assert.AreEqual(false,Information.IsDate(oDT7)); Assert.AreEqual(false,Information.IsDate(oDT8)); Assert.AreEqual(false,Information.IsDate(oDT9)); Assert.AreEqual(false,Information.IsDate(oDT10)); Assert.AreEqual(false,Information.IsDate(oDT11)); } #endregion #region IsArray tests [Test] public void IsArray_1() { String tmpStr = "RRRR"; object tmpObj = null; int[] tmpArr = new int [2]; tmpArr[1] = 2; byte[] oDT1 = new byte[2]; short[] oDT2 = new short[2]; int[] oDT3 = new int[2]; long[] oDT4 = new long[2]; float[] oDT5 = new float[2]; double[] oDT6 = new double[2]; decimal[] oDT7 = new decimal[2]; string[] oDT8 = new string[2]; object[] oDT9 = new object[2]; bool[] oDT10 = new bool[2]; char[] oDT11 = new char[2]; System.DateTime[] oDT12 = new System.DateTime[2]; Assert.AreEqual(false,Information.IsArray(tmpStr)); Assert.AreEqual(false,Information.IsArray("February 12, 1969")); Assert.AreEqual(false,Information.IsArray(30)); Assert.AreEqual(false,Information.IsArray(tmpObj)); Assert.AreEqual(true,Information.IsArray(tmpArr)); Assert.AreEqual(true,Information.IsArray(oDT1)); Assert.AreEqual(true,Information.IsArray(oDT2)); Assert.AreEqual(true,Information.IsArray(oDT3)); Assert.AreEqual(true,Information.IsArray(oDT4)); Assert.AreEqual(true,Information.IsArray(oDT5)); Assert.AreEqual(true,Information.IsArray(oDT6)); Assert.AreEqual(true,Information.IsArray(oDT7)); Assert.AreEqual(true,Information.IsArray(oDT8)); Assert.AreEqual(true,Information.IsArray(oDT9)); Assert.AreEqual(true,Information.IsArray(oDT10)); Assert.AreEqual(true,Information.IsArray(oDT11)); Assert.AreEqual(true,Information.IsArray(oDT12)); } [Test] public void IsArray_2() { byte oDT1 = 1; short oDT2 = 1; int oDT3 = 1; long oDT4 = 1000; float oDT5 = 22; double oDT6 = 2.2; decimal oDT7 = 1000; string oDT8 = "abc"; object oDT9 = null; bool oDT10 = true; char oDT11 = 'c'; System.DateTime oDT12 = System.DateTime.Parse("5/31/1993"); Assert.AreEqual(false,Information.IsArray(oDT1)); Assert.AreEqual(false,Information.IsArray(oDT2)); Assert.AreEqual(false,Information.IsArray(oDT3)); Assert.AreEqual(false,Information.IsArray(oDT4)); Assert.AreEqual(false,Information.IsArray(oDT5)); Assert.AreEqual(false,Information.IsArray(oDT6)); Assert.AreEqual(false,Information.IsArray(oDT7)); Assert.AreEqual(false,Information.IsArray(oDT8)); Assert.AreEqual(false,Information.IsArray(oDT9)); Assert.AreEqual(false,Information.IsArray(oDT10)); Assert.AreEqual(false,Information.IsArray(oDT11)); Assert.AreEqual(false,Information.IsArray(oDT12)); } [Test] public void IsArray_3() { test_cls[] oDT1 = new test_cls[2]; Assert.AreEqual(true,Information.IsArray(oDT1)); } internal class test_cls { private int a; }; #endregion #region TypeName tests [Test] public void TypeName_1() { int b = 12; int[] a = new int[3]; byte vbyte = 1; a[0] = 222; short shr = 2; double dbl = 12222; System.Single tmpsngl = 1; decimal dcm = 22; object obj = null; long tmplong = 11111; DBNull testBDNull = DBNull.Value; string tmpStr = "Test Str"; System.DateTime tmpDate = System.DateTime.Parse("5/31/1993"); bool tmpbool = true; test_cls tmp_class = new test_cls(); Assert.AreEqual("String",Information.TypeName(tmpStr)); Assert.AreEqual("Integer()",Information.TypeName(a)); Assert.AreEqual("Byte",Information.TypeName(vbyte)); Assert.AreEqual("Integer",Information.TypeName(b)); Assert.AreEqual("DBNull",Information.TypeName(testBDNull)); Assert.AreEqual("Double",Information.TypeName(dbl)); Assert.AreEqual("Short",Information.TypeName(shr)); Assert.AreEqual("Single",Information.TypeName(tmpsngl)); Assert.AreEqual("Char",Information.TypeName('c')); Assert.AreEqual("Decimal",Information.TypeName(dcm)); Assert.AreEqual("Nothing",Information.TypeName(obj)); Assert.AreEqual("Date",Information.TypeName(tmpDate)); Assert.AreEqual("Long",Information.TypeName(tmplong)); Assert.AreEqual("Boolean",Information.TypeName(tmpbool)); Assert.AreEqual("test_cls",Information.TypeName(tmp_class)); } #endregion #region VbTypeName tests [Test] public void VbTypeName_1() { Assert.AreEqual("Integer",Information.VbTypeName("System.Int32")); Assert.AreEqual("Long",Information.VbTypeName("Int64")); Assert.AreEqual("Integer",Information.VbTypeName("Int32")); Assert.AreEqual("Boolean",Information.VbTypeName("boolean")); Assert.AreEqual("Short",Information.VbTypeName("Int16")); Assert.AreEqual("Double",Information.VbTypeName("double")); Assert.AreEqual("Decimal",Information.VbTypeName("decimal")); Assert.AreEqual("Decimal",Information.VbTypeName("System.Decimal")); Assert.AreEqual("Object",Information.VbTypeName("System.Object")); Assert.AreEqual("Byte",Information.VbTypeName("System.Byte")); Assert.AreEqual("String",Information.VbTypeName("System.String")); Assert.AreEqual("Char",Information.VbTypeName("system.char")); Assert.AreEqual("Date",Information.VbTypeName("System.DateTime")); Assert.AreEqual("Single",Information.VbTypeName("system.Single")); Assert.AreEqual("Object",Information.VbTypeName("objEct")); Assert.AreEqual(null,Information.VbTypeName("BlaBla")); } #endregion #region VarType tests [Test] public void VarType_1() { bool b1 = true; long l1 = 1000000; VariantType tmpVartype = VariantType.Integer; object tmpObj = null; DateTime tmpDate = DateTime.Parse("5/31/1993"); object tmpDBnullobj = System.DBNull.Value; int[] tmpIntArr = new int []{1,2,3} ; string[] tmpStrArr = new string [2]; MyStruct tmpStruct = new MyStruct(); string strstr = "test"; byte tmpByte = 1; short tmpShort = 2; int tmpInt = 22; Single tmpSingle = 2; double tmpDouble = 222.2; decimal tmpDec = 222; int[,] int_arr = new int[,] { {1, 2}, {3, 4}, {5, 6} }; Assert.AreEqual(VariantType.String, Information.VarType(strstr)); Assert.AreEqual(VariantType.UserDefinedType, Information.VarType(tmpStruct)); Assert.AreEqual(VariantType.Null, Information.VarType(tmpDBnullobj)); Assert.AreEqual(VariantType.Array | VariantType.Integer, Information.VarType(int_arr),"VariantType.Array | VariantType.Integer"); // Information.VarType doesn`t return what docs says: int[,] should returns VariantType.Array | VariantType.Object // but returns VariantType.Array | VariantType.Integer SO this is what we implement too. Assert.AreEqual(VariantType.Array | VariantType.Integer, Information.VarType(tmpIntArr),"VariantType.Array | VariantType.Integer 2D"); Assert.AreEqual(VariantType.Array | VariantType.String, Information.VarType(tmpStrArr),"VariantType.Array | VariantType.String"); Assert.AreEqual(VariantType.Date, Information.VarType(tmpDate)); Assert.AreEqual(VariantType.Boolean, Information.VarType(b1)); Assert.AreEqual(VariantType.Long, Information.VarType(l1)); Assert.AreEqual(VariantType.Byte, Information.VarType(tmpByte)); Assert.AreEqual(VariantType.Short, Information.VarType(tmpShort)); Assert.AreEqual(VariantType.Double, Information.VarType(tmpDouble)); Assert.AreEqual(VariantType.Single, Information.VarType(tmpSingle)); Assert.AreEqual(VariantType.Decimal, Information.VarType(tmpDec)); Assert.AreEqual(VariantType.Integer, Information.VarType(tmpInt),"Call VarType(tmpInt)"); Assert.AreEqual(VariantType.Integer, Information.VarType(tmpVartype),"Call VarType(tmpVartype)"); Assert.AreEqual(VariantType.Object, Information.VarType(tmpObj)); Assert.AreEqual(VariantType.Char, Information.VarType('c')); } [Test] public void VarType_2() { try { int zero; int result; zero = 0; result = 8 / zero; } catch(Exception ex) { Assert.AreEqual(VariantType.Error, Information.VarType(ex)); } } internal struct MyStruct { int Tel; } #endregion #region QBColor tests [Test] public void QBColor_1() { int i; decimal d = 0; for (i = 0; i <= 15; i++) { d = d + Information.QBColor(i); } Assert.AreEqual(113427132,d); } [Test] [ExpectedException (typeof(ArgumentException))] public void QBColor_2() { int i; i = Information.QBColor(17); } [Test] [ExpectedException (typeof(ArgumentException))] public void QBColor_3() { int i; i = Information.QBColor(-1); } #endregion } } mono-basic-2.4.2/vbruntime/Test/Microsoft.VisualBasic/FileSystemTestGenerated.vb0000644000175000001440000530642311213247537027334 0ustar builderusers'Generated, don't change anything here. Imports System Imports System.IO Imports System.Reflection Imports NUnit.Framework _ Public Class FileSystemTestGenerated 'STARTCOPY Private DATA_DIR As String Sub New() Threading.Thread.CurrentThread.CurrentCulture = New Globalization.CultureInfo("en-US") Threading.Thread.CurrentThread.CurrentUICulture = Threading.Thread.CurrentThread.CurrentCulture DATA_DIR = Environment.GetEnvironmentVariable("DATA_DIR") If DATA_DIR Is Nothing OrElse DATA_DIR = String.Empty Then DATA_DIR = Path.Combine(Path.GetTempPath, MethodInfo.GetCurrentMethod.DeclaringType.Name.Replace("Generator", "Generated")) End If End Sub Private Sub Initialize() If Directory.Exists(DATA_DIR) = False Then Directory.CreateDirectory(DATA_DIR) End If End Sub Private Sub CleanUp() 'Close all files and delete them Microsoft.VisualBasic.FileSystem.FileClose() If Directory.Exists(DATA_DIR) Then Directory.Delete(DATA_DIR, True) End If End Sub _ Sub FilePutTest_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Append_1") Try Initialize() FileOpen(1, filename, OpenMode.Append) FilePut(1, System.DBNull.Value) FileClose(1) Assert.Fail ("Expected System.ArgumentException ('Use 'FilePutObject' instead of 'FilePut' when using argument of type 'Object'.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.ArgumentException", ex.GetType.FullName, filename) Assert.AreEqual ("Use 'FilePutObject' instead of 'FilePut' when using argument of type 'Object'.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FilePutTest_Append_2() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Append_2") Try Initialize() FileOpen(1, filename, OpenMode.Append) FilePut(1, True) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FilePutTest_Append_3() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Append_3") Try Initialize() FileOpen(1, filename, OpenMode.Append) FilePut(1, False) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FilePutTest_Append_4() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Append_4") Try Initialize() FileOpen(1, filename, OpenMode.Append) FilePut(1, ""c) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FilePutTest_Append_5() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Append_5") Try Initialize() FileOpen(1, filename, OpenMode.Append) FilePut(1, "￿"c) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FilePutTest_Append_6() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Append_6") Try Initialize() FileOpen(1, filename, OpenMode.Append) FilePut(1, CByte (0)) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FilePutTest_Append_7() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Append_7") Try Initialize() FileOpen(1, filename, OpenMode.Append) FilePut(1, CByte (255)) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FilePutTest_Append_8() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Append_8") Try Initialize() FileOpen(1, filename, OpenMode.Append) FilePut(1, Int16.MinValue) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FilePutTest_Append_9() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Append_9") Try Initialize() FileOpen(1, filename, OpenMode.Append) FilePut(1, Int16.MaxValue) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FilePutTest_Append_10() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Append_10") Try Initialize() FileOpen(1, filename, OpenMode.Append) FilePut(1, Int32.MinValue) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FilePutTest_Append_11() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Append_11") Try Initialize() FileOpen(1, filename, OpenMode.Append) FilePut(1, Int32.MaxValue) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FilePutTest_Append_12() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Append_12") Try Initialize() FileOpen(1, filename, OpenMode.Append) FilePut(1, Int64.MinValue) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FilePutTest_Append_13() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Append_13") Try Initialize() FileOpen(1, filename, OpenMode.Append) FilePut(1, Int64.MaxValue) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FilePutTest_Append_14() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Append_14") Try Initialize() FileOpen(1, filename, OpenMode.Append) FilePut(1, Single.MinValue) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FilePutTest_Append_15() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Append_15") Try Initialize() FileOpen(1, filename, OpenMode.Append) FilePut(1, Single.MaxValue) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FilePutTest_Append_16() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Append_16") Try Initialize() FileOpen(1, filename, OpenMode.Append) FilePut(1, Single.Epsilon) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FilePutTest_Append_17() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Append_17") Try Initialize() FileOpen(1, filename, OpenMode.Append) FilePut(1, Single.NaN) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FilePutTest_Append_18() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Append_18") Try Initialize() FileOpen(1, filename, OpenMode.Append) FilePut(1, Single.NegativeInfinity) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FilePutTest_Append_19() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Append_19") Try Initialize() FileOpen(1, filename, OpenMode.Append) FilePut(1, Single.PositiveInfinity) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FilePutTest_Append_20() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Append_20") Try Initialize() FileOpen(1, filename, OpenMode.Append) FilePut(1, Double.MinValue) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FilePutTest_Append_21() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Append_21") Try Initialize() FileOpen(1, filename, OpenMode.Append) FilePut(1, Double.MaxValue) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FilePutTest_Append_22() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Append_22") Try Initialize() FileOpen(1, filename, OpenMode.Append) FilePut(1, Double.Epsilon) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FilePutTest_Append_23() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Append_23") Try Initialize() FileOpen(1, filename, OpenMode.Append) FilePut(1, Double.NaN) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FilePutTest_Append_24() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Append_24") Try Initialize() FileOpen(1, filename, OpenMode.Append) FilePut(1, Double.NegativeInfinity) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FilePutTest_Append_25() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Append_25") Try Initialize() FileOpen(1, filename, OpenMode.Append) FilePut(1, Double.PositiveInfinity) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FilePutTest_Append_26() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Append_26") Try Initialize() FileOpen(1, filename, OpenMode.Append) FilePut(1, -79228162514264337593543950335D) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FilePutTest_Append_27() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Append_27") Try Initialize() FileOpen(1, filename, OpenMode.Append) FilePut(1, 79228162514264337593543950335D) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FilePutTest_Append_28() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Append_28") Try Initialize() FileOpen(1, filename, OpenMode.Append) FilePut(1, DateTime.MinValue) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FilePutTest_Append_29() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Append_29") Try Initialize() FileOpen(1, filename, OpenMode.Append) FilePut(1, DateTime.MaxValue) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FilePutTest_Append_30() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Append_30") Try Initialize() FileOpen(1, filename, OpenMode.Append) FilePut(1, "") FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FilePutTest_Append_31() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Append_31") Try Initialize() FileOpen(1, filename, OpenMode.Append) FilePut(1, CStr (Nothing)) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FilePutTest_Append_32() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Append_32") Try Initialize() FileOpen(1, filename, OpenMode.Append) FilePut(CObj(1), CObj (Nothing)) FileClose(1) Assert.Fail ("Expected System.ArgumentException ('Use 'FilePutObject' instead of 'FilePut' when using argument of type 'Object'.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.ArgumentException", ex.GetType.FullName, filename) Assert.AreEqual ("Use 'FilePutObject' instead of 'FilePut' when using argument of type 'Object'.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FilePutTest_Append_33() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Append_33") Try Initialize() FileOpen(1, filename, OpenMode.Append) FilePut(1, CType (Nothing, System.ValueType)) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FilePutTest_Binary_1() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Binary_1") Try Initialize() FileOpen(1, filename, OpenMode.Binary) FilePut(1, System.DBNull.Value) FileClose(1) Assert.Fail ("Expected System.ArgumentException ('Use 'FilePutObject' instead of 'FilePut' when using argument of type 'Object'.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.ArgumentException", ex.GetType.FullName, filename) Assert.AreEqual ("Use 'FilePutObject' instead of 'FilePut' when using argument of type 'Object'.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FilePutTest_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Binary_2") Try Initialize() FileOpen(1, filename, OpenMode.Binary) FilePut(1, True) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { 255, 255 }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FilePutTest_Binary_3() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Binary_3") Try Initialize() FileOpen(1, filename, OpenMode.Binary) FilePut(1, False) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { 0, 0 }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FilePutTest_Binary_4() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Binary_4") Try Initialize() FileOpen(1, filename, OpenMode.Binary) FilePut(1, ""c) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { 0 }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FilePutTest_Binary_5() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Binary_5") Try Initialize() FileOpen(1, filename, OpenMode.Binary) FilePut(1, "￿"c) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { 63 }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FilePutTest_Binary_6() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Binary_6") Try Initialize() FileOpen(1, filename, OpenMode.Binary) FilePut(1, CByte (0)) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { 0 }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FilePutTest_Binary_7() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Binary_7") Try Initialize() FileOpen(1, filename, OpenMode.Binary) FilePut(1, CByte (255)) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { 255 }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FilePutTest_Binary_8() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Binary_8") Try Initialize() FileOpen(1, filename, OpenMode.Binary) FilePut(1, Int16.MinValue) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { 0, 128 }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FilePutTest_Binary_9() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Binary_9") Try Initialize() FileOpen(1, filename, OpenMode.Binary) FilePut(1, Int16.MaxValue) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { 255, 127 }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FilePutTest_Binary_10() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Binary_10") Try Initialize() FileOpen(1, filename, OpenMode.Binary) FilePut(1, Int32.MinValue) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { 0, 0, 0, 128 }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FilePutTest_Binary_11() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Binary_11") Try Initialize() FileOpen(1, filename, OpenMode.Binary) FilePut(1, Int32.MaxValue) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { 255, 255, 255, 127 }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FilePutTest_Binary_12() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Binary_12") Try Initialize() FileOpen(1, filename, OpenMode.Binary) FilePut(1, Int64.MinValue) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FilePutTest_Binary_13() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Binary_13") Try Initialize() FileOpen(1, filename, OpenMode.Binary) FilePut(1, Int64.MaxValue) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { 255, 255, 255, 255, 255, 255, 255, 127 }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FilePutTest_Binary_14() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Binary_14") Try Initialize() FileOpen(1, filename, OpenMode.Binary) FilePut(1, Single.MinValue) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { 255, 255, 127, 255 }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FilePutTest_Binary_15() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Binary_15") Try Initialize() FileOpen(1, filename, OpenMode.Binary) FilePut(1, Single.MaxValue) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { 255, 255, 127, 127 }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FilePutTest_Binary_16() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Binary_16") Try Initialize() FileOpen(1, filename, OpenMode.Binary) FilePut(1, Single.Epsilon) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { 1, 0, 0, 0 }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FilePutTest_Binary_17() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Binary_17") Try Initialize() FileOpen(1, filename, OpenMode.Binary) FilePut(1, Single.NaN) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { 0, 0, 192, 255 }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FilePutTest_Binary_18() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Binary_18") Try Initialize() FileOpen(1, filename, OpenMode.Binary) FilePut(1, Single.NegativeInfinity) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { 0, 0, 128, 255 }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FilePutTest_Binary_19() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Binary_19") Try Initialize() FileOpen(1, filename, OpenMode.Binary) FilePut(1, Single.PositiveInfinity) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { 0, 0, 128, 127 }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FilePutTest_Binary_20() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Binary_20") Try Initialize() FileOpen(1, filename, OpenMode.Binary) FilePut(1, Double.MinValue) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { 255, 255, 255, 255, 255, 255, 239, 255 }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FilePutTest_Binary_21() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Binary_21") Try Initialize() FileOpen(1, filename, OpenMode.Binary) FilePut(1, Double.MaxValue) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { 255, 255, 255, 255, 255, 255, 239, 127 }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FilePutTest_Binary_22() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Binary_22") Try Initialize() FileOpen(1, filename, OpenMode.Binary) FilePut(1, Double.Epsilon) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { 1, 0, 0, 0, 0, 0, 0, 0 }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FilePutTest_Binary_23() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Binary_23") Try Initialize() FileOpen(1, filename, OpenMode.Binary) FilePut(1, Double.NaN) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { 0, 0, 0, 0, 0, 0, 248, 255 }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FilePutTest_Binary_24() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Binary_24") Try Initialize() FileOpen(1, filename, OpenMode.Binary) FilePut(1, Double.NegativeInfinity) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { 0, 0, 0, 0, 0, 0, 240, 255 }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FilePutTest_Binary_25() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Binary_25") Try Initialize() FileOpen(1, filename, OpenMode.Binary) FilePut(1, Double.PositiveInfinity) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { 0, 0, 0, 0, 0, 0, 240, 127 }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FilePutTest_Binary_26() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Binary_26") Try Initialize() FileOpen(1, filename, OpenMode.Binary) FilePut(1, -79228162514264337593543950335D) FileClose(1) Assert.Fail ("Expected System.OverflowException ('Value was either too large or too small for a Currency.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.OverflowException", ex.GetType.FullName, filename) Assert.AreEqual ("Value was either too large or too small for a Currency.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FilePutTest_Binary_27() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Binary_27") Try Initialize() FileOpen(1, filename, OpenMode.Binary) FilePut(1, 79228162514264337593543950335D) FileClose(1) Assert.Fail ("Expected System.OverflowException ('Value was either too large or too small for a Currency.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.OverflowException", ex.GetType.FullName, filename) Assert.AreEqual ("Value was either too large or too small for a Currency.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FilePutTest_Binary_28() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Binary_28") Try Initialize() FileOpen(1, filename, OpenMode.Binary) FilePut(1, DateTime.MinValue) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { 0, 0, 0, 0, 0, 0, 0, 0 }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FilePutTest_Binary_29() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Binary_29") Try Initialize() FileOpen(1, filename, OpenMode.Binary) FilePut(1, DateTime.MaxValue) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { 231, 255, 255, 255, 64, 146, 70, 65 }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FilePutTest_Binary_30() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Binary_30") Try Initialize() FileOpen(1, filename, OpenMode.Binary) FilePut(1, "") FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FilePutTest_Binary_31() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Binary_31") Try Initialize() FileOpen(1, filename, OpenMode.Binary) FilePut(1, CStr (Nothing)) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FilePutTest_Binary_32() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Binary_32") Try Initialize() FileOpen(1, filename, OpenMode.Binary) FilePut(CObj(1), CObj (Nothing)) FileClose(1) Assert.Fail ("Expected System.ArgumentException ('Use 'FilePutObject' instead of 'FilePut' when using argument of type 'Object'.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.ArgumentException", ex.GetType.FullName, filename) Assert.AreEqual ("Use 'FilePutObject' instead of 'FilePut' when using argument of type 'Object'.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FilePutTest_Binary_33() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Binary_33") Try Initialize() FileOpen(1, filename, OpenMode.Binary) FilePut(1, CType (Nothing, System.ValueType)) FileClose(1) Assert.Fail ("Expected System.NullReferenceException ('Object reference not set to an instance of an object.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.NullReferenceException", ex.GetType.FullName, filename) Assert.AreEqual ("Object reference not set to an instance of an object.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FilePutTest_Input_1() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Input_1") Try Initialize() FileOpen(1, filename, OpenMode.Input) FilePut(1, System.DBNull.Value) FileClose(1) Assert.Fail ("Expected System.IO.FileNotFoundException ('Could not find file '\FilePutTest_Input_1'.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.FileNotFoundException", ex.GetType.FullName, filename) Assert.IsTrue (ex.Message Like "Could not find file ?*FilePutTest_Input_1?.", filename & " - <" & ex.Message & "> didn't match ") Finally CleanUp() End Try End Sub _ Sub FilePutTest_Input_2() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Input_2") Try Initialize() FileOpen(1, filename, OpenMode.Input) FilePut(1, True) FileClose(1) Assert.Fail ("Expected System.IO.FileNotFoundException ('Could not find file '\FilePutTest_Input_2'.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.FileNotFoundException", ex.GetType.FullName, filename) Assert.IsTrue (ex.Message Like "Could not find file ?*FilePutTest_Input_2?.", filename & " - <" & ex.Message & "> didn't match ") Finally CleanUp() End Try End Sub _ Sub FilePutTest_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Input_3") Try Initialize() FileOpen(1, filename, OpenMode.Input) FilePut(1, False) FileClose(1) Assert.Fail ("Expected System.IO.FileNotFoundException ('Could not find file '\FilePutTest_Input_3'.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.FileNotFoundException", ex.GetType.FullName, filename) Assert.IsTrue (ex.Message Like "Could not find file ?*FilePutTest_Input_3?.", filename & " - <" & ex.Message & "> didn't match ") Finally CleanUp() End Try End Sub _ Sub FilePutTest_Input_4() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Input_4") Try Initialize() FileOpen(1, filename, OpenMode.Input) FilePut(1, ""c) FileClose(1) Assert.Fail ("Expected System.IO.FileNotFoundException ('Could not find file '\FilePutTest_Input_4'.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.FileNotFoundException", ex.GetType.FullName, filename) Assert.IsTrue (ex.Message Like "Could not find file ?*FilePutTest_Input_4?.", filename & " - <" & ex.Message & "> didn't match ") Finally CleanUp() End Try End Sub _ Sub FilePutTest_Input_5() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Input_5") Try Initialize() FileOpen(1, filename, OpenMode.Input) FilePut(1, "￿"c) FileClose(1) Assert.Fail ("Expected System.IO.FileNotFoundException ('Could not find file '\FilePutTest_Input_5'.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.FileNotFoundException", ex.GetType.FullName, filename) Assert.IsTrue (ex.Message Like "Could not find file ?*FilePutTest_Input_5?.", filename & " - <" & ex.Message & "> didn't match ") Finally CleanUp() End Try End Sub _ Sub FilePutTest_Input_6() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Input_6") Try Initialize() FileOpen(1, filename, OpenMode.Input) FilePut(1, CByte (0)) FileClose(1) Assert.Fail ("Expected System.IO.FileNotFoundException ('Could not find file '\FilePutTest_Input_6'.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.FileNotFoundException", ex.GetType.FullName, filename) Assert.IsTrue (ex.Message Like "Could not find file ?*FilePutTest_Input_6?.", filename & " - <" & ex.Message & "> didn't match ") Finally CleanUp() End Try End Sub _ Sub FilePutTest_Input_7() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Input_7") Try Initialize() FileOpen(1, filename, OpenMode.Input) FilePut(1, CByte (255)) FileClose(1) Assert.Fail ("Expected System.IO.FileNotFoundException ('Could not find file '\FilePutTest_Input_7'.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.FileNotFoundException", ex.GetType.FullName, filename) Assert.IsTrue (ex.Message Like "Could not find file ?*FilePutTest_Input_7?.", filename & " - <" & ex.Message & "> didn't match ") Finally CleanUp() End Try End Sub _ Sub FilePutTest_Input_8() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Input_8") Try Initialize() FileOpen(1, filename, OpenMode.Input) FilePut(1, Int16.MinValue) FileClose(1) Assert.Fail ("Expected System.IO.FileNotFoundException ('Could not find file '\FilePutTest_Input_8'.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.FileNotFoundException", ex.GetType.FullName, filename) Assert.IsTrue (ex.Message Like "Could not find file ?*FilePutTest_Input_8?.", filename & " - <" & ex.Message & "> didn't match ") Finally CleanUp() End Try End Sub _ Sub FilePutTest_Input_9() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Input_9") Try Initialize() FileOpen(1, filename, OpenMode.Input) FilePut(1, Int16.MaxValue) FileClose(1) Assert.Fail ("Expected System.IO.FileNotFoundException ('Could not find file '\FilePutTest_Input_9'.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.FileNotFoundException", ex.GetType.FullName, filename) Assert.IsTrue (ex.Message Like "Could not find file ?*FilePutTest_Input_9?.", filename & " - <" & ex.Message & "> didn't match ") Finally CleanUp() End Try End Sub _ Sub FilePutTest_Input_10() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Input_10") Try Initialize() FileOpen(1, filename, OpenMode.Input) FilePut(1, Int32.MinValue) FileClose(1) Assert.Fail ("Expected System.IO.FileNotFoundException ('Could not find file '\FilePutTest_Input_10'.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.FileNotFoundException", ex.GetType.FullName, filename) Assert.IsTrue (ex.Message Like "Could not find file ?*FilePutTest_Input_10?.", filename & " - <" & ex.Message & "> didn't match ") Finally CleanUp() End Try End Sub _ Sub FilePutTest_Input_11() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Input_11") Try Initialize() FileOpen(1, filename, OpenMode.Input) FilePut(1, Int32.MaxValue) FileClose(1) Assert.Fail ("Expected System.IO.FileNotFoundException ('Could not find file '\FilePutTest_Input_11'.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.FileNotFoundException", ex.GetType.FullName, filename) Assert.IsTrue (ex.Message Like "Could not find file ?*FilePutTest_Input_11?.", filename & " - <" & ex.Message & "> didn't match ") Finally CleanUp() End Try End Sub _ Sub FilePutTest_Input_12() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Input_12") Try Initialize() FileOpen(1, filename, OpenMode.Input) FilePut(1, Int64.MinValue) FileClose(1) Assert.Fail ("Expected System.IO.FileNotFoundException ('Could not find file '\FilePutTest_Input_12'.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.FileNotFoundException", ex.GetType.FullName, filename) Assert.IsTrue (ex.Message Like "Could not find file ?*FilePutTest_Input_12?.", filename & " - <" & ex.Message & "> didn't match ") Finally CleanUp() End Try End Sub _ Sub FilePutTest_Input_13() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Input_13") Try Initialize() FileOpen(1, filename, OpenMode.Input) FilePut(1, Int64.MaxValue) FileClose(1) Assert.Fail ("Expected System.IO.FileNotFoundException ('Could not find file '\FilePutTest_Input_13'.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.FileNotFoundException", ex.GetType.FullName, filename) Assert.IsTrue (ex.Message Like "Could not find file ?*FilePutTest_Input_13?.", filename & " - <" & ex.Message & "> didn't match ") Finally CleanUp() End Try End Sub _ Sub FilePutTest_Input_14() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Input_14") Try Initialize() FileOpen(1, filename, OpenMode.Input) FilePut(1, Single.MinValue) FileClose(1) Assert.Fail ("Expected System.IO.FileNotFoundException ('Could not find file '\FilePutTest_Input_14'.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.FileNotFoundException", ex.GetType.FullName, filename) Assert.IsTrue (ex.Message Like "Could not find file ?*FilePutTest_Input_14?.", filename & " - <" & ex.Message & "> didn't match ") Finally CleanUp() End Try End Sub _ Sub FilePutTest_Input_15() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Input_15") Try Initialize() FileOpen(1, filename, OpenMode.Input) FilePut(1, Single.MaxValue) FileClose(1) Assert.Fail ("Expected System.IO.FileNotFoundException ('Could not find file '\FilePutTest_Input_15'.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.FileNotFoundException", ex.GetType.FullName, filename) Assert.IsTrue (ex.Message Like "Could not find file ?*FilePutTest_Input_15?.", filename & " - <" & ex.Message & "> didn't match ") Finally CleanUp() End Try End Sub _ Sub FilePutTest_Input_16() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Input_16") Try Initialize() FileOpen(1, filename, OpenMode.Input) FilePut(1, Single.Epsilon) FileClose(1) Assert.Fail ("Expected System.IO.FileNotFoundException ('Could not find file '\FilePutTest_Input_16'.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.FileNotFoundException", ex.GetType.FullName, filename) Assert.IsTrue (ex.Message Like "Could not find file ?*FilePutTest_Input_16?.", filename & " - <" & ex.Message & "> didn't match ") Finally CleanUp() End Try End Sub _ Sub FilePutTest_Input_17() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Input_17") Try Initialize() FileOpen(1, filename, OpenMode.Input) FilePut(1, Single.NaN) FileClose(1) Assert.Fail ("Expected System.IO.FileNotFoundException ('Could not find file '\FilePutTest_Input_17'.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.FileNotFoundException", ex.GetType.FullName, filename) Assert.IsTrue (ex.Message Like "Could not find file ?*FilePutTest_Input_17?.", filename & " - <" & ex.Message & "> didn't match ") Finally CleanUp() End Try End Sub _ Sub FilePutTest_Input_18() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Input_18") Try Initialize() FileOpen(1, filename, OpenMode.Input) FilePut(1, Single.NegativeInfinity) FileClose(1) Assert.Fail ("Expected System.IO.FileNotFoundException ('Could not find file '\FilePutTest_Input_18'.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.FileNotFoundException", ex.GetType.FullName, filename) Assert.IsTrue (ex.Message Like "Could not find file ?*FilePutTest_Input_18?.", filename & " - <" & ex.Message & "> didn't match ") Finally CleanUp() End Try End Sub _ Sub FilePutTest_Input_19() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Input_19") Try Initialize() FileOpen(1, filename, OpenMode.Input) FilePut(1, Single.PositiveInfinity) FileClose(1) Assert.Fail ("Expected System.IO.FileNotFoundException ('Could not find file '\FilePutTest_Input_19'.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.FileNotFoundException", ex.GetType.FullName, filename) Assert.IsTrue (ex.Message Like "Could not find file ?*FilePutTest_Input_19?.", filename & " - <" & ex.Message & "> didn't match ") Finally CleanUp() End Try End Sub _ Sub FilePutTest_Input_20() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Input_20") Try Initialize() FileOpen(1, filename, OpenMode.Input) FilePut(1, Double.MinValue) FileClose(1) Assert.Fail ("Expected System.IO.FileNotFoundException ('Could not find file '\FilePutTest_Input_20'.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.FileNotFoundException", ex.GetType.FullName, filename) Assert.IsTrue (ex.Message Like "Could not find file ?*FilePutTest_Input_20?.", filename & " - <" & ex.Message & "> didn't match ") Finally CleanUp() End Try End Sub _ Sub FilePutTest_Input_21() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Input_21") Try Initialize() FileOpen(1, filename, OpenMode.Input) FilePut(1, Double.MaxValue) FileClose(1) Assert.Fail ("Expected System.IO.FileNotFoundException ('Could not find file '\FilePutTest_Input_21'.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.FileNotFoundException", ex.GetType.FullName, filename) Assert.IsTrue (ex.Message Like "Could not find file ?*FilePutTest_Input_21?.", filename & " - <" & ex.Message & "> didn't match ") Finally CleanUp() End Try End Sub _ Sub FilePutTest_Input_22() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Input_22") Try Initialize() FileOpen(1, filename, OpenMode.Input) FilePut(1, Double.Epsilon) FileClose(1) Assert.Fail ("Expected System.IO.FileNotFoundException ('Could not find file '\FilePutTest_Input_22'.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.FileNotFoundException", ex.GetType.FullName, filename) Assert.IsTrue (ex.Message Like "Could not find file ?*FilePutTest_Input_22?.", filename & " - <" & ex.Message & "> didn't match ") Finally CleanUp() End Try End Sub _ Sub FilePutTest_Input_23() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Input_23") Try Initialize() FileOpen(1, filename, OpenMode.Input) FilePut(1, Double.NaN) FileClose(1) Assert.Fail ("Expected System.IO.FileNotFoundException ('Could not find file '\FilePutTest_Input_23'.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.FileNotFoundException", ex.GetType.FullName, filename) Assert.IsTrue (ex.Message Like "Could not find file ?*FilePutTest_Input_23?.", filename & " - <" & ex.Message & "> didn't match ") Finally CleanUp() End Try End Sub _ Sub FilePutTest_Input_24() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Input_24") Try Initialize() FileOpen(1, filename, OpenMode.Input) FilePut(1, Double.NegativeInfinity) FileClose(1) Assert.Fail ("Expected System.IO.FileNotFoundException ('Could not find file '\FilePutTest_Input_24'.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.FileNotFoundException", ex.GetType.FullName, filename) Assert.IsTrue (ex.Message Like "Could not find file ?*FilePutTest_Input_24?.", filename & " - <" & ex.Message & "> didn't match ") Finally CleanUp() End Try End Sub _ Sub FilePutTest_Input_25() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Input_25") Try Initialize() FileOpen(1, filename, OpenMode.Input) FilePut(1, Double.PositiveInfinity) FileClose(1) Assert.Fail ("Expected System.IO.FileNotFoundException ('Could not find file '\FilePutTest_Input_25'.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.FileNotFoundException", ex.GetType.FullName, filename) Assert.IsTrue (ex.Message Like "Could not find file ?*FilePutTest_Input_25?.", filename & " - <" & ex.Message & "> didn't match ") Finally CleanUp() End Try End Sub _ Sub FilePutTest_Input_26() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Input_26") Try Initialize() FileOpen(1, filename, OpenMode.Input) FilePut(1, -79228162514264337593543950335D) FileClose(1) Assert.Fail ("Expected System.IO.FileNotFoundException ('Could not find file '\FilePutTest_Input_26'.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.FileNotFoundException", ex.GetType.FullName, filename) Assert.IsTrue (ex.Message Like "Could not find file ?*FilePutTest_Input_26?.", filename & " - <" & ex.Message & "> didn't match ") Finally CleanUp() End Try End Sub _ Sub FilePutTest_Input_27() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Input_27") Try Initialize() FileOpen(1, filename, OpenMode.Input) FilePut(1, 79228162514264337593543950335D) FileClose(1) Assert.Fail ("Expected System.IO.FileNotFoundException ('Could not find file '\FilePutTest_Input_27'.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.FileNotFoundException", ex.GetType.FullName, filename) Assert.IsTrue (ex.Message Like "Could not find file ?*FilePutTest_Input_27?.", filename & " - <" & ex.Message & "> didn't match ") Finally CleanUp() End Try End Sub _ Sub FilePutTest_Input_28() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Input_28") Try Initialize() FileOpen(1, filename, OpenMode.Input) FilePut(1, DateTime.MinValue) FileClose(1) Assert.Fail ("Expected System.IO.FileNotFoundException ('Could not find file '\FilePutTest_Input_28'.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.FileNotFoundException", ex.GetType.FullName, filename) Assert.IsTrue (ex.Message Like "Could not find file ?*FilePutTest_Input_28?.", filename & " - <" & ex.Message & "> didn't match ") Finally CleanUp() End Try End Sub _ Sub FilePutTest_Input_29() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Input_29") Try Initialize() FileOpen(1, filename, OpenMode.Input) FilePut(1, DateTime.MaxValue) FileClose(1) Assert.Fail ("Expected System.IO.FileNotFoundException ('Could not find file '\FilePutTest_Input_29'.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.FileNotFoundException", ex.GetType.FullName, filename) Assert.IsTrue (ex.Message Like "Could not find file ?*FilePutTest_Input_29?.", filename & " - <" & ex.Message & "> didn't match ") Finally CleanUp() End Try End Sub _ Sub FilePutTest_Input_30() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Input_30") Try Initialize() FileOpen(1, filename, OpenMode.Input) FilePut(1, "") FileClose(1) Assert.Fail ("Expected System.IO.FileNotFoundException ('Could not find file '\FilePutTest_Input_30'.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.FileNotFoundException", ex.GetType.FullName, filename) Assert.IsTrue (ex.Message Like "Could not find file ?*FilePutTest_Input_30?.", filename & " - <" & ex.Message & "> didn't match ") Finally CleanUp() End Try End Sub _ Sub FilePutTest_Input_31() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Input_31") Try Initialize() FileOpen(1, filename, OpenMode.Input) FilePut(1, CStr (Nothing)) FileClose(1) Assert.Fail ("Expected System.IO.FileNotFoundException ('Could not find file '\FilePutTest_Input_31'.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.FileNotFoundException", ex.GetType.FullName, filename) Assert.IsTrue (ex.Message Like "Could not find file ?*FilePutTest_Input_31?.", filename & " - <" & ex.Message & "> didn't match ") Finally CleanUp() End Try End Sub _ Sub FilePutTest_Input_32() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Input_32") Try Initialize() FileOpen(1, filename, OpenMode.Input) FilePut(CObj(1), CObj (Nothing)) FileClose(1) Assert.Fail ("Expected System.IO.FileNotFoundException ('Could not find file '\FilePutTest_Input_32'.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.FileNotFoundException", ex.GetType.FullName, filename) Assert.IsTrue (ex.Message Like "Could not find file ?*FilePutTest_Input_32?.", filename & " - <" & ex.Message & "> didn't match ") Finally CleanUp() End Try End Sub _ Sub FilePutTest_Input_33() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Input_33") Try Initialize() FileOpen(1, filename, OpenMode.Input) FilePut(1, CType (Nothing, System.ValueType)) FileClose(1) Assert.Fail ("Expected System.IO.FileNotFoundException ('Could not find file '\FilePutTest_Input_33'.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.FileNotFoundException", ex.GetType.FullName, filename) Assert.IsTrue (ex.Message Like "Could not find file ?*FilePutTest_Input_33?.", filename & " - <" & ex.Message & "> didn't match ") Finally CleanUp() End Try End Sub _ Sub FilePutTest_Output_1() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Output_1") Try Initialize() FileOpen(1, filename, OpenMode.Output) FilePut(1, System.DBNull.Value) FileClose(1) Assert.Fail ("Expected System.ArgumentException ('Use 'FilePutObject' instead of 'FilePut' when using argument of type 'Object'.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.ArgumentException", ex.GetType.FullName, filename) Assert.AreEqual ("Use 'FilePutObject' instead of 'FilePut' when using argument of type 'Object'.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FilePutTest_Output_2() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Output_2") Try Initialize() FileOpen(1, filename, OpenMode.Output) FilePut(1, True) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FilePutTest_Output_3() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Output_3") Try Initialize() FileOpen(1, filename, OpenMode.Output) FilePut(1, False) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FilePutTest_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Output_4") Try Initialize() FileOpen(1, filename, OpenMode.Output) FilePut(1, ""c) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FilePutTest_Output_5() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Output_5") Try Initialize() FileOpen(1, filename, OpenMode.Output) FilePut(1, "￿"c) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FilePutTest_Output_6() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Output_6") Try Initialize() FileOpen(1, filename, OpenMode.Output) FilePut(1, CByte (0)) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FilePutTest_Output_7() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Output_7") Try Initialize() FileOpen(1, filename, OpenMode.Output) FilePut(1, CByte (255)) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FilePutTest_Output_8() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Output_8") Try Initialize() FileOpen(1, filename, OpenMode.Output) FilePut(1, Int16.MinValue) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FilePutTest_Output_9() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Output_9") Try Initialize() FileOpen(1, filename, OpenMode.Output) FilePut(1, Int16.MaxValue) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FilePutTest_Output_10() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Output_10") Try Initialize() FileOpen(1, filename, OpenMode.Output) FilePut(1, Int32.MinValue) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FilePutTest_Output_11() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Output_11") Try Initialize() FileOpen(1, filename, OpenMode.Output) FilePut(1, Int32.MaxValue) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FilePutTest_Output_12() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Output_12") Try Initialize() FileOpen(1, filename, OpenMode.Output) FilePut(1, Int64.MinValue) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FilePutTest_Output_13() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Output_13") Try Initialize() FileOpen(1, filename, OpenMode.Output) FilePut(1, Int64.MaxValue) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FilePutTest_Output_14() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Output_14") Try Initialize() FileOpen(1, filename, OpenMode.Output) FilePut(1, Single.MinValue) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FilePutTest_Output_15() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Output_15") Try Initialize() FileOpen(1, filename, OpenMode.Output) FilePut(1, Single.MaxValue) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FilePutTest_Output_16() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Output_16") Try Initialize() FileOpen(1, filename, OpenMode.Output) FilePut(1, Single.Epsilon) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FilePutTest_Output_17() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Output_17") Try Initialize() FileOpen(1, filename, OpenMode.Output) FilePut(1, Single.NaN) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FilePutTest_Output_18() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Output_18") Try Initialize() FileOpen(1, filename, OpenMode.Output) FilePut(1, Single.NegativeInfinity) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FilePutTest_Output_19() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Output_19") Try Initialize() FileOpen(1, filename, OpenMode.Output) FilePut(1, Single.PositiveInfinity) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FilePutTest_Output_20() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Output_20") Try Initialize() FileOpen(1, filename, OpenMode.Output) FilePut(1, Double.MinValue) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FilePutTest_Output_21() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Output_21") Try Initialize() FileOpen(1, filename, OpenMode.Output) FilePut(1, Double.MaxValue) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FilePutTest_Output_22() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Output_22") Try Initialize() FileOpen(1, filename, OpenMode.Output) FilePut(1, Double.Epsilon) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FilePutTest_Output_23() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Output_23") Try Initialize() FileOpen(1, filename, OpenMode.Output) FilePut(1, Double.NaN) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FilePutTest_Output_24() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Output_24") Try Initialize() FileOpen(1, filename, OpenMode.Output) FilePut(1, Double.NegativeInfinity) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FilePutTest_Output_25() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Output_25") Try Initialize() FileOpen(1, filename, OpenMode.Output) FilePut(1, Double.PositiveInfinity) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FilePutTest_Output_26() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Output_26") Try Initialize() FileOpen(1, filename, OpenMode.Output) FilePut(1, -79228162514264337593543950335D) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FilePutTest_Output_27() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Output_27") Try Initialize() FileOpen(1, filename, OpenMode.Output) FilePut(1, 79228162514264337593543950335D) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FilePutTest_Output_28() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Output_28") Try Initialize() FileOpen(1, filename, OpenMode.Output) FilePut(1, DateTime.MinValue) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FilePutTest_Output_29() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Output_29") Try Initialize() FileOpen(1, filename, OpenMode.Output) FilePut(1, DateTime.MaxValue) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FilePutTest_Output_30() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Output_30") Try Initialize() FileOpen(1, filename, OpenMode.Output) FilePut(1, "") FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FilePutTest_Output_31() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Output_31") Try Initialize() FileOpen(1, filename, OpenMode.Output) FilePut(1, CStr (Nothing)) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FilePutTest_Output_32() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Output_32") Try Initialize() FileOpen(1, filename, OpenMode.Output) FilePut(CObj(1), CObj (Nothing)) FileClose(1) Assert.Fail ("Expected System.ArgumentException ('Use 'FilePutObject' instead of 'FilePut' when using argument of type 'Object'.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.ArgumentException", ex.GetType.FullName, filename) Assert.AreEqual ("Use 'FilePutObject' instead of 'FilePut' when using argument of type 'Object'.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FilePutTest_Output_33() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Output_33") Try Initialize() FileOpen(1, filename, OpenMode.Output) FilePut(1, CType (Nothing, System.ValueType)) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FilePutTest_Random_1() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Random_1") Try Initialize() FileOpen(1, filename, OpenMode.Random) FilePut(1, System.DBNull.Value) FileClose(1) Assert.Fail ("Expected System.ArgumentException ('Use 'FilePutObject' instead of 'FilePut' when using argument of type 'Object'.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.ArgumentException", ex.GetType.FullName, filename) Assert.AreEqual ("Use 'FilePutObject' instead of 'FilePut' when using argument of type 'Object'.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FilePutTest_Random_2() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Random_2") Try Initialize() FileOpen(1, filename, OpenMode.Random) FilePut(1, True) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { 255, 255 }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FilePutTest_Random_3() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Random_3") Try Initialize() FileOpen(1, filename, OpenMode.Random) FilePut(1, False) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { 0, 0 }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FilePutTest_Random_4() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Random_4") Try Initialize() FileOpen(1, filename, OpenMode.Random) FilePut(1, ""c) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { 0 }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FilePutTest_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Random_5") Try Initialize() FileOpen(1, filename, OpenMode.Random) FilePut(1, "￿"c) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { 63 }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FilePutTest_Random_6() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Random_6") Try Initialize() FileOpen(1, filename, OpenMode.Random) FilePut(1, CByte (0)) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { 0 }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FilePutTest_Random_7() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Random_7") Try Initialize() FileOpen(1, filename, OpenMode.Random) FilePut(1, CByte (255)) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { 255 }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FilePutTest_Random_8() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Random_8") Try Initialize() FileOpen(1, filename, OpenMode.Random) FilePut(1, Int16.MinValue) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { 0, 128 }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FilePutTest_Random_9() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Random_9") Try Initialize() FileOpen(1, filename, OpenMode.Random) FilePut(1, Int16.MaxValue) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { 255, 127 }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FilePutTest_Random_10() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Random_10") Try Initialize() FileOpen(1, filename, OpenMode.Random) FilePut(1, Int32.MinValue) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { 0, 0, 0, 128 }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FilePutTest_Random_11() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Random_11") Try Initialize() FileOpen(1, filename, OpenMode.Random) FilePut(1, Int32.MaxValue) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { 255, 255, 255, 127 }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FilePutTest_Random_12() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Random_12") Try Initialize() FileOpen(1, filename, OpenMode.Random) FilePut(1, Int64.MinValue) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FilePutTest_Random_13() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Random_13") Try Initialize() FileOpen(1, filename, OpenMode.Random) FilePut(1, Int64.MaxValue) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { 255, 255, 255, 255, 255, 255, 255, 127 }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FilePutTest_Random_14() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Random_14") Try Initialize() FileOpen(1, filename, OpenMode.Random) FilePut(1, Single.MinValue) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { 255, 255, 127, 255 }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FilePutTest_Random_15() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Random_15") Try Initialize() FileOpen(1, filename, OpenMode.Random) FilePut(1, Single.MaxValue) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { 255, 255, 127, 127 }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FilePutTest_Random_16() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Random_16") Try Initialize() FileOpen(1, filename, OpenMode.Random) FilePut(1, Single.Epsilon) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { 1, 0, 0, 0 }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FilePutTest_Random_17() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Random_17") Try Initialize() FileOpen(1, filename, OpenMode.Random) FilePut(1, Single.NaN) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { 0, 0, 192, 255 }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FilePutTest_Random_18() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Random_18") Try Initialize() FileOpen(1, filename, OpenMode.Random) FilePut(1, Single.NegativeInfinity) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { 0, 0, 128, 255 }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FilePutTest_Random_19() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Random_19") Try Initialize() FileOpen(1, filename, OpenMode.Random) FilePut(1, Single.PositiveInfinity) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { 0, 0, 128, 127 }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FilePutTest_Random_20() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Random_20") Try Initialize() FileOpen(1, filename, OpenMode.Random) FilePut(1, Double.MinValue) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { 255, 255, 255, 255, 255, 255, 239, 255 }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FilePutTest_Random_21() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Random_21") Try Initialize() FileOpen(1, filename, OpenMode.Random) FilePut(1, Double.MaxValue) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { 255, 255, 255, 255, 255, 255, 239, 127 }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FilePutTest_Random_22() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Random_22") Try Initialize() FileOpen(1, filename, OpenMode.Random) FilePut(1, Double.Epsilon) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { 1, 0, 0, 0, 0, 0, 0, 0 }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FilePutTest_Random_23() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Random_23") Try Initialize() FileOpen(1, filename, OpenMode.Random) FilePut(1, Double.NaN) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { 0, 0, 0, 0, 0, 0, 248, 255 }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FilePutTest_Random_24() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Random_24") Try Initialize() FileOpen(1, filename, OpenMode.Random) FilePut(1, Double.NegativeInfinity) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { 0, 0, 0, 0, 0, 0, 240, 255 }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FilePutTest_Random_25() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Random_25") Try Initialize() FileOpen(1, filename, OpenMode.Random) FilePut(1, Double.PositiveInfinity) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { 0, 0, 0, 0, 0, 0, 240, 127 }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FilePutTest_Random_26() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Random_26") Try Initialize() FileOpen(1, filename, OpenMode.Random) FilePut(1, -79228162514264337593543950335D) FileClose(1) Assert.Fail ("Expected System.OverflowException ('Value was either too large or too small for a Currency.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.OverflowException", ex.GetType.FullName, filename) Assert.AreEqual ("Value was either too large or too small for a Currency.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FilePutTest_Random_27() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Random_27") Try Initialize() FileOpen(1, filename, OpenMode.Random) FilePut(1, 79228162514264337593543950335D) FileClose(1) Assert.Fail ("Expected System.OverflowException ('Value was either too large or too small for a Currency.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.OverflowException", ex.GetType.FullName, filename) Assert.AreEqual ("Value was either too large or too small for a Currency.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FilePutTest_Random_28() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Random_28") Try Initialize() FileOpen(1, filename, OpenMode.Random) FilePut(1, DateTime.MinValue) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { 0, 0, 0, 0, 0, 0, 0, 0 }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FilePutTest_Random_29() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Random_29") Try Initialize() FileOpen(1, filename, OpenMode.Random) FilePut(1, DateTime.MaxValue) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { 231, 255, 255, 255, 64, 146, 70, 65 }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FilePutTest_Random_30() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Random_30") Try Initialize() FileOpen(1, filename, OpenMode.Random) FilePut(1, "") FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { 0, 0 }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FilePutTest_Random_31() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Random_31") Try Initialize() FileOpen(1, filename, OpenMode.Random) FilePut(1, CStr (Nothing)) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { 0, 0 }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FilePutTest_Random_32() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Random_32") Try Initialize() FileOpen(1, filename, OpenMode.Random) FilePut(CObj(1), CObj (Nothing)) FileClose(1) Assert.Fail ("Expected System.ArgumentException ('Use 'FilePutObject' instead of 'FilePut' when using argument of type 'Object'.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.ArgumentException", ex.GetType.FullName, filename) Assert.AreEqual ("Use 'FilePutObject' instead of 'FilePut' when using argument of type 'Object'.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FilePutTest_Random_33() Dim filename As String = Path.Combine (DATA_DIR, "FilePutTest_Random_33") Try Initialize() FileOpen(1, filename, OpenMode.Random) FilePut(1, CType (Nothing, System.ValueType)) FileClose(1) Assert.Fail ("Expected System.NullReferenceException ('Object reference not set to an instance of an object.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.NullReferenceException", ex.GetType.FullName, filename) Assert.AreEqual ("Object reference not set to an instance of an object.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Append_1") Try Initialize() FileOpen(1, filename, OpenMode.Append) FilePutObject(1, System.DBNull.Value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Append_2() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Append_2") Try Initialize() FileOpen(1, filename, OpenMode.Append) FilePutObject(1, True) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Append_3() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Append_3") Try Initialize() FileOpen(1, filename, OpenMode.Append) FilePutObject(1, False) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Append_4() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Append_4") Try Initialize() FileOpen(1, filename, OpenMode.Append) FilePutObject(1, ""c) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Append_5() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Append_5") Try Initialize() FileOpen(1, filename, OpenMode.Append) FilePutObject(1, "￿"c) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub #If NET_VER >= 2.0 Then _ Sub FilePutObjectTest_Append_6() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Append_6") Try Initialize() FileOpen(1, filename, OpenMode.Append) FilePutObject(1, SByte.MinValue) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub #End If #If NET_VER >= 2.0 Then _ Sub FilePutObjectTest_Append_7() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Append_7") Try Initialize() FileOpen(1, filename, OpenMode.Append) FilePutObject(1, SByte.MaxValue) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub #End If _ Sub FilePutObjectTest_Append_8() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Append_8") Try Initialize() FileOpen(1, filename, OpenMode.Append) FilePutObject(1, CByte (0)) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Append_9() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Append_9") Try Initialize() FileOpen(1, filename, OpenMode.Append) FilePutObject(1, CByte (255)) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Append_10() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Append_10") Try Initialize() FileOpen(1, filename, OpenMode.Append) FilePutObject(1, Int16.MinValue) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Append_11() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Append_11") Try Initialize() FileOpen(1, filename, OpenMode.Append) FilePutObject(1, Int16.MaxValue) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub #If NET_VER >= 2.0 Then _ Sub FilePutObjectTest_Append_12() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Append_12") Try Initialize() FileOpen(1, filename, OpenMode.Append) FilePutObject(1, UInt16.MinValue) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub #End If #If NET_VER >= 2.0 Then _ Sub FilePutObjectTest_Append_13() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Append_13") Try Initialize() FileOpen(1, filename, OpenMode.Append) FilePutObject(1, UInt16.MaxValue) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub #End If _ Sub FilePutObjectTest_Append_14() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Append_14") Try Initialize() FileOpen(1, filename, OpenMode.Append) FilePutObject(1, Int32.MinValue) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Append_15() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Append_15") Try Initialize() FileOpen(1, filename, OpenMode.Append) FilePutObject(1, Int32.MaxValue) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub #If NET_VER >= 2.0 Then _ Sub FilePutObjectTest_Append_16() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Append_16") Try Initialize() FileOpen(1, filename, OpenMode.Append) FilePutObject(1, UInt32.MinValue) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub #End If #If NET_VER >= 2.0 Then _ Sub FilePutObjectTest_Append_17() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Append_17") Try Initialize() FileOpen(1, filename, OpenMode.Append) FilePutObject(1, UInt32.MaxValue) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub #End If _ Sub FilePutObjectTest_Append_18() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Append_18") Try Initialize() FileOpen(1, filename, OpenMode.Append) FilePutObject(1, Int64.MinValue) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Append_19() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Append_19") Try Initialize() FileOpen(1, filename, OpenMode.Append) FilePutObject(1, Int64.MaxValue) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub #If NET_VER >= 2.0 Then _ Sub FilePutObjectTest_Append_20() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Append_20") Try Initialize() FileOpen(1, filename, OpenMode.Append) FilePutObject(1, UInt64.MinValue) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub #End If #If NET_VER >= 2.0 Then _ Sub FilePutObjectTest_Append_21() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Append_21") Try Initialize() FileOpen(1, filename, OpenMode.Append) FilePutObject(1, UInt64.MaxValue) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub #End If _ Sub FilePutObjectTest_Append_22() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Append_22") Try Initialize() FileOpen(1, filename, OpenMode.Append) FilePutObject(1, Single.MinValue) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Append_23() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Append_23") Try Initialize() FileOpen(1, filename, OpenMode.Append) FilePutObject(1, Single.MaxValue) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Append_24() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Append_24") Try Initialize() FileOpen(1, filename, OpenMode.Append) FilePutObject(1, Single.Epsilon) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Append_25() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Append_25") Try Initialize() FileOpen(1, filename, OpenMode.Append) FilePutObject(1, Single.NaN) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Append_26() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Append_26") Try Initialize() FileOpen(1, filename, OpenMode.Append) FilePutObject(1, Single.NegativeInfinity) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Append_27() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Append_27") Try Initialize() FileOpen(1, filename, OpenMode.Append) FilePutObject(1, Single.PositiveInfinity) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Append_28() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Append_28") Try Initialize() FileOpen(1, filename, OpenMode.Append) FilePutObject(1, Double.MinValue) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Append_29() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Append_29") Try Initialize() FileOpen(1, filename, OpenMode.Append) FilePutObject(1, Double.MaxValue) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Append_30() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Append_30") Try Initialize() FileOpen(1, filename, OpenMode.Append) FilePutObject(1, Double.Epsilon) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Append_31() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Append_31") Try Initialize() FileOpen(1, filename, OpenMode.Append) FilePutObject(1, Double.NaN) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Append_32() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Append_32") Try Initialize() FileOpen(1, filename, OpenMode.Append) FilePutObject(1, Double.NegativeInfinity) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Append_33() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Append_33") Try Initialize() FileOpen(1, filename, OpenMode.Append) FilePutObject(1, Double.PositiveInfinity) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Append_34() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Append_34") Try Initialize() FileOpen(1, filename, OpenMode.Append) FilePutObject(1, -79228162514264337593543950335D) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Append_35() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Append_35") Try Initialize() FileOpen(1, filename, OpenMode.Append) FilePutObject(1, 79228162514264337593543950335D) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Append_36() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Append_36") Try Initialize() FileOpen(1, filename, OpenMode.Append) FilePutObject(1, DateTime.MinValue) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Append_37() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Append_37") Try Initialize() FileOpen(1, filename, OpenMode.Append) FilePutObject(1, DateTime.MaxValue) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Append_38() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Append_38") Try Initialize() FileOpen(1, filename, OpenMode.Append) FilePutObject(1, "") FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Append_39() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Append_39") Try Initialize() FileOpen(1, filename, OpenMode.Append) FilePutObject(1, CStr (Nothing)) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Append_40() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Append_40") Try Initialize() FileOpen(1, filename, OpenMode.Append) FilePutObject(CObj(1), CObj (Nothing)) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Append_41() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Append_41") Try Initialize() FileOpen(1, filename, OpenMode.Append) FilePutObject(1, CType (Nothing, System.ValueType)) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Binary_1() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Binary_1") Try Initialize() FileOpen(1, filename, OpenMode.Binary) FilePutObject(1, System.DBNull.Value) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { 1, 0 }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Binary_2") Try Initialize() FileOpen(1, filename, OpenMode.Binary) FilePutObject(1, True) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { 11, 0, 255, 255 }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Binary_3() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Binary_3") Try Initialize() FileOpen(1, filename, OpenMode.Binary) FilePutObject(1, False) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { 11, 0, 0, 0 }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Binary_4() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Binary_4") Try Initialize() FileOpen(1, filename, OpenMode.Binary) FilePutObject(1, ""c) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { 18, 0, 0 }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Binary_5() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Binary_5") Try Initialize() FileOpen(1, filename, OpenMode.Binary) FilePutObject(1, "￿"c) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { 18, 0, 63 }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub #If NET_VER >= 2.0 Then _ Sub FilePutObjectTest_Binary_6() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Binary_6") Try Initialize() FileOpen(1, filename, OpenMode.Binary) FilePutObject(1, SByte.MinValue) FileClose(1) Assert.Fail ("Expected System.ArgumentException (''FilePutObject' of structure 'SByte' is not valid.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.ArgumentException", ex.GetType.FullName, filename) Assert.AreEqual ("'FilePutObject' of structure 'SByte' is not valid.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub #End If #If NET_VER >= 2.0 Then _ Sub FilePutObjectTest_Binary_7() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Binary_7") Try Initialize() FileOpen(1, filename, OpenMode.Binary) FilePutObject(1, SByte.MaxValue) FileClose(1) Assert.Fail ("Expected System.ArgumentException (''FilePutObject' of structure 'SByte' is not valid.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.ArgumentException", ex.GetType.FullName, filename) Assert.AreEqual ("'FilePutObject' of structure 'SByte' is not valid.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub #End If _ Sub FilePutObjectTest_Binary_8() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Binary_8") Try Initialize() FileOpen(1, filename, OpenMode.Binary) FilePutObject(1, CByte (0)) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { 17, 0, 0 }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Binary_9() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Binary_9") Try Initialize() FileOpen(1, filename, OpenMode.Binary) FilePutObject(1, CByte (255)) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { 17, 0, 255 }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Binary_10() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Binary_10") Try Initialize() FileOpen(1, filename, OpenMode.Binary) FilePutObject(1, Int16.MinValue) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { 2, 0, 0, 128 }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Binary_11() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Binary_11") Try Initialize() FileOpen(1, filename, OpenMode.Binary) FilePutObject(1, Int16.MaxValue) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { 2, 0, 255, 127 }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub #If NET_VER >= 2.0 Then _ Sub FilePutObjectTest_Binary_12() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Binary_12") Try Initialize() FileOpen(1, filename, OpenMode.Binary) FilePutObject(1, UInt16.MinValue) FileClose(1) Assert.Fail ("Expected System.ArgumentException (''FilePutObject' of structure 'UShort' is not valid.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.ArgumentException", ex.GetType.FullName, filename) Assert.AreEqual ("'FilePutObject' of structure 'UShort' is not valid.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub #End If #If NET_VER >= 2.0 Then _ Sub FilePutObjectTest_Binary_13() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Binary_13") Try Initialize() FileOpen(1, filename, OpenMode.Binary) FilePutObject(1, UInt16.MaxValue) FileClose(1) Assert.Fail ("Expected System.ArgumentException (''FilePutObject' of structure 'UShort' is not valid.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.ArgumentException", ex.GetType.FullName, filename) Assert.AreEqual ("'FilePutObject' of structure 'UShort' is not valid.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub #End If _ Sub FilePutObjectTest_Binary_14() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Binary_14") Try Initialize() FileOpen(1, filename, OpenMode.Binary) FilePutObject(1, Int32.MinValue) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { 3, 0, 0, 0, 0, 128 }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Binary_15() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Binary_15") Try Initialize() FileOpen(1, filename, OpenMode.Binary) FilePutObject(1, Int32.MaxValue) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { 3, 0, 255, 255, 255, 127 }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub #If NET_VER >= 2.0 Then _ Sub FilePutObjectTest_Binary_16() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Binary_16") Try Initialize() FileOpen(1, filename, OpenMode.Binary) FilePutObject(1, UInt32.MinValue) FileClose(1) Assert.Fail ("Expected System.ArgumentException (''FilePutObject' of structure 'UInteger' is not valid.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.ArgumentException", ex.GetType.FullName, filename) Assert.AreEqual ("'FilePutObject' of structure 'UInteger' is not valid.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub #End If #If NET_VER >= 2.0 Then _ Sub FilePutObjectTest_Binary_17() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Binary_17") Try Initialize() FileOpen(1, filename, OpenMode.Binary) FilePutObject(1, UInt32.MaxValue) FileClose(1) Assert.Fail ("Expected System.ArgumentException (''FilePutObject' of structure 'UInteger' is not valid.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.ArgumentException", ex.GetType.FullName, filename) Assert.AreEqual ("'FilePutObject' of structure 'UInteger' is not valid.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub #End If _ Sub FilePutObjectTest_Binary_18() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Binary_18") Try Initialize() FileOpen(1, filename, OpenMode.Binary) FilePutObject(1, Int64.MinValue) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { 20, 0, 0, 0, 0, 0, 0, 0, 0, 128 }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Binary_19() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Binary_19") Try Initialize() FileOpen(1, filename, OpenMode.Binary) FilePutObject(1, Int64.MaxValue) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { 20, 0, 255, 255, 255, 255, 255, 255, 255, 127 }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub #If NET_VER >= 2.0 Then _ Sub FilePutObjectTest_Binary_20() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Binary_20") Try Initialize() FileOpen(1, filename, OpenMode.Binary) FilePutObject(1, UInt64.MinValue) FileClose(1) Assert.Fail ("Expected System.ArgumentException (''FilePutObject' of structure 'ULong' is not valid.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.ArgumentException", ex.GetType.FullName, filename) Assert.AreEqual ("'FilePutObject' of structure 'ULong' is not valid.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub #End If #If NET_VER >= 2.0 Then _ Sub FilePutObjectTest_Binary_21() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Binary_21") Try Initialize() FileOpen(1, filename, OpenMode.Binary) FilePutObject(1, UInt64.MaxValue) FileClose(1) Assert.Fail ("Expected System.ArgumentException (''FilePutObject' of structure 'ULong' is not valid.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.ArgumentException", ex.GetType.FullName, filename) Assert.AreEqual ("'FilePutObject' of structure 'ULong' is not valid.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub #End If _ Sub FilePutObjectTest_Binary_22() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Binary_22") Try Initialize() FileOpen(1, filename, OpenMode.Binary) FilePutObject(1, Single.MinValue) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { 4, 0, 255, 255, 127, 255 }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Binary_23() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Binary_23") Try Initialize() FileOpen(1, filename, OpenMode.Binary) FilePutObject(1, Single.MaxValue) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { 4, 0, 255, 255, 127, 127 }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Binary_24() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Binary_24") Try Initialize() FileOpen(1, filename, OpenMode.Binary) FilePutObject(1, Single.Epsilon) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { 4, 0, 1, 0, 0, 0 }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Binary_25() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Binary_25") Try Initialize() FileOpen(1, filename, OpenMode.Binary) FilePutObject(1, Single.NaN) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { 4, 0, 0, 0, 192, 255 }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Binary_26() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Binary_26") Try Initialize() FileOpen(1, filename, OpenMode.Binary) FilePutObject(1, Single.NegativeInfinity) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { 4, 0, 0, 0, 128, 255 }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Binary_27() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Binary_27") Try Initialize() FileOpen(1, filename, OpenMode.Binary) FilePutObject(1, Single.PositiveInfinity) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { 4, 0, 0, 0, 128, 127 }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Binary_28() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Binary_28") Try Initialize() FileOpen(1, filename, OpenMode.Binary) FilePutObject(1, Double.MinValue) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { 5, 0, 255, 255, 255, 255, 255, 255, 239, 255 }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Binary_29() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Binary_29") Try Initialize() FileOpen(1, filename, OpenMode.Binary) FilePutObject(1, Double.MaxValue) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { 5, 0, 255, 255, 255, 255, 255, 255, 239, 127 }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Binary_30() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Binary_30") Try Initialize() FileOpen(1, filename, OpenMode.Binary) FilePutObject(1, Double.Epsilon) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { 5, 0, 1, 0, 0, 0, 0, 0, 0, 0 }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Binary_31() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Binary_31") Try Initialize() FileOpen(1, filename, OpenMode.Binary) FilePutObject(1, Double.NaN) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { 5, 0, 0, 0, 0, 0, 0, 0, 248, 255 }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Binary_32() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Binary_32") Try Initialize() FileOpen(1, filename, OpenMode.Binary) FilePutObject(1, Double.NegativeInfinity) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { 5, 0, 0, 0, 0, 0, 0, 0, 240, 255 }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Binary_33() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Binary_33") Try Initialize() FileOpen(1, filename, OpenMode.Binary) FilePutObject(1, Double.PositiveInfinity) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { 5, 0, 0, 0, 0, 0, 0, 0, 240, 127 }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Binary_34() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Binary_34") Try Initialize() FileOpen(1, filename, OpenMode.Binary) FilePutObject(1, -79228162514264337593543950335D) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { 14, 0, 14, 0, 0, 128, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255 }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Binary_35() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Binary_35") Try Initialize() FileOpen(1, filename, OpenMode.Binary) FilePutObject(1, 79228162514264337593543950335D) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { 14, 0, 14, 0, 0, 0, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255 }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Binary_36() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Binary_36") Try Initialize() FileOpen(1, filename, OpenMode.Binary) FilePutObject(1, DateTime.MinValue) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { 7, 0, 0, 0, 0, 0, 0, 0, 0, 0 }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Binary_37() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Binary_37") Try Initialize() FileOpen(1, filename, OpenMode.Binary) FilePutObject(1, DateTime.MaxValue) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { 7, 0, 231, 255, 255, 255, 64, 146, 70, 65 }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Binary_38() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Binary_38") Try Initialize() FileOpen(1, filename, OpenMode.Binary) FilePutObject(1, "") FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { 8, 0, 0, 0 }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Binary_39() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Binary_39") Try Initialize() FileOpen(1, filename, OpenMode.Binary) FilePutObject(1, CStr (Nothing)) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { 0, 0 }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Binary_40() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Binary_40") Try Initialize() FileOpen(1, filename, OpenMode.Binary) FilePutObject(CObj(1), CObj (Nothing)) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { 0, 0 }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Binary_41() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Binary_41") Try Initialize() FileOpen(1, filename, OpenMode.Binary) FilePutObject(1, CType (Nothing, System.ValueType)) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { 0, 0 }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Input_1() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Input_1") Try Initialize() FileOpen(1, filename, OpenMode.Input) FilePutObject(1, System.DBNull.Value) FileClose(1) Assert.Fail ("Expected System.IO.FileNotFoundException ('Could not find file '\FilePutObjectTest_Input_1'.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.FileNotFoundException", ex.GetType.FullName, filename) Assert.IsTrue (ex.Message Like "Could not find file ?*FilePutObjectTest_Input_1?.", filename & " - <" & ex.Message & "> didn't match ") Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Input_2() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Input_2") Try Initialize() FileOpen(1, filename, OpenMode.Input) FilePutObject(1, True) FileClose(1) Assert.Fail ("Expected System.IO.FileNotFoundException ('Could not find file '\FilePutObjectTest_Input_2'.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.FileNotFoundException", ex.GetType.FullName, filename) Assert.IsTrue (ex.Message Like "Could not find file ?*FilePutObjectTest_Input_2?.", filename & " - <" & ex.Message & "> didn't match ") Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Input_3") Try Initialize() FileOpen(1, filename, OpenMode.Input) FilePutObject(1, False) FileClose(1) Assert.Fail ("Expected System.IO.FileNotFoundException ('Could not find file '\FilePutObjectTest_Input_3'.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.FileNotFoundException", ex.GetType.FullName, filename) Assert.IsTrue (ex.Message Like "Could not find file ?*FilePutObjectTest_Input_3?.", filename & " - <" & ex.Message & "> didn't match ") Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Input_4() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Input_4") Try Initialize() FileOpen(1, filename, OpenMode.Input) FilePutObject(1, ""c) FileClose(1) Assert.Fail ("Expected System.IO.FileNotFoundException ('Could not find file '\FilePutObjectTest_Input_4'.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.FileNotFoundException", ex.GetType.FullName, filename) Assert.IsTrue (ex.Message Like "Could not find file ?*FilePutObjectTest_Input_4?.", filename & " - <" & ex.Message & "> didn't match ") Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Input_5() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Input_5") Try Initialize() FileOpen(1, filename, OpenMode.Input) FilePutObject(1, "￿"c) FileClose(1) Assert.Fail ("Expected System.IO.FileNotFoundException ('Could not find file '\FilePutObjectTest_Input_5'.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.FileNotFoundException", ex.GetType.FullName, filename) Assert.IsTrue (ex.Message Like "Could not find file ?*FilePutObjectTest_Input_5?.", filename & " - <" & ex.Message & "> didn't match ") Finally CleanUp() End Try End Sub #If NET_VER >= 2.0 Then _ Sub FilePutObjectTest_Input_6() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Input_6") Try Initialize() FileOpen(1, filename, OpenMode.Input) FilePutObject(1, SByte.MinValue) FileClose(1) Assert.Fail ("Expected System.IO.FileNotFoundException ('Could not find file '\FilePutObjectTest_Input_6'.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.FileNotFoundException", ex.GetType.FullName, filename) Assert.IsTrue (ex.Message Like "Could not find file ?*FilePutObjectTest_Input_6?.", filename & " - <" & ex.Message & "> didn't match ") Finally CleanUp() End Try End Sub #End If #If NET_VER >= 2.0 Then _ Sub FilePutObjectTest_Input_7() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Input_7") Try Initialize() FileOpen(1, filename, OpenMode.Input) FilePutObject(1, SByte.MaxValue) FileClose(1) Assert.Fail ("Expected System.IO.FileNotFoundException ('Could not find file '\FilePutObjectTest_Input_7'.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.FileNotFoundException", ex.GetType.FullName, filename) Assert.IsTrue (ex.Message Like "Could not find file ?*FilePutObjectTest_Input_7?.", filename & " - <" & ex.Message & "> didn't match ") Finally CleanUp() End Try End Sub #End If _ Sub FilePutObjectTest_Input_8() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Input_8") Try Initialize() FileOpen(1, filename, OpenMode.Input) FilePutObject(1, CByte (0)) FileClose(1) Assert.Fail ("Expected System.IO.FileNotFoundException ('Could not find file '\FilePutObjectTest_Input_8'.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.FileNotFoundException", ex.GetType.FullName, filename) Assert.IsTrue (ex.Message Like "Could not find file ?*FilePutObjectTest_Input_8?.", filename & " - <" & ex.Message & "> didn't match ") Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Input_9() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Input_9") Try Initialize() FileOpen(1, filename, OpenMode.Input) FilePutObject(1, CByte (255)) FileClose(1) Assert.Fail ("Expected System.IO.FileNotFoundException ('Could not find file '\FilePutObjectTest_Input_9'.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.FileNotFoundException", ex.GetType.FullName, filename) Assert.IsTrue (ex.Message Like "Could not find file ?*FilePutObjectTest_Input_9?.", filename & " - <" & ex.Message & "> didn't match ") Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Input_10() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Input_10") Try Initialize() FileOpen(1, filename, OpenMode.Input) FilePutObject(1, Int16.MinValue) FileClose(1) Assert.Fail ("Expected System.IO.FileNotFoundException ('Could not find file '\FilePutObjectTest_Input_10'.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.FileNotFoundException", ex.GetType.FullName, filename) Assert.IsTrue (ex.Message Like "Could not find file ?*FilePutObjectTest_Input_10?.", filename & " - <" & ex.Message & "> didn't match ") Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Input_11() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Input_11") Try Initialize() FileOpen(1, filename, OpenMode.Input) FilePutObject(1, Int16.MaxValue) FileClose(1) Assert.Fail ("Expected System.IO.FileNotFoundException ('Could not find file '\FilePutObjectTest_Input_11'.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.FileNotFoundException", ex.GetType.FullName, filename) Assert.IsTrue (ex.Message Like "Could not find file ?*FilePutObjectTest_Input_11?.", filename & " - <" & ex.Message & "> didn't match ") Finally CleanUp() End Try End Sub #If NET_VER >= 2.0 Then _ Sub FilePutObjectTest_Input_12() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Input_12") Try Initialize() FileOpen(1, filename, OpenMode.Input) FilePutObject(1, UInt16.MinValue) FileClose(1) Assert.Fail ("Expected System.IO.FileNotFoundException ('Could not find file '\FilePutObjectTest_Input_12'.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.FileNotFoundException", ex.GetType.FullName, filename) Assert.IsTrue (ex.Message Like "Could not find file ?*FilePutObjectTest_Input_12?.", filename & " - <" & ex.Message & "> didn't match ") Finally CleanUp() End Try End Sub #End If #If NET_VER >= 2.0 Then _ Sub FilePutObjectTest_Input_13() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Input_13") Try Initialize() FileOpen(1, filename, OpenMode.Input) FilePutObject(1, UInt16.MaxValue) FileClose(1) Assert.Fail ("Expected System.IO.FileNotFoundException ('Could not find file '\FilePutObjectTest_Input_13'.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.FileNotFoundException", ex.GetType.FullName, filename) Assert.IsTrue (ex.Message Like "Could not find file ?*FilePutObjectTest_Input_13?.", filename & " - <" & ex.Message & "> didn't match ") Finally CleanUp() End Try End Sub #End If _ Sub FilePutObjectTest_Input_14() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Input_14") Try Initialize() FileOpen(1, filename, OpenMode.Input) FilePutObject(1, Int32.MinValue) FileClose(1) Assert.Fail ("Expected System.IO.FileNotFoundException ('Could not find file '\FilePutObjectTest_Input_14'.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.FileNotFoundException", ex.GetType.FullName, filename) Assert.IsTrue (ex.Message Like "Could not find file ?*FilePutObjectTest_Input_14?.", filename & " - <" & ex.Message & "> didn't match ") Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Input_15() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Input_15") Try Initialize() FileOpen(1, filename, OpenMode.Input) FilePutObject(1, Int32.MaxValue) FileClose(1) Assert.Fail ("Expected System.IO.FileNotFoundException ('Could not find file '\FilePutObjectTest_Input_15'.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.FileNotFoundException", ex.GetType.FullName, filename) Assert.IsTrue (ex.Message Like "Could not find file ?*FilePutObjectTest_Input_15?.", filename & " - <" & ex.Message & "> didn't match ") Finally CleanUp() End Try End Sub #If NET_VER >= 2.0 Then _ Sub FilePutObjectTest_Input_16() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Input_16") Try Initialize() FileOpen(1, filename, OpenMode.Input) FilePutObject(1, UInt32.MinValue) FileClose(1) Assert.Fail ("Expected System.IO.FileNotFoundException ('Could not find file '\FilePutObjectTest_Input_16'.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.FileNotFoundException", ex.GetType.FullName, filename) Assert.IsTrue (ex.Message Like "Could not find file ?*FilePutObjectTest_Input_16?.", filename & " - <" & ex.Message & "> didn't match ") Finally CleanUp() End Try End Sub #End If #If NET_VER >= 2.0 Then _ Sub FilePutObjectTest_Input_17() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Input_17") Try Initialize() FileOpen(1, filename, OpenMode.Input) FilePutObject(1, UInt32.MaxValue) FileClose(1) Assert.Fail ("Expected System.IO.FileNotFoundException ('Could not find file '\FilePutObjectTest_Input_17'.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.FileNotFoundException", ex.GetType.FullName, filename) Assert.IsTrue (ex.Message Like "Could not find file ?*FilePutObjectTest_Input_17?.", filename & " - <" & ex.Message & "> didn't match ") Finally CleanUp() End Try End Sub #End If _ Sub FilePutObjectTest_Input_18() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Input_18") Try Initialize() FileOpen(1, filename, OpenMode.Input) FilePutObject(1, Int64.MinValue) FileClose(1) Assert.Fail ("Expected System.IO.FileNotFoundException ('Could not find file '\FilePutObjectTest_Input_18'.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.FileNotFoundException", ex.GetType.FullName, filename) Assert.IsTrue (ex.Message Like "Could not find file ?*FilePutObjectTest_Input_18?.", filename & " - <" & ex.Message & "> didn't match ") Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Input_19() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Input_19") Try Initialize() FileOpen(1, filename, OpenMode.Input) FilePutObject(1, Int64.MaxValue) FileClose(1) Assert.Fail ("Expected System.IO.FileNotFoundException ('Could not find file '\FilePutObjectTest_Input_19'.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.FileNotFoundException", ex.GetType.FullName, filename) Assert.IsTrue (ex.Message Like "Could not find file ?*FilePutObjectTest_Input_19?.", filename & " - <" & ex.Message & "> didn't match ") Finally CleanUp() End Try End Sub #If NET_VER >= 2.0 Then _ Sub FilePutObjectTest_Input_20() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Input_20") Try Initialize() FileOpen(1, filename, OpenMode.Input) FilePutObject(1, UInt64.MinValue) FileClose(1) Assert.Fail ("Expected System.IO.FileNotFoundException ('Could not find file '\FilePutObjectTest_Input_20'.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.FileNotFoundException", ex.GetType.FullName, filename) Assert.IsTrue (ex.Message Like "Could not find file ?*FilePutObjectTest_Input_20?.", filename & " - <" & ex.Message & "> didn't match ") Finally CleanUp() End Try End Sub #End If #If NET_VER >= 2.0 Then _ Sub FilePutObjectTest_Input_21() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Input_21") Try Initialize() FileOpen(1, filename, OpenMode.Input) FilePutObject(1, UInt64.MaxValue) FileClose(1) Assert.Fail ("Expected System.IO.FileNotFoundException ('Could not find file '\FilePutObjectTest_Input_21'.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.FileNotFoundException", ex.GetType.FullName, filename) Assert.IsTrue (ex.Message Like "Could not find file ?*FilePutObjectTest_Input_21?.", filename & " - <" & ex.Message & "> didn't match ") Finally CleanUp() End Try End Sub #End If _ Sub FilePutObjectTest_Input_22() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Input_22") Try Initialize() FileOpen(1, filename, OpenMode.Input) FilePutObject(1, Single.MinValue) FileClose(1) Assert.Fail ("Expected System.IO.FileNotFoundException ('Could not find file '\FilePutObjectTest_Input_22'.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.FileNotFoundException", ex.GetType.FullName, filename) Assert.IsTrue (ex.Message Like "Could not find file ?*FilePutObjectTest_Input_22?.", filename & " - <" & ex.Message & "> didn't match ") Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Input_23() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Input_23") Try Initialize() FileOpen(1, filename, OpenMode.Input) FilePutObject(1, Single.MaxValue) FileClose(1) Assert.Fail ("Expected System.IO.FileNotFoundException ('Could not find file '\FilePutObjectTest_Input_23'.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.FileNotFoundException", ex.GetType.FullName, filename) Assert.IsTrue (ex.Message Like "Could not find file ?*FilePutObjectTest_Input_23?.", filename & " - <" & ex.Message & "> didn't match ") Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Input_24() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Input_24") Try Initialize() FileOpen(1, filename, OpenMode.Input) FilePutObject(1, Single.Epsilon) FileClose(1) Assert.Fail ("Expected System.IO.FileNotFoundException ('Could not find file '\FilePutObjectTest_Input_24'.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.FileNotFoundException", ex.GetType.FullName, filename) Assert.IsTrue (ex.Message Like "Could not find file ?*FilePutObjectTest_Input_24?.", filename & " - <" & ex.Message & "> didn't match ") Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Input_25() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Input_25") Try Initialize() FileOpen(1, filename, OpenMode.Input) FilePutObject(1, Single.NaN) FileClose(1) Assert.Fail ("Expected System.IO.FileNotFoundException ('Could not find file '\FilePutObjectTest_Input_25'.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.FileNotFoundException", ex.GetType.FullName, filename) Assert.IsTrue (ex.Message Like "Could not find file ?*FilePutObjectTest_Input_25?.", filename & " - <" & ex.Message & "> didn't match ") Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Input_26() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Input_26") Try Initialize() FileOpen(1, filename, OpenMode.Input) FilePutObject(1, Single.NegativeInfinity) FileClose(1) Assert.Fail ("Expected System.IO.FileNotFoundException ('Could not find file '\FilePutObjectTest_Input_26'.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.FileNotFoundException", ex.GetType.FullName, filename) Assert.IsTrue (ex.Message Like "Could not find file ?*FilePutObjectTest_Input_26?.", filename & " - <" & ex.Message & "> didn't match ") Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Input_27() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Input_27") Try Initialize() FileOpen(1, filename, OpenMode.Input) FilePutObject(1, Single.PositiveInfinity) FileClose(1) Assert.Fail ("Expected System.IO.FileNotFoundException ('Could not find file '\FilePutObjectTest_Input_27'.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.FileNotFoundException", ex.GetType.FullName, filename) Assert.IsTrue (ex.Message Like "Could not find file ?*FilePutObjectTest_Input_27?.", filename & " - <" & ex.Message & "> didn't match ") Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Input_28() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Input_28") Try Initialize() FileOpen(1, filename, OpenMode.Input) FilePutObject(1, Double.MinValue) FileClose(1) Assert.Fail ("Expected System.IO.FileNotFoundException ('Could not find file '\FilePutObjectTest_Input_28'.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.FileNotFoundException", ex.GetType.FullName, filename) Assert.IsTrue (ex.Message Like "Could not find file ?*FilePutObjectTest_Input_28?.", filename & " - <" & ex.Message & "> didn't match ") Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Input_29() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Input_29") Try Initialize() FileOpen(1, filename, OpenMode.Input) FilePutObject(1, Double.MaxValue) FileClose(1) Assert.Fail ("Expected System.IO.FileNotFoundException ('Could not find file '\FilePutObjectTest_Input_29'.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.FileNotFoundException", ex.GetType.FullName, filename) Assert.IsTrue (ex.Message Like "Could not find file ?*FilePutObjectTest_Input_29?.", filename & " - <" & ex.Message & "> didn't match ") Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Input_30() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Input_30") Try Initialize() FileOpen(1, filename, OpenMode.Input) FilePutObject(1, Double.Epsilon) FileClose(1) Assert.Fail ("Expected System.IO.FileNotFoundException ('Could not find file '\FilePutObjectTest_Input_30'.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.FileNotFoundException", ex.GetType.FullName, filename) Assert.IsTrue (ex.Message Like "Could not find file ?*FilePutObjectTest_Input_30?.", filename & " - <" & ex.Message & "> didn't match ") Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Input_31() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Input_31") Try Initialize() FileOpen(1, filename, OpenMode.Input) FilePutObject(1, Double.NaN) FileClose(1) Assert.Fail ("Expected System.IO.FileNotFoundException ('Could not find file '\FilePutObjectTest_Input_31'.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.FileNotFoundException", ex.GetType.FullName, filename) Assert.IsTrue (ex.Message Like "Could not find file ?*FilePutObjectTest_Input_31?.", filename & " - <" & ex.Message & "> didn't match ") Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Input_32() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Input_32") Try Initialize() FileOpen(1, filename, OpenMode.Input) FilePutObject(1, Double.NegativeInfinity) FileClose(1) Assert.Fail ("Expected System.IO.FileNotFoundException ('Could not find file '\FilePutObjectTest_Input_32'.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.FileNotFoundException", ex.GetType.FullName, filename) Assert.IsTrue (ex.Message Like "Could not find file ?*FilePutObjectTest_Input_32?.", filename & " - <" & ex.Message & "> didn't match ") Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Input_33() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Input_33") Try Initialize() FileOpen(1, filename, OpenMode.Input) FilePutObject(1, Double.PositiveInfinity) FileClose(1) Assert.Fail ("Expected System.IO.FileNotFoundException ('Could not find file '\FilePutObjectTest_Input_33'.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.FileNotFoundException", ex.GetType.FullName, filename) Assert.IsTrue (ex.Message Like "Could not find file ?*FilePutObjectTest_Input_33?.", filename & " - <" & ex.Message & "> didn't match ") Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Input_34() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Input_34") Try Initialize() FileOpen(1, filename, OpenMode.Input) FilePutObject(1, -79228162514264337593543950335D) FileClose(1) Assert.Fail ("Expected System.IO.FileNotFoundException ('Could not find file '\FilePutObjectTest_Input_34'.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.FileNotFoundException", ex.GetType.FullName, filename) Assert.IsTrue (ex.Message Like "Could not find file ?*FilePutObjectTest_Input_34?.", filename & " - <" & ex.Message & "> didn't match ") Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Input_35() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Input_35") Try Initialize() FileOpen(1, filename, OpenMode.Input) FilePutObject(1, 79228162514264337593543950335D) FileClose(1) Assert.Fail ("Expected System.IO.FileNotFoundException ('Could not find file '\FilePutObjectTest_Input_35'.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.FileNotFoundException", ex.GetType.FullName, filename) Assert.IsTrue (ex.Message Like "Could not find file ?*FilePutObjectTest_Input_35?.", filename & " - <" & ex.Message & "> didn't match ") Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Input_36() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Input_36") Try Initialize() FileOpen(1, filename, OpenMode.Input) FilePutObject(1, DateTime.MinValue) FileClose(1) Assert.Fail ("Expected System.IO.FileNotFoundException ('Could not find file '\FilePutObjectTest_Input_36'.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.FileNotFoundException", ex.GetType.FullName, filename) Assert.IsTrue (ex.Message Like "Could not find file ?*FilePutObjectTest_Input_36?.", filename & " - <" & ex.Message & "> didn't match ") Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Input_37() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Input_37") Try Initialize() FileOpen(1, filename, OpenMode.Input) FilePutObject(1, DateTime.MaxValue) FileClose(1) Assert.Fail ("Expected System.IO.FileNotFoundException ('Could not find file '\FilePutObjectTest_Input_37'.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.FileNotFoundException", ex.GetType.FullName, filename) Assert.IsTrue (ex.Message Like "Could not find file ?*FilePutObjectTest_Input_37?.", filename & " - <" & ex.Message & "> didn't match ") Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Input_38() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Input_38") Try Initialize() FileOpen(1, filename, OpenMode.Input) FilePutObject(1, "") FileClose(1) Assert.Fail ("Expected System.IO.FileNotFoundException ('Could not find file '\FilePutObjectTest_Input_38'.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.FileNotFoundException", ex.GetType.FullName, filename) Assert.IsTrue (ex.Message Like "Could not find file ?*FilePutObjectTest_Input_38?.", filename & " - <" & ex.Message & "> didn't match ") Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Input_39() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Input_39") Try Initialize() FileOpen(1, filename, OpenMode.Input) FilePutObject(1, CStr (Nothing)) FileClose(1) Assert.Fail ("Expected System.IO.FileNotFoundException ('Could not find file '\FilePutObjectTest_Input_39'.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.FileNotFoundException", ex.GetType.FullName, filename) Assert.IsTrue (ex.Message Like "Could not find file ?*FilePutObjectTest_Input_39?.", filename & " - <" & ex.Message & "> didn't match ") Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Input_40() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Input_40") Try Initialize() FileOpen(1, filename, OpenMode.Input) FilePutObject(CObj(1), CObj (Nothing)) FileClose(1) Assert.Fail ("Expected System.IO.FileNotFoundException ('Could not find file '\FilePutObjectTest_Input_40'.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.FileNotFoundException", ex.GetType.FullName, filename) Assert.IsTrue (ex.Message Like "Could not find file ?*FilePutObjectTest_Input_40?.", filename & " - <" & ex.Message & "> didn't match ") Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Input_41() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Input_41") Try Initialize() FileOpen(1, filename, OpenMode.Input) FilePutObject(1, CType (Nothing, System.ValueType)) FileClose(1) Assert.Fail ("Expected System.IO.FileNotFoundException ('Could not find file '\FilePutObjectTest_Input_41'.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.FileNotFoundException", ex.GetType.FullName, filename) Assert.IsTrue (ex.Message Like "Could not find file ?*FilePutObjectTest_Input_41?.", filename & " - <" & ex.Message & "> didn't match ") Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Output_1() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Output_1") Try Initialize() FileOpen(1, filename, OpenMode.Output) FilePutObject(1, System.DBNull.Value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Output_2() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Output_2") Try Initialize() FileOpen(1, filename, OpenMode.Output) FilePutObject(1, True) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Output_3() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Output_3") Try Initialize() FileOpen(1, filename, OpenMode.Output) FilePutObject(1, False) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Output_4") Try Initialize() FileOpen(1, filename, OpenMode.Output) FilePutObject(1, ""c) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Output_5() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Output_5") Try Initialize() FileOpen(1, filename, OpenMode.Output) FilePutObject(1, "￿"c) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub #If NET_VER >= 2.0 Then _ Sub FilePutObjectTest_Output_6() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Output_6") Try Initialize() FileOpen(1, filename, OpenMode.Output) FilePutObject(1, SByte.MinValue) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub #End If #If NET_VER >= 2.0 Then _ Sub FilePutObjectTest_Output_7() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Output_7") Try Initialize() FileOpen(1, filename, OpenMode.Output) FilePutObject(1, SByte.MaxValue) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub #End If _ Sub FilePutObjectTest_Output_8() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Output_8") Try Initialize() FileOpen(1, filename, OpenMode.Output) FilePutObject(1, CByte (0)) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Output_9() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Output_9") Try Initialize() FileOpen(1, filename, OpenMode.Output) FilePutObject(1, CByte (255)) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Output_10() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Output_10") Try Initialize() FileOpen(1, filename, OpenMode.Output) FilePutObject(1, Int16.MinValue) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Output_11() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Output_11") Try Initialize() FileOpen(1, filename, OpenMode.Output) FilePutObject(1, Int16.MaxValue) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub #If NET_VER >= 2.0 Then _ Sub FilePutObjectTest_Output_12() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Output_12") Try Initialize() FileOpen(1, filename, OpenMode.Output) FilePutObject(1, UInt16.MinValue) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub #End If #If NET_VER >= 2.0 Then _ Sub FilePutObjectTest_Output_13() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Output_13") Try Initialize() FileOpen(1, filename, OpenMode.Output) FilePutObject(1, UInt16.MaxValue) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub #End If _ Sub FilePutObjectTest_Output_14() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Output_14") Try Initialize() FileOpen(1, filename, OpenMode.Output) FilePutObject(1, Int32.MinValue) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Output_15() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Output_15") Try Initialize() FileOpen(1, filename, OpenMode.Output) FilePutObject(1, Int32.MaxValue) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub #If NET_VER >= 2.0 Then _ Sub FilePutObjectTest_Output_16() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Output_16") Try Initialize() FileOpen(1, filename, OpenMode.Output) FilePutObject(1, UInt32.MinValue) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub #End If #If NET_VER >= 2.0 Then _ Sub FilePutObjectTest_Output_17() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Output_17") Try Initialize() FileOpen(1, filename, OpenMode.Output) FilePutObject(1, UInt32.MaxValue) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub #End If _ Sub FilePutObjectTest_Output_18() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Output_18") Try Initialize() FileOpen(1, filename, OpenMode.Output) FilePutObject(1, Int64.MinValue) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Output_19() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Output_19") Try Initialize() FileOpen(1, filename, OpenMode.Output) FilePutObject(1, Int64.MaxValue) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub #If NET_VER >= 2.0 Then _ Sub FilePutObjectTest_Output_20() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Output_20") Try Initialize() FileOpen(1, filename, OpenMode.Output) FilePutObject(1, UInt64.MinValue) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub #End If #If NET_VER >= 2.0 Then _ Sub FilePutObjectTest_Output_21() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Output_21") Try Initialize() FileOpen(1, filename, OpenMode.Output) FilePutObject(1, UInt64.MaxValue) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub #End If _ Sub FilePutObjectTest_Output_22() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Output_22") Try Initialize() FileOpen(1, filename, OpenMode.Output) FilePutObject(1, Single.MinValue) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Output_23() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Output_23") Try Initialize() FileOpen(1, filename, OpenMode.Output) FilePutObject(1, Single.MaxValue) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Output_24() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Output_24") Try Initialize() FileOpen(1, filename, OpenMode.Output) FilePutObject(1, Single.Epsilon) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Output_25() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Output_25") Try Initialize() FileOpen(1, filename, OpenMode.Output) FilePutObject(1, Single.NaN) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Output_26() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Output_26") Try Initialize() FileOpen(1, filename, OpenMode.Output) FilePutObject(1, Single.NegativeInfinity) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Output_27() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Output_27") Try Initialize() FileOpen(1, filename, OpenMode.Output) FilePutObject(1, Single.PositiveInfinity) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Output_28() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Output_28") Try Initialize() FileOpen(1, filename, OpenMode.Output) FilePutObject(1, Double.MinValue) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Output_29() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Output_29") Try Initialize() FileOpen(1, filename, OpenMode.Output) FilePutObject(1, Double.MaxValue) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Output_30() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Output_30") Try Initialize() FileOpen(1, filename, OpenMode.Output) FilePutObject(1, Double.Epsilon) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Output_31() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Output_31") Try Initialize() FileOpen(1, filename, OpenMode.Output) FilePutObject(1, Double.NaN) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Output_32() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Output_32") Try Initialize() FileOpen(1, filename, OpenMode.Output) FilePutObject(1, Double.NegativeInfinity) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Output_33() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Output_33") Try Initialize() FileOpen(1, filename, OpenMode.Output) FilePutObject(1, Double.PositiveInfinity) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Output_34() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Output_34") Try Initialize() FileOpen(1, filename, OpenMode.Output) FilePutObject(1, -79228162514264337593543950335D) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Output_35() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Output_35") Try Initialize() FileOpen(1, filename, OpenMode.Output) FilePutObject(1, 79228162514264337593543950335D) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Output_36() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Output_36") Try Initialize() FileOpen(1, filename, OpenMode.Output) FilePutObject(1, DateTime.MinValue) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Output_37() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Output_37") Try Initialize() FileOpen(1, filename, OpenMode.Output) FilePutObject(1, DateTime.MaxValue) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Output_38() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Output_38") Try Initialize() FileOpen(1, filename, OpenMode.Output) FilePutObject(1, "") FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Output_39() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Output_39") Try Initialize() FileOpen(1, filename, OpenMode.Output) FilePutObject(1, CStr (Nothing)) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Output_40() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Output_40") Try Initialize() FileOpen(1, filename, OpenMode.Output) FilePutObject(CObj(1), CObj (Nothing)) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Output_41() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Output_41") Try Initialize() FileOpen(1, filename, OpenMode.Output) FilePutObject(1, CType (Nothing, System.ValueType)) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Random_1() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Random_1") Try Initialize() FileOpen(1, filename, OpenMode.Random) FilePutObject(1, System.DBNull.Value) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { 1, 0 }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Random_2() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Random_2") Try Initialize() FileOpen(1, filename, OpenMode.Random) FilePutObject(1, True) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { 11, 0, 255, 255 }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Random_3() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Random_3") Try Initialize() FileOpen(1, filename, OpenMode.Random) FilePutObject(1, False) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { 11, 0, 0, 0 }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Random_4() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Random_4") Try Initialize() FileOpen(1, filename, OpenMode.Random) FilePutObject(1, ""c) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { 18, 0, 0 }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Random_5") Try Initialize() FileOpen(1, filename, OpenMode.Random) FilePutObject(1, "￿"c) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { 18, 0, 63 }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub #If NET_VER >= 2.0 Then _ Sub FilePutObjectTest_Random_6() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Random_6") Try Initialize() FileOpen(1, filename, OpenMode.Random) FilePutObject(1, SByte.MinValue) FileClose(1) Assert.Fail ("Expected System.ArgumentException (''FilePutObject' of structure 'SByte' is not valid.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.ArgumentException", ex.GetType.FullName, filename) Assert.AreEqual ("'FilePutObject' of structure 'SByte' is not valid.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub #End If #If NET_VER >= 2.0 Then _ Sub FilePutObjectTest_Random_7() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Random_7") Try Initialize() FileOpen(1, filename, OpenMode.Random) FilePutObject(1, SByte.MaxValue) FileClose(1) Assert.Fail ("Expected System.ArgumentException (''FilePutObject' of structure 'SByte' is not valid.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.ArgumentException", ex.GetType.FullName, filename) Assert.AreEqual ("'FilePutObject' of structure 'SByte' is not valid.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub #End If _ Sub FilePutObjectTest_Random_8() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Random_8") Try Initialize() FileOpen(1, filename, OpenMode.Random) FilePutObject(1, CByte (0)) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { 17, 0, 0 }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Random_9() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Random_9") Try Initialize() FileOpen(1, filename, OpenMode.Random) FilePutObject(1, CByte (255)) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { 17, 0, 255 }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Random_10() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Random_10") Try Initialize() FileOpen(1, filename, OpenMode.Random) FilePutObject(1, Int16.MinValue) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { 2, 0, 0, 128 }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Random_11() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Random_11") Try Initialize() FileOpen(1, filename, OpenMode.Random) FilePutObject(1, Int16.MaxValue) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { 2, 0, 255, 127 }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub #If NET_VER >= 2.0 Then _ Sub FilePutObjectTest_Random_12() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Random_12") Try Initialize() FileOpen(1, filename, OpenMode.Random) FilePutObject(1, UInt16.MinValue) FileClose(1) Assert.Fail ("Expected System.ArgumentException (''FilePutObject' of structure 'UShort' is not valid.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.ArgumentException", ex.GetType.FullName, filename) Assert.AreEqual ("'FilePutObject' of structure 'UShort' is not valid.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub #End If #If NET_VER >= 2.0 Then _ Sub FilePutObjectTest_Random_13() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Random_13") Try Initialize() FileOpen(1, filename, OpenMode.Random) FilePutObject(1, UInt16.MaxValue) FileClose(1) Assert.Fail ("Expected System.ArgumentException (''FilePutObject' of structure 'UShort' is not valid.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.ArgumentException", ex.GetType.FullName, filename) Assert.AreEqual ("'FilePutObject' of structure 'UShort' is not valid.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub #End If _ Sub FilePutObjectTest_Random_14() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Random_14") Try Initialize() FileOpen(1, filename, OpenMode.Random) FilePutObject(1, Int32.MinValue) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { 3, 0, 0, 0, 0, 128 }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Random_15() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Random_15") Try Initialize() FileOpen(1, filename, OpenMode.Random) FilePutObject(1, Int32.MaxValue) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { 3, 0, 255, 255, 255, 127 }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub #If NET_VER >= 2.0 Then _ Sub FilePutObjectTest_Random_16() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Random_16") Try Initialize() FileOpen(1, filename, OpenMode.Random) FilePutObject(1, UInt32.MinValue) FileClose(1) Assert.Fail ("Expected System.ArgumentException (''FilePutObject' of structure 'UInteger' is not valid.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.ArgumentException", ex.GetType.FullName, filename) Assert.AreEqual ("'FilePutObject' of structure 'UInteger' is not valid.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub #End If #If NET_VER >= 2.0 Then _ Sub FilePutObjectTest_Random_17() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Random_17") Try Initialize() FileOpen(1, filename, OpenMode.Random) FilePutObject(1, UInt32.MaxValue) FileClose(1) Assert.Fail ("Expected System.ArgumentException (''FilePutObject' of structure 'UInteger' is not valid.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.ArgumentException", ex.GetType.FullName, filename) Assert.AreEqual ("'FilePutObject' of structure 'UInteger' is not valid.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub #End If _ Sub FilePutObjectTest_Random_18() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Random_18") Try Initialize() FileOpen(1, filename, OpenMode.Random) FilePutObject(1, Int64.MinValue) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { 20, 0, 0, 0, 0, 0, 0, 0, 0, 128 }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Random_19() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Random_19") Try Initialize() FileOpen(1, filename, OpenMode.Random) FilePutObject(1, Int64.MaxValue) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { 20, 0, 255, 255, 255, 255, 255, 255, 255, 127 }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub #If NET_VER >= 2.0 Then _ Sub FilePutObjectTest_Random_20() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Random_20") Try Initialize() FileOpen(1, filename, OpenMode.Random) FilePutObject(1, UInt64.MinValue) FileClose(1) Assert.Fail ("Expected System.ArgumentException (''FilePutObject' of structure 'ULong' is not valid.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.ArgumentException", ex.GetType.FullName, filename) Assert.AreEqual ("'FilePutObject' of structure 'ULong' is not valid.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub #End If #If NET_VER >= 2.0 Then _ Sub FilePutObjectTest_Random_21() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Random_21") Try Initialize() FileOpen(1, filename, OpenMode.Random) FilePutObject(1, UInt64.MaxValue) FileClose(1) Assert.Fail ("Expected System.ArgumentException (''FilePutObject' of structure 'ULong' is not valid.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.ArgumentException", ex.GetType.FullName, filename) Assert.AreEqual ("'FilePutObject' of structure 'ULong' is not valid.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub #End If _ Sub FilePutObjectTest_Random_22() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Random_22") Try Initialize() FileOpen(1, filename, OpenMode.Random) FilePutObject(1, Single.MinValue) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { 4, 0, 255, 255, 127, 255 }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Random_23() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Random_23") Try Initialize() FileOpen(1, filename, OpenMode.Random) FilePutObject(1, Single.MaxValue) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { 4, 0, 255, 255, 127, 127 }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Random_24() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Random_24") Try Initialize() FileOpen(1, filename, OpenMode.Random) FilePutObject(1, Single.Epsilon) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { 4, 0, 1, 0, 0, 0 }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Random_25() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Random_25") Try Initialize() FileOpen(1, filename, OpenMode.Random) FilePutObject(1, Single.NaN) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { 4, 0, 0, 0, 192, 255 }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Random_26() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Random_26") Try Initialize() FileOpen(1, filename, OpenMode.Random) FilePutObject(1, Single.NegativeInfinity) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { 4, 0, 0, 0, 128, 255 }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Random_27() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Random_27") Try Initialize() FileOpen(1, filename, OpenMode.Random) FilePutObject(1, Single.PositiveInfinity) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { 4, 0, 0, 0, 128, 127 }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Random_28() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Random_28") Try Initialize() FileOpen(1, filename, OpenMode.Random) FilePutObject(1, Double.MinValue) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { 5, 0, 255, 255, 255, 255, 255, 255, 239, 255 }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Random_29() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Random_29") Try Initialize() FileOpen(1, filename, OpenMode.Random) FilePutObject(1, Double.MaxValue) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { 5, 0, 255, 255, 255, 255, 255, 255, 239, 127 }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Random_30() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Random_30") Try Initialize() FileOpen(1, filename, OpenMode.Random) FilePutObject(1, Double.Epsilon) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { 5, 0, 1, 0, 0, 0, 0, 0, 0, 0 }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Random_31() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Random_31") Try Initialize() FileOpen(1, filename, OpenMode.Random) FilePutObject(1, Double.NaN) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { 5, 0, 0, 0, 0, 0, 0, 0, 248, 255 }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Random_32() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Random_32") Try Initialize() FileOpen(1, filename, OpenMode.Random) FilePutObject(1, Double.NegativeInfinity) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { 5, 0, 0, 0, 0, 0, 0, 0, 240, 255 }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Random_33() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Random_33") Try Initialize() FileOpen(1, filename, OpenMode.Random) FilePutObject(1, Double.PositiveInfinity) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { 5, 0, 0, 0, 0, 0, 0, 0, 240, 127 }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Random_34() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Random_34") Try Initialize() FileOpen(1, filename, OpenMode.Random) FilePutObject(1, -79228162514264337593543950335D) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { 14, 0, 14, 0, 0, 128, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255 }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Random_35() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Random_35") Try Initialize() FileOpen(1, filename, OpenMode.Random) FilePutObject(1, 79228162514264337593543950335D) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { 14, 0, 14, 0, 0, 0, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255 }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Random_36() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Random_36") Try Initialize() FileOpen(1, filename, OpenMode.Random) FilePutObject(1, DateTime.MinValue) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { 7, 0, 0, 0, 0, 0, 0, 0, 0, 0 }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Random_37() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Random_37") Try Initialize() FileOpen(1, filename, OpenMode.Random) FilePutObject(1, DateTime.MaxValue) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { 7, 0, 231, 255, 255, 255, 64, 146, 70, 65 }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Random_38() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Random_38") Try Initialize() FileOpen(1, filename, OpenMode.Random) FilePutObject(1, "") FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { 8, 0, 0, 0 }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Random_39() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Random_39") Try Initialize() FileOpen(1, filename, OpenMode.Random) FilePutObject(1, CStr (Nothing)) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { 0, 0 }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Random_40() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Random_40") Try Initialize() FileOpen(1, filename, OpenMode.Random) FilePutObject(CObj(1), CObj (Nothing)) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { 0, 0 }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FilePutObjectTest_Random_41() Dim filename As String = Path.Combine (DATA_DIR, "FilePutObjectTest_Random_41") Try Initialize() FileOpen(1, filename, OpenMode.Random) FilePutObject(1, CType (Nothing, System.ValueType)) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { 0, 0 }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub PrintTest_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "PrintTest_Append_1") Try Initialize() FileOpen(1, filename, OpenMode.Append) Print(1, New Object () {CStr (Nothing)}) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub PrintTest_Append_2() Dim filename As String = Path.Combine (DATA_DIR, "PrintTest_Append_2") Try Initialize() FileOpen(1, filename, OpenMode.Append) Print(1, New Object () {CObj (Nothing)}) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub PrintTest_Append_3() Dim filename As String = Path.Combine (DATA_DIR, "PrintTest_Append_3") Try Initialize() FileOpen(1, filename, OpenMode.Append) Print(1, New Object () {CType (Nothing, System.ValueType)}) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub PrintTest_Binary_1() Dim filename As String = Path.Combine (DATA_DIR, "PrintTest_Binary_1") Try Initialize() FileOpen(1, filename, OpenMode.Binary) Print(1, New Object () {CStr (Nothing)}) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub PrintTest_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "PrintTest_Binary_2") Try Initialize() FileOpen(1, filename, OpenMode.Binary) Print(1, New Object () {CObj (Nothing)}) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub PrintTest_Binary_3() Dim filename As String = Path.Combine (DATA_DIR, "PrintTest_Binary_3") Try Initialize() FileOpen(1, filename, OpenMode.Binary) Print(1, New Object () {CType (Nothing, System.ValueType)}) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub PrintTest_Input_1() Dim filename As String = Path.Combine (DATA_DIR, "PrintTest_Input_1") Try Initialize() FileOpen(1, filename, OpenMode.Input) Print(1, New Object () {CStr (Nothing)}) FileClose(1) Assert.Fail ("Expected System.IO.FileNotFoundException ('Could not find file '\PrintTest_Input_1'.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.FileNotFoundException", ex.GetType.FullName, filename) Assert.IsTrue (ex.Message Like "Could not find file ?*PrintTest_Input_1?.", filename & " - <" & ex.Message & "> didn't match ") Finally CleanUp() End Try End Sub _ Sub PrintTest_Input_2() Dim filename As String = Path.Combine (DATA_DIR, "PrintTest_Input_2") Try Initialize() FileOpen(1, filename, OpenMode.Input) Print(1, New Object () {CObj (Nothing)}) FileClose(1) Assert.Fail ("Expected System.IO.FileNotFoundException ('Could not find file '\PrintTest_Input_2'.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.FileNotFoundException", ex.GetType.FullName, filename) Assert.IsTrue (ex.Message Like "Could not find file ?*PrintTest_Input_2?.", filename & " - <" & ex.Message & "> didn't match ") Finally CleanUp() End Try End Sub _ Sub PrintTest_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "PrintTest_Input_3") Try Initialize() FileOpen(1, filename, OpenMode.Input) Print(1, New Object () {CType (Nothing, System.ValueType)}) FileClose(1) Assert.Fail ("Expected System.IO.FileNotFoundException ('Could not find file '\PrintTest_Input_3'.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.FileNotFoundException", ex.GetType.FullName, filename) Assert.IsTrue (ex.Message Like "Could not find file ?*PrintTest_Input_3?.", filename & " - <" & ex.Message & "> didn't match ") Finally CleanUp() End Try End Sub _ Sub PrintTest_Output_1() Dim filename As String = Path.Combine (DATA_DIR, "PrintTest_Output_1") Try Initialize() FileOpen(1, filename, OpenMode.Output) Print(1, New Object () {CStr (Nothing)}) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub PrintTest_Output_2() Dim filename As String = Path.Combine (DATA_DIR, "PrintTest_Output_2") Try Initialize() FileOpen(1, filename, OpenMode.Output) Print(1, New Object () {CObj (Nothing)}) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub PrintTest_Output_3() Dim filename As String = Path.Combine (DATA_DIR, "PrintTest_Output_3") Try Initialize() FileOpen(1, filename, OpenMode.Output) Print(1, New Object () {CType (Nothing, System.ValueType)}) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub PrintTest_Random_1() Dim filename As String = Path.Combine (DATA_DIR, "PrintTest_Random_1") Try Initialize() FileOpen(1, filename, OpenMode.Random) Print(1, New Object () {CStr (Nothing)}) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub PrintTest_Random_2() Dim filename As String = Path.Combine (DATA_DIR, "PrintTest_Random_2") Try Initialize() FileOpen(1, filename, OpenMode.Random) Print(1, New Object () {CObj (Nothing)}) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub PrintTest_Random_3() Dim filename As String = Path.Combine (DATA_DIR, "PrintTest_Random_3") Try Initialize() FileOpen(1, filename, OpenMode.Random) Print(1, New Object () {CType (Nothing, System.ValueType)}) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub PrintLineTest_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "PrintLineTest_Append_1") Try Initialize() FileOpen(1, filename, OpenMode.Append) PrintLine(1, New Object () {CStr (Nothing)}) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { 13, 10 }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub PrintLineTest_Append_2() Dim filename As String = Path.Combine (DATA_DIR, "PrintLineTest_Append_2") Try Initialize() FileOpen(1, filename, OpenMode.Append) PrintLine(1, New Object () {CObj (Nothing)}) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { 13, 10 }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub PrintLineTest_Append_3() Dim filename As String = Path.Combine (DATA_DIR, "PrintLineTest_Append_3") Try Initialize() FileOpen(1, filename, OpenMode.Append) PrintLine(1, New Object () {CType (Nothing, System.ValueType)}) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { 13, 10 }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub PrintLineTest_Binary_1() Dim filename As String = Path.Combine (DATA_DIR, "PrintLineTest_Binary_1") Try Initialize() FileOpen(1, filename, OpenMode.Binary) PrintLine(1, New Object () {CStr (Nothing)}) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub PrintLineTest_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "PrintLineTest_Binary_2") Try Initialize() FileOpen(1, filename, OpenMode.Binary) PrintLine(1, New Object () {CObj (Nothing)}) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub PrintLineTest_Binary_3() Dim filename As String = Path.Combine (DATA_DIR, "PrintLineTest_Binary_3") Try Initialize() FileOpen(1, filename, OpenMode.Binary) PrintLine(1, New Object () {CType (Nothing, System.ValueType)}) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub PrintLineTest_Input_1() Dim filename As String = Path.Combine (DATA_DIR, "PrintLineTest_Input_1") Try Initialize() FileOpen(1, filename, OpenMode.Input) PrintLine(1, New Object () {CStr (Nothing)}) FileClose(1) Assert.Fail ("Expected System.IO.FileNotFoundException ('Could not find file '\PrintLineTest_Input_1'.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.FileNotFoundException", ex.GetType.FullName, filename) Assert.IsTrue (ex.Message Like "Could not find file ?*PrintLineTest_Input_1?.", filename & " - <" & ex.Message & "> didn't match ") Finally CleanUp() End Try End Sub _ Sub PrintLineTest_Input_2() Dim filename As String = Path.Combine (DATA_DIR, "PrintLineTest_Input_2") Try Initialize() FileOpen(1, filename, OpenMode.Input) PrintLine(1, New Object () {CObj (Nothing)}) FileClose(1) Assert.Fail ("Expected System.IO.FileNotFoundException ('Could not find file '\PrintLineTest_Input_2'.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.FileNotFoundException", ex.GetType.FullName, filename) Assert.IsTrue (ex.Message Like "Could not find file ?*PrintLineTest_Input_2?.", filename & " - <" & ex.Message & "> didn't match ") Finally CleanUp() End Try End Sub _ Sub PrintLineTest_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "PrintLineTest_Input_3") Try Initialize() FileOpen(1, filename, OpenMode.Input) PrintLine(1, New Object () {CType (Nothing, System.ValueType)}) FileClose(1) Assert.Fail ("Expected System.IO.FileNotFoundException ('Could not find file '\PrintLineTest_Input_3'.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.FileNotFoundException", ex.GetType.FullName, filename) Assert.IsTrue (ex.Message Like "Could not find file ?*PrintLineTest_Input_3?.", filename & " - <" & ex.Message & "> didn't match ") Finally CleanUp() End Try End Sub _ Sub PrintLineTest_Output_1() Dim filename As String = Path.Combine (DATA_DIR, "PrintLineTest_Output_1") Try Initialize() FileOpen(1, filename, OpenMode.Output) PrintLine(1, New Object () {CStr (Nothing)}) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { 13, 10 }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub PrintLineTest_Output_2() Dim filename As String = Path.Combine (DATA_DIR, "PrintLineTest_Output_2") Try Initialize() FileOpen(1, filename, OpenMode.Output) PrintLine(1, New Object () {CObj (Nothing)}) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { 13, 10 }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub PrintLineTest_Output_3() Dim filename As String = Path.Combine (DATA_DIR, "PrintLineTest_Output_3") Try Initialize() FileOpen(1, filename, OpenMode.Output) PrintLine(1, New Object () {CType (Nothing, System.ValueType)}) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { 13, 10 }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub PrintLineTest_Random_1() Dim filename As String = Path.Combine (DATA_DIR, "PrintLineTest_Random_1") Try Initialize() FileOpen(1, filename, OpenMode.Random) PrintLine(1, New Object () {CStr (Nothing)}) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub PrintLineTest_Random_2() Dim filename As String = Path.Combine (DATA_DIR, "PrintLineTest_Random_2") Try Initialize() FileOpen(1, filename, OpenMode.Random) PrintLine(1, New Object () {CObj (Nothing)}) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub PrintLineTest_Random_3() Dim filename As String = Path.Combine (DATA_DIR, "PrintLineTest_Random_3") Try Initialize() FileOpen(1, filename, OpenMode.Random) PrintLine(1, New Object () {CType (Nothing, System.ValueType)}) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub WriteTest_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "WriteTest_Append_1") Try Initialize() FileOpen(1, filename, OpenMode.Append) Write(1, New Object () {CStr (Nothing)}) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { 35, 69, 82, 82, 79, 82, 32, 52, 52, 56, 35, 44 }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub WriteTest_Append_2() Dim filename As String = Path.Combine (DATA_DIR, "WriteTest_Append_2") Try Initialize() FileOpen(1, filename, OpenMode.Append) Write(1, New Object () {CObj (Nothing)}) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { 35, 69, 82, 82, 79, 82, 32, 52, 52, 56, 35, 44 }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub WriteTest_Append_3() Dim filename As String = Path.Combine (DATA_DIR, "WriteTest_Append_3") Try Initialize() FileOpen(1, filename, OpenMode.Append) Write(1, New Object () {CType (Nothing, System.ValueType)}) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { 35, 69, 82, 82, 79, 82, 32, 52, 52, 56, 35, 44 }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub WriteTest_Binary_1() Dim filename As String = Path.Combine (DATA_DIR, "WriteTest_Binary_1") Try Initialize() FileOpen(1, filename, OpenMode.Binary) Write(1, New Object () {CStr (Nothing)}) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub WriteTest_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "WriteTest_Binary_2") Try Initialize() FileOpen(1, filename, OpenMode.Binary) Write(1, New Object () {CObj (Nothing)}) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub WriteTest_Binary_3() Dim filename As String = Path.Combine (DATA_DIR, "WriteTest_Binary_3") Try Initialize() FileOpen(1, filename, OpenMode.Binary) Write(1, New Object () {CType (Nothing, System.ValueType)}) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub WriteTest_Input_1() Dim filename As String = Path.Combine (DATA_DIR, "WriteTest_Input_1") Try Initialize() FileOpen(1, filename, OpenMode.Input) Write(1, New Object () {CStr (Nothing)}) FileClose(1) Assert.Fail ("Expected System.IO.FileNotFoundException ('Could not find file '\WriteTest_Input_1'.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.FileNotFoundException", ex.GetType.FullName, filename) Assert.IsTrue (ex.Message Like "Could not find file ?*WriteTest_Input_1?.", filename & " - <" & ex.Message & "> didn't match ") Finally CleanUp() End Try End Sub _ Sub WriteTest_Input_2() Dim filename As String = Path.Combine (DATA_DIR, "WriteTest_Input_2") Try Initialize() FileOpen(1, filename, OpenMode.Input) Write(1, New Object () {CObj (Nothing)}) FileClose(1) Assert.Fail ("Expected System.IO.FileNotFoundException ('Could not find file '\WriteTest_Input_2'.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.FileNotFoundException", ex.GetType.FullName, filename) Assert.IsTrue (ex.Message Like "Could not find file ?*WriteTest_Input_2?.", filename & " - <" & ex.Message & "> didn't match ") Finally CleanUp() End Try End Sub _ Sub WriteTest_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "WriteTest_Input_3") Try Initialize() FileOpen(1, filename, OpenMode.Input) Write(1, New Object () {CType (Nothing, System.ValueType)}) FileClose(1) Assert.Fail ("Expected System.IO.FileNotFoundException ('Could not find file '\WriteTest_Input_3'.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.FileNotFoundException", ex.GetType.FullName, filename) Assert.IsTrue (ex.Message Like "Could not find file ?*WriteTest_Input_3?.", filename & " - <" & ex.Message & "> didn't match ") Finally CleanUp() End Try End Sub _ Sub WriteTest_Output_1() Dim filename As String = Path.Combine (DATA_DIR, "WriteTest_Output_1") Try Initialize() FileOpen(1, filename, OpenMode.Output) Write(1, New Object () {CStr (Nothing)}) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { 35, 69, 82, 82, 79, 82, 32, 52, 52, 56, 35, 44 }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub WriteTest_Output_2() Dim filename As String = Path.Combine (DATA_DIR, "WriteTest_Output_2") Try Initialize() FileOpen(1, filename, OpenMode.Output) Write(1, New Object () {CObj (Nothing)}) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { 35, 69, 82, 82, 79, 82, 32, 52, 52, 56, 35, 44 }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub WriteTest_Output_3() Dim filename As String = Path.Combine (DATA_DIR, "WriteTest_Output_3") Try Initialize() FileOpen(1, filename, OpenMode.Output) Write(1, New Object () {CType (Nothing, System.ValueType)}) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { 35, 69, 82, 82, 79, 82, 32, 52, 52, 56, 35, 44 }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub WriteTest_Random_1() Dim filename As String = Path.Combine (DATA_DIR, "WriteTest_Random_1") Try Initialize() FileOpen(1, filename, OpenMode.Random) Write(1, New Object () {CStr (Nothing)}) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub WriteTest_Random_2() Dim filename As String = Path.Combine (DATA_DIR, "WriteTest_Random_2") Try Initialize() FileOpen(1, filename, OpenMode.Random) Write(1, New Object () {CObj (Nothing)}) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub WriteTest_Random_3() Dim filename As String = Path.Combine (DATA_DIR, "WriteTest_Random_3") Try Initialize() FileOpen(1, filename, OpenMode.Random) Write(1, New Object () {CType (Nothing, System.ValueType)}) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub WriteLineTest_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "WriteLineTest_Append_1") Try Initialize() FileOpen(1, filename, OpenMode.Append) WriteLine(1, New Object () {CStr (Nothing)}) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { 35, 69, 82, 82, 79, 82, 32, 52, 52, 56, 35, 13, 10 }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub WriteLineTest_Append_2() Dim filename As String = Path.Combine (DATA_DIR, "WriteLineTest_Append_2") Try Initialize() FileOpen(1, filename, OpenMode.Append) WriteLine(1, New Object () {CObj (Nothing)}) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { 35, 69, 82, 82, 79, 82, 32, 52, 52, 56, 35, 13, 10 }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub WriteLineTest_Append_3() Dim filename As String = Path.Combine (DATA_DIR, "WriteLineTest_Append_3") Try Initialize() FileOpen(1, filename, OpenMode.Append) WriteLine(1, New Object () {CType (Nothing, System.ValueType)}) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { 35, 69, 82, 82, 79, 82, 32, 52, 52, 56, 35, 13, 10 }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub WriteLineTest_Binary_1() Dim filename As String = Path.Combine (DATA_DIR, "WriteLineTest_Binary_1") Try Initialize() FileOpen(1, filename, OpenMode.Binary) WriteLine(1, New Object () {CStr (Nothing)}) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub WriteLineTest_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "WriteLineTest_Binary_2") Try Initialize() FileOpen(1, filename, OpenMode.Binary) WriteLine(1, New Object () {CObj (Nothing)}) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub WriteLineTest_Binary_3() Dim filename As String = Path.Combine (DATA_DIR, "WriteLineTest_Binary_3") Try Initialize() FileOpen(1, filename, OpenMode.Binary) WriteLine(1, New Object () {CType (Nothing, System.ValueType)}) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub WriteLineTest_Input_1() Dim filename As String = Path.Combine (DATA_DIR, "WriteLineTest_Input_1") Try Initialize() FileOpen(1, filename, OpenMode.Input) WriteLine(1, New Object () {CStr (Nothing)}) FileClose(1) Assert.Fail ("Expected System.IO.FileNotFoundException ('Could not find file '\WriteLineTest_Input_1'.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.FileNotFoundException", ex.GetType.FullName, filename) Assert.IsTrue (ex.Message Like "Could not find file ?*WriteLineTest_Input_1?.", filename & " - <" & ex.Message & "> didn't match ") Finally CleanUp() End Try End Sub _ Sub WriteLineTest_Input_2() Dim filename As String = Path.Combine (DATA_DIR, "WriteLineTest_Input_2") Try Initialize() FileOpen(1, filename, OpenMode.Input) WriteLine(1, New Object () {CObj (Nothing)}) FileClose(1) Assert.Fail ("Expected System.IO.FileNotFoundException ('Could not find file '\WriteLineTest_Input_2'.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.FileNotFoundException", ex.GetType.FullName, filename) Assert.IsTrue (ex.Message Like "Could not find file ?*WriteLineTest_Input_2?.", filename & " - <" & ex.Message & "> didn't match ") Finally CleanUp() End Try End Sub _ Sub WriteLineTest_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "WriteLineTest_Input_3") Try Initialize() FileOpen(1, filename, OpenMode.Input) WriteLine(1, New Object () {CType (Nothing, System.ValueType)}) FileClose(1) Assert.Fail ("Expected System.IO.FileNotFoundException ('Could not find file '\WriteLineTest_Input_3'.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.FileNotFoundException", ex.GetType.FullName, filename) Assert.IsTrue (ex.Message Like "Could not find file ?*WriteLineTest_Input_3?.", filename & " - <" & ex.Message & "> didn't match ") Finally CleanUp() End Try End Sub _ Sub WriteLineTest_Output_1() Dim filename As String = Path.Combine (DATA_DIR, "WriteLineTest_Output_1") Try Initialize() FileOpen(1, filename, OpenMode.Output) WriteLine(1, New Object () {CStr (Nothing)}) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { 35, 69, 82, 82, 79, 82, 32, 52, 52, 56, 35, 13, 10 }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub WriteLineTest_Output_2() Dim filename As String = Path.Combine (DATA_DIR, "WriteLineTest_Output_2") Try Initialize() FileOpen(1, filename, OpenMode.Output) WriteLine(1, New Object () {CObj (Nothing)}) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { 35, 69, 82, 82, 79, 82, 32, 52, 52, 56, 35, 13, 10 }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub WriteLineTest_Output_3() Dim filename As String = Path.Combine (DATA_DIR, "WriteLineTest_Output_3") Try Initialize() FileOpen(1, filename, OpenMode.Output) WriteLine(1, New Object () {CType (Nothing, System.ValueType)}) FileClose(1) Helper.CompareBytes (Helper.ReadAllBytes (filename), new Byte () { 35, 69, 82, 82, 79, 82, 32, 52, 52, 56, 35, 13, 10 }, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub WriteLineTest_Random_1() Dim filename As String = Path.Combine (DATA_DIR, "WriteLineTest_Random_1") Try Initialize() FileOpen(1, filename, OpenMode.Random) WriteLine(1, New Object () {CStr (Nothing)}) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub WriteLineTest_Random_2() Dim filename As String = Path.Combine (DATA_DIR, "WriteLineTest_Random_2") Try Initialize() FileOpen(1, filename, OpenMode.Random) WriteLine(1, New Object () {CObj (Nothing)}) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub WriteLineTest_Random_3() Dim filename As String = Path.Combine (DATA_DIR, "WriteLineTest_Random_3") Try Initialize() FileOpen(1, filename, OpenMode.Random) WriteLine(1, New Object () {CType (Nothing, System.ValueType)}) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub LineInputTest_0_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "LineInputTest_0_Append_1") Try Dim value As String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 255, 255 }) FileOpen(1, filename, OpenMode.Append) value = LineInput(1) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub LineInputTest_0_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "LineInputTest_0_Binary_2") Try Dim value As String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 255, 255 }) FileOpen(1, filename, OpenMode.Binary) value = LineInput(1) FileClose(1) Assert.AreEqual ("ÿÿ", value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub LineInputTest_0_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "LineInputTest_0_Input_3") Try Dim value As String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 255, 255 }) FileOpen(1, filename, OpenMode.Input) value = LineInput(1) FileClose(1) Assert.AreEqual ("ÿÿ", value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub LineInputTest_0_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "LineInputTest_0_Output_4") Try Dim value As String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 255, 255 }) FileOpen(1, filename, OpenMode.Output) value = LineInput(1) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub LineInputTest_0_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "LineInputTest_0_Random_5") Try Dim value As String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 255, 255 }) FileOpen(1, filename, OpenMode.Random) value = LineInput(1) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputStringTest_0_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "InputStringTest_0_Append_1") Try Dim value As String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 255, 255 }) FileOpen(1, filename, OpenMode.Append) value = InputString(1, 2) FileClose(1) Assert.Fail ("Expected System.NullReferenceException ('Object reference not set to an instance of an object.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception #If NET_VER >= 2.0 Then Assert.AreEqual ("System.NullReferenceException", ex.GetType.FullName, filename) #Else Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) #End If #If NET_VER >= 2.0 Then Assert.AreEqual ("Object reference not set to an instance of an object.", ex.Message, filename) #Else Assert.AreEqual ("Bad file mode.", ex.Message, filename) #End If Finally CleanUp() End Try End Sub _ Sub InputStringTest_0_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "InputStringTest_0_Binary_2") Try Dim value As String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 255, 255 }) FileOpen(1, filename, OpenMode.Binary) value = InputString(1, 2) FileClose(1) Assert.AreEqual ("ÿÿ", value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub InputStringTest_0_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "InputStringTest_0_Input_3") Try Dim value As String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 255, 255 }) FileOpen(1, filename, OpenMode.Input) value = InputString(1, 2) FileClose(1) Assert.AreEqual ("ÿÿ", value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub InputStringTest_0_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "InputStringTest_0_Output_4") Try Dim value As String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 255, 255 }) FileOpen(1, filename, OpenMode.Output) value = InputString(1, 2) FileClose(1) Assert.Fail ("Expected System.NullReferenceException ('Object reference not set to an instance of an object.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception #If NET_VER >= 2.0 Then Assert.AreEqual ("System.NullReferenceException", ex.GetType.FullName, filename) #Else Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) #End If #If NET_VER >= 2.0 Then Assert.AreEqual ("Object reference not set to an instance of an object.", ex.Message, filename) #Else Assert.AreEqual ("Bad file mode.", ex.Message, filename) #End If Finally CleanUp() End Try End Sub _ Sub InputStringTest_0_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "InputStringTest_0_Random_5") Try Dim value As String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 255, 255 }) FileOpen(1, filename, OpenMode.Random) value = InputString(1, 2) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_0_ValueType_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_0_ValueType_Append_1") Try Dim value As System.ValueType = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 255, 255 }) FileOpen(1, filename, OpenMode.Append) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_0_ValueType_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_0_ValueType_Binary_2") Try Dim value As System.ValueType = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 255, 255 }) FileOpen(1, filename, OpenMode.Binary) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.NullReferenceException ('Object reference not set to an instance of an object.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.NullReferenceException", ex.GetType.FullName, filename) Assert.AreEqual ("Object reference not set to an instance of an object.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_0_ValueType_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_0_ValueType_Input_3") Try Dim value As System.ValueType = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 255, 255 }) FileOpen(1, filename, OpenMode.Input) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_0_ValueType_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_0_ValueType_Output_4") Try Dim value As System.ValueType = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 255, 255 }) FileOpen(1, filename, OpenMode.Output) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_0_ValueType_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_0_ValueType_Random_5") Try Dim value As System.ValueType = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 255, 255 }) FileOpen(1, filename, OpenMode.Random) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.NullReferenceException ('Object reference not set to an instance of an object.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.NullReferenceException", ex.GetType.FullName, filename) Assert.AreEqual ("Object reference not set to an instance of an object.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_0_Array_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_0_Array_Append_1") Try Dim value As System.Array = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 255, 255 }) FileOpen(1, filename, OpenMode.Append) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_0_Array_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_0_Array_Binary_2") Try Dim value As System.Array = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 255, 255 }) FileOpen(1, filename, OpenMode.Binary) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.ArgumentException ('Cannot determine array type because it is Nothing.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.ArgumentException", ex.GetType.FullName, filename) Assert.AreEqual ("Cannot determine array type because it is Nothing.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_0_Array_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_0_Array_Input_3") Try Dim value As System.Array = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 255, 255 }) FileOpen(1, filename, OpenMode.Input) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_0_Array_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_0_Array_Output_4") Try Dim value As System.Array = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 255, 255 }) FileOpen(1, filename, OpenMode.Output) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_0_Array_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_0_Array_Random_5") Try Dim value As System.Array = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 255, 255 }) FileOpen(1, filename, OpenMode.Random) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.ArgumentException ('Cannot determine array type because it is Nothing.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.ArgumentException", ex.GetType.FullName, filename) Assert.AreEqual ("Cannot determine array type because it is Nothing.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_0_Boolean_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_0_Boolean_Append_1") Try Dim value As System.Boolean = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 255, 255 }) FileOpen(1, filename, OpenMode.Append) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_0_Boolean_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_0_Boolean_Binary_2") Try Dim value As System.Boolean = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 255, 255 }) FileOpen(1, filename, OpenMode.Binary) FileGet(1, value) FileClose(1) Assert.AreEqual (True, value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_0_Boolean_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_0_Boolean_Input_3") Try Dim value As System.Boolean = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 255, 255 }) FileOpen(1, filename, OpenMode.Input) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_0_Boolean_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_0_Boolean_Output_4") Try Dim value As System.Boolean = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 255, 255 }) FileOpen(1, filename, OpenMode.Output) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_0_Boolean_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_0_Boolean_Random_5") Try Dim value As System.Boolean = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 255, 255 }) FileOpen(1, filename, OpenMode.Random) FileGet(1, value) FileClose(1) Assert.AreEqual (True, value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_0_Byte_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_0_Byte_Append_1") Try Dim value As System.Byte = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 255, 255 }) FileOpen(1, filename, OpenMode.Append) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_0_Byte_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_0_Byte_Binary_2") Try Dim value As System.Byte = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 255, 255 }) FileOpen(1, filename, OpenMode.Binary) FileGet(1, value) FileClose(1) Assert.AreEqual (CByte(255), value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_0_Byte_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_0_Byte_Input_3") Try Dim value As System.Byte = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 255, 255 }) FileOpen(1, filename, OpenMode.Input) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_0_Byte_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_0_Byte_Output_4") Try Dim value As System.Byte = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 255, 255 }) FileOpen(1, filename, OpenMode.Output) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_0_Byte_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_0_Byte_Random_5") Try Dim value As System.Byte = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 255, 255 }) FileOpen(1, filename, OpenMode.Random) FileGet(1, value) FileClose(1) Assert.AreEqual (CByte(255), value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_0_Int16_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_0_Int16_Append_1") Try Dim value As System.Int16 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 255, 255 }) FileOpen(1, filename, OpenMode.Append) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_0_Int16_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_0_Int16_Binary_2") Try Dim value As System.Int16 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 255, 255 }) FileOpen(1, filename, OpenMode.Binary) FileGet(1, value) FileClose(1) Assert.AreEqual (CShort(-1), value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_0_Int16_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_0_Int16_Input_3") Try Dim value As System.Int16 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 255, 255 }) FileOpen(1, filename, OpenMode.Input) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_0_Int16_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_0_Int16_Output_4") Try Dim value As System.Int16 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 255, 255 }) FileOpen(1, filename, OpenMode.Output) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_0_Int16_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_0_Int16_Random_5") Try Dim value As System.Int16 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 255, 255 }) FileOpen(1, filename, OpenMode.Random) FileGet(1, value) FileClose(1) Assert.AreEqual (CShort(-1), value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_0_Int32_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_0_Int32_Append_1") Try Dim value As System.Int32 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 255, 255 }) FileOpen(1, filename, OpenMode.Append) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_0_Int32_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_0_Int32_Binary_2") Try Dim value As System.Int32 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 255, 255 }) FileOpen(1, filename, OpenMode.Binary) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.EndOfStreamException ('Unable to read beyond the end of the stream.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.EndOfStreamException", ex.GetType.FullName, filename) Assert.AreEqual ("Unable to read beyond the end of the stream.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_0_Int32_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_0_Int32_Input_3") Try Dim value As System.Int32 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 255, 255 }) FileOpen(1, filename, OpenMode.Input) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_0_Int32_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_0_Int32_Output_4") Try Dim value As System.Int32 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 255, 255 }) FileOpen(1, filename, OpenMode.Output) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_0_Int32_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_0_Int32_Random_5") Try Dim value As System.Int32 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 255, 255 }) FileOpen(1, filename, OpenMode.Random) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.EndOfStreamException ('Unable to read beyond the end of the stream.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.EndOfStreamException", ex.GetType.FullName, filename) Assert.AreEqual ("Unable to read beyond the end of the stream.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_0_Int64_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_0_Int64_Append_1") Try Dim value As System.Int64 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 255, 255 }) FileOpen(1, filename, OpenMode.Append) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_0_Int64_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_0_Int64_Binary_2") Try Dim value As System.Int64 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 255, 255 }) FileOpen(1, filename, OpenMode.Binary) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.EndOfStreamException ('Unable to read beyond the end of the stream.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.EndOfStreamException", ex.GetType.FullName, filename) Assert.AreEqual ("Unable to read beyond the end of the stream.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_0_Int64_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_0_Int64_Input_3") Try Dim value As System.Int64 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 255, 255 }) FileOpen(1, filename, OpenMode.Input) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_0_Int64_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_0_Int64_Output_4") Try Dim value As System.Int64 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 255, 255 }) FileOpen(1, filename, OpenMode.Output) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_0_Int64_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_0_Int64_Random_5") Try Dim value As System.Int64 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 255, 255 }) FileOpen(1, filename, OpenMode.Random) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.EndOfStreamException ('Unable to read beyond the end of the stream.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.EndOfStreamException", ex.GetType.FullName, filename) Assert.AreEqual ("Unable to read beyond the end of the stream.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_0_Char_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_0_Char_Append_1") Try Dim value As System.Char = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 255, 255 }) FileOpen(1, filename, OpenMode.Append) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_0_Char_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_0_Char_Binary_2") Try Dim value As System.Char = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 255, 255 }) FileOpen(1, filename, OpenMode.Binary) FileGet(1, value) FileClose(1) Assert.AreEqual ("ÿ"c, value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_0_Char_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_0_Char_Input_3") Try Dim value As System.Char = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 255, 255 }) FileOpen(1, filename, OpenMode.Input) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_0_Char_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_0_Char_Output_4") Try Dim value As System.Char = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 255, 255 }) FileOpen(1, filename, OpenMode.Output) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_0_Char_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_0_Char_Random_5") Try Dim value As System.Char = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 255, 255 }) FileOpen(1, filename, OpenMode.Random) FileGet(1, value) FileClose(1) Assert.AreEqual ("ÿ"c, value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_0_Single_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_0_Single_Append_1") Try Dim value As System.Single = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 255, 255 }) FileOpen(1, filename, OpenMode.Append) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_0_Single_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_0_Single_Binary_2") Try Dim value As System.Single = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 255, 255 }) FileOpen(1, filename, OpenMode.Binary) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.EndOfStreamException ('Unable to read beyond the end of the stream.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.EndOfStreamException", ex.GetType.FullName, filename) Assert.AreEqual ("Unable to read beyond the end of the stream.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_0_Single_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_0_Single_Input_3") Try Dim value As System.Single = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 255, 255 }) FileOpen(1, filename, OpenMode.Input) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_0_Single_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_0_Single_Output_4") Try Dim value As System.Single = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 255, 255 }) FileOpen(1, filename, OpenMode.Output) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_0_Single_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_0_Single_Random_5") Try Dim value As System.Single = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 255, 255 }) FileOpen(1, filename, OpenMode.Random) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.EndOfStreamException ('Unable to read beyond the end of the stream.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.EndOfStreamException", ex.GetType.FullName, filename) Assert.AreEqual ("Unable to read beyond the end of the stream.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_0_Double_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_0_Double_Append_1") Try Dim value As System.Double = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 255, 255 }) FileOpen(1, filename, OpenMode.Append) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_0_Double_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_0_Double_Binary_2") Try Dim value As System.Double = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 255, 255 }) FileOpen(1, filename, OpenMode.Binary) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.EndOfStreamException ('Unable to read beyond the end of the stream.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.EndOfStreamException", ex.GetType.FullName, filename) Assert.AreEqual ("Unable to read beyond the end of the stream.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_0_Double_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_0_Double_Input_3") Try Dim value As System.Double = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 255, 255 }) FileOpen(1, filename, OpenMode.Input) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_0_Double_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_0_Double_Output_4") Try Dim value As System.Double = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 255, 255 }) FileOpen(1, filename, OpenMode.Output) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_0_Double_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_0_Double_Random_5") Try Dim value As System.Double = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 255, 255 }) FileOpen(1, filename, OpenMode.Random) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.EndOfStreamException ('Unable to read beyond the end of the stream.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.EndOfStreamException", ex.GetType.FullName, filename) Assert.AreEqual ("Unable to read beyond the end of the stream.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_0_Decimal_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_0_Decimal_Append_1") Try Dim value As System.Decimal = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 255, 255 }) FileOpen(1, filename, OpenMode.Append) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_0_Decimal_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_0_Decimal_Binary_2") Try Dim value As System.Decimal = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 255, 255 }) FileOpen(1, filename, OpenMode.Binary) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.EndOfStreamException ('Unable to read beyond the end of the stream.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.EndOfStreamException", ex.GetType.FullName, filename) Assert.AreEqual ("Unable to read beyond the end of the stream.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_0_Decimal_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_0_Decimal_Input_3") Try Dim value As System.Decimal = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 255, 255 }) FileOpen(1, filename, OpenMode.Input) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_0_Decimal_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_0_Decimal_Output_4") Try Dim value As System.Decimal = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 255, 255 }) FileOpen(1, filename, OpenMode.Output) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_0_Decimal_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_0_Decimal_Random_5") Try Dim value As System.Decimal = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 255, 255 }) FileOpen(1, filename, OpenMode.Random) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.EndOfStreamException ('Unable to read beyond the end of the stream.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.EndOfStreamException", ex.GetType.FullName, filename) Assert.AreEqual ("Unable to read beyond the end of the stream.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_0_String_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_0_String_Append_1") Try Dim value As System.String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 255, 255 }) FileOpen(1, filename, OpenMode.Append) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_0_String_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_0_String_Binary_2") Try Dim value As System.String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 255, 255 }) FileOpen(1, filename, OpenMode.Binary) FileGet(1, value) FileClose(1) Assert.AreEqual (Nothing, value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_0_String_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_0_String_Input_3") Try Dim value As System.String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 255, 255 }) FileOpen(1, filename, OpenMode.Input) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_0_String_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_0_String_Output_4") Try Dim value As System.String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 255, 255 }) FileOpen(1, filename, OpenMode.Output) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_0_String_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_0_String_Random_5") Try Dim value As System.String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 255, 255 }) FileOpen(1, filename, OpenMode.Random) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.ArgumentOutOfRangeException ('Non-negative number required." & vbNewLine & "Parameter name: count')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.ArgumentOutOfRangeException", ex.GetType.FullName, filename) Assert.AreEqual ("Non-negative number required." & vbNewLine & "Parameter name: count", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_0_DateTime_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_0_DateTime_Append_1") Try Dim value As System.DateTime = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 255, 255 }) FileOpen(1, filename, OpenMode.Append) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_0_DateTime_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_0_DateTime_Binary_2") Try Dim value As System.DateTime = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 255, 255 }) FileOpen(1, filename, OpenMode.Binary) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.EndOfStreamException ('Unable to read beyond the end of the stream.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.EndOfStreamException", ex.GetType.FullName, filename) Assert.AreEqual ("Unable to read beyond the end of the stream.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_0_DateTime_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_0_DateTime_Input_3") Try Dim value As System.DateTime = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 255, 255 }) FileOpen(1, filename, OpenMode.Input) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_0_DateTime_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_0_DateTime_Output_4") Try Dim value As System.DateTime = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 255, 255 }) FileOpen(1, filename, OpenMode.Output) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_0_DateTime_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_0_DateTime_Random_5") Try Dim value As System.DateTime = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 255, 255 }) FileOpen(1, filename, OpenMode.Random) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.EndOfStreamException ('Unable to read beyond the end of the stream.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.EndOfStreamException", ex.GetType.FullName, filename) Assert.AreEqual ("Unable to read beyond the end of the stream.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetObjectTest_0_Object_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "FileGetObjectTest_0_Object_Append_1") Try Dim value As System.Object = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 255, 255 }) FileOpen(1, filename, OpenMode.Append) FileGetObject(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetObjectTest_0_Object_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "FileGetObjectTest_0_Object_Binary_2") Try Dim value As System.Object = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 255, 255 }) FileOpen(1, filename, OpenMode.Binary) FileGetObject(1, value) FileClose(1) Assert.Fail ("Expected System.Exception ('Variable uses an Automation type not supported in Visual Basic.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.Exception", ex.GetType.FullName, filename) Assert.AreEqual ("Variable uses an Automation type not supported in Visual Basic.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetObjectTest_0_Object_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "FileGetObjectTest_0_Object_Input_3") Try Dim value As System.Object = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 255, 255 }) FileOpen(1, filename, OpenMode.Input) FileGetObject(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetObjectTest_0_Object_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "FileGetObjectTest_0_Object_Output_4") Try Dim value As System.Object = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 255, 255 }) FileOpen(1, filename, OpenMode.Output) FileGetObject(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetObjectTest_0_Object_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "FileGetObjectTest_0_Object_Random_5") Try Dim value As System.Object = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 255, 255 }) FileOpen(1, filename, OpenMode.Random) FileGetObject(1, value) FileClose(1) Assert.Fail ("Expected System.Exception ('Variable uses an Automation type not supported in Visual Basic.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.Exception", ex.GetType.FullName, filename) Assert.AreEqual ("Variable uses an Automation type not supported in Visual Basic.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_0_Object_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_0_Object_Append_1") Try Dim value As System.Object = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 255, 255 }) FileOpen(1, filename, OpenMode.Append) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_0_Object_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_0_Object_Binary_2") Try Dim value As System.Object = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 255, 255 }) FileOpen(1, filename, OpenMode.Binary) Input(1, value) FileClose(1) Assert.AreEqual ("ÿÿ", value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub InputTest_0_Object_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_0_Object_Input_3") Try Dim value As System.Object = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 255, 255 }) FileOpen(1, filename, OpenMode.Input) Input(1, value) FileClose(1) Assert.AreEqual ("ÿÿ", value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub InputTest_0_Object_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_0_Object_Output_4") Try Dim value As System.Object = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 255, 255 }) FileOpen(1, filename, OpenMode.Output) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_0_Object_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_0_Object_Random_5") Try Dim value As System.Object = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 255, 255 }) FileOpen(1, filename, OpenMode.Random) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_0_Boolean_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_0_Boolean_Append_1") Try Dim value As System.Boolean = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 255, 255 }) FileOpen(1, filename, OpenMode.Append) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_0_Boolean_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_0_Boolean_Binary_2") Try Dim value As System.Boolean = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 255, 255 }) FileOpen(1, filename, OpenMode.Binary) Input(1, value) FileClose(1) Assert.Fail ("Expected System.InvalidCastException ('Conversion from string ""ÿÿ"" to type 'Boolean' is not valid.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.InvalidCastException", ex.GetType.FullName, filename) #If NET_VER >= 2.0 Then Assert.AreEqual ("Conversion from string ""ÿÿ"" to type 'Boolean' is not valid.", ex.Message, filename) #Else Assert.AreEqual ("Cast from string ""ÿÿ"" to type 'Boolean' is not valid.", ex.Message, filename) #End If Finally CleanUp() End Try End Sub _ Sub InputTest_0_Boolean_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_0_Boolean_Input_3") Try Dim value As System.Boolean = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 255, 255 }) FileOpen(1, filename, OpenMode.Input) Input(1, value) FileClose(1) Assert.Fail ("Expected System.InvalidCastException ('Conversion from string ""ÿÿ"" to type 'Boolean' is not valid.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.InvalidCastException", ex.GetType.FullName, filename) #If NET_VER >= 2.0 Then Assert.AreEqual ("Conversion from string ""ÿÿ"" to type 'Boolean' is not valid.", ex.Message, filename) #Else Assert.AreEqual ("Cast from string ""ÿÿ"" to type 'Boolean' is not valid.", ex.Message, filename) #End If Finally CleanUp() End Try End Sub _ Sub InputTest_0_Boolean_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_0_Boolean_Output_4") Try Dim value As System.Boolean = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 255, 255 }) FileOpen(1, filename, OpenMode.Output) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_0_Boolean_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_0_Boolean_Random_5") Try Dim value As System.Boolean = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 255, 255 }) FileOpen(1, filename, OpenMode.Random) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_0_Byte_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_0_Byte_Append_1") Try Dim value As System.Byte = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 255, 255 }) FileOpen(1, filename, OpenMode.Append) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_0_Byte_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_0_Byte_Binary_2") Try Dim value As System.Byte = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 255, 255 }) FileOpen(1, filename, OpenMode.Binary) Input(1, value) FileClose(1) Assert.Fail ("Expected System.InvalidCastException ('Conversion from string ""ÿÿ"" to type 'Byte' is not valid.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.InvalidCastException", ex.GetType.FullName, filename) #If NET_VER >= 2.0 Then Assert.AreEqual ("Conversion from string ""ÿÿ"" to type 'Byte' is not valid.", ex.Message, filename) #Else Assert.AreEqual ("Cast from string ""ÿÿ"" to type 'Byte' is not valid.", ex.Message, filename) #End If Finally CleanUp() End Try End Sub _ Sub InputTest_0_Byte_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_0_Byte_Input_3") Try Dim value As System.Byte = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 255, 255 }) FileOpen(1, filename, OpenMode.Input) Input(1, value) FileClose(1) Assert.Fail ("Expected System.InvalidCastException ('Conversion from string ""ÿÿ"" to type 'Byte' is not valid.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.InvalidCastException", ex.GetType.FullName, filename) #If NET_VER >= 2.0 Then Assert.AreEqual ("Conversion from string ""ÿÿ"" to type 'Byte' is not valid.", ex.Message, filename) #Else Assert.AreEqual ("Cast from string ""ÿÿ"" to type 'Byte' is not valid.", ex.Message, filename) #End If Finally CleanUp() End Try End Sub _ Sub InputTest_0_Byte_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_0_Byte_Output_4") Try Dim value As System.Byte = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 255, 255 }) FileOpen(1, filename, OpenMode.Output) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_0_Byte_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_0_Byte_Random_5") Try Dim value As System.Byte = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 255, 255 }) FileOpen(1, filename, OpenMode.Random) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_0_Int16_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_0_Int16_Append_1") Try Dim value As System.Int16 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 255, 255 }) FileOpen(1, filename, OpenMode.Append) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_0_Int16_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_0_Int16_Binary_2") Try Dim value As System.Int16 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 255, 255 }) FileOpen(1, filename, OpenMode.Binary) Input(1, value) FileClose(1) Assert.Fail ("Expected System.InvalidCastException ('Conversion from string ""ÿÿ"" to type 'Short' is not valid.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.InvalidCastException", ex.GetType.FullName, filename) #If NET_VER >= 2.0 Then Assert.AreEqual ("Conversion from string ""ÿÿ"" to type 'Short' is not valid.", ex.Message, filename) #Else Assert.AreEqual ("Cast from string ""ÿÿ"" to type 'Short' is not valid.", ex.Message, filename) #End If Finally CleanUp() End Try End Sub _ Sub InputTest_0_Int16_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_0_Int16_Input_3") Try Dim value As System.Int16 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 255, 255 }) FileOpen(1, filename, OpenMode.Input) Input(1, value) FileClose(1) Assert.Fail ("Expected System.InvalidCastException ('Conversion from string ""ÿÿ"" to type 'Short' is not valid.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.InvalidCastException", ex.GetType.FullName, filename) #If NET_VER >= 2.0 Then Assert.AreEqual ("Conversion from string ""ÿÿ"" to type 'Short' is not valid.", ex.Message, filename) #Else Assert.AreEqual ("Cast from string ""ÿÿ"" to type 'Short' is not valid.", ex.Message, filename) #End If Finally CleanUp() End Try End Sub _ Sub InputTest_0_Int16_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_0_Int16_Output_4") Try Dim value As System.Int16 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 255, 255 }) FileOpen(1, filename, OpenMode.Output) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_0_Int16_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_0_Int16_Random_5") Try Dim value As System.Int16 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 255, 255 }) FileOpen(1, filename, OpenMode.Random) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_0_Int32_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_0_Int32_Append_1") Try Dim value As System.Int32 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 255, 255 }) FileOpen(1, filename, OpenMode.Append) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_0_Int32_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_0_Int32_Binary_2") Try Dim value As System.Int32 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 255, 255 }) FileOpen(1, filename, OpenMode.Binary) Input(1, value) FileClose(1) Assert.Fail ("Expected System.InvalidCastException ('Conversion from string ""ÿÿ"" to type 'Integer' is not valid.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.InvalidCastException", ex.GetType.FullName, filename) #If NET_VER >= 2.0 Then Assert.AreEqual ("Conversion from string ""ÿÿ"" to type 'Integer' is not valid.", ex.Message, filename) #Else Assert.AreEqual ("Cast from string ""ÿÿ"" to type 'Integer' is not valid.", ex.Message, filename) #End If Finally CleanUp() End Try End Sub _ Sub InputTest_0_Int32_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_0_Int32_Input_3") Try Dim value As System.Int32 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 255, 255 }) FileOpen(1, filename, OpenMode.Input) Input(1, value) FileClose(1) Assert.Fail ("Expected System.InvalidCastException ('Conversion from string ""ÿÿ"" to type 'Integer' is not valid.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.InvalidCastException", ex.GetType.FullName, filename) #If NET_VER >= 2.0 Then Assert.AreEqual ("Conversion from string ""ÿÿ"" to type 'Integer' is not valid.", ex.Message, filename) #Else Assert.AreEqual ("Cast from string ""ÿÿ"" to type 'Integer' is not valid.", ex.Message, filename) #End If Finally CleanUp() End Try End Sub _ Sub InputTest_0_Int32_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_0_Int32_Output_4") Try Dim value As System.Int32 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 255, 255 }) FileOpen(1, filename, OpenMode.Output) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_0_Int32_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_0_Int32_Random_5") Try Dim value As System.Int32 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 255, 255 }) FileOpen(1, filename, OpenMode.Random) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_0_Int64_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_0_Int64_Append_1") Try Dim value As System.Int64 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 255, 255 }) FileOpen(1, filename, OpenMode.Append) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_0_Int64_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_0_Int64_Binary_2") Try Dim value As System.Int64 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 255, 255 }) FileOpen(1, filename, OpenMode.Binary) Input(1, value) FileClose(1) Assert.Fail ("Expected System.InvalidCastException ('Conversion from string ""ÿÿ"" to type 'Long' is not valid.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.InvalidCastException", ex.GetType.FullName, filename) #If NET_VER >= 2.0 Then Assert.AreEqual ("Conversion from string ""ÿÿ"" to type 'Long' is not valid.", ex.Message, filename) #Else Assert.AreEqual ("Cast from string ""ÿÿ"" to type 'Long' is not valid.", ex.Message, filename) #End If Finally CleanUp() End Try End Sub _ Sub InputTest_0_Int64_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_0_Int64_Input_3") Try Dim value As System.Int64 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 255, 255 }) FileOpen(1, filename, OpenMode.Input) Input(1, value) FileClose(1) Assert.Fail ("Expected System.InvalidCastException ('Conversion from string ""ÿÿ"" to type 'Long' is not valid.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.InvalidCastException", ex.GetType.FullName, filename) #If NET_VER >= 2.0 Then Assert.AreEqual ("Conversion from string ""ÿÿ"" to type 'Long' is not valid.", ex.Message, filename) #Else Assert.AreEqual ("Cast from string ""ÿÿ"" to type 'Long' is not valid.", ex.Message, filename) #End If Finally CleanUp() End Try End Sub _ Sub InputTest_0_Int64_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_0_Int64_Output_4") Try Dim value As System.Int64 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 255, 255 }) FileOpen(1, filename, OpenMode.Output) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_0_Int64_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_0_Int64_Random_5") Try Dim value As System.Int64 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 255, 255 }) FileOpen(1, filename, OpenMode.Random) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_0_Char_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_0_Char_Append_1") Try Dim value As System.Char = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 255, 255 }) FileOpen(1, filename, OpenMode.Append) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_0_Char_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_0_Char_Binary_2") Try Dim value As System.Char = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 255, 255 }) FileOpen(1, filename, OpenMode.Binary) Input(1, value) FileClose(1) Assert.AreEqual ("ÿ"c, value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub InputTest_0_Char_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_0_Char_Input_3") Try Dim value As System.Char = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 255, 255 }) FileOpen(1, filename, OpenMode.Input) Input(1, value) FileClose(1) Assert.AreEqual ("ÿ"c, value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub InputTest_0_Char_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_0_Char_Output_4") Try Dim value As System.Char = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 255, 255 }) FileOpen(1, filename, OpenMode.Output) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_0_Char_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_0_Char_Random_5") Try Dim value As System.Char = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 255, 255 }) FileOpen(1, filename, OpenMode.Random) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_0_Single_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_0_Single_Append_1") Try Dim value As System.Single = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 255, 255 }) FileOpen(1, filename, OpenMode.Append) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_0_Single_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_0_Single_Binary_2") Try Dim value As System.Single = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 255, 255 }) FileOpen(1, filename, OpenMode.Binary) Input(1, value) FileClose(1) Assert.Fail ("Expected System.InvalidCastException ('Conversion from string ""ÿÿ"" to type 'Single' is not valid.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.InvalidCastException", ex.GetType.FullName, filename) #If NET_VER >= 2.0 Then Assert.AreEqual ("Conversion from string ""ÿÿ"" to type 'Single' is not valid.", ex.Message, filename) #Else Assert.AreEqual ("Cast from string ""ÿÿ"" to type 'Single' is not valid.", ex.Message, filename) #End If Finally CleanUp() End Try End Sub _ Sub InputTest_0_Single_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_0_Single_Input_3") Try Dim value As System.Single = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 255, 255 }) FileOpen(1, filename, OpenMode.Input) Input(1, value) FileClose(1) Assert.Fail ("Expected System.InvalidCastException ('Conversion from string ""ÿÿ"" to type 'Single' is not valid.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.InvalidCastException", ex.GetType.FullName, filename) #If NET_VER >= 2.0 Then Assert.AreEqual ("Conversion from string ""ÿÿ"" to type 'Single' is not valid.", ex.Message, filename) #Else Assert.AreEqual ("Cast from string ""ÿÿ"" to type 'Single' is not valid.", ex.Message, filename) #End If Finally CleanUp() End Try End Sub _ Sub InputTest_0_Single_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_0_Single_Output_4") Try Dim value As System.Single = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 255, 255 }) FileOpen(1, filename, OpenMode.Output) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_0_Single_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_0_Single_Random_5") Try Dim value As System.Single = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 255, 255 }) FileOpen(1, filename, OpenMode.Random) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_0_Double_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_0_Double_Append_1") Try Dim value As System.Double = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 255, 255 }) FileOpen(1, filename, OpenMode.Append) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_0_Double_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_0_Double_Binary_2") Try Dim value As System.Double = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 255, 255 }) FileOpen(1, filename, OpenMode.Binary) Input(1, value) FileClose(1) Assert.Fail ("Expected System.InvalidCastException ('Conversion from string ""ÿÿ"" to type 'Double' is not valid.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.InvalidCastException", ex.GetType.FullName, filename) #If NET_VER >= 2.0 Then Assert.AreEqual ("Conversion from string ""ÿÿ"" to type 'Double' is not valid.", ex.Message, filename) #Else Assert.AreEqual ("Cast from string ""ÿÿ"" to type 'Double' is not valid.", ex.Message, filename) #End If Finally CleanUp() End Try End Sub _ Sub InputTest_0_Double_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_0_Double_Input_3") Try Dim value As System.Double = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 255, 255 }) FileOpen(1, filename, OpenMode.Input) Input(1, value) FileClose(1) Assert.Fail ("Expected System.InvalidCastException ('Conversion from string ""ÿÿ"" to type 'Double' is not valid.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.InvalidCastException", ex.GetType.FullName, filename) #If NET_VER >= 2.0 Then Assert.AreEqual ("Conversion from string ""ÿÿ"" to type 'Double' is not valid.", ex.Message, filename) #Else Assert.AreEqual ("Cast from string ""ÿÿ"" to type 'Double' is not valid.", ex.Message, filename) #End If Finally CleanUp() End Try End Sub _ Sub InputTest_0_Double_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_0_Double_Output_4") Try Dim value As System.Double = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 255, 255 }) FileOpen(1, filename, OpenMode.Output) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_0_Double_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_0_Double_Random_5") Try Dim value As System.Double = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 255, 255 }) FileOpen(1, filename, OpenMode.Random) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_0_Decimal_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_0_Decimal_Append_1") Try Dim value As System.Decimal = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 255, 255 }) FileOpen(1, filename, OpenMode.Append) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_0_Decimal_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_0_Decimal_Binary_2") Try Dim value As System.Decimal = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 255, 255 }) FileOpen(1, filename, OpenMode.Binary) Input(1, value) FileClose(1) Assert.Fail ("Expected System.InvalidCastException ('Conversion from string ""ÿÿ"" to type 'Decimal' is not valid.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.InvalidCastException", ex.GetType.FullName, filename) #If NET_VER >= 2.0 Then Assert.AreEqual ("Conversion from string ""ÿÿ"" to type 'Decimal' is not valid.", ex.Message, filename) #Else Assert.AreEqual ("Cast from string ""ÿÿ"" to type 'Decimal' is not valid.", ex.Message, filename) #End If Finally CleanUp() End Try End Sub _ Sub InputTest_0_Decimal_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_0_Decimal_Input_3") Try Dim value As System.Decimal = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 255, 255 }) FileOpen(1, filename, OpenMode.Input) Input(1, value) FileClose(1) Assert.Fail ("Expected System.InvalidCastException ('Conversion from string ""ÿÿ"" to type 'Decimal' is not valid.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.InvalidCastException", ex.GetType.FullName, filename) #If NET_VER >= 2.0 Then Assert.AreEqual ("Conversion from string ""ÿÿ"" to type 'Decimal' is not valid.", ex.Message, filename) #Else Assert.AreEqual ("Cast from string ""ÿÿ"" to type 'Decimal' is not valid.", ex.Message, filename) #End If Finally CleanUp() End Try End Sub _ Sub InputTest_0_Decimal_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_0_Decimal_Output_4") Try Dim value As System.Decimal = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 255, 255 }) FileOpen(1, filename, OpenMode.Output) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_0_Decimal_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_0_Decimal_Random_5") Try Dim value As System.Decimal = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 255, 255 }) FileOpen(1, filename, OpenMode.Random) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_0_String_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_0_String_Append_1") Try Dim value As System.String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 255, 255 }) FileOpen(1, filename, OpenMode.Append) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_0_String_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_0_String_Binary_2") Try Dim value As System.String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 255, 255 }) FileOpen(1, filename, OpenMode.Binary) Input(1, value) FileClose(1) Assert.AreEqual ("ÿÿ", value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub InputTest_0_String_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_0_String_Input_3") Try Dim value As System.String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 255, 255 }) FileOpen(1, filename, OpenMode.Input) Input(1, value) FileClose(1) Assert.AreEqual ("ÿÿ", value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub InputTest_0_String_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_0_String_Output_4") Try Dim value As System.String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 255, 255 }) FileOpen(1, filename, OpenMode.Output) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_0_String_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_0_String_Random_5") Try Dim value As System.String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 255, 255 }) FileOpen(1, filename, OpenMode.Random) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_0_DateTime_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_0_DateTime_Append_1") Try Dim value As System.DateTime = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 255, 255 }) FileOpen(1, filename, OpenMode.Append) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_0_DateTime_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_0_DateTime_Binary_2") Try Dim value As System.DateTime = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 255, 255 }) FileOpen(1, filename, OpenMode.Binary) Input(1, value) FileClose(1) Assert.Fail ("Expected System.InvalidCastException ('Conversion from string ""ÿÿ"" to type 'Date' is not valid.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.InvalidCastException", ex.GetType.FullName, filename) #If NET_VER >= 2.0 Then Assert.AreEqual ("Conversion from string ""ÿÿ"" to type 'Date' is not valid.", ex.Message, filename) #Else Assert.AreEqual ("Cast from string ""ÿÿ"" to type 'Date' is not valid.", ex.Message, filename) #End If Finally CleanUp() End Try End Sub _ Sub InputTest_0_DateTime_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_0_DateTime_Input_3") Try Dim value As System.DateTime = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 255, 255 }) FileOpen(1, filename, OpenMode.Input) Input(1, value) FileClose(1) Assert.Fail ("Expected System.InvalidCastException ('Conversion from string ""ÿÿ"" to type 'Date' is not valid.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.InvalidCastException", ex.GetType.FullName, filename) #If NET_VER >= 2.0 Then Assert.AreEqual ("Conversion from string ""ÿÿ"" to type 'Date' is not valid.", ex.Message, filename) #Else Assert.AreEqual ("Cast from string ""ÿÿ"" to type 'Date' is not valid.", ex.Message, filename) #End If Finally CleanUp() End Try End Sub _ Sub InputTest_0_DateTime_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_0_DateTime_Output_4") Try Dim value As System.DateTime = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 255, 255 }) FileOpen(1, filename, OpenMode.Output) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_0_DateTime_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_0_DateTime_Random_5") Try Dim value As System.DateTime = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 255, 255 }) FileOpen(1, filename, OpenMode.Random) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub LineInputTest_1_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "LineInputTest_1_Append_1") Try Dim value As String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0 }) FileOpen(1, filename, OpenMode.Append) value = LineInput(1) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub LineInputTest_1_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "LineInputTest_1_Binary_2") Try Dim value As String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0 }) FileOpen(1, filename, OpenMode.Binary) value = LineInput(1) FileClose(1) Assert.AreEqual ("", value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub LineInputTest_1_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "LineInputTest_1_Input_3") Try Dim value As String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0 }) FileOpen(1, filename, OpenMode.Input) value = LineInput(1) FileClose(1) Assert.AreEqual ("", value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub LineInputTest_1_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "LineInputTest_1_Output_4") Try Dim value As String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0 }) FileOpen(1, filename, OpenMode.Output) value = LineInput(1) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub LineInputTest_1_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "LineInputTest_1_Random_5") Try Dim value As String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0 }) FileOpen(1, filename, OpenMode.Random) value = LineInput(1) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputStringTest_1_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "InputStringTest_1_Append_1") Try Dim value As String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0 }) FileOpen(1, filename, OpenMode.Append) value = InputString(1, 1) FileClose(1) Assert.Fail ("Expected System.NullReferenceException ('Object reference not set to an instance of an object.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception #If NET_VER >= 2.0 Then Assert.AreEqual ("System.NullReferenceException", ex.GetType.FullName, filename) #Else Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) #End If #If NET_VER >= 2.0 Then Assert.AreEqual ("Object reference not set to an instance of an object.", ex.Message, filename) #Else Assert.AreEqual ("Bad file mode.", ex.Message, filename) #End If Finally CleanUp() End Try End Sub _ Sub InputStringTest_1_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "InputStringTest_1_Binary_2") Try Dim value As String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0 }) FileOpen(1, filename, OpenMode.Binary) value = InputString(1, 1) FileClose(1) Assert.AreEqual ("", value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub InputStringTest_1_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "InputStringTest_1_Input_3") Try Dim value As String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0 }) FileOpen(1, filename, OpenMode.Input) value = InputString(1, 1) FileClose(1) Assert.AreEqual ("", value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub InputStringTest_1_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "InputStringTest_1_Output_4") Try Dim value As String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0 }) FileOpen(1, filename, OpenMode.Output) value = InputString(1, 1) FileClose(1) Assert.Fail ("Expected System.NullReferenceException ('Object reference not set to an instance of an object.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception #If NET_VER >= 2.0 Then Assert.AreEqual ("System.NullReferenceException", ex.GetType.FullName, filename) #Else Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) #End If #If NET_VER >= 2.0 Then Assert.AreEqual ("Object reference not set to an instance of an object.", ex.Message, filename) #Else Assert.AreEqual ("Bad file mode.", ex.Message, filename) #End If Finally CleanUp() End Try End Sub _ Sub InputStringTest_1_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "InputStringTest_1_Random_5") Try Dim value As String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0 }) FileOpen(1, filename, OpenMode.Random) value = InputString(1, 1) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_1_ValueType_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_1_ValueType_Append_1") Try Dim value As System.ValueType = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0 }) FileOpen(1, filename, OpenMode.Append) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_1_ValueType_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_1_ValueType_Binary_2") Try Dim value As System.ValueType = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0 }) FileOpen(1, filename, OpenMode.Binary) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.NullReferenceException ('Object reference not set to an instance of an object.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.NullReferenceException", ex.GetType.FullName, filename) Assert.AreEqual ("Object reference not set to an instance of an object.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_1_ValueType_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_1_ValueType_Input_3") Try Dim value As System.ValueType = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0 }) FileOpen(1, filename, OpenMode.Input) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_1_ValueType_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_1_ValueType_Output_4") Try Dim value As System.ValueType = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0 }) FileOpen(1, filename, OpenMode.Output) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_1_ValueType_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_1_ValueType_Random_5") Try Dim value As System.ValueType = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0 }) FileOpen(1, filename, OpenMode.Random) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.NullReferenceException ('Object reference not set to an instance of an object.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.NullReferenceException", ex.GetType.FullName, filename) Assert.AreEqual ("Object reference not set to an instance of an object.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_1_Array_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_1_Array_Append_1") Try Dim value As System.Array = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0 }) FileOpen(1, filename, OpenMode.Append) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_1_Array_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_1_Array_Binary_2") Try Dim value As System.Array = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0 }) FileOpen(1, filename, OpenMode.Binary) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.ArgumentException ('Cannot determine array type because it is Nothing.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.ArgumentException", ex.GetType.FullName, filename) Assert.AreEqual ("Cannot determine array type because it is Nothing.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_1_Array_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_1_Array_Input_3") Try Dim value As System.Array = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0 }) FileOpen(1, filename, OpenMode.Input) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_1_Array_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_1_Array_Output_4") Try Dim value As System.Array = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0 }) FileOpen(1, filename, OpenMode.Output) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_1_Array_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_1_Array_Random_5") Try Dim value As System.Array = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0 }) FileOpen(1, filename, OpenMode.Random) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.ArgumentException ('Cannot determine array type because it is Nothing.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.ArgumentException", ex.GetType.FullName, filename) Assert.AreEqual ("Cannot determine array type because it is Nothing.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_1_Boolean_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_1_Boolean_Append_1") Try Dim value As System.Boolean = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0 }) FileOpen(1, filename, OpenMode.Append) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_1_Boolean_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_1_Boolean_Binary_2") Try Dim value As System.Boolean = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0 }) FileOpen(1, filename, OpenMode.Binary) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.EndOfStreamException ('Unable to read beyond the end of the stream.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.EndOfStreamException", ex.GetType.FullName, filename) Assert.AreEqual ("Unable to read beyond the end of the stream.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_1_Boolean_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_1_Boolean_Input_3") Try Dim value As System.Boolean = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0 }) FileOpen(1, filename, OpenMode.Input) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_1_Boolean_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_1_Boolean_Output_4") Try Dim value As System.Boolean = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0 }) FileOpen(1, filename, OpenMode.Output) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_1_Boolean_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_1_Boolean_Random_5") Try Dim value As System.Boolean = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0 }) FileOpen(1, filename, OpenMode.Random) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.EndOfStreamException ('Unable to read beyond the end of the stream.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.EndOfStreamException", ex.GetType.FullName, filename) Assert.AreEqual ("Unable to read beyond the end of the stream.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_1_Byte_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_1_Byte_Append_1") Try Dim value As System.Byte = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0 }) FileOpen(1, filename, OpenMode.Append) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_1_Byte_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_1_Byte_Binary_2") Try Dim value As System.Byte = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0 }) FileOpen(1, filename, OpenMode.Binary) FileGet(1, value) FileClose(1) Assert.AreEqual (CByte(0), value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_1_Byte_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_1_Byte_Input_3") Try Dim value As System.Byte = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0 }) FileOpen(1, filename, OpenMode.Input) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_1_Byte_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_1_Byte_Output_4") Try Dim value As System.Byte = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0 }) FileOpen(1, filename, OpenMode.Output) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_1_Byte_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_1_Byte_Random_5") Try Dim value As System.Byte = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0 }) FileOpen(1, filename, OpenMode.Random) FileGet(1, value) FileClose(1) Assert.AreEqual (CByte(0), value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_1_Int16_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_1_Int16_Append_1") Try Dim value As System.Int16 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0 }) FileOpen(1, filename, OpenMode.Append) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_1_Int16_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_1_Int16_Binary_2") Try Dim value As System.Int16 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0 }) FileOpen(1, filename, OpenMode.Binary) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.EndOfStreamException ('Unable to read beyond the end of the stream.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.EndOfStreamException", ex.GetType.FullName, filename) Assert.AreEqual ("Unable to read beyond the end of the stream.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_1_Int16_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_1_Int16_Input_3") Try Dim value As System.Int16 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0 }) FileOpen(1, filename, OpenMode.Input) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_1_Int16_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_1_Int16_Output_4") Try Dim value As System.Int16 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0 }) FileOpen(1, filename, OpenMode.Output) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_1_Int16_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_1_Int16_Random_5") Try Dim value As System.Int16 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0 }) FileOpen(1, filename, OpenMode.Random) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.EndOfStreamException ('Unable to read beyond the end of the stream.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.EndOfStreamException", ex.GetType.FullName, filename) Assert.AreEqual ("Unable to read beyond the end of the stream.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_1_Int32_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_1_Int32_Append_1") Try Dim value As System.Int32 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0 }) FileOpen(1, filename, OpenMode.Append) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_1_Int32_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_1_Int32_Binary_2") Try Dim value As System.Int32 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0 }) FileOpen(1, filename, OpenMode.Binary) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.EndOfStreamException ('Unable to read beyond the end of the stream.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.EndOfStreamException", ex.GetType.FullName, filename) Assert.AreEqual ("Unable to read beyond the end of the stream.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_1_Int32_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_1_Int32_Input_3") Try Dim value As System.Int32 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0 }) FileOpen(1, filename, OpenMode.Input) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_1_Int32_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_1_Int32_Output_4") Try Dim value As System.Int32 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0 }) FileOpen(1, filename, OpenMode.Output) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_1_Int32_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_1_Int32_Random_5") Try Dim value As System.Int32 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0 }) FileOpen(1, filename, OpenMode.Random) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.EndOfStreamException ('Unable to read beyond the end of the stream.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.EndOfStreamException", ex.GetType.FullName, filename) Assert.AreEqual ("Unable to read beyond the end of the stream.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_1_Int64_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_1_Int64_Append_1") Try Dim value As System.Int64 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0 }) FileOpen(1, filename, OpenMode.Append) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_1_Int64_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_1_Int64_Binary_2") Try Dim value As System.Int64 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0 }) FileOpen(1, filename, OpenMode.Binary) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.EndOfStreamException ('Unable to read beyond the end of the stream.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.EndOfStreamException", ex.GetType.FullName, filename) Assert.AreEqual ("Unable to read beyond the end of the stream.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_1_Int64_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_1_Int64_Input_3") Try Dim value As System.Int64 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0 }) FileOpen(1, filename, OpenMode.Input) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_1_Int64_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_1_Int64_Output_4") Try Dim value As System.Int64 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0 }) FileOpen(1, filename, OpenMode.Output) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_1_Int64_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_1_Int64_Random_5") Try Dim value As System.Int64 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0 }) FileOpen(1, filename, OpenMode.Random) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.EndOfStreamException ('Unable to read beyond the end of the stream.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.EndOfStreamException", ex.GetType.FullName, filename) Assert.AreEqual ("Unable to read beyond the end of the stream.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_1_Char_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_1_Char_Append_1") Try Dim value As System.Char = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0 }) FileOpen(1, filename, OpenMode.Append) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_1_Char_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_1_Char_Binary_2") Try Dim value As System.Char = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0 }) FileOpen(1, filename, OpenMode.Binary) FileGet(1, value) FileClose(1) Assert.AreEqual (""c, value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_1_Char_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_1_Char_Input_3") Try Dim value As System.Char = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0 }) FileOpen(1, filename, OpenMode.Input) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_1_Char_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_1_Char_Output_4") Try Dim value As System.Char = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0 }) FileOpen(1, filename, OpenMode.Output) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_1_Char_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_1_Char_Random_5") Try Dim value As System.Char = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0 }) FileOpen(1, filename, OpenMode.Random) FileGet(1, value) FileClose(1) Assert.AreEqual (""c, value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_1_Single_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_1_Single_Append_1") Try Dim value As System.Single = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0 }) FileOpen(1, filename, OpenMode.Append) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_1_Single_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_1_Single_Binary_2") Try Dim value As System.Single = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0 }) FileOpen(1, filename, OpenMode.Binary) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.EndOfStreamException ('Unable to read beyond the end of the stream.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.EndOfStreamException", ex.GetType.FullName, filename) Assert.AreEqual ("Unable to read beyond the end of the stream.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_1_Single_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_1_Single_Input_3") Try Dim value As System.Single = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0 }) FileOpen(1, filename, OpenMode.Input) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_1_Single_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_1_Single_Output_4") Try Dim value As System.Single = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0 }) FileOpen(1, filename, OpenMode.Output) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_1_Single_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_1_Single_Random_5") Try Dim value As System.Single = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0 }) FileOpen(1, filename, OpenMode.Random) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.EndOfStreamException ('Unable to read beyond the end of the stream.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.EndOfStreamException", ex.GetType.FullName, filename) Assert.AreEqual ("Unable to read beyond the end of the stream.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_1_Double_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_1_Double_Append_1") Try Dim value As System.Double = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0 }) FileOpen(1, filename, OpenMode.Append) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_1_Double_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_1_Double_Binary_2") Try Dim value As System.Double = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0 }) FileOpen(1, filename, OpenMode.Binary) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.EndOfStreamException ('Unable to read beyond the end of the stream.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.EndOfStreamException", ex.GetType.FullName, filename) Assert.AreEqual ("Unable to read beyond the end of the stream.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_1_Double_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_1_Double_Input_3") Try Dim value As System.Double = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0 }) FileOpen(1, filename, OpenMode.Input) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_1_Double_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_1_Double_Output_4") Try Dim value As System.Double = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0 }) FileOpen(1, filename, OpenMode.Output) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_1_Double_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_1_Double_Random_5") Try Dim value As System.Double = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0 }) FileOpen(1, filename, OpenMode.Random) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.EndOfStreamException ('Unable to read beyond the end of the stream.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.EndOfStreamException", ex.GetType.FullName, filename) Assert.AreEqual ("Unable to read beyond the end of the stream.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_1_Decimal_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_1_Decimal_Append_1") Try Dim value As System.Decimal = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0 }) FileOpen(1, filename, OpenMode.Append) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_1_Decimal_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_1_Decimal_Binary_2") Try Dim value As System.Decimal = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0 }) FileOpen(1, filename, OpenMode.Binary) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.EndOfStreamException ('Unable to read beyond the end of the stream.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.EndOfStreamException", ex.GetType.FullName, filename) Assert.AreEqual ("Unable to read beyond the end of the stream.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_1_Decimal_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_1_Decimal_Input_3") Try Dim value As System.Decimal = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0 }) FileOpen(1, filename, OpenMode.Input) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_1_Decimal_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_1_Decimal_Output_4") Try Dim value As System.Decimal = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0 }) FileOpen(1, filename, OpenMode.Output) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_1_Decimal_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_1_Decimal_Random_5") Try Dim value As System.Decimal = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0 }) FileOpen(1, filename, OpenMode.Random) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.EndOfStreamException ('Unable to read beyond the end of the stream.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.EndOfStreamException", ex.GetType.FullName, filename) Assert.AreEqual ("Unable to read beyond the end of the stream.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_1_String_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_1_String_Append_1") Try Dim value As System.String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0 }) FileOpen(1, filename, OpenMode.Append) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_1_String_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_1_String_Binary_2") Try Dim value As System.String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0 }) FileOpen(1, filename, OpenMode.Binary) FileGet(1, value) FileClose(1) Assert.AreEqual (Nothing, value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_1_String_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_1_String_Input_3") Try Dim value As System.String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0 }) FileOpen(1, filename, OpenMode.Input) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_1_String_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_1_String_Output_4") Try Dim value As System.String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0 }) FileOpen(1, filename, OpenMode.Output) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_1_String_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_1_String_Random_5") Try Dim value As System.String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0 }) FileOpen(1, filename, OpenMode.Random) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.EndOfStreamException ('Unable to read beyond the end of the stream.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.EndOfStreamException", ex.GetType.FullName, filename) Assert.AreEqual ("Unable to read beyond the end of the stream.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_1_DateTime_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_1_DateTime_Append_1") Try Dim value As System.DateTime = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0 }) FileOpen(1, filename, OpenMode.Append) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_1_DateTime_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_1_DateTime_Binary_2") Try Dim value As System.DateTime = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0 }) FileOpen(1, filename, OpenMode.Binary) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.EndOfStreamException ('Unable to read beyond the end of the stream.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.EndOfStreamException", ex.GetType.FullName, filename) Assert.AreEqual ("Unable to read beyond the end of the stream.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_1_DateTime_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_1_DateTime_Input_3") Try Dim value As System.DateTime = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0 }) FileOpen(1, filename, OpenMode.Input) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_1_DateTime_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_1_DateTime_Output_4") Try Dim value As System.DateTime = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0 }) FileOpen(1, filename, OpenMode.Output) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_1_DateTime_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_1_DateTime_Random_5") Try Dim value As System.DateTime = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0 }) FileOpen(1, filename, OpenMode.Random) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.EndOfStreamException ('Unable to read beyond the end of the stream.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.EndOfStreamException", ex.GetType.FullName, filename) Assert.AreEqual ("Unable to read beyond the end of the stream.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetObjectTest_1_Object_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "FileGetObjectTest_1_Object_Append_1") Try Dim value As System.Object = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0 }) FileOpen(1, filename, OpenMode.Append) FileGetObject(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetObjectTest_1_Object_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "FileGetObjectTest_1_Object_Binary_2") Try Dim value As System.Object = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0 }) FileOpen(1, filename, OpenMode.Binary) FileGetObject(1, value) FileClose(1) Assert.Fail ("Expected System.IO.EndOfStreamException ('Unable to read beyond the end of the stream.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.EndOfStreamException", ex.GetType.FullName, filename) Assert.AreEqual ("Unable to read beyond the end of the stream.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetObjectTest_1_Object_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "FileGetObjectTest_1_Object_Input_3") Try Dim value As System.Object = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0 }) FileOpen(1, filename, OpenMode.Input) FileGetObject(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetObjectTest_1_Object_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "FileGetObjectTest_1_Object_Output_4") Try Dim value As System.Object = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0 }) FileOpen(1, filename, OpenMode.Output) FileGetObject(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetObjectTest_1_Object_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "FileGetObjectTest_1_Object_Random_5") Try Dim value As System.Object = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0 }) FileOpen(1, filename, OpenMode.Random) FileGetObject(1, value) FileClose(1) Assert.Fail ("Expected System.IO.EndOfStreamException ('Unable to read beyond the end of the stream.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.EndOfStreamException", ex.GetType.FullName, filename) Assert.AreEqual ("Unable to read beyond the end of the stream.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_1_Object_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_1_Object_Append_1") Try Dim value As System.Object = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0 }) FileOpen(1, filename, OpenMode.Append) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_1_Object_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_1_Object_Binary_2") Try Dim value As System.Object = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0 }) FileOpen(1, filename, OpenMode.Binary) Input(1, value) FileClose(1) Assert.AreEqual ("", value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub InputTest_1_Object_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_1_Object_Input_3") Try Dim value As System.Object = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0 }) FileOpen(1, filename, OpenMode.Input) Input(1, value) FileClose(1) Assert.AreEqual (Nothing, value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub InputTest_1_Object_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_1_Object_Output_4") Try Dim value As System.Object = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0 }) FileOpen(1, filename, OpenMode.Output) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_1_Object_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_1_Object_Random_5") Try Dim value As System.Object = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0 }) FileOpen(1, filename, OpenMode.Random) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_1_Boolean_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_1_Boolean_Append_1") Try Dim value As System.Boolean = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0 }) FileOpen(1, filename, OpenMode.Append) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_1_Boolean_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_1_Boolean_Binary_2") Try Dim value As System.Boolean = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0 }) FileOpen(1, filename, OpenMode.Binary) Input(1, value) FileClose(1) Assert.Fail ("Expected System.InvalidCastException ('Conversion from string """" to type 'Boolean' is not valid.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.InvalidCastException", ex.GetType.FullName, filename) #If NET_VER >= 2.0 Then Assert.AreEqual ("Conversion from string """" to type 'Boolean' is not valid.", ex.Message, filename) #Else Assert.AreEqual ("Cast from string """" to type 'Boolean' is not valid.", ex.Message, filename) #End If Finally CleanUp() End Try End Sub _ Sub InputTest_1_Boolean_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_1_Boolean_Input_3") Try Dim value As System.Boolean = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0 }) FileOpen(1, filename, OpenMode.Input) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IndexOutOfRangeException ('Index was outside the bounds of the array.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IndexOutOfRangeException", ex.GetType.FullName, filename) Assert.AreEqual ("Index was outside the bounds of the array.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_1_Boolean_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_1_Boolean_Output_4") Try Dim value As System.Boolean = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0 }) FileOpen(1, filename, OpenMode.Output) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_1_Boolean_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_1_Boolean_Random_5") Try Dim value As System.Boolean = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0 }) FileOpen(1, filename, OpenMode.Random) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_1_Byte_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_1_Byte_Append_1") Try Dim value As System.Byte = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0 }) FileOpen(1, filename, OpenMode.Append) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_1_Byte_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_1_Byte_Binary_2") Try Dim value As System.Byte = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0 }) FileOpen(1, filename, OpenMode.Binary) Input(1, value) FileClose(1) Assert.Fail ("Expected System.InvalidCastException ('Conversion from string """" to type 'Byte' is not valid.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.InvalidCastException", ex.GetType.FullName, filename) #If NET_VER >= 2.0 Then Assert.AreEqual ("Conversion from string """" to type 'Byte' is not valid.", ex.Message, filename) #Else Assert.AreEqual ("Cast from string """" to type 'Byte' is not valid.", ex.Message, filename) #End If Finally CleanUp() End Try End Sub _ Sub InputTest_1_Byte_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_1_Byte_Input_3") Try Dim value As System.Byte = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0 }) FileOpen(1, filename, OpenMode.Input) Input(1, value) FileClose(1) Assert.Fail ("Expected System.InvalidCastException ('Conversion from string """" to type 'Byte' is not valid.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.InvalidCastException", ex.GetType.FullName, filename) #If NET_VER >= 2.0 Then Assert.AreEqual ("Conversion from string """" to type 'Byte' is not valid.", ex.Message, filename) #Else Assert.AreEqual ("Cast from string """" to type 'Byte' is not valid.", ex.Message, filename) #End If Finally CleanUp() End Try End Sub _ Sub InputTest_1_Byte_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_1_Byte_Output_4") Try Dim value As System.Byte = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0 }) FileOpen(1, filename, OpenMode.Output) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_1_Byte_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_1_Byte_Random_5") Try Dim value As System.Byte = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0 }) FileOpen(1, filename, OpenMode.Random) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_1_Int16_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_1_Int16_Append_1") Try Dim value As System.Int16 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0 }) FileOpen(1, filename, OpenMode.Append) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_1_Int16_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_1_Int16_Binary_2") Try Dim value As System.Int16 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0 }) FileOpen(1, filename, OpenMode.Binary) Input(1, value) FileClose(1) Assert.Fail ("Expected System.InvalidCastException ('Conversion from string """" to type 'Short' is not valid.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.InvalidCastException", ex.GetType.FullName, filename) #If NET_VER >= 2.0 Then Assert.AreEqual ("Conversion from string """" to type 'Short' is not valid.", ex.Message, filename) #Else Assert.AreEqual ("Cast from string """" to type 'Short' is not valid.", ex.Message, filename) #End If Finally CleanUp() End Try End Sub _ Sub InputTest_1_Int16_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_1_Int16_Input_3") Try Dim value As System.Int16 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0 }) FileOpen(1, filename, OpenMode.Input) Input(1, value) FileClose(1) Assert.Fail ("Expected System.InvalidCastException ('Conversion from string """" to type 'Short' is not valid.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.InvalidCastException", ex.GetType.FullName, filename) #If NET_VER >= 2.0 Then Assert.AreEqual ("Conversion from string """" to type 'Short' is not valid.", ex.Message, filename) #Else Assert.AreEqual ("Cast from string """" to type 'Short' is not valid.", ex.Message, filename) #End If Finally CleanUp() End Try End Sub _ Sub InputTest_1_Int16_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_1_Int16_Output_4") Try Dim value As System.Int16 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0 }) FileOpen(1, filename, OpenMode.Output) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_1_Int16_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_1_Int16_Random_5") Try Dim value As System.Int16 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0 }) FileOpen(1, filename, OpenMode.Random) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_1_Int32_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_1_Int32_Append_1") Try Dim value As System.Int32 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0 }) FileOpen(1, filename, OpenMode.Append) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_1_Int32_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_1_Int32_Binary_2") Try Dim value As System.Int32 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0 }) FileOpen(1, filename, OpenMode.Binary) Input(1, value) FileClose(1) Assert.Fail ("Expected System.InvalidCastException ('Conversion from string """" to type 'Integer' is not valid.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.InvalidCastException", ex.GetType.FullName, filename) #If NET_VER >= 2.0 Then Assert.AreEqual ("Conversion from string """" to type 'Integer' is not valid.", ex.Message, filename) #Else Assert.AreEqual ("Cast from string """" to type 'Integer' is not valid.", ex.Message, filename) #End If Finally CleanUp() End Try End Sub _ Sub InputTest_1_Int32_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_1_Int32_Input_3") Try Dim value As System.Int32 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0 }) FileOpen(1, filename, OpenMode.Input) Input(1, value) FileClose(1) Assert.Fail ("Expected System.InvalidCastException ('Conversion from string """" to type 'Integer' is not valid.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.InvalidCastException", ex.GetType.FullName, filename) #If NET_VER >= 2.0 Then Assert.AreEqual ("Conversion from string """" to type 'Integer' is not valid.", ex.Message, filename) #Else Assert.AreEqual ("Cast from string """" to type 'Integer' is not valid.", ex.Message, filename) #End If Finally CleanUp() End Try End Sub _ Sub InputTest_1_Int32_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_1_Int32_Output_4") Try Dim value As System.Int32 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0 }) FileOpen(1, filename, OpenMode.Output) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_1_Int32_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_1_Int32_Random_5") Try Dim value As System.Int32 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0 }) FileOpen(1, filename, OpenMode.Random) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_1_Int64_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_1_Int64_Append_1") Try Dim value As System.Int64 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0 }) FileOpen(1, filename, OpenMode.Append) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_1_Int64_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_1_Int64_Binary_2") Try Dim value As System.Int64 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0 }) FileOpen(1, filename, OpenMode.Binary) Input(1, value) FileClose(1) Assert.Fail ("Expected System.InvalidCastException ('Conversion from string """" to type 'Long' is not valid.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.InvalidCastException", ex.GetType.FullName, filename) #If NET_VER >= 2.0 Then Assert.AreEqual ("Conversion from string """" to type 'Long' is not valid.", ex.Message, filename) #Else Assert.AreEqual ("Cast from string """" to type 'Long' is not valid.", ex.Message, filename) #End If Finally CleanUp() End Try End Sub _ Sub InputTest_1_Int64_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_1_Int64_Input_3") Try Dim value As System.Int64 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0 }) FileOpen(1, filename, OpenMode.Input) Input(1, value) FileClose(1) Assert.Fail ("Expected System.InvalidCastException ('Conversion from string """" to type 'Long' is not valid.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.InvalidCastException", ex.GetType.FullName, filename) #If NET_VER >= 2.0 Then Assert.AreEqual ("Conversion from string """" to type 'Long' is not valid.", ex.Message, filename) #Else Assert.AreEqual ("Cast from string """" to type 'Long' is not valid.", ex.Message, filename) #End If Finally CleanUp() End Try End Sub _ Sub InputTest_1_Int64_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_1_Int64_Output_4") Try Dim value As System.Int64 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0 }) FileOpen(1, filename, OpenMode.Output) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_1_Int64_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_1_Int64_Random_5") Try Dim value As System.Int64 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0 }) FileOpen(1, filename, OpenMode.Random) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_1_Char_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_1_Char_Append_1") Try Dim value As System.Char = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0 }) FileOpen(1, filename, OpenMode.Append) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_1_Char_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_1_Char_Binary_2") Try Dim value As System.Char = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0 }) FileOpen(1, filename, OpenMode.Binary) Input(1, value) FileClose(1) Assert.AreEqual (""c, value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub InputTest_1_Char_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_1_Char_Input_3") Try Dim value As System.Char = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0 }) FileOpen(1, filename, OpenMode.Input) Input(1, value) FileClose(1) Assert.AreEqual (""c, value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub InputTest_1_Char_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_1_Char_Output_4") Try Dim value As System.Char = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0 }) FileOpen(1, filename, OpenMode.Output) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_1_Char_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_1_Char_Random_5") Try Dim value As System.Char = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0 }) FileOpen(1, filename, OpenMode.Random) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_1_Single_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_1_Single_Append_1") Try Dim value As System.Single = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0 }) FileOpen(1, filename, OpenMode.Append) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_1_Single_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_1_Single_Binary_2") Try Dim value As System.Single = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0 }) FileOpen(1, filename, OpenMode.Binary) Input(1, value) FileClose(1) Assert.Fail ("Expected System.InvalidCastException ('Conversion from string """" to type 'Single' is not valid.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.InvalidCastException", ex.GetType.FullName, filename) #If NET_VER >= 2.0 Then Assert.AreEqual ("Conversion from string """" to type 'Single' is not valid.", ex.Message, filename) #Else Assert.AreEqual ("Cast from string """" to type 'Single' is not valid.", ex.Message, filename) #End If Finally CleanUp() End Try End Sub _ Sub InputTest_1_Single_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_1_Single_Input_3") Try Dim value As System.Single = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0 }) FileOpen(1, filename, OpenMode.Input) Input(1, value) FileClose(1) Assert.Fail ("Expected System.InvalidCastException ('Conversion from string """" to type 'Single' is not valid.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.InvalidCastException", ex.GetType.FullName, filename) #If NET_VER >= 2.0 Then Assert.AreEqual ("Conversion from string """" to type 'Single' is not valid.", ex.Message, filename) #Else Assert.AreEqual ("Cast from string """" to type 'Single' is not valid.", ex.Message, filename) #End If Finally CleanUp() End Try End Sub _ Sub InputTest_1_Single_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_1_Single_Output_4") Try Dim value As System.Single = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0 }) FileOpen(1, filename, OpenMode.Output) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_1_Single_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_1_Single_Random_5") Try Dim value As System.Single = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0 }) FileOpen(1, filename, OpenMode.Random) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_1_Double_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_1_Double_Append_1") Try Dim value As System.Double = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0 }) FileOpen(1, filename, OpenMode.Append) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_1_Double_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_1_Double_Binary_2") Try Dim value As System.Double = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0 }) FileOpen(1, filename, OpenMode.Binary) Input(1, value) FileClose(1) Assert.Fail ("Expected System.InvalidCastException ('Conversion from string """" to type 'Double' is not valid.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.InvalidCastException", ex.GetType.FullName, filename) #If NET_VER >= 2.0 Then Assert.AreEqual ("Conversion from string """" to type 'Double' is not valid.", ex.Message, filename) #Else Assert.AreEqual ("Cast from string """" to type 'Double' is not valid.", ex.Message, filename) #End If Finally CleanUp() End Try End Sub _ Sub InputTest_1_Double_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_1_Double_Input_3") Try Dim value As System.Double = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0 }) FileOpen(1, filename, OpenMode.Input) Input(1, value) FileClose(1) Assert.Fail ("Expected System.InvalidCastException ('Conversion from string """" to type 'Double' is not valid.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.InvalidCastException", ex.GetType.FullName, filename) #If NET_VER >= 2.0 Then Assert.AreEqual ("Conversion from string """" to type 'Double' is not valid.", ex.Message, filename) #Else Assert.AreEqual ("Cast from string """" to type 'Double' is not valid.", ex.Message, filename) #End If Finally CleanUp() End Try End Sub _ Sub InputTest_1_Double_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_1_Double_Output_4") Try Dim value As System.Double = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0 }) FileOpen(1, filename, OpenMode.Output) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_1_Double_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_1_Double_Random_5") Try Dim value As System.Double = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0 }) FileOpen(1, filename, OpenMode.Random) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_1_Decimal_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_1_Decimal_Append_1") Try Dim value As System.Decimal = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0 }) FileOpen(1, filename, OpenMode.Append) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_1_Decimal_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_1_Decimal_Binary_2") Try Dim value As System.Decimal = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0 }) FileOpen(1, filename, OpenMode.Binary) Input(1, value) FileClose(1) Assert.Fail ("Expected System.InvalidCastException ('Conversion from string """" to type 'Decimal' is not valid.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.InvalidCastException", ex.GetType.FullName, filename) #If NET_VER >= 2.0 Then Assert.AreEqual ("Conversion from string """" to type 'Decimal' is not valid.", ex.Message, filename) #Else Assert.AreEqual ("Cast from string """" to type 'Decimal' is not valid.", ex.Message, filename) #End If Finally CleanUp() End Try End Sub _ Sub InputTest_1_Decimal_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_1_Decimal_Input_3") Try Dim value As System.Decimal = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0 }) FileOpen(1, filename, OpenMode.Input) Input(1, value) FileClose(1) Assert.Fail ("Expected System.InvalidCastException ('Conversion from string """" to type 'Decimal' is not valid.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.InvalidCastException", ex.GetType.FullName, filename) #If NET_VER >= 2.0 Then Assert.AreEqual ("Conversion from string """" to type 'Decimal' is not valid.", ex.Message, filename) #Else Assert.AreEqual ("Cast from string """" to type 'Decimal' is not valid.", ex.Message, filename) #End If Finally CleanUp() End Try End Sub _ Sub InputTest_1_Decimal_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_1_Decimal_Output_4") Try Dim value As System.Decimal = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0 }) FileOpen(1, filename, OpenMode.Output) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_1_Decimal_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_1_Decimal_Random_5") Try Dim value As System.Decimal = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0 }) FileOpen(1, filename, OpenMode.Random) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_1_String_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_1_String_Append_1") Try Dim value As System.String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0 }) FileOpen(1, filename, OpenMode.Append) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_1_String_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_1_String_Binary_2") Try Dim value As System.String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0 }) FileOpen(1, filename, OpenMode.Binary) Input(1, value) FileClose(1) Assert.AreEqual ("", value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub InputTest_1_String_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_1_String_Input_3") Try Dim value As System.String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0 }) FileOpen(1, filename, OpenMode.Input) Input(1, value) FileClose(1) Assert.AreEqual ("", value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub InputTest_1_String_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_1_String_Output_4") Try Dim value As System.String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0 }) FileOpen(1, filename, OpenMode.Output) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_1_String_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_1_String_Random_5") Try Dim value As System.String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0 }) FileOpen(1, filename, OpenMode.Random) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_1_DateTime_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_1_DateTime_Append_1") Try Dim value As System.DateTime = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0 }) FileOpen(1, filename, OpenMode.Append) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_1_DateTime_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_1_DateTime_Binary_2") Try Dim value As System.DateTime = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0 }) FileOpen(1, filename, OpenMode.Binary) Input(1, value) FileClose(1) Assert.Fail ("Expected System.InvalidCastException ('Conversion from string """" to type 'Date' is not valid.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.InvalidCastException", ex.GetType.FullName, filename) #If NET_VER >= 2.0 Then Assert.AreEqual ("Conversion from string """" to type 'Date' is not valid.", ex.Message, filename) #Else Assert.AreEqual ("Cast from string """" to type 'Date' is not valid.", ex.Message, filename) #End If Finally CleanUp() End Try End Sub _ Sub InputTest_1_DateTime_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_1_DateTime_Input_3") Try Dim value As System.DateTime = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0 }) FileOpen(1, filename, OpenMode.Input) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IndexOutOfRangeException ('Index was outside the bounds of the array.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IndexOutOfRangeException", ex.GetType.FullName, filename) Assert.AreEqual ("Index was outside the bounds of the array.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_1_DateTime_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_1_DateTime_Output_4") Try Dim value As System.DateTime = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0 }) FileOpen(1, filename, OpenMode.Output) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_1_DateTime_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_1_DateTime_Random_5") Try Dim value As System.DateTime = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0 }) FileOpen(1, filename, OpenMode.Random) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub LineInputTest_2_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "LineInputTest_2_Append_1") Try Dim value As String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Append) value = LineInput(1) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub LineInputTest_2_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "LineInputTest_2_Binary_2") Try Dim value As String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Binary) value = LineInput(1) FileClose(1) Assert.AreEqual ("€", value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub LineInputTest_2_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "LineInputTest_2_Input_3") Try Dim value As String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Input) value = LineInput(1) FileClose(1) Assert.AreEqual ("€", value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub LineInputTest_2_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "LineInputTest_2_Output_4") Try Dim value As String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Output) value = LineInput(1) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub LineInputTest_2_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "LineInputTest_2_Random_5") Try Dim value As String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Random) value = LineInput(1) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputStringTest_2_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "InputStringTest_2_Append_1") Try Dim value As String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Append) value = InputString(1, 4) FileClose(1) Assert.Fail ("Expected System.NullReferenceException ('Object reference not set to an instance of an object.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception #If NET_VER >= 2.0 Then Assert.AreEqual ("System.NullReferenceException", ex.GetType.FullName, filename) #Else Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) #End If #If NET_VER >= 2.0 Then Assert.AreEqual ("Object reference not set to an instance of an object.", ex.Message, filename) #Else Assert.AreEqual ("Bad file mode.", ex.Message, filename) #End If Finally CleanUp() End Try End Sub _ Sub InputStringTest_2_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "InputStringTest_2_Binary_2") Try Dim value As String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Binary) value = InputString(1, 4) FileClose(1) Assert.AreEqual ("€", value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub InputStringTest_2_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "InputStringTest_2_Input_3") Try Dim value As String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Input) value = InputString(1, 4) FileClose(1) Assert.AreEqual ("€", value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub InputStringTest_2_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "InputStringTest_2_Output_4") Try Dim value As String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Output) value = InputString(1, 4) FileClose(1) Assert.Fail ("Expected System.NullReferenceException ('Object reference not set to an instance of an object.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception #If NET_VER >= 2.0 Then Assert.AreEqual ("System.NullReferenceException", ex.GetType.FullName, filename) #Else Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) #End If #If NET_VER >= 2.0 Then Assert.AreEqual ("Object reference not set to an instance of an object.", ex.Message, filename) #Else Assert.AreEqual ("Bad file mode.", ex.Message, filename) #End If Finally CleanUp() End Try End Sub _ Sub InputStringTest_2_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "InputStringTest_2_Random_5") Try Dim value As String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Random) value = InputString(1, 4) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_2_ValueType_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_2_ValueType_Append_1") Try Dim value As System.ValueType = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Append) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_2_ValueType_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_2_ValueType_Binary_2") Try Dim value As System.ValueType = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Binary) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.NullReferenceException ('Object reference not set to an instance of an object.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.NullReferenceException", ex.GetType.FullName, filename) Assert.AreEqual ("Object reference not set to an instance of an object.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_2_ValueType_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_2_ValueType_Input_3") Try Dim value As System.ValueType = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Input) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_2_ValueType_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_2_ValueType_Output_4") Try Dim value As System.ValueType = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Output) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_2_ValueType_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_2_ValueType_Random_5") Try Dim value As System.ValueType = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Random) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.NullReferenceException ('Object reference not set to an instance of an object.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.NullReferenceException", ex.GetType.FullName, filename) Assert.AreEqual ("Object reference not set to an instance of an object.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_2_Array_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_2_Array_Append_1") Try Dim value As System.Array = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Append) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_2_Array_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_2_Array_Binary_2") Try Dim value As System.Array = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Binary) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.ArgumentException ('Cannot determine array type because it is Nothing.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.ArgumentException", ex.GetType.FullName, filename) Assert.AreEqual ("Cannot determine array type because it is Nothing.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_2_Array_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_2_Array_Input_3") Try Dim value As System.Array = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Input) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_2_Array_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_2_Array_Output_4") Try Dim value As System.Array = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Output) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_2_Array_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_2_Array_Random_5") Try Dim value As System.Array = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Random) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.ArgumentException ('Cannot determine array type because it is Nothing.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.ArgumentException", ex.GetType.FullName, filename) Assert.AreEqual ("Cannot determine array type because it is Nothing.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_2_Boolean_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_2_Boolean_Append_1") Try Dim value As System.Boolean = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Append) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_2_Boolean_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_2_Boolean_Binary_2") Try Dim value As System.Boolean = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Binary) FileGet(1, value) FileClose(1) Assert.AreEqual (False, value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_2_Boolean_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_2_Boolean_Input_3") Try Dim value As System.Boolean = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Input) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_2_Boolean_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_2_Boolean_Output_4") Try Dim value As System.Boolean = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Output) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_2_Boolean_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_2_Boolean_Random_5") Try Dim value As System.Boolean = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Random) FileGet(1, value) FileClose(1) Assert.AreEqual (False, value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_2_Byte_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_2_Byte_Append_1") Try Dim value As System.Byte = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Append) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_2_Byte_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_2_Byte_Binary_2") Try Dim value As System.Byte = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Binary) FileGet(1, value) FileClose(1) Assert.AreEqual (CByte(0), value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_2_Byte_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_2_Byte_Input_3") Try Dim value As System.Byte = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Input) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_2_Byte_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_2_Byte_Output_4") Try Dim value As System.Byte = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Output) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_2_Byte_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_2_Byte_Random_5") Try Dim value As System.Byte = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Random) FileGet(1, value) FileClose(1) Assert.AreEqual (CByte(0), value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_2_Int16_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_2_Int16_Append_1") Try Dim value As System.Int16 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Append) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_2_Int16_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_2_Int16_Binary_2") Try Dim value As System.Int16 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Binary) FileGet(1, value) FileClose(1) Assert.AreEqual (CShort(0), value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_2_Int16_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_2_Int16_Input_3") Try Dim value As System.Int16 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Input) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_2_Int16_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_2_Int16_Output_4") Try Dim value As System.Int16 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Output) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_2_Int16_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_2_Int16_Random_5") Try Dim value As System.Int16 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Random) FileGet(1, value) FileClose(1) Assert.AreEqual (CShort(0), value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_2_Int32_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_2_Int32_Append_1") Try Dim value As System.Int32 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Append) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_2_Int32_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_2_Int32_Binary_2") Try Dim value As System.Int32 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Binary) FileGet(1, value) FileClose(1) Assert.AreEqual (Integer.MinValue, value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_2_Int32_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_2_Int32_Input_3") Try Dim value As System.Int32 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Input) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_2_Int32_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_2_Int32_Output_4") Try Dim value As System.Int32 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Output) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_2_Int32_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_2_Int32_Random_5") Try Dim value As System.Int32 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Random) FileGet(1, value) FileClose(1) Assert.AreEqual (Integer.MinValue, value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_2_Int64_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_2_Int64_Append_1") Try Dim value As System.Int64 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Append) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_2_Int64_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_2_Int64_Binary_2") Try Dim value As System.Int64 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Binary) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.EndOfStreamException ('Unable to read beyond the end of the stream.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.EndOfStreamException", ex.GetType.FullName, filename) Assert.AreEqual ("Unable to read beyond the end of the stream.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_2_Int64_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_2_Int64_Input_3") Try Dim value As System.Int64 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Input) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_2_Int64_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_2_Int64_Output_4") Try Dim value As System.Int64 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Output) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_2_Int64_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_2_Int64_Random_5") Try Dim value As System.Int64 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Random) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.EndOfStreamException ('Unable to read beyond the end of the stream.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.EndOfStreamException", ex.GetType.FullName, filename) Assert.AreEqual ("Unable to read beyond the end of the stream.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_2_Char_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_2_Char_Append_1") Try Dim value As System.Char = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Append) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_2_Char_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_2_Char_Binary_2") Try Dim value As System.Char = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Binary) FileGet(1, value) FileClose(1) Assert.AreEqual (""c, value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_2_Char_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_2_Char_Input_3") Try Dim value As System.Char = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Input) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_2_Char_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_2_Char_Output_4") Try Dim value As System.Char = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Output) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_2_Char_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_2_Char_Random_5") Try Dim value As System.Char = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Random) FileGet(1, value) FileClose(1) Assert.AreEqual (""c, value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_2_Single_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_2_Single_Append_1") Try Dim value As System.Single = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Append) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_2_Single_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_2_Single_Binary_2") Try Dim value As System.Single = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Binary) FileGet(1, value) FileClose(1) Assert.AreEqual (CSng(0), value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_2_Single_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_2_Single_Input_3") Try Dim value As System.Single = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Input) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_2_Single_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_2_Single_Output_4") Try Dim value As System.Single = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Output) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_2_Single_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_2_Single_Random_5") Try Dim value As System.Single = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Random) FileGet(1, value) FileClose(1) Assert.AreEqual (CSng(0), value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_2_Double_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_2_Double_Append_1") Try Dim value As System.Double = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Append) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_2_Double_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_2_Double_Binary_2") Try Dim value As System.Double = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Binary) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.EndOfStreamException ('Unable to read beyond the end of the stream.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.EndOfStreamException", ex.GetType.FullName, filename) Assert.AreEqual ("Unable to read beyond the end of the stream.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_2_Double_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_2_Double_Input_3") Try Dim value As System.Double = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Input) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_2_Double_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_2_Double_Output_4") Try Dim value As System.Double = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Output) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_2_Double_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_2_Double_Random_5") Try Dim value As System.Double = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Random) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.EndOfStreamException ('Unable to read beyond the end of the stream.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.EndOfStreamException", ex.GetType.FullName, filename) Assert.AreEqual ("Unable to read beyond the end of the stream.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_2_Decimal_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_2_Decimal_Append_1") Try Dim value As System.Decimal = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Append) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_2_Decimal_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_2_Decimal_Binary_2") Try Dim value As System.Decimal = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Binary) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.EndOfStreamException ('Unable to read beyond the end of the stream.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.EndOfStreamException", ex.GetType.FullName, filename) Assert.AreEqual ("Unable to read beyond the end of the stream.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_2_Decimal_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_2_Decimal_Input_3") Try Dim value As System.Decimal = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Input) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_2_Decimal_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_2_Decimal_Output_4") Try Dim value As System.Decimal = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Output) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_2_Decimal_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_2_Decimal_Random_5") Try Dim value As System.Decimal = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Random) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.EndOfStreamException ('Unable to read beyond the end of the stream.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.EndOfStreamException", ex.GetType.FullName, filename) Assert.AreEqual ("Unable to read beyond the end of the stream.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_2_String_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_2_String_Append_1") Try Dim value As System.String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Append) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_2_String_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_2_String_Binary_2") Try Dim value As System.String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Binary) FileGet(1, value) FileClose(1) Assert.AreEqual (Nothing, value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_2_String_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_2_String_Input_3") Try Dim value As System.String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Input) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_2_String_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_2_String_Output_4") Try Dim value As System.String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Output) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_2_String_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_2_String_Random_5") Try Dim value As System.String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Random) FileGet(1, value) FileClose(1) Assert.AreEqual (Nothing, value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_2_DateTime_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_2_DateTime_Append_1") Try Dim value As System.DateTime = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Append) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_2_DateTime_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_2_DateTime_Binary_2") Try Dim value As System.DateTime = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Binary) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.EndOfStreamException ('Unable to read beyond the end of the stream.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.EndOfStreamException", ex.GetType.FullName, filename) Assert.AreEqual ("Unable to read beyond the end of the stream.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_2_DateTime_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_2_DateTime_Input_3") Try Dim value As System.DateTime = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Input) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_2_DateTime_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_2_DateTime_Output_4") Try Dim value As System.DateTime = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Output) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_2_DateTime_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_2_DateTime_Random_5") Try Dim value As System.DateTime = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Random) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.EndOfStreamException ('Unable to read beyond the end of the stream.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.EndOfStreamException", ex.GetType.FullName, filename) Assert.AreEqual ("Unable to read beyond the end of the stream.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetObjectTest_2_Object_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "FileGetObjectTest_2_Object_Append_1") Try Dim value As System.Object = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Append) FileGetObject(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetObjectTest_2_Object_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "FileGetObjectTest_2_Object_Binary_2") Try Dim value As System.Object = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Binary) FileGetObject(1, value) FileClose(1) Assert.AreEqual (Nothing, value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FileGetObjectTest_2_Object_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "FileGetObjectTest_2_Object_Input_3") Try Dim value As System.Object = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Input) FileGetObject(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetObjectTest_2_Object_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "FileGetObjectTest_2_Object_Output_4") Try Dim value As System.Object = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Output) FileGetObject(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetObjectTest_2_Object_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "FileGetObjectTest_2_Object_Random_5") Try Dim value As System.Object = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Random) FileGetObject(1, value) FileClose(1) Assert.AreEqual (Nothing, value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub InputTest_2_Object_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_2_Object_Append_1") Try Dim value As System.Object = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Append) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_2_Object_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_2_Object_Binary_2") Try Dim value As System.Object = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Binary) Input(1, value) FileClose(1) Assert.AreEqual ("€", value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub InputTest_2_Object_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_2_Object_Input_3") Try Dim value As System.Object = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Input) Input(1, value) FileClose(1) Assert.AreEqual ("€", value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub InputTest_2_Object_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_2_Object_Output_4") Try Dim value As System.Object = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Output) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_2_Object_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_2_Object_Random_5") Try Dim value As System.Object = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Random) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_2_Boolean_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_2_Boolean_Append_1") Try Dim value As System.Boolean = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Append) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_2_Boolean_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_2_Boolean_Binary_2") Try Dim value As System.Boolean = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Binary) Input(1, value) FileClose(1) Assert.Fail ("Expected System.InvalidCastException ('Conversion from string ""€"" to type 'Boolean' is not valid.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.InvalidCastException", ex.GetType.FullName, filename) #If NET_VER >= 2.0 Then Assert.AreEqual ("Conversion from string ""€"" to type 'Boolean' is not valid.", ex.Message, filename) #Else Assert.AreEqual ("Cast from string ""€"" to type 'Boolean' is not valid.", ex.Message, filename) #End If Finally CleanUp() End Try End Sub _ Sub InputTest_2_Boolean_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_2_Boolean_Input_3") Try Dim value As System.Boolean = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Input) Input(1, value) FileClose(1) Assert.Fail ("Expected System.InvalidCastException ('Conversion from string ""€"" to type 'Boolean' is not valid.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.InvalidCastException", ex.GetType.FullName, filename) #If NET_VER >= 2.0 Then Assert.AreEqual ("Conversion from string ""€"" to type 'Boolean' is not valid.", ex.Message, filename) #Else Assert.AreEqual ("Cast from string ""€"" to type 'Boolean' is not valid.", ex.Message, filename) #End If Finally CleanUp() End Try End Sub _ Sub InputTest_2_Boolean_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_2_Boolean_Output_4") Try Dim value As System.Boolean = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Output) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_2_Boolean_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_2_Boolean_Random_5") Try Dim value As System.Boolean = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Random) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_2_Byte_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_2_Byte_Append_1") Try Dim value As System.Byte = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Append) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_2_Byte_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_2_Byte_Binary_2") Try Dim value As System.Byte = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Binary) Input(1, value) FileClose(1) Assert.Fail ("Expected System.InvalidCastException ('Conversion from string ""€"" to type 'Byte' is not valid.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.InvalidCastException", ex.GetType.FullName, filename) #If NET_VER >= 2.0 Then Assert.AreEqual ("Conversion from string ""€"" to type 'Byte' is not valid.", ex.Message, filename) #Else Assert.AreEqual ("Cast from string ""€"" to type 'Byte' is not valid.", ex.Message, filename) #End If Finally CleanUp() End Try End Sub _ Sub InputTest_2_Byte_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_2_Byte_Input_3") Try Dim value As System.Byte = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Input) Input(1, value) FileClose(1) Assert.Fail ("Expected System.InvalidCastException ('Conversion from string ""€"" to type 'Byte' is not valid.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.InvalidCastException", ex.GetType.FullName, filename) #If NET_VER >= 2.0 Then Assert.AreEqual ("Conversion from string ""€"" to type 'Byte' is not valid.", ex.Message, filename) #Else Assert.AreEqual ("Cast from string ""€"" to type 'Byte' is not valid.", ex.Message, filename) #End If Finally CleanUp() End Try End Sub _ Sub InputTest_2_Byte_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_2_Byte_Output_4") Try Dim value As System.Byte = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Output) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_2_Byte_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_2_Byte_Random_5") Try Dim value As System.Byte = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Random) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_2_Int16_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_2_Int16_Append_1") Try Dim value As System.Int16 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Append) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_2_Int16_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_2_Int16_Binary_2") Try Dim value As System.Int16 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Binary) Input(1, value) FileClose(1) Assert.Fail ("Expected System.InvalidCastException ('Conversion from string ""€"" to type 'Short' is not valid.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.InvalidCastException", ex.GetType.FullName, filename) #If NET_VER >= 2.0 Then Assert.AreEqual ("Conversion from string ""€"" to type 'Short' is not valid.", ex.Message, filename) #Else Assert.AreEqual ("Cast from string ""€"" to type 'Short' is not valid.", ex.Message, filename) #End If Finally CleanUp() End Try End Sub _ Sub InputTest_2_Int16_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_2_Int16_Input_3") Try Dim value As System.Int16 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Input) Input(1, value) FileClose(1) Assert.Fail ("Expected System.InvalidCastException ('Conversion from string ""€"" to type 'Short' is not valid.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.InvalidCastException", ex.GetType.FullName, filename) #If NET_VER >= 2.0 Then Assert.AreEqual ("Conversion from string ""€"" to type 'Short' is not valid.", ex.Message, filename) #Else Assert.AreEqual ("Cast from string ""€"" to type 'Short' is not valid.", ex.Message, filename) #End If Finally CleanUp() End Try End Sub _ Sub InputTest_2_Int16_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_2_Int16_Output_4") Try Dim value As System.Int16 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Output) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_2_Int16_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_2_Int16_Random_5") Try Dim value As System.Int16 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Random) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_2_Int32_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_2_Int32_Append_1") Try Dim value As System.Int32 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Append) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_2_Int32_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_2_Int32_Binary_2") Try Dim value As System.Int32 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Binary) Input(1, value) FileClose(1) Assert.Fail ("Expected System.InvalidCastException ('Conversion from string ""€"" to type 'Integer' is not valid.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.InvalidCastException", ex.GetType.FullName, filename) #If NET_VER >= 2.0 Then Assert.AreEqual ("Conversion from string ""€"" to type 'Integer' is not valid.", ex.Message, filename) #Else Assert.AreEqual ("Cast from string ""€"" to type 'Integer' is not valid.", ex.Message, filename) #End If Finally CleanUp() End Try End Sub _ Sub InputTest_2_Int32_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_2_Int32_Input_3") Try Dim value As System.Int32 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Input) Input(1, value) FileClose(1) Assert.Fail ("Expected System.InvalidCastException ('Conversion from string ""€"" to type 'Integer' is not valid.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.InvalidCastException", ex.GetType.FullName, filename) #If NET_VER >= 2.0 Then Assert.AreEqual ("Conversion from string ""€"" to type 'Integer' is not valid.", ex.Message, filename) #Else Assert.AreEqual ("Cast from string ""€"" to type 'Integer' is not valid.", ex.Message, filename) #End If Finally CleanUp() End Try End Sub _ Sub InputTest_2_Int32_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_2_Int32_Output_4") Try Dim value As System.Int32 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Output) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_2_Int32_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_2_Int32_Random_5") Try Dim value As System.Int32 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Random) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_2_Int64_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_2_Int64_Append_1") Try Dim value As System.Int64 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Append) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_2_Int64_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_2_Int64_Binary_2") Try Dim value As System.Int64 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Binary) Input(1, value) FileClose(1) Assert.Fail ("Expected System.InvalidCastException ('Conversion from string ""€"" to type 'Long' is not valid.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.InvalidCastException", ex.GetType.FullName, filename) #If NET_VER >= 2.0 Then Assert.AreEqual ("Conversion from string ""€"" to type 'Long' is not valid.", ex.Message, filename) #Else Assert.AreEqual ("Cast from string ""€"" to type 'Long' is not valid.", ex.Message, filename) #End If Finally CleanUp() End Try End Sub _ Sub InputTest_2_Int64_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_2_Int64_Input_3") Try Dim value As System.Int64 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Input) Input(1, value) FileClose(1) Assert.Fail ("Expected System.InvalidCastException ('Conversion from string ""€"" to type 'Long' is not valid.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.InvalidCastException", ex.GetType.FullName, filename) #If NET_VER >= 2.0 Then Assert.AreEqual ("Conversion from string ""€"" to type 'Long' is not valid.", ex.Message, filename) #Else Assert.AreEqual ("Cast from string ""€"" to type 'Long' is not valid.", ex.Message, filename) #End If Finally CleanUp() End Try End Sub _ Sub InputTest_2_Int64_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_2_Int64_Output_4") Try Dim value As System.Int64 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Output) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_2_Int64_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_2_Int64_Random_5") Try Dim value As System.Int64 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Random) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_2_Char_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_2_Char_Append_1") Try Dim value As System.Char = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Append) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_2_Char_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_2_Char_Binary_2") Try Dim value As System.Char = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Binary) Input(1, value) FileClose(1) Assert.AreEqual ("€"c, value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub InputTest_2_Char_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_2_Char_Input_3") Try Dim value As System.Char = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Input) Input(1, value) FileClose(1) Assert.AreEqual ("€"c, value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub InputTest_2_Char_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_2_Char_Output_4") Try Dim value As System.Char = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Output) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_2_Char_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_2_Char_Random_5") Try Dim value As System.Char = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Random) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_2_Single_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_2_Single_Append_1") Try Dim value As System.Single = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Append) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_2_Single_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_2_Single_Binary_2") Try Dim value As System.Single = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Binary) Input(1, value) FileClose(1) Assert.Fail ("Expected System.InvalidCastException ('Conversion from string ""€"" to type 'Single' is not valid.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.InvalidCastException", ex.GetType.FullName, filename) #If NET_VER >= 2.0 Then Assert.AreEqual ("Conversion from string ""€"" to type 'Single' is not valid.", ex.Message, filename) #Else Assert.AreEqual ("Cast from string ""€"" to type 'Single' is not valid.", ex.Message, filename) #End If Finally CleanUp() End Try End Sub _ Sub InputTest_2_Single_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_2_Single_Input_3") Try Dim value As System.Single = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Input) Input(1, value) FileClose(1) Assert.Fail ("Expected System.InvalidCastException ('Conversion from string ""€"" to type 'Single' is not valid.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.InvalidCastException", ex.GetType.FullName, filename) #If NET_VER >= 2.0 Then Assert.AreEqual ("Conversion from string ""€"" to type 'Single' is not valid.", ex.Message, filename) #Else Assert.AreEqual ("Cast from string ""€"" to type 'Single' is not valid.", ex.Message, filename) #End If Finally CleanUp() End Try End Sub _ Sub InputTest_2_Single_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_2_Single_Output_4") Try Dim value As System.Single = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Output) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_2_Single_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_2_Single_Random_5") Try Dim value As System.Single = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Random) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_2_Double_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_2_Double_Append_1") Try Dim value As System.Double = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Append) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_2_Double_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_2_Double_Binary_2") Try Dim value As System.Double = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Binary) Input(1, value) FileClose(1) Assert.Fail ("Expected System.InvalidCastException ('Conversion from string ""€"" to type 'Double' is not valid.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.InvalidCastException", ex.GetType.FullName, filename) #If NET_VER >= 2.0 Then Assert.AreEqual ("Conversion from string ""€"" to type 'Double' is not valid.", ex.Message, filename) #Else Assert.AreEqual ("Cast from string ""€"" to type 'Double' is not valid.", ex.Message, filename) #End If Finally CleanUp() End Try End Sub _ Sub InputTest_2_Double_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_2_Double_Input_3") Try Dim value As System.Double = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Input) Input(1, value) FileClose(1) Assert.Fail ("Expected System.InvalidCastException ('Conversion from string ""€"" to type 'Double' is not valid.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.InvalidCastException", ex.GetType.FullName, filename) #If NET_VER >= 2.0 Then Assert.AreEqual ("Conversion from string ""€"" to type 'Double' is not valid.", ex.Message, filename) #Else Assert.AreEqual ("Cast from string ""€"" to type 'Double' is not valid.", ex.Message, filename) #End If Finally CleanUp() End Try End Sub _ Sub InputTest_2_Double_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_2_Double_Output_4") Try Dim value As System.Double = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Output) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_2_Double_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_2_Double_Random_5") Try Dim value As System.Double = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Random) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_2_Decimal_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_2_Decimal_Append_1") Try Dim value As System.Decimal = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Append) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_2_Decimal_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_2_Decimal_Binary_2") Try Dim value As System.Decimal = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Binary) Input(1, value) FileClose(1) Assert.Fail ("Expected System.InvalidCastException ('Conversion from string ""€"" to type 'Decimal' is not valid.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.InvalidCastException", ex.GetType.FullName, filename) #If NET_VER >= 2.0 Then Assert.AreEqual ("Conversion from string ""€"" to type 'Decimal' is not valid.", ex.Message, filename) #Else Assert.AreEqual ("Cast from string ""€"" to type 'Decimal' is not valid.", ex.Message, filename) #End If Finally CleanUp() End Try End Sub _ Sub InputTest_2_Decimal_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_2_Decimal_Input_3") Try Dim value As System.Decimal = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Input) Input(1, value) FileClose(1) Assert.Fail ("Expected System.InvalidCastException ('Conversion from string ""€"" to type 'Decimal' is not valid.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.InvalidCastException", ex.GetType.FullName, filename) #If NET_VER >= 2.0 Then Assert.AreEqual ("Conversion from string ""€"" to type 'Decimal' is not valid.", ex.Message, filename) #Else Assert.AreEqual ("Cast from string ""€"" to type 'Decimal' is not valid.", ex.Message, filename) #End If Finally CleanUp() End Try End Sub _ Sub InputTest_2_Decimal_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_2_Decimal_Output_4") Try Dim value As System.Decimal = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Output) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_2_Decimal_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_2_Decimal_Random_5") Try Dim value As System.Decimal = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Random) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_2_String_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_2_String_Append_1") Try Dim value As System.String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Append) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_2_String_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_2_String_Binary_2") Try Dim value As System.String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Binary) Input(1, value) FileClose(1) Assert.AreEqual ("€", value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub InputTest_2_String_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_2_String_Input_3") Try Dim value As System.String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Input) Input(1, value) FileClose(1) Assert.AreEqual ("€", value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub InputTest_2_String_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_2_String_Output_4") Try Dim value As System.String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Output) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_2_String_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_2_String_Random_5") Try Dim value As System.String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Random) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_2_DateTime_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_2_DateTime_Append_1") Try Dim value As System.DateTime = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Append) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_2_DateTime_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_2_DateTime_Binary_2") Try Dim value As System.DateTime = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Binary) Input(1, value) FileClose(1) Assert.Fail ("Expected System.InvalidCastException ('Conversion from string ""€"" to type 'Date' is not valid.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.InvalidCastException", ex.GetType.FullName, filename) #If NET_VER >= 2.0 Then Assert.AreEqual ("Conversion from string ""€"" to type 'Date' is not valid.", ex.Message, filename) #Else Assert.AreEqual ("Cast from string ""€"" to type 'Date' is not valid.", ex.Message, filename) #End If Finally CleanUp() End Try End Sub _ Sub InputTest_2_DateTime_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_2_DateTime_Input_3") Try Dim value As System.DateTime = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Input) Input(1, value) FileClose(1) Assert.Fail ("Expected System.InvalidCastException ('Conversion from string ""€"" to type 'Date' is not valid.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.InvalidCastException", ex.GetType.FullName, filename) #If NET_VER >= 2.0 Then Assert.AreEqual ("Conversion from string ""€"" to type 'Date' is not valid.", ex.Message, filename) #Else Assert.AreEqual ("Cast from string ""€"" to type 'Date' is not valid.", ex.Message, filename) #End If Finally CleanUp() End Try End Sub _ Sub InputTest_2_DateTime_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_2_DateTime_Output_4") Try Dim value As System.DateTime = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Output) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_2_DateTime_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_2_DateTime_Random_5") Try Dim value As System.DateTime = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Random) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub LineInputTest_3_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "LineInputTest_3_Append_1") Try Dim value As String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Append) value = LineInput(1) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub LineInputTest_3_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "LineInputTest_3_Binary_2") Try Dim value As String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Binary) value = LineInput(1) FileClose(1) Assert.AreEqual ("€", value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub LineInputTest_3_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "LineInputTest_3_Input_3") Try Dim value As String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Input) value = LineInput(1) FileClose(1) Assert.AreEqual ("€", value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub LineInputTest_3_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "LineInputTest_3_Output_4") Try Dim value As String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Output) value = LineInput(1) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub LineInputTest_3_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "LineInputTest_3_Random_5") Try Dim value As String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Random) value = LineInput(1) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputStringTest_3_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "InputStringTest_3_Append_1") Try Dim value As String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Append) value = InputString(1, 8) FileClose(1) Assert.Fail ("Expected System.NullReferenceException ('Object reference not set to an instance of an object.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception #If NET_VER >= 2.0 Then Assert.AreEqual ("System.NullReferenceException", ex.GetType.FullName, filename) #Else Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) #End If #If NET_VER >= 2.0 Then Assert.AreEqual ("Object reference not set to an instance of an object.", ex.Message, filename) #Else Assert.AreEqual ("Bad file mode.", ex.Message, filename) #End If Finally CleanUp() End Try End Sub _ Sub InputStringTest_3_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "InputStringTest_3_Binary_2") Try Dim value As String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Binary) value = InputString(1, 8) FileClose(1) Assert.AreEqual ("€", value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub InputStringTest_3_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "InputStringTest_3_Input_3") Try Dim value As String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Input) value = InputString(1, 8) FileClose(1) Assert.AreEqual ("€", value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub InputStringTest_3_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "InputStringTest_3_Output_4") Try Dim value As String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Output) value = InputString(1, 8) FileClose(1) Assert.Fail ("Expected System.NullReferenceException ('Object reference not set to an instance of an object.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception #If NET_VER >= 2.0 Then Assert.AreEqual ("System.NullReferenceException", ex.GetType.FullName, filename) #Else Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) #End If #If NET_VER >= 2.0 Then Assert.AreEqual ("Object reference not set to an instance of an object.", ex.Message, filename) #Else Assert.AreEqual ("Bad file mode.", ex.Message, filename) #End If Finally CleanUp() End Try End Sub _ Sub InputStringTest_3_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "InputStringTest_3_Random_5") Try Dim value As String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Random) value = InputString(1, 8) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_3_ValueType_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_3_ValueType_Append_1") Try Dim value As System.ValueType = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Append) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_3_ValueType_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_3_ValueType_Binary_2") Try Dim value As System.ValueType = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Binary) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.NullReferenceException ('Object reference not set to an instance of an object.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.NullReferenceException", ex.GetType.FullName, filename) Assert.AreEqual ("Object reference not set to an instance of an object.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_3_ValueType_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_3_ValueType_Input_3") Try Dim value As System.ValueType = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Input) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_3_ValueType_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_3_ValueType_Output_4") Try Dim value As System.ValueType = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Output) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_3_ValueType_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_3_ValueType_Random_5") Try Dim value As System.ValueType = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Random) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.NullReferenceException ('Object reference not set to an instance of an object.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.NullReferenceException", ex.GetType.FullName, filename) Assert.AreEqual ("Object reference not set to an instance of an object.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_3_Array_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_3_Array_Append_1") Try Dim value As System.Array = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Append) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_3_Array_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_3_Array_Binary_2") Try Dim value As System.Array = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Binary) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.ArgumentException ('Cannot determine array type because it is Nothing.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.ArgumentException", ex.GetType.FullName, filename) Assert.AreEqual ("Cannot determine array type because it is Nothing.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_3_Array_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_3_Array_Input_3") Try Dim value As System.Array = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Input) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_3_Array_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_3_Array_Output_4") Try Dim value As System.Array = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Output) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_3_Array_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_3_Array_Random_5") Try Dim value As System.Array = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Random) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.ArgumentException ('Cannot determine array type because it is Nothing.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.ArgumentException", ex.GetType.FullName, filename) Assert.AreEqual ("Cannot determine array type because it is Nothing.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_3_Boolean_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_3_Boolean_Append_1") Try Dim value As System.Boolean = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Append) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_3_Boolean_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_3_Boolean_Binary_2") Try Dim value As System.Boolean = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Binary) FileGet(1, value) FileClose(1) Assert.AreEqual (False, value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_3_Boolean_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_3_Boolean_Input_3") Try Dim value As System.Boolean = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Input) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_3_Boolean_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_3_Boolean_Output_4") Try Dim value As System.Boolean = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Output) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_3_Boolean_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_3_Boolean_Random_5") Try Dim value As System.Boolean = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Random) FileGet(1, value) FileClose(1) Assert.AreEqual (False, value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_3_Byte_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_3_Byte_Append_1") Try Dim value As System.Byte = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Append) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_3_Byte_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_3_Byte_Binary_2") Try Dim value As System.Byte = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Binary) FileGet(1, value) FileClose(1) Assert.AreEqual (CByte(0), value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_3_Byte_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_3_Byte_Input_3") Try Dim value As System.Byte = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Input) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_3_Byte_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_3_Byte_Output_4") Try Dim value As System.Byte = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Output) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_3_Byte_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_3_Byte_Random_5") Try Dim value As System.Byte = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Random) FileGet(1, value) FileClose(1) Assert.AreEqual (CByte(0), value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_3_Int16_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_3_Int16_Append_1") Try Dim value As System.Int16 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Append) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_3_Int16_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_3_Int16_Binary_2") Try Dim value As System.Int16 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Binary) FileGet(1, value) FileClose(1) Assert.AreEqual (CShort(0), value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_3_Int16_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_3_Int16_Input_3") Try Dim value As System.Int16 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Input) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_3_Int16_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_3_Int16_Output_4") Try Dim value As System.Int16 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Output) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_3_Int16_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_3_Int16_Random_5") Try Dim value As System.Int16 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Random) FileGet(1, value) FileClose(1) Assert.AreEqual (CShort(0), value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_3_Int32_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_3_Int32_Append_1") Try Dim value As System.Int32 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Append) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_3_Int32_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_3_Int32_Binary_2") Try Dim value As System.Int32 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Binary) FileGet(1, value) FileClose(1) Assert.AreEqual (CInt(0), value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_3_Int32_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_3_Int32_Input_3") Try Dim value As System.Int32 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Input) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_3_Int32_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_3_Int32_Output_4") Try Dim value As System.Int32 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Output) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_3_Int32_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_3_Int32_Random_5") Try Dim value As System.Int32 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Random) FileGet(1, value) FileClose(1) Assert.AreEqual (CInt(0), value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_3_Int64_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_3_Int64_Append_1") Try Dim value As System.Int64 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Append) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_3_Int64_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_3_Int64_Binary_2") Try Dim value As System.Int64 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Binary) FileGet(1, value) FileClose(1) Assert.AreEqual (Long.MinValue, value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_3_Int64_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_3_Int64_Input_3") Try Dim value As System.Int64 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Input) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_3_Int64_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_3_Int64_Output_4") Try Dim value As System.Int64 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Output) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_3_Int64_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_3_Int64_Random_5") Try Dim value As System.Int64 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Random) FileGet(1, value) FileClose(1) Assert.AreEqual (Long.MinValue, value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_3_Char_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_3_Char_Append_1") Try Dim value As System.Char = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Append) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_3_Char_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_3_Char_Binary_2") Try Dim value As System.Char = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Binary) FileGet(1, value) FileClose(1) Assert.AreEqual (""c, value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_3_Char_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_3_Char_Input_3") Try Dim value As System.Char = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Input) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_3_Char_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_3_Char_Output_4") Try Dim value As System.Char = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Output) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_3_Char_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_3_Char_Random_5") Try Dim value As System.Char = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Random) FileGet(1, value) FileClose(1) Assert.AreEqual (""c, value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_3_Single_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_3_Single_Append_1") Try Dim value As System.Single = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Append) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_3_Single_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_3_Single_Binary_2") Try Dim value As System.Single = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Binary) FileGet(1, value) FileClose(1) Assert.AreEqual (CSng(0), value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_3_Single_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_3_Single_Input_3") Try Dim value As System.Single = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Input) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_3_Single_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_3_Single_Output_4") Try Dim value As System.Single = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Output) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_3_Single_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_3_Single_Random_5") Try Dim value As System.Single = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Random) FileGet(1, value) FileClose(1) Assert.AreEqual (CSng(0), value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_3_Double_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_3_Double_Append_1") Try Dim value As System.Double = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Append) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_3_Double_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_3_Double_Binary_2") Try Dim value As System.Double = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Binary) FileGet(1, value) FileClose(1) Assert.AreEqual (CDbl(0), value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_3_Double_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_3_Double_Input_3") Try Dim value As System.Double = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Input) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_3_Double_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_3_Double_Output_4") Try Dim value As System.Double = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Output) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_3_Double_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_3_Double_Random_5") Try Dim value As System.Double = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Random) FileGet(1, value) FileClose(1) Assert.AreEqual (CDbl(0), value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_3_Decimal_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_3_Decimal_Append_1") Try Dim value As System.Decimal = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Append) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_3_Decimal_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_3_Decimal_Binary_2") Try Dim value As System.Decimal = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Binary) FileGet(1, value) FileClose(1) Assert.AreEqual (-922337203685477.5808D, value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_3_Decimal_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_3_Decimal_Input_3") Try Dim value As System.Decimal = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Input) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_3_Decimal_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_3_Decimal_Output_4") Try Dim value As System.Decimal = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Output) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_3_Decimal_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_3_Decimal_Random_5") Try Dim value As System.Decimal = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Random) FileGet(1, value) FileClose(1) Assert.AreEqual (-922337203685477.5808D, value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_3_String_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_3_String_Append_1") Try Dim value As System.String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Append) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_3_String_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_3_String_Binary_2") Try Dim value As System.String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Binary) FileGet(1, value) FileClose(1) Assert.AreEqual (Nothing, value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_3_String_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_3_String_Input_3") Try Dim value As System.String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Input) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_3_String_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_3_String_Output_4") Try Dim value As System.String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Output) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_3_String_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_3_String_Random_5") Try Dim value As System.String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Random) FileGet(1, value) FileClose(1) Assert.AreEqual (Nothing, value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_3_DateTime_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_3_DateTime_Append_1") Try Dim value As System.DateTime = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Append) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_3_DateTime_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_3_DateTime_Binary_2") Try Dim value As System.DateTime = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Binary) FileGet(1, value) FileClose(1) Assert.AreEqual (#12/30/1899 12:00:00 AM#, value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_3_DateTime_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_3_DateTime_Input_3") Try Dim value As System.DateTime = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Input) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_3_DateTime_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_3_DateTime_Output_4") Try Dim value As System.DateTime = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Output) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_3_DateTime_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_3_DateTime_Random_5") Try Dim value As System.DateTime = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Random) FileGet(1, value) FileClose(1) Assert.AreEqual (#12/30/1899 12:00:00 AM#, value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FileGetObjectTest_3_Object_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "FileGetObjectTest_3_Object_Append_1") Try Dim value As System.Object = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Append) FileGetObject(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetObjectTest_3_Object_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "FileGetObjectTest_3_Object_Binary_2") Try Dim value As System.Object = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Binary) FileGetObject(1, value) FileClose(1) Assert.AreEqual (Nothing, value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FileGetObjectTest_3_Object_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "FileGetObjectTest_3_Object_Input_3") Try Dim value As System.Object = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Input) FileGetObject(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetObjectTest_3_Object_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "FileGetObjectTest_3_Object_Output_4") Try Dim value As System.Object = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Output) FileGetObject(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetObjectTest_3_Object_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "FileGetObjectTest_3_Object_Random_5") Try Dim value As System.Object = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Random) FileGetObject(1, value) FileClose(1) Assert.AreEqual (Nothing, value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub InputTest_3_Object_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_3_Object_Append_1") Try Dim value As System.Object = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Append) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_3_Object_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_3_Object_Binary_2") Try Dim value As System.Object = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Binary) Input(1, value) FileClose(1) Assert.AreEqual ("€", value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub InputTest_3_Object_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_3_Object_Input_3") Try Dim value As System.Object = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Input) Input(1, value) FileClose(1) Assert.AreEqual ("€", value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub InputTest_3_Object_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_3_Object_Output_4") Try Dim value As System.Object = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Output) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_3_Object_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_3_Object_Random_5") Try Dim value As System.Object = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Random) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_3_Boolean_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_3_Boolean_Append_1") Try Dim value As System.Boolean = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Append) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_3_Boolean_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_3_Boolean_Binary_2") Try Dim value As System.Boolean = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Binary) Input(1, value) FileClose(1) Assert.Fail ("Expected System.InvalidCastException ('Conversion from string ""€"" to type 'Boolean' is not valid.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.InvalidCastException", ex.GetType.FullName, filename) #If NET_VER >= 2.0 Then Assert.AreEqual ("Conversion from string ""€"" to type 'Boolean' is not valid.", ex.Message, filename) #Else Assert.AreEqual ("Cast from string ""€"" to type 'Boolean' is not valid.", ex.Message, filename) #End If Finally CleanUp() End Try End Sub _ Sub InputTest_3_Boolean_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_3_Boolean_Input_3") Try Dim value As System.Boolean = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Input) Input(1, value) FileClose(1) Assert.Fail ("Expected System.InvalidCastException ('Conversion from string ""€"" to type 'Boolean' is not valid.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.InvalidCastException", ex.GetType.FullName, filename) #If NET_VER >= 2.0 Then Assert.AreEqual ("Conversion from string ""€"" to type 'Boolean' is not valid.", ex.Message, filename) #Else Assert.AreEqual ("Cast from string ""€"" to type 'Boolean' is not valid.", ex.Message, filename) #End If Finally CleanUp() End Try End Sub _ Sub InputTest_3_Boolean_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_3_Boolean_Output_4") Try Dim value As System.Boolean = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Output) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_3_Boolean_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_3_Boolean_Random_5") Try Dim value As System.Boolean = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Random) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_3_Byte_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_3_Byte_Append_1") Try Dim value As System.Byte = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Append) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_3_Byte_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_3_Byte_Binary_2") Try Dim value As System.Byte = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Binary) Input(1, value) FileClose(1) Assert.Fail ("Expected System.InvalidCastException ('Conversion from string ""€"" to type 'Byte' is not valid.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.InvalidCastException", ex.GetType.FullName, filename) #If NET_VER >= 2.0 Then Assert.AreEqual ("Conversion from string ""€"" to type 'Byte' is not valid.", ex.Message, filename) #Else Assert.AreEqual ("Cast from string ""€"" to type 'Byte' is not valid.", ex.Message, filename) #End If Finally CleanUp() End Try End Sub _ Sub InputTest_3_Byte_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_3_Byte_Input_3") Try Dim value As System.Byte = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Input) Input(1, value) FileClose(1) Assert.Fail ("Expected System.InvalidCastException ('Conversion from string ""€"" to type 'Byte' is not valid.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.InvalidCastException", ex.GetType.FullName, filename) #If NET_VER >= 2.0 Then Assert.AreEqual ("Conversion from string ""€"" to type 'Byte' is not valid.", ex.Message, filename) #Else Assert.AreEqual ("Cast from string ""€"" to type 'Byte' is not valid.", ex.Message, filename) #End If Finally CleanUp() End Try End Sub _ Sub InputTest_3_Byte_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_3_Byte_Output_4") Try Dim value As System.Byte = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Output) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_3_Byte_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_3_Byte_Random_5") Try Dim value As System.Byte = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Random) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_3_Int16_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_3_Int16_Append_1") Try Dim value As System.Int16 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Append) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_3_Int16_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_3_Int16_Binary_2") Try Dim value As System.Int16 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Binary) Input(1, value) FileClose(1) Assert.Fail ("Expected System.InvalidCastException ('Conversion from string ""€"" to type 'Short' is not valid.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.InvalidCastException", ex.GetType.FullName, filename) #If NET_VER >= 2.0 Then Assert.AreEqual ("Conversion from string ""€"" to type 'Short' is not valid.", ex.Message, filename) #Else Assert.AreEqual ("Cast from string ""€"" to type 'Short' is not valid.", ex.Message, filename) #End If Finally CleanUp() End Try End Sub _ Sub InputTest_3_Int16_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_3_Int16_Input_3") Try Dim value As System.Int16 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Input) Input(1, value) FileClose(1) Assert.Fail ("Expected System.InvalidCastException ('Conversion from string ""€"" to type 'Short' is not valid.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.InvalidCastException", ex.GetType.FullName, filename) #If NET_VER >= 2.0 Then Assert.AreEqual ("Conversion from string ""€"" to type 'Short' is not valid.", ex.Message, filename) #Else Assert.AreEqual ("Cast from string ""€"" to type 'Short' is not valid.", ex.Message, filename) #End If Finally CleanUp() End Try End Sub _ Sub InputTest_3_Int16_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_3_Int16_Output_4") Try Dim value As System.Int16 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Output) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_3_Int16_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_3_Int16_Random_5") Try Dim value As System.Int16 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Random) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_3_Int32_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_3_Int32_Append_1") Try Dim value As System.Int32 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Append) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_3_Int32_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_3_Int32_Binary_2") Try Dim value As System.Int32 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Binary) Input(1, value) FileClose(1) Assert.Fail ("Expected System.InvalidCastException ('Conversion from string ""€"" to type 'Integer' is not valid.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.InvalidCastException", ex.GetType.FullName, filename) #If NET_VER >= 2.0 Then Assert.AreEqual ("Conversion from string ""€"" to type 'Integer' is not valid.", ex.Message, filename) #Else Assert.AreEqual ("Cast from string ""€"" to type 'Integer' is not valid.", ex.Message, filename) #End If Finally CleanUp() End Try End Sub _ Sub InputTest_3_Int32_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_3_Int32_Input_3") Try Dim value As System.Int32 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Input) Input(1, value) FileClose(1) Assert.Fail ("Expected System.InvalidCastException ('Conversion from string ""€"" to type 'Integer' is not valid.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.InvalidCastException", ex.GetType.FullName, filename) #If NET_VER >= 2.0 Then Assert.AreEqual ("Conversion from string ""€"" to type 'Integer' is not valid.", ex.Message, filename) #Else Assert.AreEqual ("Cast from string ""€"" to type 'Integer' is not valid.", ex.Message, filename) #End If Finally CleanUp() End Try End Sub _ Sub InputTest_3_Int32_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_3_Int32_Output_4") Try Dim value As System.Int32 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Output) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_3_Int32_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_3_Int32_Random_5") Try Dim value As System.Int32 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Random) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_3_Int64_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_3_Int64_Append_1") Try Dim value As System.Int64 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Append) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_3_Int64_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_3_Int64_Binary_2") Try Dim value As System.Int64 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Binary) Input(1, value) FileClose(1) Assert.Fail ("Expected System.InvalidCastException ('Conversion from string ""€"" to type 'Long' is not valid.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.InvalidCastException", ex.GetType.FullName, filename) #If NET_VER >= 2.0 Then Assert.AreEqual ("Conversion from string ""€"" to type 'Long' is not valid.", ex.Message, filename) #Else Assert.AreEqual ("Cast from string ""€"" to type 'Long' is not valid.", ex.Message, filename) #End If Finally CleanUp() End Try End Sub _ Sub InputTest_3_Int64_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_3_Int64_Input_3") Try Dim value As System.Int64 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Input) Input(1, value) FileClose(1) Assert.Fail ("Expected System.InvalidCastException ('Conversion from string ""€"" to type 'Long' is not valid.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.InvalidCastException", ex.GetType.FullName, filename) #If NET_VER >= 2.0 Then Assert.AreEqual ("Conversion from string ""€"" to type 'Long' is not valid.", ex.Message, filename) #Else Assert.AreEqual ("Cast from string ""€"" to type 'Long' is not valid.", ex.Message, filename) #End If Finally CleanUp() End Try End Sub _ Sub InputTest_3_Int64_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_3_Int64_Output_4") Try Dim value As System.Int64 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Output) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_3_Int64_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_3_Int64_Random_5") Try Dim value As System.Int64 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Random) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_3_Char_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_3_Char_Append_1") Try Dim value As System.Char = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Append) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_3_Char_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_3_Char_Binary_2") Try Dim value As System.Char = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Binary) Input(1, value) FileClose(1) Assert.AreEqual ("€"c, value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub InputTest_3_Char_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_3_Char_Input_3") Try Dim value As System.Char = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Input) Input(1, value) FileClose(1) Assert.AreEqual ("€"c, value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub InputTest_3_Char_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_3_Char_Output_4") Try Dim value As System.Char = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Output) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_3_Char_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_3_Char_Random_5") Try Dim value As System.Char = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Random) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_3_Single_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_3_Single_Append_1") Try Dim value As System.Single = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Append) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_3_Single_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_3_Single_Binary_2") Try Dim value As System.Single = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Binary) Input(1, value) FileClose(1) Assert.Fail ("Expected System.InvalidCastException ('Conversion from string ""€"" to type 'Single' is not valid.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.InvalidCastException", ex.GetType.FullName, filename) #If NET_VER >= 2.0 Then Assert.AreEqual ("Conversion from string ""€"" to type 'Single' is not valid.", ex.Message, filename) #Else Assert.AreEqual ("Cast from string ""€"" to type 'Single' is not valid.", ex.Message, filename) #End If Finally CleanUp() End Try End Sub _ Sub InputTest_3_Single_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_3_Single_Input_3") Try Dim value As System.Single = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Input) Input(1, value) FileClose(1) Assert.Fail ("Expected System.InvalidCastException ('Conversion from string ""€"" to type 'Single' is not valid.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.InvalidCastException", ex.GetType.FullName, filename) #If NET_VER >= 2.0 Then Assert.AreEqual ("Conversion from string ""€"" to type 'Single' is not valid.", ex.Message, filename) #Else Assert.AreEqual ("Cast from string ""€"" to type 'Single' is not valid.", ex.Message, filename) #End If Finally CleanUp() End Try End Sub _ Sub InputTest_3_Single_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_3_Single_Output_4") Try Dim value As System.Single = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Output) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_3_Single_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_3_Single_Random_5") Try Dim value As System.Single = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Random) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_3_Double_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_3_Double_Append_1") Try Dim value As System.Double = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Append) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_3_Double_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_3_Double_Binary_2") Try Dim value As System.Double = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Binary) Input(1, value) FileClose(1) Assert.Fail ("Expected System.InvalidCastException ('Conversion from string ""€"" to type 'Double' is not valid.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.InvalidCastException", ex.GetType.FullName, filename) #If NET_VER >= 2.0 Then Assert.AreEqual ("Conversion from string ""€"" to type 'Double' is not valid.", ex.Message, filename) #Else Assert.AreEqual ("Cast from string ""€"" to type 'Double' is not valid.", ex.Message, filename) #End If Finally CleanUp() End Try End Sub _ Sub InputTest_3_Double_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_3_Double_Input_3") Try Dim value As System.Double = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Input) Input(1, value) FileClose(1) Assert.Fail ("Expected System.InvalidCastException ('Conversion from string ""€"" to type 'Double' is not valid.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.InvalidCastException", ex.GetType.FullName, filename) #If NET_VER >= 2.0 Then Assert.AreEqual ("Conversion from string ""€"" to type 'Double' is not valid.", ex.Message, filename) #Else Assert.AreEqual ("Cast from string ""€"" to type 'Double' is not valid.", ex.Message, filename) #End If Finally CleanUp() End Try End Sub _ Sub InputTest_3_Double_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_3_Double_Output_4") Try Dim value As System.Double = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Output) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_3_Double_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_3_Double_Random_5") Try Dim value As System.Double = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Random) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_3_Decimal_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_3_Decimal_Append_1") Try Dim value As System.Decimal = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Append) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_3_Decimal_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_3_Decimal_Binary_2") Try Dim value As System.Decimal = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Binary) Input(1, value) FileClose(1) Assert.Fail ("Expected System.InvalidCastException ('Conversion from string ""€"" to type 'Decimal' is not valid.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.InvalidCastException", ex.GetType.FullName, filename) #If NET_VER >= 2.0 Then Assert.AreEqual ("Conversion from string ""€"" to type 'Decimal' is not valid.", ex.Message, filename) #Else Assert.AreEqual ("Cast from string ""€"" to type 'Decimal' is not valid.", ex.Message, filename) #End If Finally CleanUp() End Try End Sub _ Sub InputTest_3_Decimal_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_3_Decimal_Input_3") Try Dim value As System.Decimal = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Input) Input(1, value) FileClose(1) Assert.Fail ("Expected System.InvalidCastException ('Conversion from string ""€"" to type 'Decimal' is not valid.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.InvalidCastException", ex.GetType.FullName, filename) #If NET_VER >= 2.0 Then Assert.AreEqual ("Conversion from string ""€"" to type 'Decimal' is not valid.", ex.Message, filename) #Else Assert.AreEqual ("Cast from string ""€"" to type 'Decimal' is not valid.", ex.Message, filename) #End If Finally CleanUp() End Try End Sub _ Sub InputTest_3_Decimal_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_3_Decimal_Output_4") Try Dim value As System.Decimal = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Output) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_3_Decimal_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_3_Decimal_Random_5") Try Dim value As System.Decimal = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Random) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_3_String_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_3_String_Append_1") Try Dim value As System.String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Append) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_3_String_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_3_String_Binary_2") Try Dim value As System.String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Binary) Input(1, value) FileClose(1) Assert.AreEqual ("€", value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub InputTest_3_String_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_3_String_Input_3") Try Dim value As System.String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Input) Input(1, value) FileClose(1) Assert.AreEqual ("€", value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub InputTest_3_String_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_3_String_Output_4") Try Dim value As System.String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Output) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_3_String_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_3_String_Random_5") Try Dim value As System.String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Random) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_3_DateTime_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_3_DateTime_Append_1") Try Dim value As System.DateTime = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Append) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_3_DateTime_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_3_DateTime_Binary_2") Try Dim value As System.DateTime = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Binary) Input(1, value) FileClose(1) Assert.Fail ("Expected System.InvalidCastException ('Conversion from string ""€"" to type 'Date' is not valid.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.InvalidCastException", ex.GetType.FullName, filename) #If NET_VER >= 2.0 Then Assert.AreEqual ("Conversion from string ""€"" to type 'Date' is not valid.", ex.Message, filename) #Else Assert.AreEqual ("Cast from string ""€"" to type 'Date' is not valid.", ex.Message, filename) #End If Finally CleanUp() End Try End Sub _ Sub InputTest_3_DateTime_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_3_DateTime_Input_3") Try Dim value As System.DateTime = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Input) Input(1, value) FileClose(1) Assert.Fail ("Expected System.InvalidCastException ('Conversion from string ""€"" to type 'Date' is not valid.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.InvalidCastException", ex.GetType.FullName, filename) #If NET_VER >= 2.0 Then Assert.AreEqual ("Conversion from string ""€"" to type 'Date' is not valid.", ex.Message, filename) #Else Assert.AreEqual ("Cast from string ""€"" to type 'Date' is not valid.", ex.Message, filename) #End If Finally CleanUp() End Try End Sub _ Sub InputTest_3_DateTime_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_3_DateTime_Output_4") Try Dim value As System.DateTime = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Output) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_3_DateTime_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_3_DateTime_Random_5") Try Dim value As System.DateTime = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Random) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub LineInputTest_4_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "LineInputTest_4_Append_1") Try Dim value As String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { }) FileOpen(1, filename, OpenMode.Append) value = LineInput(1) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub LineInputTest_4_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "LineInputTest_4_Binary_2") Try Dim value As String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { }) FileOpen(1, filename, OpenMode.Binary) value = LineInput(1) FileClose(1) Assert.Fail ("Expected System.IO.EndOfStreamException ('Input past end of file.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.EndOfStreamException", ex.GetType.FullName, filename) Assert.AreEqual ("Input past end of file.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub LineInputTest_4_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "LineInputTest_4_Input_3") Try Dim value As String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { }) FileOpen(1, filename, OpenMode.Input) value = LineInput(1) FileClose(1) Assert.Fail ("Expected System.IO.EndOfStreamException ('Input past end of file.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.EndOfStreamException", ex.GetType.FullName, filename) Assert.AreEqual ("Input past end of file.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub LineInputTest_4_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "LineInputTest_4_Output_4") Try Dim value As String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { }) FileOpen(1, filename, OpenMode.Output) value = LineInput(1) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub LineInputTest_4_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "LineInputTest_4_Random_5") Try Dim value As String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { }) FileOpen(1, filename, OpenMode.Random) value = LineInput(1) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputStringTest_4_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "InputStringTest_4_Append_1") Try Dim value As String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { }) FileOpen(1, filename, OpenMode.Append) value = InputString(1, 0) FileClose(1) Assert.Fail ("Expected System.NullReferenceException ('Object reference not set to an instance of an object.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.NullReferenceException", ex.GetType.FullName, filename) Assert.AreEqual ("Object reference not set to an instance of an object.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputStringTest_4_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "InputStringTest_4_Binary_2") Try Dim value As String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { }) FileOpen(1, filename, OpenMode.Binary) value = InputString(1, 0) FileClose(1) Assert.AreEqual ("", value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub InputStringTest_4_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "InputStringTest_4_Input_3") Try Dim value As String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { }) FileOpen(1, filename, OpenMode.Input) value = InputString(1, 0) FileClose(1) Assert.AreEqual ("", value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub InputStringTest_4_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "InputStringTest_4_Output_4") Try Dim value As String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { }) FileOpen(1, filename, OpenMode.Output) value = InputString(1, 0) FileClose(1) Assert.Fail ("Expected System.NullReferenceException ('Object reference not set to an instance of an object.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.NullReferenceException", ex.GetType.FullName, filename) Assert.AreEqual ("Object reference not set to an instance of an object.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputStringTest_4_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "InputStringTest_4_Random_5") Try Dim value As String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { }) FileOpen(1, filename, OpenMode.Random) value = InputString(1, 0) FileClose(1) Assert.Fail ("Expected System.NullReferenceException ('Object reference not set to an instance of an object.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.NullReferenceException", ex.GetType.FullName, filename) Assert.AreEqual ("Object reference not set to an instance of an object.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_4_ValueType_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_4_ValueType_Append_1") Try Dim value As System.ValueType = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { }) FileOpen(1, filename, OpenMode.Append) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_4_ValueType_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_4_ValueType_Binary_2") Try Dim value As System.ValueType = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { }) FileOpen(1, filename, OpenMode.Binary) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.NullReferenceException ('Object reference not set to an instance of an object.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.NullReferenceException", ex.GetType.FullName, filename) Assert.AreEqual ("Object reference not set to an instance of an object.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_4_ValueType_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_4_ValueType_Input_3") Try Dim value As System.ValueType = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { }) FileOpen(1, filename, OpenMode.Input) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_4_ValueType_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_4_ValueType_Output_4") Try Dim value As System.ValueType = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { }) FileOpen(1, filename, OpenMode.Output) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_4_ValueType_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_4_ValueType_Random_5") Try Dim value As System.ValueType = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { }) FileOpen(1, filename, OpenMode.Random) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.NullReferenceException ('Object reference not set to an instance of an object.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.NullReferenceException", ex.GetType.FullName, filename) Assert.AreEqual ("Object reference not set to an instance of an object.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_4_Array_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_4_Array_Append_1") Try Dim value As System.Array = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { }) FileOpen(1, filename, OpenMode.Append) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_4_Array_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_4_Array_Binary_2") Try Dim value As System.Array = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { }) FileOpen(1, filename, OpenMode.Binary) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.ArgumentException ('Cannot determine array type because it is Nothing.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.ArgumentException", ex.GetType.FullName, filename) Assert.AreEqual ("Cannot determine array type because it is Nothing.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_4_Array_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_4_Array_Input_3") Try Dim value As System.Array = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { }) FileOpen(1, filename, OpenMode.Input) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_4_Array_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_4_Array_Output_4") Try Dim value As System.Array = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { }) FileOpen(1, filename, OpenMode.Output) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_4_Array_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_4_Array_Random_5") Try Dim value As System.Array = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { }) FileOpen(1, filename, OpenMode.Random) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.ArgumentException ('Cannot determine array type because it is Nothing.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.ArgumentException", ex.GetType.FullName, filename) Assert.AreEqual ("Cannot determine array type because it is Nothing.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_4_Boolean_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_4_Boolean_Append_1") Try Dim value As System.Boolean = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { }) FileOpen(1, filename, OpenMode.Append) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_4_Boolean_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_4_Boolean_Binary_2") Try Dim value As System.Boolean = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { }) FileOpen(1, filename, OpenMode.Binary) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.EndOfStreamException ('Unable to read beyond the end of the stream.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.EndOfStreamException", ex.GetType.FullName, filename) Assert.AreEqual ("Unable to read beyond the end of the stream.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_4_Boolean_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_4_Boolean_Input_3") Try Dim value As System.Boolean = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { }) FileOpen(1, filename, OpenMode.Input) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_4_Boolean_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_4_Boolean_Output_4") Try Dim value As System.Boolean = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { }) FileOpen(1, filename, OpenMode.Output) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_4_Boolean_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_4_Boolean_Random_5") Try Dim value As System.Boolean = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { }) FileOpen(1, filename, OpenMode.Random) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.EndOfStreamException ('Unable to read beyond the end of the stream.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.EndOfStreamException", ex.GetType.FullName, filename) Assert.AreEqual ("Unable to read beyond the end of the stream.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_4_Byte_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_4_Byte_Append_1") Try Dim value As System.Byte = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { }) FileOpen(1, filename, OpenMode.Append) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_4_Byte_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_4_Byte_Binary_2") Try Dim value As System.Byte = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { }) FileOpen(1, filename, OpenMode.Binary) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.EndOfStreamException ('Unable to read beyond the end of the stream.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.EndOfStreamException", ex.GetType.FullName, filename) Assert.AreEqual ("Unable to read beyond the end of the stream.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_4_Byte_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_4_Byte_Input_3") Try Dim value As System.Byte = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { }) FileOpen(1, filename, OpenMode.Input) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_4_Byte_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_4_Byte_Output_4") Try Dim value As System.Byte = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { }) FileOpen(1, filename, OpenMode.Output) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_4_Byte_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_4_Byte_Random_5") Try Dim value As System.Byte = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { }) FileOpen(1, filename, OpenMode.Random) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.EndOfStreamException ('Unable to read beyond the end of the stream.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.EndOfStreamException", ex.GetType.FullName, filename) Assert.AreEqual ("Unable to read beyond the end of the stream.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_4_Int16_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_4_Int16_Append_1") Try Dim value As System.Int16 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { }) FileOpen(1, filename, OpenMode.Append) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_4_Int16_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_4_Int16_Binary_2") Try Dim value As System.Int16 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { }) FileOpen(1, filename, OpenMode.Binary) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.EndOfStreamException ('Unable to read beyond the end of the stream.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.EndOfStreamException", ex.GetType.FullName, filename) Assert.AreEqual ("Unable to read beyond the end of the stream.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_4_Int16_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_4_Int16_Input_3") Try Dim value As System.Int16 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { }) FileOpen(1, filename, OpenMode.Input) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_4_Int16_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_4_Int16_Output_4") Try Dim value As System.Int16 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { }) FileOpen(1, filename, OpenMode.Output) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_4_Int16_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_4_Int16_Random_5") Try Dim value As System.Int16 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { }) FileOpen(1, filename, OpenMode.Random) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.EndOfStreamException ('Unable to read beyond the end of the stream.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.EndOfStreamException", ex.GetType.FullName, filename) Assert.AreEqual ("Unable to read beyond the end of the stream.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_4_Int32_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_4_Int32_Append_1") Try Dim value As System.Int32 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { }) FileOpen(1, filename, OpenMode.Append) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_4_Int32_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_4_Int32_Binary_2") Try Dim value As System.Int32 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { }) FileOpen(1, filename, OpenMode.Binary) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.EndOfStreamException ('Unable to read beyond the end of the stream.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.EndOfStreamException", ex.GetType.FullName, filename) Assert.AreEqual ("Unable to read beyond the end of the stream.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_4_Int32_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_4_Int32_Input_3") Try Dim value As System.Int32 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { }) FileOpen(1, filename, OpenMode.Input) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_4_Int32_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_4_Int32_Output_4") Try Dim value As System.Int32 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { }) FileOpen(1, filename, OpenMode.Output) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_4_Int32_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_4_Int32_Random_5") Try Dim value As System.Int32 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { }) FileOpen(1, filename, OpenMode.Random) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.EndOfStreamException ('Unable to read beyond the end of the stream.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.EndOfStreamException", ex.GetType.FullName, filename) Assert.AreEqual ("Unable to read beyond the end of the stream.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_4_Int64_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_4_Int64_Append_1") Try Dim value As System.Int64 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { }) FileOpen(1, filename, OpenMode.Append) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_4_Int64_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_4_Int64_Binary_2") Try Dim value As System.Int64 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { }) FileOpen(1, filename, OpenMode.Binary) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.EndOfStreamException ('Unable to read beyond the end of the stream.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.EndOfStreamException", ex.GetType.FullName, filename) Assert.AreEqual ("Unable to read beyond the end of the stream.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_4_Int64_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_4_Int64_Input_3") Try Dim value As System.Int64 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { }) FileOpen(1, filename, OpenMode.Input) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_4_Int64_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_4_Int64_Output_4") Try Dim value As System.Int64 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { }) FileOpen(1, filename, OpenMode.Output) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_4_Int64_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_4_Int64_Random_5") Try Dim value As System.Int64 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { }) FileOpen(1, filename, OpenMode.Random) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.EndOfStreamException ('Unable to read beyond the end of the stream.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.EndOfStreamException", ex.GetType.FullName, filename) Assert.AreEqual ("Unable to read beyond the end of the stream.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_4_Char_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_4_Char_Append_1") Try Dim value As System.Char = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { }) FileOpen(1, filename, OpenMode.Append) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_4_Char_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_4_Char_Binary_2") Try Dim value As System.Char = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { }) FileOpen(1, filename, OpenMode.Binary) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.EndOfStreamException ('Unable to read beyond the end of the stream.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.EndOfStreamException", ex.GetType.FullName, filename) Assert.AreEqual ("Unable to read beyond the end of the stream.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_4_Char_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_4_Char_Input_3") Try Dim value As System.Char = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { }) FileOpen(1, filename, OpenMode.Input) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_4_Char_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_4_Char_Output_4") Try Dim value As System.Char = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { }) FileOpen(1, filename, OpenMode.Output) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_4_Char_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_4_Char_Random_5") Try Dim value As System.Char = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { }) FileOpen(1, filename, OpenMode.Random) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.EndOfStreamException ('Unable to read beyond the end of the stream.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.EndOfStreamException", ex.GetType.FullName, filename) Assert.AreEqual ("Unable to read beyond the end of the stream.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_4_Single_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_4_Single_Append_1") Try Dim value As System.Single = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { }) FileOpen(1, filename, OpenMode.Append) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_4_Single_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_4_Single_Binary_2") Try Dim value As System.Single = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { }) FileOpen(1, filename, OpenMode.Binary) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.EndOfStreamException ('Unable to read beyond the end of the stream.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.EndOfStreamException", ex.GetType.FullName, filename) Assert.AreEqual ("Unable to read beyond the end of the stream.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_4_Single_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_4_Single_Input_3") Try Dim value As System.Single = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { }) FileOpen(1, filename, OpenMode.Input) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_4_Single_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_4_Single_Output_4") Try Dim value As System.Single = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { }) FileOpen(1, filename, OpenMode.Output) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_4_Single_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_4_Single_Random_5") Try Dim value As System.Single = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { }) FileOpen(1, filename, OpenMode.Random) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.EndOfStreamException ('Unable to read beyond the end of the stream.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.EndOfStreamException", ex.GetType.FullName, filename) Assert.AreEqual ("Unable to read beyond the end of the stream.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_4_Double_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_4_Double_Append_1") Try Dim value As System.Double = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { }) FileOpen(1, filename, OpenMode.Append) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_4_Double_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_4_Double_Binary_2") Try Dim value As System.Double = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { }) FileOpen(1, filename, OpenMode.Binary) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.EndOfStreamException ('Unable to read beyond the end of the stream.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.EndOfStreamException", ex.GetType.FullName, filename) Assert.AreEqual ("Unable to read beyond the end of the stream.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_4_Double_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_4_Double_Input_3") Try Dim value As System.Double = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { }) FileOpen(1, filename, OpenMode.Input) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_4_Double_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_4_Double_Output_4") Try Dim value As System.Double = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { }) FileOpen(1, filename, OpenMode.Output) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_4_Double_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_4_Double_Random_5") Try Dim value As System.Double = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { }) FileOpen(1, filename, OpenMode.Random) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.EndOfStreamException ('Unable to read beyond the end of the stream.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.EndOfStreamException", ex.GetType.FullName, filename) Assert.AreEqual ("Unable to read beyond the end of the stream.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_4_Decimal_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_4_Decimal_Append_1") Try Dim value As System.Decimal = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { }) FileOpen(1, filename, OpenMode.Append) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_4_Decimal_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_4_Decimal_Binary_2") Try Dim value As System.Decimal = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { }) FileOpen(1, filename, OpenMode.Binary) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.EndOfStreamException ('Unable to read beyond the end of the stream.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.EndOfStreamException", ex.GetType.FullName, filename) Assert.AreEqual ("Unable to read beyond the end of the stream.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_4_Decimal_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_4_Decimal_Input_3") Try Dim value As System.Decimal = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { }) FileOpen(1, filename, OpenMode.Input) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_4_Decimal_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_4_Decimal_Output_4") Try Dim value As System.Decimal = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { }) FileOpen(1, filename, OpenMode.Output) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_4_Decimal_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_4_Decimal_Random_5") Try Dim value As System.Decimal = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { }) FileOpen(1, filename, OpenMode.Random) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.EndOfStreamException ('Unable to read beyond the end of the stream.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.EndOfStreamException", ex.GetType.FullName, filename) Assert.AreEqual ("Unable to read beyond the end of the stream.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_4_String_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_4_String_Append_1") Try Dim value As System.String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { }) FileOpen(1, filename, OpenMode.Append) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_4_String_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_4_String_Binary_2") Try Dim value As System.String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { }) FileOpen(1, filename, OpenMode.Binary) FileGet(1, value) FileClose(1) Assert.AreEqual (Nothing, value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_4_String_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_4_String_Input_3") Try Dim value As System.String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { }) FileOpen(1, filename, OpenMode.Input) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_4_String_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_4_String_Output_4") Try Dim value As System.String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { }) FileOpen(1, filename, OpenMode.Output) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_4_String_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_4_String_Random_5") Try Dim value As System.String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { }) FileOpen(1, filename, OpenMode.Random) FileGet(1, value) FileClose(1) Assert.AreEqual ("", value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_4_DateTime_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_4_DateTime_Append_1") Try Dim value As System.DateTime = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { }) FileOpen(1, filename, OpenMode.Append) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_4_DateTime_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_4_DateTime_Binary_2") Try Dim value As System.DateTime = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { }) FileOpen(1, filename, OpenMode.Binary) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.EndOfStreamException ('Unable to read beyond the end of the stream.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.EndOfStreamException", ex.GetType.FullName, filename) Assert.AreEqual ("Unable to read beyond the end of the stream.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_4_DateTime_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_4_DateTime_Input_3") Try Dim value As System.DateTime = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { }) FileOpen(1, filename, OpenMode.Input) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_4_DateTime_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_4_DateTime_Output_4") Try Dim value As System.DateTime = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { }) FileOpen(1, filename, OpenMode.Output) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_4_DateTime_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_4_DateTime_Random_5") Try Dim value As System.DateTime = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { }) FileOpen(1, filename, OpenMode.Random) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.EndOfStreamException ('Unable to read beyond the end of the stream.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.EndOfStreamException", ex.GetType.FullName, filename) Assert.AreEqual ("Unable to read beyond the end of the stream.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetObjectTest_4_Object_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "FileGetObjectTest_4_Object_Append_1") Try Dim value As System.Object = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { }) FileOpen(1, filename, OpenMode.Append) FileGetObject(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetObjectTest_4_Object_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "FileGetObjectTest_4_Object_Binary_2") Try Dim value As System.Object = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { }) FileOpen(1, filename, OpenMode.Binary) FileGetObject(1, value) FileClose(1) Assert.Fail ("Expected System.IO.EndOfStreamException ('Unable to read beyond the end of the stream.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.EndOfStreamException", ex.GetType.FullName, filename) Assert.AreEqual ("Unable to read beyond the end of the stream.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetObjectTest_4_Object_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "FileGetObjectTest_4_Object_Input_3") Try Dim value As System.Object = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { }) FileOpen(1, filename, OpenMode.Input) FileGetObject(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetObjectTest_4_Object_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "FileGetObjectTest_4_Object_Output_4") Try Dim value As System.Object = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { }) FileOpen(1, filename, OpenMode.Output) FileGetObject(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetObjectTest_4_Object_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "FileGetObjectTest_4_Object_Random_5") Try Dim value As System.Object = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { }) FileOpen(1, filename, OpenMode.Random) FileGetObject(1, value) FileClose(1) Assert.Fail ("Expected System.IO.EndOfStreamException ('Unable to read beyond the end of the stream.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.EndOfStreamException", ex.GetType.FullName, filename) Assert.AreEqual ("Unable to read beyond the end of the stream.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_4_Object_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_4_Object_Append_1") Try Dim value As System.Object = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { }) FileOpen(1, filename, OpenMode.Append) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_4_Object_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_4_Object_Binary_2") Try Dim value As System.Object = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { }) FileOpen(1, filename, OpenMode.Binary) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.EndOfStreamException ('Input past end of file.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.EndOfStreamException", ex.GetType.FullName, filename) Assert.AreEqual ("Input past end of file.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_4_Object_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_4_Object_Input_3") Try Dim value As System.Object = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { }) FileOpen(1, filename, OpenMode.Input) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.EndOfStreamException ('Input past end of file.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.EndOfStreamException", ex.GetType.FullName, filename) Assert.AreEqual ("Input past end of file.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_4_Object_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_4_Object_Output_4") Try Dim value As System.Object = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { }) FileOpen(1, filename, OpenMode.Output) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_4_Object_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_4_Object_Random_5") Try Dim value As System.Object = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { }) FileOpen(1, filename, OpenMode.Random) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_4_Boolean_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_4_Boolean_Append_1") Try Dim value As System.Boolean = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { }) FileOpen(1, filename, OpenMode.Append) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_4_Boolean_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_4_Boolean_Binary_2") Try Dim value As System.Boolean = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { }) FileOpen(1, filename, OpenMode.Binary) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.EndOfStreamException ('Input past end of file.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.EndOfStreamException", ex.GetType.FullName, filename) Assert.AreEqual ("Input past end of file.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_4_Boolean_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_4_Boolean_Input_3") Try Dim value As System.Boolean = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { }) FileOpen(1, filename, OpenMode.Input) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.EndOfStreamException ('Input past end of file.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.EndOfStreamException", ex.GetType.FullName, filename) Assert.AreEqual ("Input past end of file.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_4_Boolean_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_4_Boolean_Output_4") Try Dim value As System.Boolean = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { }) FileOpen(1, filename, OpenMode.Output) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_4_Boolean_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_4_Boolean_Random_5") Try Dim value As System.Boolean = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { }) FileOpen(1, filename, OpenMode.Random) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_4_Byte_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_4_Byte_Append_1") Try Dim value As System.Byte = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { }) FileOpen(1, filename, OpenMode.Append) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_4_Byte_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_4_Byte_Binary_2") Try Dim value As System.Byte = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { }) FileOpen(1, filename, OpenMode.Binary) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.EndOfStreamException ('Input past end of file.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.EndOfStreamException", ex.GetType.FullName, filename) Assert.AreEqual ("Input past end of file.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_4_Byte_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_4_Byte_Input_3") Try Dim value As System.Byte = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { }) FileOpen(1, filename, OpenMode.Input) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.EndOfStreamException ('Input past end of file.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.EndOfStreamException", ex.GetType.FullName, filename) Assert.AreEqual ("Input past end of file.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_4_Byte_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_4_Byte_Output_4") Try Dim value As System.Byte = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { }) FileOpen(1, filename, OpenMode.Output) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_4_Byte_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_4_Byte_Random_5") Try Dim value As System.Byte = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { }) FileOpen(1, filename, OpenMode.Random) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_4_Int16_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_4_Int16_Append_1") Try Dim value As System.Int16 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { }) FileOpen(1, filename, OpenMode.Append) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_4_Int16_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_4_Int16_Binary_2") Try Dim value As System.Int16 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { }) FileOpen(1, filename, OpenMode.Binary) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.EndOfStreamException ('Input past end of file.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.EndOfStreamException", ex.GetType.FullName, filename) Assert.AreEqual ("Input past end of file.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_4_Int16_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_4_Int16_Input_3") Try Dim value As System.Int16 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { }) FileOpen(1, filename, OpenMode.Input) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.EndOfStreamException ('Input past end of file.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.EndOfStreamException", ex.GetType.FullName, filename) Assert.AreEqual ("Input past end of file.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_4_Int16_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_4_Int16_Output_4") Try Dim value As System.Int16 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { }) FileOpen(1, filename, OpenMode.Output) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_4_Int16_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_4_Int16_Random_5") Try Dim value As System.Int16 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { }) FileOpen(1, filename, OpenMode.Random) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_4_Int32_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_4_Int32_Append_1") Try Dim value As System.Int32 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { }) FileOpen(1, filename, OpenMode.Append) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_4_Int32_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_4_Int32_Binary_2") Try Dim value As System.Int32 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { }) FileOpen(1, filename, OpenMode.Binary) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.EndOfStreamException ('Input past end of file.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.EndOfStreamException", ex.GetType.FullName, filename) Assert.AreEqual ("Input past end of file.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_4_Int32_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_4_Int32_Input_3") Try Dim value As System.Int32 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { }) FileOpen(1, filename, OpenMode.Input) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.EndOfStreamException ('Input past end of file.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.EndOfStreamException", ex.GetType.FullName, filename) Assert.AreEqual ("Input past end of file.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_4_Int32_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_4_Int32_Output_4") Try Dim value As System.Int32 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { }) FileOpen(1, filename, OpenMode.Output) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_4_Int32_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_4_Int32_Random_5") Try Dim value As System.Int32 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { }) FileOpen(1, filename, OpenMode.Random) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_4_Int64_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_4_Int64_Append_1") Try Dim value As System.Int64 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { }) FileOpen(1, filename, OpenMode.Append) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_4_Int64_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_4_Int64_Binary_2") Try Dim value As System.Int64 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { }) FileOpen(1, filename, OpenMode.Binary) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.EndOfStreamException ('Input past end of file.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.EndOfStreamException", ex.GetType.FullName, filename) Assert.AreEqual ("Input past end of file.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_4_Int64_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_4_Int64_Input_3") Try Dim value As System.Int64 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { }) FileOpen(1, filename, OpenMode.Input) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.EndOfStreamException ('Input past end of file.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.EndOfStreamException", ex.GetType.FullName, filename) Assert.AreEqual ("Input past end of file.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_4_Int64_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_4_Int64_Output_4") Try Dim value As System.Int64 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { }) FileOpen(1, filename, OpenMode.Output) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_4_Int64_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_4_Int64_Random_5") Try Dim value As System.Int64 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { }) FileOpen(1, filename, OpenMode.Random) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_4_Char_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_4_Char_Append_1") Try Dim value As System.Char = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { }) FileOpen(1, filename, OpenMode.Append) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_4_Char_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_4_Char_Binary_2") Try Dim value As System.Char = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { }) FileOpen(1, filename, OpenMode.Binary) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.EndOfStreamException ('Input past end of file.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.EndOfStreamException", ex.GetType.FullName, filename) Assert.AreEqual ("Input past end of file.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_4_Char_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_4_Char_Input_3") Try Dim value As System.Char = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { }) FileOpen(1, filename, OpenMode.Input) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.EndOfStreamException ('Input past end of file.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.EndOfStreamException", ex.GetType.FullName, filename) Assert.AreEqual ("Input past end of file.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_4_Char_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_4_Char_Output_4") Try Dim value As System.Char = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { }) FileOpen(1, filename, OpenMode.Output) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_4_Char_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_4_Char_Random_5") Try Dim value As System.Char = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { }) FileOpen(1, filename, OpenMode.Random) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_4_Single_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_4_Single_Append_1") Try Dim value As System.Single = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { }) FileOpen(1, filename, OpenMode.Append) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_4_Single_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_4_Single_Binary_2") Try Dim value As System.Single = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { }) FileOpen(1, filename, OpenMode.Binary) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.EndOfStreamException ('Input past end of file.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.EndOfStreamException", ex.GetType.FullName, filename) Assert.AreEqual ("Input past end of file.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_4_Single_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_4_Single_Input_3") Try Dim value As System.Single = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { }) FileOpen(1, filename, OpenMode.Input) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.EndOfStreamException ('Input past end of file.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.EndOfStreamException", ex.GetType.FullName, filename) Assert.AreEqual ("Input past end of file.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_4_Single_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_4_Single_Output_4") Try Dim value As System.Single = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { }) FileOpen(1, filename, OpenMode.Output) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_4_Single_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_4_Single_Random_5") Try Dim value As System.Single = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { }) FileOpen(1, filename, OpenMode.Random) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_4_Double_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_4_Double_Append_1") Try Dim value As System.Double = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { }) FileOpen(1, filename, OpenMode.Append) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_4_Double_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_4_Double_Binary_2") Try Dim value As System.Double = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { }) FileOpen(1, filename, OpenMode.Binary) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.EndOfStreamException ('Input past end of file.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.EndOfStreamException", ex.GetType.FullName, filename) Assert.AreEqual ("Input past end of file.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_4_Double_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_4_Double_Input_3") Try Dim value As System.Double = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { }) FileOpen(1, filename, OpenMode.Input) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.EndOfStreamException ('Input past end of file.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.EndOfStreamException", ex.GetType.FullName, filename) Assert.AreEqual ("Input past end of file.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_4_Double_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_4_Double_Output_4") Try Dim value As System.Double = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { }) FileOpen(1, filename, OpenMode.Output) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_4_Double_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_4_Double_Random_5") Try Dim value As System.Double = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { }) FileOpen(1, filename, OpenMode.Random) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_4_Decimal_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_4_Decimal_Append_1") Try Dim value As System.Decimal = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { }) FileOpen(1, filename, OpenMode.Append) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_4_Decimal_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_4_Decimal_Binary_2") Try Dim value As System.Decimal = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { }) FileOpen(1, filename, OpenMode.Binary) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.EndOfStreamException ('Input past end of file.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.EndOfStreamException", ex.GetType.FullName, filename) Assert.AreEqual ("Input past end of file.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_4_Decimal_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_4_Decimal_Input_3") Try Dim value As System.Decimal = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { }) FileOpen(1, filename, OpenMode.Input) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.EndOfStreamException ('Input past end of file.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.EndOfStreamException", ex.GetType.FullName, filename) Assert.AreEqual ("Input past end of file.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_4_Decimal_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_4_Decimal_Output_4") Try Dim value As System.Decimal = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { }) FileOpen(1, filename, OpenMode.Output) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_4_Decimal_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_4_Decimal_Random_5") Try Dim value As System.Decimal = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { }) FileOpen(1, filename, OpenMode.Random) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_4_String_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_4_String_Append_1") Try Dim value As System.String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { }) FileOpen(1, filename, OpenMode.Append) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_4_String_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_4_String_Binary_2") Try Dim value As System.String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { }) FileOpen(1, filename, OpenMode.Binary) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.EndOfStreamException ('Input past end of file.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.EndOfStreamException", ex.GetType.FullName, filename) Assert.AreEqual ("Input past end of file.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_4_String_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_4_String_Input_3") Try Dim value As System.String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { }) FileOpen(1, filename, OpenMode.Input) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.EndOfStreamException ('Input past end of file.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.EndOfStreamException", ex.GetType.FullName, filename) Assert.AreEqual ("Input past end of file.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_4_String_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_4_String_Output_4") Try Dim value As System.String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { }) FileOpen(1, filename, OpenMode.Output) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_4_String_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_4_String_Random_5") Try Dim value As System.String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { }) FileOpen(1, filename, OpenMode.Random) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_4_DateTime_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_4_DateTime_Append_1") Try Dim value As System.DateTime = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { }) FileOpen(1, filename, OpenMode.Append) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_4_DateTime_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_4_DateTime_Binary_2") Try Dim value As System.DateTime = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { }) FileOpen(1, filename, OpenMode.Binary) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.EndOfStreamException ('Input past end of file.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.EndOfStreamException", ex.GetType.FullName, filename) Assert.AreEqual ("Input past end of file.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_4_DateTime_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_4_DateTime_Input_3") Try Dim value As System.DateTime = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { }) FileOpen(1, filename, OpenMode.Input) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.EndOfStreamException ('Input past end of file.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.EndOfStreamException", ex.GetType.FullName, filename) Assert.AreEqual ("Input past end of file.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_4_DateTime_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_4_DateTime_Output_4") Try Dim value As System.DateTime = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { }) FileOpen(1, filename, OpenMode.Output) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_4_DateTime_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_4_DateTime_Random_5") Try Dim value As System.DateTime = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { }) FileOpen(1, filename, OpenMode.Random) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub LineInputTest_5_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "LineInputTest_5_Append_1") Try Dim value As String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 18, 0, 0 }) FileOpen(1, filename, OpenMode.Append) value = LineInput(1) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub LineInputTest_5_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "LineInputTest_5_Binary_2") Try Dim value As String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 18, 0, 0 }) FileOpen(1, filename, OpenMode.Binary) value = LineInput(1) FileClose(1) Assert.AreEqual ("", value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub LineInputTest_5_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "LineInputTest_5_Input_3") Try Dim value As String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 18, 0, 0 }) FileOpen(1, filename, OpenMode.Input) value = LineInput(1) FileClose(1) Assert.AreEqual ("", value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub LineInputTest_5_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "LineInputTest_5_Output_4") Try Dim value As String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 18, 0, 0 }) FileOpen(1, filename, OpenMode.Output) value = LineInput(1) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub LineInputTest_5_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "LineInputTest_5_Random_5") Try Dim value As String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 18, 0, 0 }) FileOpen(1, filename, OpenMode.Random) value = LineInput(1) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputStringTest_5_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "InputStringTest_5_Append_1") Try Dim value As String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 18, 0, 0 }) FileOpen(1, filename, OpenMode.Append) value = InputString(1, 3) FileClose(1) Assert.Fail ("Expected System.NullReferenceException ('Object reference not set to an instance of an object.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception #If NET_VER >= 2.0 Then Assert.AreEqual ("System.NullReferenceException", ex.GetType.FullName, filename) #Else Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) #End If #If NET_VER >= 2.0 Then Assert.AreEqual ("Object reference not set to an instance of an object.", ex.Message, filename) #Else Assert.AreEqual ("Bad file mode.", ex.Message, filename) #End If Finally CleanUp() End Try End Sub _ Sub InputStringTest_5_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "InputStringTest_5_Binary_2") Try Dim value As String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 18, 0, 0 }) FileOpen(1, filename, OpenMode.Binary) value = InputString(1, 3) FileClose(1) Assert.AreEqual ("", value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub InputStringTest_5_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "InputStringTest_5_Input_3") Try Dim value As String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 18, 0, 0 }) FileOpen(1, filename, OpenMode.Input) value = InputString(1, 3) FileClose(1) Assert.AreEqual ("", value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub InputStringTest_5_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "InputStringTest_5_Output_4") Try Dim value As String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 18, 0, 0 }) FileOpen(1, filename, OpenMode.Output) value = InputString(1, 3) FileClose(1) Assert.Fail ("Expected System.NullReferenceException ('Object reference not set to an instance of an object.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception #If NET_VER >= 2.0 Then Assert.AreEqual ("System.NullReferenceException", ex.GetType.FullName, filename) #Else Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) #End If #If NET_VER >= 2.0 Then Assert.AreEqual ("Object reference not set to an instance of an object.", ex.Message, filename) #Else Assert.AreEqual ("Bad file mode.", ex.Message, filename) #End If Finally CleanUp() End Try End Sub _ Sub InputStringTest_5_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "InputStringTest_5_Random_5") Try Dim value As String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 18, 0, 0 }) FileOpen(1, filename, OpenMode.Random) value = InputString(1, 3) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_5_ValueType_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_5_ValueType_Append_1") Try Dim value As System.ValueType = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 18, 0, 0 }) FileOpen(1, filename, OpenMode.Append) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_5_ValueType_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_5_ValueType_Binary_2") Try Dim value As System.ValueType = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 18, 0, 0 }) FileOpen(1, filename, OpenMode.Binary) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.NullReferenceException ('Object reference not set to an instance of an object.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.NullReferenceException", ex.GetType.FullName, filename) Assert.AreEqual ("Object reference not set to an instance of an object.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_5_ValueType_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_5_ValueType_Input_3") Try Dim value As System.ValueType = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 18, 0, 0 }) FileOpen(1, filename, OpenMode.Input) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_5_ValueType_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_5_ValueType_Output_4") Try Dim value As System.ValueType = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 18, 0, 0 }) FileOpen(1, filename, OpenMode.Output) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_5_ValueType_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_5_ValueType_Random_5") Try Dim value As System.ValueType = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 18, 0, 0 }) FileOpen(1, filename, OpenMode.Random) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.NullReferenceException ('Object reference not set to an instance of an object.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.NullReferenceException", ex.GetType.FullName, filename) Assert.AreEqual ("Object reference not set to an instance of an object.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_5_Array_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_5_Array_Append_1") Try Dim value As System.Array = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 18, 0, 0 }) FileOpen(1, filename, OpenMode.Append) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_5_Array_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_5_Array_Binary_2") Try Dim value As System.Array = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 18, 0, 0 }) FileOpen(1, filename, OpenMode.Binary) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.ArgumentException ('Cannot determine array type because it is Nothing.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.ArgumentException", ex.GetType.FullName, filename) Assert.AreEqual ("Cannot determine array type because it is Nothing.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_5_Array_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_5_Array_Input_3") Try Dim value As System.Array = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 18, 0, 0 }) FileOpen(1, filename, OpenMode.Input) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_5_Array_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_5_Array_Output_4") Try Dim value As System.Array = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 18, 0, 0 }) FileOpen(1, filename, OpenMode.Output) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_5_Array_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_5_Array_Random_5") Try Dim value As System.Array = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 18, 0, 0 }) FileOpen(1, filename, OpenMode.Random) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.ArgumentException ('Cannot determine array type because it is Nothing.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.ArgumentException", ex.GetType.FullName, filename) Assert.AreEqual ("Cannot determine array type because it is Nothing.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_5_Boolean_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_5_Boolean_Append_1") Try Dim value As System.Boolean = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 18, 0, 0 }) FileOpen(1, filename, OpenMode.Append) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_5_Boolean_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_5_Boolean_Binary_2") Try Dim value As System.Boolean = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 18, 0, 0 }) FileOpen(1, filename, OpenMode.Binary) FileGet(1, value) FileClose(1) Assert.AreEqual (True, value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_5_Boolean_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_5_Boolean_Input_3") Try Dim value As System.Boolean = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 18, 0, 0 }) FileOpen(1, filename, OpenMode.Input) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_5_Boolean_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_5_Boolean_Output_4") Try Dim value As System.Boolean = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 18, 0, 0 }) FileOpen(1, filename, OpenMode.Output) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_5_Boolean_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_5_Boolean_Random_5") Try Dim value As System.Boolean = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 18, 0, 0 }) FileOpen(1, filename, OpenMode.Random) FileGet(1, value) FileClose(1) Assert.AreEqual (True, value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_5_Byte_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_5_Byte_Append_1") Try Dim value As System.Byte = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 18, 0, 0 }) FileOpen(1, filename, OpenMode.Append) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_5_Byte_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_5_Byte_Binary_2") Try Dim value As System.Byte = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 18, 0, 0 }) FileOpen(1, filename, OpenMode.Binary) FileGet(1, value) FileClose(1) Assert.AreEqual (CByte(18), value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_5_Byte_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_5_Byte_Input_3") Try Dim value As System.Byte = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 18, 0, 0 }) FileOpen(1, filename, OpenMode.Input) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_5_Byte_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_5_Byte_Output_4") Try Dim value As System.Byte = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 18, 0, 0 }) FileOpen(1, filename, OpenMode.Output) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_5_Byte_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_5_Byte_Random_5") Try Dim value As System.Byte = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 18, 0, 0 }) FileOpen(1, filename, OpenMode.Random) FileGet(1, value) FileClose(1) Assert.AreEqual (CByte(18), value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_5_Int16_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_5_Int16_Append_1") Try Dim value As System.Int16 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 18, 0, 0 }) FileOpen(1, filename, OpenMode.Append) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_5_Int16_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_5_Int16_Binary_2") Try Dim value As System.Int16 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 18, 0, 0 }) FileOpen(1, filename, OpenMode.Binary) FileGet(1, value) FileClose(1) Assert.AreEqual (CShort(18), value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_5_Int16_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_5_Int16_Input_3") Try Dim value As System.Int16 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 18, 0, 0 }) FileOpen(1, filename, OpenMode.Input) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_5_Int16_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_5_Int16_Output_4") Try Dim value As System.Int16 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 18, 0, 0 }) FileOpen(1, filename, OpenMode.Output) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_5_Int16_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_5_Int16_Random_5") Try Dim value As System.Int16 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 18, 0, 0 }) FileOpen(1, filename, OpenMode.Random) FileGet(1, value) FileClose(1) Assert.AreEqual (CShort(18), value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_5_Int32_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_5_Int32_Append_1") Try Dim value As System.Int32 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 18, 0, 0 }) FileOpen(1, filename, OpenMode.Append) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_5_Int32_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_5_Int32_Binary_2") Try Dim value As System.Int32 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 18, 0, 0 }) FileOpen(1, filename, OpenMode.Binary) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.EndOfStreamException ('Unable to read beyond the end of the stream.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.EndOfStreamException", ex.GetType.FullName, filename) Assert.AreEqual ("Unable to read beyond the end of the stream.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_5_Int32_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_5_Int32_Input_3") Try Dim value As System.Int32 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 18, 0, 0 }) FileOpen(1, filename, OpenMode.Input) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_5_Int32_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_5_Int32_Output_4") Try Dim value As System.Int32 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 18, 0, 0 }) FileOpen(1, filename, OpenMode.Output) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_5_Int32_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_5_Int32_Random_5") Try Dim value As System.Int32 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 18, 0, 0 }) FileOpen(1, filename, OpenMode.Random) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.EndOfStreamException ('Unable to read beyond the end of the stream.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.EndOfStreamException", ex.GetType.FullName, filename) Assert.AreEqual ("Unable to read beyond the end of the stream.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_5_Int64_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_5_Int64_Append_1") Try Dim value As System.Int64 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 18, 0, 0 }) FileOpen(1, filename, OpenMode.Append) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_5_Int64_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_5_Int64_Binary_2") Try Dim value As System.Int64 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 18, 0, 0 }) FileOpen(1, filename, OpenMode.Binary) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.EndOfStreamException ('Unable to read beyond the end of the stream.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.EndOfStreamException", ex.GetType.FullName, filename) Assert.AreEqual ("Unable to read beyond the end of the stream.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_5_Int64_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_5_Int64_Input_3") Try Dim value As System.Int64 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 18, 0, 0 }) FileOpen(1, filename, OpenMode.Input) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_5_Int64_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_5_Int64_Output_4") Try Dim value As System.Int64 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 18, 0, 0 }) FileOpen(1, filename, OpenMode.Output) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_5_Int64_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_5_Int64_Random_5") Try Dim value As System.Int64 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 18, 0, 0 }) FileOpen(1, filename, OpenMode.Random) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.EndOfStreamException ('Unable to read beyond the end of the stream.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.EndOfStreamException", ex.GetType.FullName, filename) Assert.AreEqual ("Unable to read beyond the end of the stream.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_5_Char_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_5_Char_Append_1") Try Dim value As System.Char = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 18, 0, 0 }) FileOpen(1, filename, OpenMode.Append) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_5_Char_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_5_Char_Binary_2") Try Dim value As System.Char = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 18, 0, 0 }) FileOpen(1, filename, OpenMode.Binary) FileGet(1, value) FileClose(1) Assert.AreEqual (""c, value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_5_Char_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_5_Char_Input_3") Try Dim value As System.Char = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 18, 0, 0 }) FileOpen(1, filename, OpenMode.Input) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_5_Char_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_5_Char_Output_4") Try Dim value As System.Char = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 18, 0, 0 }) FileOpen(1, filename, OpenMode.Output) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_5_Char_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_5_Char_Random_5") Try Dim value As System.Char = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 18, 0, 0 }) FileOpen(1, filename, OpenMode.Random) FileGet(1, value) FileClose(1) Assert.AreEqual (""c, value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_5_Single_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_5_Single_Append_1") Try Dim value As System.Single = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 18, 0, 0 }) FileOpen(1, filename, OpenMode.Append) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_5_Single_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_5_Single_Binary_2") Try Dim value As System.Single = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 18, 0, 0 }) FileOpen(1, filename, OpenMode.Binary) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.EndOfStreamException ('Unable to read beyond the end of the stream.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.EndOfStreamException", ex.GetType.FullName, filename) Assert.AreEqual ("Unable to read beyond the end of the stream.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_5_Single_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_5_Single_Input_3") Try Dim value As System.Single = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 18, 0, 0 }) FileOpen(1, filename, OpenMode.Input) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_5_Single_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_5_Single_Output_4") Try Dim value As System.Single = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 18, 0, 0 }) FileOpen(1, filename, OpenMode.Output) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_5_Single_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_5_Single_Random_5") Try Dim value As System.Single = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 18, 0, 0 }) FileOpen(1, filename, OpenMode.Random) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.EndOfStreamException ('Unable to read beyond the end of the stream.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.EndOfStreamException", ex.GetType.FullName, filename) Assert.AreEqual ("Unable to read beyond the end of the stream.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_5_Double_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_5_Double_Append_1") Try Dim value As System.Double = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 18, 0, 0 }) FileOpen(1, filename, OpenMode.Append) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_5_Double_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_5_Double_Binary_2") Try Dim value As System.Double = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 18, 0, 0 }) FileOpen(1, filename, OpenMode.Binary) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.EndOfStreamException ('Unable to read beyond the end of the stream.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.EndOfStreamException", ex.GetType.FullName, filename) Assert.AreEqual ("Unable to read beyond the end of the stream.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_5_Double_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_5_Double_Input_3") Try Dim value As System.Double = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 18, 0, 0 }) FileOpen(1, filename, OpenMode.Input) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_5_Double_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_5_Double_Output_4") Try Dim value As System.Double = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 18, 0, 0 }) FileOpen(1, filename, OpenMode.Output) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_5_Double_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_5_Double_Random_5") Try Dim value As System.Double = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 18, 0, 0 }) FileOpen(1, filename, OpenMode.Random) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.EndOfStreamException ('Unable to read beyond the end of the stream.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.EndOfStreamException", ex.GetType.FullName, filename) Assert.AreEqual ("Unable to read beyond the end of the stream.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_5_Decimal_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_5_Decimal_Append_1") Try Dim value As System.Decimal = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 18, 0, 0 }) FileOpen(1, filename, OpenMode.Append) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_5_Decimal_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_5_Decimal_Binary_2") Try Dim value As System.Decimal = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 18, 0, 0 }) FileOpen(1, filename, OpenMode.Binary) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.EndOfStreamException ('Unable to read beyond the end of the stream.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.EndOfStreamException", ex.GetType.FullName, filename) Assert.AreEqual ("Unable to read beyond the end of the stream.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_5_Decimal_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_5_Decimal_Input_3") Try Dim value As System.Decimal = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 18, 0, 0 }) FileOpen(1, filename, OpenMode.Input) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_5_Decimal_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_5_Decimal_Output_4") Try Dim value As System.Decimal = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 18, 0, 0 }) FileOpen(1, filename, OpenMode.Output) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_5_Decimal_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_5_Decimal_Random_5") Try Dim value As System.Decimal = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 18, 0, 0 }) FileOpen(1, filename, OpenMode.Random) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.EndOfStreamException ('Unable to read beyond the end of the stream.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.EndOfStreamException", ex.GetType.FullName, filename) Assert.AreEqual ("Unable to read beyond the end of the stream.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_5_String_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_5_String_Append_1") Try Dim value As System.String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 18, 0, 0 }) FileOpen(1, filename, OpenMode.Append) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_5_String_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_5_String_Binary_2") Try Dim value As System.String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 18, 0, 0 }) FileOpen(1, filename, OpenMode.Binary) FileGet(1, value) FileClose(1) Assert.AreEqual (Nothing, value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_5_String_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_5_String_Input_3") Try Dim value As System.String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 18, 0, 0 }) FileOpen(1, filename, OpenMode.Input) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_5_String_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_5_String_Output_4") Try Dim value As System.String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 18, 0, 0 }) FileOpen(1, filename, OpenMode.Output) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_5_String_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_5_String_Random_5") Try Dim value As System.String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 18, 0, 0 }) FileOpen(1, filename, OpenMode.Random) FileGet(1, value) FileClose(1) Assert.AreEqual ("", value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_5_DateTime_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_5_DateTime_Append_1") Try Dim value As System.DateTime = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 18, 0, 0 }) FileOpen(1, filename, OpenMode.Append) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_5_DateTime_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_5_DateTime_Binary_2") Try Dim value As System.DateTime = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 18, 0, 0 }) FileOpen(1, filename, OpenMode.Binary) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.EndOfStreamException ('Unable to read beyond the end of the stream.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.EndOfStreamException", ex.GetType.FullName, filename) Assert.AreEqual ("Unable to read beyond the end of the stream.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_5_DateTime_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_5_DateTime_Input_3") Try Dim value As System.DateTime = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 18, 0, 0 }) FileOpen(1, filename, OpenMode.Input) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_5_DateTime_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_5_DateTime_Output_4") Try Dim value As System.DateTime = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 18, 0, 0 }) FileOpen(1, filename, OpenMode.Output) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_5_DateTime_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_5_DateTime_Random_5") Try Dim value As System.DateTime = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 18, 0, 0 }) FileOpen(1, filename, OpenMode.Random) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.EndOfStreamException ('Unable to read beyond the end of the stream.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.EndOfStreamException", ex.GetType.FullName, filename) Assert.AreEqual ("Unable to read beyond the end of the stream.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetObjectTest_5_Object_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "FileGetObjectTest_5_Object_Append_1") Try Dim value As System.Object = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 18, 0, 0 }) FileOpen(1, filename, OpenMode.Append) FileGetObject(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetObjectTest_5_Object_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "FileGetObjectTest_5_Object_Binary_2") Try Dim value As System.Object = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 18, 0, 0 }) FileOpen(1, filename, OpenMode.Binary) FileGetObject(1, value) FileClose(1) Assert.AreEqual (""c, value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FileGetObjectTest_5_Object_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "FileGetObjectTest_5_Object_Input_3") Try Dim value As System.Object = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 18, 0, 0 }) FileOpen(1, filename, OpenMode.Input) FileGetObject(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetObjectTest_5_Object_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "FileGetObjectTest_5_Object_Output_4") Try Dim value As System.Object = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 18, 0, 0 }) FileOpen(1, filename, OpenMode.Output) FileGetObject(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetObjectTest_5_Object_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "FileGetObjectTest_5_Object_Random_5") Try Dim value As System.Object = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 18, 0, 0 }) FileOpen(1, filename, OpenMode.Random) FileGetObject(1, value) FileClose(1) Assert.AreEqual (""c, value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub InputTest_5_Object_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_5_Object_Append_1") Try Dim value As System.Object = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 18, 0, 0 }) FileOpen(1, filename, OpenMode.Append) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_5_Object_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_5_Object_Binary_2") Try Dim value As System.Object = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 18, 0, 0 }) FileOpen(1, filename, OpenMode.Binary) Input(1, value) FileClose(1) Assert.AreEqual ("", value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub InputTest_5_Object_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_5_Object_Input_3") Try Dim value As System.Object = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 18, 0, 0 }) FileOpen(1, filename, OpenMode.Input) Input(1, value) FileClose(1) Assert.AreEqual ("", value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub InputTest_5_Object_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_5_Object_Output_4") Try Dim value As System.Object = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 18, 0, 0 }) FileOpen(1, filename, OpenMode.Output) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_5_Object_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_5_Object_Random_5") Try Dim value As System.Object = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 18, 0, 0 }) FileOpen(1, filename, OpenMode.Random) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_5_Boolean_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_5_Boolean_Append_1") Try Dim value As System.Boolean = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 18, 0, 0 }) FileOpen(1, filename, OpenMode.Append) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_5_Boolean_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_5_Boolean_Binary_2") Try Dim value As System.Boolean = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 18, 0, 0 }) FileOpen(1, filename, OpenMode.Binary) Input(1, value) FileClose(1) Assert.Fail ("Expected System.InvalidCastException ('Conversion from string """" to type 'Boolean' is not valid.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.InvalidCastException", ex.GetType.FullName, filename) #If NET_VER >= 2.0 Then Assert.AreEqual ("Conversion from string """" to type 'Boolean' is not valid.", ex.Message, filename) #Else Assert.AreEqual ("Cast from string """" to type 'Boolean' is not valid.", ex.Message, filename) #End If Finally CleanUp() End Try End Sub _ Sub InputTest_5_Boolean_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_5_Boolean_Input_3") Try Dim value As System.Boolean = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 18, 0, 0 }) FileOpen(1, filename, OpenMode.Input) Input(1, value) FileClose(1) Assert.Fail ("Expected System.InvalidCastException ('Conversion from string """" to type 'Boolean' is not valid.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.InvalidCastException", ex.GetType.FullName, filename) #If NET_VER >= 2.0 Then Assert.AreEqual ("Conversion from string """" to type 'Boolean' is not valid.", ex.Message, filename) #Else Assert.AreEqual ("Cast from string """" to type 'Boolean' is not valid.", ex.Message, filename) #End If Finally CleanUp() End Try End Sub _ Sub InputTest_5_Boolean_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_5_Boolean_Output_4") Try Dim value As System.Boolean = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 18, 0, 0 }) FileOpen(1, filename, OpenMode.Output) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_5_Boolean_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_5_Boolean_Random_5") Try Dim value As System.Boolean = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 18, 0, 0 }) FileOpen(1, filename, OpenMode.Random) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_5_Byte_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_5_Byte_Append_1") Try Dim value As System.Byte = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 18, 0, 0 }) FileOpen(1, filename, OpenMode.Append) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_5_Byte_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_5_Byte_Binary_2") Try Dim value As System.Byte = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 18, 0, 0 }) FileOpen(1, filename, OpenMode.Binary) Input(1, value) FileClose(1) Assert.Fail ("Expected System.InvalidCastException ('Conversion from string """" to type 'Byte' is not valid.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.InvalidCastException", ex.GetType.FullName, filename) #If NET_VER >= 2.0 Then Assert.AreEqual ("Conversion from string """" to type 'Byte' is not valid.", ex.Message, filename) #Else Assert.AreEqual ("Cast from string """" to type 'Byte' is not valid.", ex.Message, filename) #End If Finally CleanUp() End Try End Sub _ Sub InputTest_5_Byte_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_5_Byte_Input_3") Try Dim value As System.Byte = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 18, 0, 0 }) FileOpen(1, filename, OpenMode.Input) Input(1, value) FileClose(1) Assert.Fail ("Expected System.InvalidCastException ('Conversion from string """" to type 'Byte' is not valid.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.InvalidCastException", ex.GetType.FullName, filename) #If NET_VER >= 2.0 Then Assert.AreEqual ("Conversion from string """" to type 'Byte' is not valid.", ex.Message, filename) #Else Assert.AreEqual ("Cast from string """" to type 'Byte' is not valid.", ex.Message, filename) #End If Finally CleanUp() End Try End Sub _ Sub InputTest_5_Byte_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_5_Byte_Output_4") Try Dim value As System.Byte = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 18, 0, 0 }) FileOpen(1, filename, OpenMode.Output) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_5_Byte_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_5_Byte_Random_5") Try Dim value As System.Byte = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 18, 0, 0 }) FileOpen(1, filename, OpenMode.Random) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_5_Int16_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_5_Int16_Append_1") Try Dim value As System.Int16 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 18, 0, 0 }) FileOpen(1, filename, OpenMode.Append) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_5_Int16_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_5_Int16_Binary_2") Try Dim value As System.Int16 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 18, 0, 0 }) FileOpen(1, filename, OpenMode.Binary) Input(1, value) FileClose(1) Assert.Fail ("Expected System.InvalidCastException ('Conversion from string """" to type 'Short' is not valid.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.InvalidCastException", ex.GetType.FullName, filename) #If NET_VER >= 2.0 Then Assert.AreEqual ("Conversion from string """" to type 'Short' is not valid.", ex.Message, filename) #Else Assert.AreEqual ("Cast from string """" to type 'Short' is not valid.", ex.Message, filename) #End If Finally CleanUp() End Try End Sub _ Sub InputTest_5_Int16_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_5_Int16_Input_3") Try Dim value As System.Int16 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 18, 0, 0 }) FileOpen(1, filename, OpenMode.Input) Input(1, value) FileClose(1) Assert.Fail ("Expected System.InvalidCastException ('Conversion from string """" to type 'Short' is not valid.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.InvalidCastException", ex.GetType.FullName, filename) #If NET_VER >= 2.0 Then Assert.AreEqual ("Conversion from string """" to type 'Short' is not valid.", ex.Message, filename) #Else Assert.AreEqual ("Cast from string """" to type 'Short' is not valid.", ex.Message, filename) #End If Finally CleanUp() End Try End Sub _ Sub InputTest_5_Int16_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_5_Int16_Output_4") Try Dim value As System.Int16 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 18, 0, 0 }) FileOpen(1, filename, OpenMode.Output) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_5_Int16_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_5_Int16_Random_5") Try Dim value As System.Int16 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 18, 0, 0 }) FileOpen(1, filename, OpenMode.Random) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_5_Int32_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_5_Int32_Append_1") Try Dim value As System.Int32 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 18, 0, 0 }) FileOpen(1, filename, OpenMode.Append) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_5_Int32_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_5_Int32_Binary_2") Try Dim value As System.Int32 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 18, 0, 0 }) FileOpen(1, filename, OpenMode.Binary) Input(1, value) FileClose(1) Assert.Fail ("Expected System.InvalidCastException ('Conversion from string """" to type 'Integer' is not valid.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.InvalidCastException", ex.GetType.FullName, filename) #If NET_VER >= 2.0 Then Assert.AreEqual ("Conversion from string """" to type 'Integer' is not valid.", ex.Message, filename) #Else Assert.AreEqual ("Cast from string """" to type 'Integer' is not valid.", ex.Message, filename) #End If Finally CleanUp() End Try End Sub _ Sub InputTest_5_Int32_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_5_Int32_Input_3") Try Dim value As System.Int32 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 18, 0, 0 }) FileOpen(1, filename, OpenMode.Input) Input(1, value) FileClose(1) Assert.Fail ("Expected System.InvalidCastException ('Conversion from string """" to type 'Integer' is not valid.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.InvalidCastException", ex.GetType.FullName, filename) #If NET_VER >= 2.0 Then Assert.AreEqual ("Conversion from string """" to type 'Integer' is not valid.", ex.Message, filename) #Else Assert.AreEqual ("Cast from string """" to type 'Integer' is not valid.", ex.Message, filename) #End If Finally CleanUp() End Try End Sub _ Sub InputTest_5_Int32_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_5_Int32_Output_4") Try Dim value As System.Int32 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 18, 0, 0 }) FileOpen(1, filename, OpenMode.Output) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_5_Int32_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_5_Int32_Random_5") Try Dim value As System.Int32 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 18, 0, 0 }) FileOpen(1, filename, OpenMode.Random) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_5_Int64_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_5_Int64_Append_1") Try Dim value As System.Int64 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 18, 0, 0 }) FileOpen(1, filename, OpenMode.Append) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_5_Int64_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_5_Int64_Binary_2") Try Dim value As System.Int64 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 18, 0, 0 }) FileOpen(1, filename, OpenMode.Binary) Input(1, value) FileClose(1) Assert.Fail ("Expected System.InvalidCastException ('Conversion from string """" to type 'Long' is not valid.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.InvalidCastException", ex.GetType.FullName, filename) #If NET_VER >= 2.0 Then Assert.AreEqual ("Conversion from string """" to type 'Long' is not valid.", ex.Message, filename) #Else Assert.AreEqual ("Cast from string """" to type 'Long' is not valid.", ex.Message, filename) #End If Finally CleanUp() End Try End Sub _ Sub InputTest_5_Int64_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_5_Int64_Input_3") Try Dim value As System.Int64 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 18, 0, 0 }) FileOpen(1, filename, OpenMode.Input) Input(1, value) FileClose(1) Assert.Fail ("Expected System.InvalidCastException ('Conversion from string """" to type 'Long' is not valid.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.InvalidCastException", ex.GetType.FullName, filename) #If NET_VER >= 2.0 Then Assert.AreEqual ("Conversion from string """" to type 'Long' is not valid.", ex.Message, filename) #Else Assert.AreEqual ("Cast from string """" to type 'Long' is not valid.", ex.Message, filename) #End If Finally CleanUp() End Try End Sub _ Sub InputTest_5_Int64_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_5_Int64_Output_4") Try Dim value As System.Int64 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 18, 0, 0 }) FileOpen(1, filename, OpenMode.Output) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_5_Int64_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_5_Int64_Random_5") Try Dim value As System.Int64 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 18, 0, 0 }) FileOpen(1, filename, OpenMode.Random) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_5_Char_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_5_Char_Append_1") Try Dim value As System.Char = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 18, 0, 0 }) FileOpen(1, filename, OpenMode.Append) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_5_Char_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_5_Char_Binary_2") Try Dim value As System.Char = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 18, 0, 0 }) FileOpen(1, filename, OpenMode.Binary) Input(1, value) FileClose(1) Assert.AreEqual (""c, value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub InputTest_5_Char_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_5_Char_Input_3") Try Dim value As System.Char = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 18, 0, 0 }) FileOpen(1, filename, OpenMode.Input) Input(1, value) FileClose(1) Assert.AreEqual (""c, value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub InputTest_5_Char_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_5_Char_Output_4") Try Dim value As System.Char = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 18, 0, 0 }) FileOpen(1, filename, OpenMode.Output) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_5_Char_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_5_Char_Random_5") Try Dim value As System.Char = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 18, 0, 0 }) FileOpen(1, filename, OpenMode.Random) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_5_Single_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_5_Single_Append_1") Try Dim value As System.Single = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 18, 0, 0 }) FileOpen(1, filename, OpenMode.Append) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_5_Single_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_5_Single_Binary_2") Try Dim value As System.Single = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 18, 0, 0 }) FileOpen(1, filename, OpenMode.Binary) Input(1, value) FileClose(1) Assert.Fail ("Expected System.InvalidCastException ('Conversion from string """" to type 'Single' is not valid.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.InvalidCastException", ex.GetType.FullName, filename) #If NET_VER >= 2.0 Then Assert.AreEqual ("Conversion from string """" to type 'Single' is not valid.", ex.Message, filename) #Else Assert.AreEqual ("Cast from string """" to type 'Single' is not valid.", ex.Message, filename) #End If Finally CleanUp() End Try End Sub _ Sub InputTest_5_Single_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_5_Single_Input_3") Try Dim value As System.Single = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 18, 0, 0 }) FileOpen(1, filename, OpenMode.Input) Input(1, value) FileClose(1) Assert.Fail ("Expected System.InvalidCastException ('Conversion from string """" to type 'Single' is not valid.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.InvalidCastException", ex.GetType.FullName, filename) #If NET_VER >= 2.0 Then Assert.AreEqual ("Conversion from string """" to type 'Single' is not valid.", ex.Message, filename) #Else Assert.AreEqual ("Cast from string """" to type 'Single' is not valid.", ex.Message, filename) #End If Finally CleanUp() End Try End Sub _ Sub InputTest_5_Single_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_5_Single_Output_4") Try Dim value As System.Single = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 18, 0, 0 }) FileOpen(1, filename, OpenMode.Output) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_5_Single_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_5_Single_Random_5") Try Dim value As System.Single = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 18, 0, 0 }) FileOpen(1, filename, OpenMode.Random) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_5_Double_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_5_Double_Append_1") Try Dim value As System.Double = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 18, 0, 0 }) FileOpen(1, filename, OpenMode.Append) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_5_Double_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_5_Double_Binary_2") Try Dim value As System.Double = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 18, 0, 0 }) FileOpen(1, filename, OpenMode.Binary) Input(1, value) FileClose(1) Assert.Fail ("Expected System.InvalidCastException ('Conversion from string """" to type 'Double' is not valid.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.InvalidCastException", ex.GetType.FullName, filename) #If NET_VER >= 2.0 Then Assert.AreEqual ("Conversion from string """" to type 'Double' is not valid.", ex.Message, filename) #Else Assert.AreEqual ("Cast from string """" to type 'Double' is not valid.", ex.Message, filename) #End If Finally CleanUp() End Try End Sub _ Sub InputTest_5_Double_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_5_Double_Input_3") Try Dim value As System.Double = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 18, 0, 0 }) FileOpen(1, filename, OpenMode.Input) Input(1, value) FileClose(1) Assert.Fail ("Expected System.InvalidCastException ('Conversion from string """" to type 'Double' is not valid.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.InvalidCastException", ex.GetType.FullName, filename) #If NET_VER >= 2.0 Then Assert.AreEqual ("Conversion from string """" to type 'Double' is not valid.", ex.Message, filename) #Else Assert.AreEqual ("Cast from string """" to type 'Double' is not valid.", ex.Message, filename) #End If Finally CleanUp() End Try End Sub _ Sub InputTest_5_Double_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_5_Double_Output_4") Try Dim value As System.Double = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 18, 0, 0 }) FileOpen(1, filename, OpenMode.Output) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_5_Double_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_5_Double_Random_5") Try Dim value As System.Double = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 18, 0, 0 }) FileOpen(1, filename, OpenMode.Random) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_5_Decimal_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_5_Decimal_Append_1") Try Dim value As System.Decimal = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 18, 0, 0 }) FileOpen(1, filename, OpenMode.Append) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_5_Decimal_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_5_Decimal_Binary_2") Try Dim value As System.Decimal = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 18, 0, 0 }) FileOpen(1, filename, OpenMode.Binary) Input(1, value) FileClose(1) Assert.Fail ("Expected System.InvalidCastException ('Conversion from string """" to type 'Decimal' is not valid.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.InvalidCastException", ex.GetType.FullName, filename) #If NET_VER >= 2.0 Then Assert.AreEqual ("Conversion from string """" to type 'Decimal' is not valid.", ex.Message, filename) #Else Assert.AreEqual ("Cast from string """" to type 'Decimal' is not valid.", ex.Message, filename) #End If Finally CleanUp() End Try End Sub _ Sub InputTest_5_Decimal_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_5_Decimal_Input_3") Try Dim value As System.Decimal = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 18, 0, 0 }) FileOpen(1, filename, OpenMode.Input) Input(1, value) FileClose(1) Assert.Fail ("Expected System.InvalidCastException ('Conversion from string """" to type 'Decimal' is not valid.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.InvalidCastException", ex.GetType.FullName, filename) #If NET_VER >= 2.0 Then Assert.AreEqual ("Conversion from string """" to type 'Decimal' is not valid.", ex.Message, filename) #Else Assert.AreEqual ("Cast from string """" to type 'Decimal' is not valid.", ex.Message, filename) #End If Finally CleanUp() End Try End Sub _ Sub InputTest_5_Decimal_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_5_Decimal_Output_4") Try Dim value As System.Decimal = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 18, 0, 0 }) FileOpen(1, filename, OpenMode.Output) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_5_Decimal_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_5_Decimal_Random_5") Try Dim value As System.Decimal = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 18, 0, 0 }) FileOpen(1, filename, OpenMode.Random) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_5_String_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_5_String_Append_1") Try Dim value As System.String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 18, 0, 0 }) FileOpen(1, filename, OpenMode.Append) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_5_String_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_5_String_Binary_2") Try Dim value As System.String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 18, 0, 0 }) FileOpen(1, filename, OpenMode.Binary) Input(1, value) FileClose(1) Assert.AreEqual ("", value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub InputTest_5_String_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_5_String_Input_3") Try Dim value As System.String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 18, 0, 0 }) FileOpen(1, filename, OpenMode.Input) Input(1, value) FileClose(1) Assert.AreEqual ("", value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub InputTest_5_String_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_5_String_Output_4") Try Dim value As System.String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 18, 0, 0 }) FileOpen(1, filename, OpenMode.Output) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_5_String_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_5_String_Random_5") Try Dim value As System.String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 18, 0, 0 }) FileOpen(1, filename, OpenMode.Random) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_5_DateTime_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_5_DateTime_Append_1") Try Dim value As System.DateTime = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 18, 0, 0 }) FileOpen(1, filename, OpenMode.Append) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_5_DateTime_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_5_DateTime_Binary_2") Try Dim value As System.DateTime = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 18, 0, 0 }) FileOpen(1, filename, OpenMode.Binary) Input(1, value) FileClose(1) Assert.Fail ("Expected System.InvalidCastException ('Conversion from string """" to type 'Date' is not valid.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.InvalidCastException", ex.GetType.FullName, filename) #If NET_VER >= 2.0 Then Assert.AreEqual ("Conversion from string """" to type 'Date' is not valid.", ex.Message, filename) #Else Assert.AreEqual ("Cast from string """" to type 'Date' is not valid.", ex.Message, filename) #End If Finally CleanUp() End Try End Sub _ Sub InputTest_5_DateTime_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_5_DateTime_Input_3") Try Dim value As System.DateTime = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 18, 0, 0 }) FileOpen(1, filename, OpenMode.Input) Input(1, value) FileClose(1) Assert.Fail ("Expected System.InvalidCastException ('Conversion from string """" to type 'Date' is not valid.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.InvalidCastException", ex.GetType.FullName, filename) #If NET_VER >= 2.0 Then Assert.AreEqual ("Conversion from string """" to type 'Date' is not valid.", ex.Message, filename) #Else Assert.AreEqual ("Cast from string """" to type 'Date' is not valid.", ex.Message, filename) #End If Finally CleanUp() End Try End Sub _ Sub InputTest_5_DateTime_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_5_DateTime_Output_4") Try Dim value As System.DateTime = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 18, 0, 0 }) FileOpen(1, filename, OpenMode.Output) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_5_DateTime_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_5_DateTime_Random_5") Try Dim value As System.DateTime = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 18, 0, 0 }) FileOpen(1, filename, OpenMode.Random) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub LineInputTest_6_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "LineInputTest_6_Append_1") Try Dim value As String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 3, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Append) value = LineInput(1) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub LineInputTest_6_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "LineInputTest_6_Binary_2") Try Dim value As String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 3, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Binary) value = LineInput(1) FileClose(1) Assert.AreEqual ("€", value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub LineInputTest_6_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "LineInputTest_6_Input_3") Try Dim value As String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 3, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Input) value = LineInput(1) FileClose(1) Assert.AreEqual ("€", value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub LineInputTest_6_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "LineInputTest_6_Output_4") Try Dim value As String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 3, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Output) value = LineInput(1) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub LineInputTest_6_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "LineInputTest_6_Random_5") Try Dim value As String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 3, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Random) value = LineInput(1) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputStringTest_6_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "InputStringTest_6_Append_1") Try Dim value As String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 3, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Append) value = InputString(1, 6) FileClose(1) Assert.Fail ("Expected System.NullReferenceException ('Object reference not set to an instance of an object.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception #If NET_VER >= 2.0 Then Assert.AreEqual ("System.NullReferenceException", ex.GetType.FullName, filename) #Else Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) #End If #If NET_VER >= 2.0 Then Assert.AreEqual ("Object reference not set to an instance of an object.", ex.Message, filename) #Else Assert.AreEqual ("Bad file mode.", ex.Message, filename) #End If Finally CleanUp() End Try End Sub _ Sub InputStringTest_6_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "InputStringTest_6_Binary_2") Try Dim value As String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 3, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Binary) value = InputString(1, 6) FileClose(1) Assert.AreEqual ("€", value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub InputStringTest_6_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "InputStringTest_6_Input_3") Try Dim value As String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 3, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Input) value = InputString(1, 6) FileClose(1) Assert.AreEqual ("€", value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub InputStringTest_6_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "InputStringTest_6_Output_4") Try Dim value As String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 3, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Output) value = InputString(1, 6) FileClose(1) Assert.Fail ("Expected System.NullReferenceException ('Object reference not set to an instance of an object.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception #If NET_VER >= 2.0 Then Assert.AreEqual ("System.NullReferenceException", ex.GetType.FullName, filename) #Else Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) #End If #If NET_VER >= 2.0 Then Assert.AreEqual ("Object reference not set to an instance of an object.", ex.Message, filename) #Else Assert.AreEqual ("Bad file mode.", ex.Message, filename) #End If Finally CleanUp() End Try End Sub _ Sub InputStringTest_6_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "InputStringTest_6_Random_5") Try Dim value As String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 3, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Random) value = InputString(1, 6) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_6_ValueType_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_6_ValueType_Append_1") Try Dim value As System.ValueType = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 3, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Append) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_6_ValueType_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_6_ValueType_Binary_2") Try Dim value As System.ValueType = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 3, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Binary) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.NullReferenceException ('Object reference not set to an instance of an object.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.NullReferenceException", ex.GetType.FullName, filename) Assert.AreEqual ("Object reference not set to an instance of an object.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_6_ValueType_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_6_ValueType_Input_3") Try Dim value As System.ValueType = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 3, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Input) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_6_ValueType_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_6_ValueType_Output_4") Try Dim value As System.ValueType = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 3, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Output) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_6_ValueType_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_6_ValueType_Random_5") Try Dim value As System.ValueType = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 3, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Random) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.NullReferenceException ('Object reference not set to an instance of an object.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.NullReferenceException", ex.GetType.FullName, filename) Assert.AreEqual ("Object reference not set to an instance of an object.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_6_Array_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_6_Array_Append_1") Try Dim value As System.Array = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 3, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Append) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_6_Array_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_6_Array_Binary_2") Try Dim value As System.Array = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 3, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Binary) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.ArgumentException ('Cannot determine array type because it is Nothing.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.ArgumentException", ex.GetType.FullName, filename) Assert.AreEqual ("Cannot determine array type because it is Nothing.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_6_Array_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_6_Array_Input_3") Try Dim value As System.Array = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 3, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Input) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_6_Array_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_6_Array_Output_4") Try Dim value As System.Array = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 3, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Output) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_6_Array_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_6_Array_Random_5") Try Dim value As System.Array = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 3, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Random) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.ArgumentException ('Cannot determine array type because it is Nothing.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.ArgumentException", ex.GetType.FullName, filename) Assert.AreEqual ("Cannot determine array type because it is Nothing.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_6_Boolean_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_6_Boolean_Append_1") Try Dim value As System.Boolean = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 3, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Append) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_6_Boolean_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_6_Boolean_Binary_2") Try Dim value As System.Boolean = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 3, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Binary) FileGet(1, value) FileClose(1) Assert.AreEqual (True, value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_6_Boolean_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_6_Boolean_Input_3") Try Dim value As System.Boolean = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 3, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Input) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_6_Boolean_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_6_Boolean_Output_4") Try Dim value As System.Boolean = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 3, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Output) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_6_Boolean_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_6_Boolean_Random_5") Try Dim value As System.Boolean = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 3, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Random) FileGet(1, value) FileClose(1) Assert.AreEqual (True, value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_6_Byte_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_6_Byte_Append_1") Try Dim value As System.Byte = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 3, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Append) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_6_Byte_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_6_Byte_Binary_2") Try Dim value As System.Byte = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 3, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Binary) FileGet(1, value) FileClose(1) Assert.AreEqual (CByte(3), value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_6_Byte_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_6_Byte_Input_3") Try Dim value As System.Byte = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 3, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Input) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_6_Byte_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_6_Byte_Output_4") Try Dim value As System.Byte = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 3, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Output) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_6_Byte_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_6_Byte_Random_5") Try Dim value As System.Byte = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 3, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Random) FileGet(1, value) FileClose(1) Assert.AreEqual (CByte(3), value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_6_Int16_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_6_Int16_Append_1") Try Dim value As System.Int16 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 3, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Append) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_6_Int16_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_6_Int16_Binary_2") Try Dim value As System.Int16 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 3, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Binary) FileGet(1, value) FileClose(1) Assert.AreEqual (CShort(3), value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_6_Int16_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_6_Int16_Input_3") Try Dim value As System.Int16 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 3, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Input) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_6_Int16_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_6_Int16_Output_4") Try Dim value As System.Int16 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 3, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Output) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_6_Int16_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_6_Int16_Random_5") Try Dim value As System.Int16 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 3, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Random) FileGet(1, value) FileClose(1) Assert.AreEqual (CShort(3), value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_6_Int32_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_6_Int32_Append_1") Try Dim value As System.Int32 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 3, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Append) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_6_Int32_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_6_Int32_Binary_2") Try Dim value As System.Int32 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 3, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Binary) FileGet(1, value) FileClose(1) Assert.AreEqual (CInt(3), value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_6_Int32_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_6_Int32_Input_3") Try Dim value As System.Int32 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 3, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Input) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_6_Int32_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_6_Int32_Output_4") Try Dim value As System.Int32 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 3, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Output) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_6_Int32_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_6_Int32_Random_5") Try Dim value As System.Int32 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 3, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Random) FileGet(1, value) FileClose(1) Assert.AreEqual (CInt(3), value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_6_Int64_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_6_Int64_Append_1") Try Dim value As System.Int64 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 3, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Append) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_6_Int64_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_6_Int64_Binary_2") Try Dim value As System.Int64 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 3, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Binary) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.EndOfStreamException ('Unable to read beyond the end of the stream.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.EndOfStreamException", ex.GetType.FullName, filename) Assert.AreEqual ("Unable to read beyond the end of the stream.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_6_Int64_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_6_Int64_Input_3") Try Dim value As System.Int64 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 3, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Input) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_6_Int64_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_6_Int64_Output_4") Try Dim value As System.Int64 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 3, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Output) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_6_Int64_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_6_Int64_Random_5") Try Dim value As System.Int64 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 3, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Random) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.EndOfStreamException ('Unable to read beyond the end of the stream.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.EndOfStreamException", ex.GetType.FullName, filename) Assert.AreEqual ("Unable to read beyond the end of the stream.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_6_Char_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_6_Char_Append_1") Try Dim value As System.Char = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 3, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Append) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_6_Char_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_6_Char_Binary_2") Try Dim value As System.Char = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 3, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Binary) FileGet(1, value) FileClose(1) Assert.AreEqual (""c, value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_6_Char_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_6_Char_Input_3") Try Dim value As System.Char = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 3, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Input) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_6_Char_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_6_Char_Output_4") Try Dim value As System.Char = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 3, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Output) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_6_Char_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_6_Char_Random_5") Try Dim value As System.Char = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 3, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Random) FileGet(1, value) FileClose(1) Assert.AreEqual (""c, value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_6_Single_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_6_Single_Append_1") Try Dim value As System.Single = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 3, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Append) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_6_Single_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_6_Single_Binary_2") Try Dim value As System.Single = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 3, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Binary) FileGet(1, value) FileClose(1) Assert.AreEqual (CSng(4.203895E-45), value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_6_Single_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_6_Single_Input_3") Try Dim value As System.Single = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 3, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Input) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_6_Single_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_6_Single_Output_4") Try Dim value As System.Single = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 3, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Output) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_6_Single_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_6_Single_Random_5") Try Dim value As System.Single = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 3, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Random) FileGet(1, value) FileClose(1) Assert.AreEqual (CSng(4.203895E-45), value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_6_Double_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_6_Double_Append_1") Try Dim value As System.Double = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 3, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Append) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_6_Double_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_6_Double_Binary_2") Try Dim value As System.Double = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 3, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Binary) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.EndOfStreamException ('Unable to read beyond the end of the stream.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.EndOfStreamException", ex.GetType.FullName, filename) Assert.AreEqual ("Unable to read beyond the end of the stream.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_6_Double_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_6_Double_Input_3") Try Dim value As System.Double = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 3, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Input) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_6_Double_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_6_Double_Output_4") Try Dim value As System.Double = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 3, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Output) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_6_Double_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_6_Double_Random_5") Try Dim value As System.Double = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 3, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Random) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.EndOfStreamException ('Unable to read beyond the end of the stream.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.EndOfStreamException", ex.GetType.FullName, filename) Assert.AreEqual ("Unable to read beyond the end of the stream.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_6_Decimal_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_6_Decimal_Append_1") Try Dim value As System.Decimal = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 3, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Append) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_6_Decimal_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_6_Decimal_Binary_2") Try Dim value As System.Decimal = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 3, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Binary) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.EndOfStreamException ('Unable to read beyond the end of the stream.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.EndOfStreamException", ex.GetType.FullName, filename) Assert.AreEqual ("Unable to read beyond the end of the stream.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_6_Decimal_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_6_Decimal_Input_3") Try Dim value As System.Decimal = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 3, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Input) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_6_Decimal_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_6_Decimal_Output_4") Try Dim value As System.Decimal = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 3, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Output) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_6_Decimal_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_6_Decimal_Random_5") Try Dim value As System.Decimal = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 3, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Random) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.EndOfStreamException ('Unable to read beyond the end of the stream.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.EndOfStreamException", ex.GetType.FullName, filename) Assert.AreEqual ("Unable to read beyond the end of the stream.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_6_String_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_6_String_Append_1") Try Dim value As System.String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 3, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Append) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_6_String_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_6_String_Binary_2") Try Dim value As System.String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 3, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Binary) FileGet(1, value) FileClose(1) Assert.AreEqual (Nothing, value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_6_String_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_6_String_Input_3") Try Dim value As System.String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 3, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Input) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_6_String_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_6_String_Output_4") Try Dim value As System.String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 3, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Output) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_6_String_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_6_String_Random_5") Try Dim value As System.String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 3, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Random) FileGet(1, value) FileClose(1) Assert.AreEqual ("", value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_6_DateTime_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_6_DateTime_Append_1") Try Dim value As System.DateTime = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 3, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Append) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_6_DateTime_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_6_DateTime_Binary_2") Try Dim value As System.DateTime = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 3, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Binary) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.EndOfStreamException ('Unable to read beyond the end of the stream.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.EndOfStreamException", ex.GetType.FullName, filename) Assert.AreEqual ("Unable to read beyond the end of the stream.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_6_DateTime_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_6_DateTime_Input_3") Try Dim value As System.DateTime = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 3, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Input) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_6_DateTime_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_6_DateTime_Output_4") Try Dim value As System.DateTime = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 3, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Output) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetTest_6_DateTime_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "FileGetTest_6_DateTime_Random_5") Try Dim value As System.DateTime = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 3, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Random) FileGet(1, value) FileClose(1) Assert.Fail ("Expected System.IO.EndOfStreamException ('Unable to read beyond the end of the stream.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.EndOfStreamException", ex.GetType.FullName, filename) Assert.AreEqual ("Unable to read beyond the end of the stream.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetObjectTest_6_Object_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "FileGetObjectTest_6_Object_Append_1") Try Dim value As System.Object = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 3, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Append) FileGetObject(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetObjectTest_6_Object_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "FileGetObjectTest_6_Object_Binary_2") Try Dim value As System.Object = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 3, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Binary) FileGetObject(1, value) FileClose(1) Assert.AreEqual (Integer.MinValue, value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub FileGetObjectTest_6_Object_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "FileGetObjectTest_6_Object_Input_3") Try Dim value As System.Object = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 3, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Input) FileGetObject(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetObjectTest_6_Object_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "FileGetObjectTest_6_Object_Output_4") Try Dim value As System.Object = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 3, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Output) FileGetObject(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub FileGetObjectTest_6_Object_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "FileGetObjectTest_6_Object_Random_5") Try Dim value As System.Object = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 3, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Random) FileGetObject(1, value) FileClose(1) Assert.AreEqual (Integer.MinValue, value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub InputTest_6_Object_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_6_Object_Append_1") Try Dim value As System.Object = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 3, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Append) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_6_Object_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_6_Object_Binary_2") Try Dim value As System.Object = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 3, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Binary) Input(1, value) FileClose(1) Assert.AreEqual ("€", value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub InputTest_6_Object_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_6_Object_Input_3") Try Dim value As System.Object = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 3, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Input) Input(1, value) FileClose(1) Assert.AreEqual ("€", value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub InputTest_6_Object_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_6_Object_Output_4") Try Dim value As System.Object = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 3, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Output) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_6_Object_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_6_Object_Random_5") Try Dim value As System.Object = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 3, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Random) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_6_Boolean_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_6_Boolean_Append_1") Try Dim value As System.Boolean = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 3, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Append) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_6_Boolean_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_6_Boolean_Binary_2") Try Dim value As System.Boolean = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 3, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Binary) Input(1, value) FileClose(1) Assert.Fail ("Expected System.InvalidCastException ('Conversion from string ""€"" to type 'Boolean' is not valid.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.InvalidCastException", ex.GetType.FullName, filename) #If NET_VER >= 2.0 Then Assert.AreEqual ("Conversion from string ""€"" to type 'Boolean' is not valid.", ex.Message, filename) #Else Assert.AreEqual ("Cast from string ""€"" to type 'Boolean' is not valid.", ex.Message, filename) #End If Finally CleanUp() End Try End Sub _ Sub InputTest_6_Boolean_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_6_Boolean_Input_3") Try Dim value As System.Boolean = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 3, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Input) Input(1, value) FileClose(1) Assert.Fail ("Expected System.InvalidCastException ('Conversion from string ""€"" to type 'Boolean' is not valid.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.InvalidCastException", ex.GetType.FullName, filename) #If NET_VER >= 2.0 Then Assert.AreEqual ("Conversion from string ""€"" to type 'Boolean' is not valid.", ex.Message, filename) #Else Assert.AreEqual ("Cast from string ""€"" to type 'Boolean' is not valid.", ex.Message, filename) #End If Finally CleanUp() End Try End Sub _ Sub InputTest_6_Boolean_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_6_Boolean_Output_4") Try Dim value As System.Boolean = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 3, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Output) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_6_Boolean_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_6_Boolean_Random_5") Try Dim value As System.Boolean = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 3, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Random) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_6_Byte_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_6_Byte_Append_1") Try Dim value As System.Byte = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 3, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Append) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_6_Byte_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_6_Byte_Binary_2") Try Dim value As System.Byte = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 3, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Binary) Input(1, value) FileClose(1) Assert.Fail ("Expected System.InvalidCastException ('Conversion from string ""€"" to type 'Byte' is not valid.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.InvalidCastException", ex.GetType.FullName, filename) #If NET_VER >= 2.0 Then Assert.AreEqual ("Conversion from string ""€"" to type 'Byte' is not valid.", ex.Message, filename) #Else Assert.AreEqual ("Cast from string ""€"" to type 'Byte' is not valid.", ex.Message, filename) #End If Finally CleanUp() End Try End Sub _ Sub InputTest_6_Byte_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_6_Byte_Input_3") Try Dim value As System.Byte = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 3, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Input) Input(1, value) FileClose(1) Assert.Fail ("Expected System.InvalidCastException ('Conversion from string ""€"" to type 'Byte' is not valid.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.InvalidCastException", ex.GetType.FullName, filename) #If NET_VER >= 2.0 Then Assert.AreEqual ("Conversion from string ""€"" to type 'Byte' is not valid.", ex.Message, filename) #Else Assert.AreEqual ("Cast from string ""€"" to type 'Byte' is not valid.", ex.Message, filename) #End If Finally CleanUp() End Try End Sub _ Sub InputTest_6_Byte_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_6_Byte_Output_4") Try Dim value As System.Byte = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 3, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Output) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_6_Byte_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_6_Byte_Random_5") Try Dim value As System.Byte = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 3, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Random) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_6_Int16_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_6_Int16_Append_1") Try Dim value As System.Int16 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 3, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Append) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_6_Int16_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_6_Int16_Binary_2") Try Dim value As System.Int16 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 3, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Binary) Input(1, value) FileClose(1) Assert.Fail ("Expected System.InvalidCastException ('Conversion from string ""€"" to type 'Short' is not valid.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.InvalidCastException", ex.GetType.FullName, filename) #If NET_VER >= 2.0 Then Assert.AreEqual ("Conversion from string ""€"" to type 'Short' is not valid.", ex.Message, filename) #Else Assert.AreEqual ("Cast from string ""€"" to type 'Short' is not valid.", ex.Message, filename) #End If Finally CleanUp() End Try End Sub _ Sub InputTest_6_Int16_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_6_Int16_Input_3") Try Dim value As System.Int16 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 3, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Input) Input(1, value) FileClose(1) Assert.Fail ("Expected System.InvalidCastException ('Conversion from string ""€"" to type 'Short' is not valid.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.InvalidCastException", ex.GetType.FullName, filename) #If NET_VER >= 2.0 Then Assert.AreEqual ("Conversion from string ""€"" to type 'Short' is not valid.", ex.Message, filename) #Else Assert.AreEqual ("Cast from string ""€"" to type 'Short' is not valid.", ex.Message, filename) #End If Finally CleanUp() End Try End Sub _ Sub InputTest_6_Int16_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_6_Int16_Output_4") Try Dim value As System.Int16 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 3, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Output) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_6_Int16_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_6_Int16_Random_5") Try Dim value As System.Int16 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 3, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Random) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_6_Int32_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_6_Int32_Append_1") Try Dim value As System.Int32 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 3, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Append) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_6_Int32_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_6_Int32_Binary_2") Try Dim value As System.Int32 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 3, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Binary) Input(1, value) FileClose(1) Assert.Fail ("Expected System.InvalidCastException ('Conversion from string ""€"" to type 'Integer' is not valid.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.InvalidCastException", ex.GetType.FullName, filename) #If NET_VER >= 2.0 Then Assert.AreEqual ("Conversion from string ""€"" to type 'Integer' is not valid.", ex.Message, filename) #Else Assert.AreEqual ("Cast from string ""€"" to type 'Integer' is not valid.", ex.Message, filename) #End If Finally CleanUp() End Try End Sub _ Sub InputTest_6_Int32_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_6_Int32_Input_3") Try Dim value As System.Int32 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 3, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Input) Input(1, value) FileClose(1) Assert.Fail ("Expected System.InvalidCastException ('Conversion from string ""€"" to type 'Integer' is not valid.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.InvalidCastException", ex.GetType.FullName, filename) #If NET_VER >= 2.0 Then Assert.AreEqual ("Conversion from string ""€"" to type 'Integer' is not valid.", ex.Message, filename) #Else Assert.AreEqual ("Cast from string ""€"" to type 'Integer' is not valid.", ex.Message, filename) #End If Finally CleanUp() End Try End Sub _ Sub InputTest_6_Int32_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_6_Int32_Output_4") Try Dim value As System.Int32 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 3, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Output) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_6_Int32_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_6_Int32_Random_5") Try Dim value As System.Int32 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 3, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Random) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_6_Int64_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_6_Int64_Append_1") Try Dim value As System.Int64 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 3, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Append) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_6_Int64_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_6_Int64_Binary_2") Try Dim value As System.Int64 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 3, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Binary) Input(1, value) FileClose(1) Assert.Fail ("Expected System.InvalidCastException ('Conversion from string ""€"" to type 'Long' is not valid.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.InvalidCastException", ex.GetType.FullName, filename) #If NET_VER >= 2.0 Then Assert.AreEqual ("Conversion from string ""€"" to type 'Long' is not valid.", ex.Message, filename) #Else Assert.AreEqual ("Cast from string ""€"" to type 'Long' is not valid.", ex.Message, filename) #End If Finally CleanUp() End Try End Sub _ Sub InputTest_6_Int64_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_6_Int64_Input_3") Try Dim value As System.Int64 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 3, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Input) Input(1, value) FileClose(1) Assert.Fail ("Expected System.InvalidCastException ('Conversion from string ""€"" to type 'Long' is not valid.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.InvalidCastException", ex.GetType.FullName, filename) #If NET_VER >= 2.0 Then Assert.AreEqual ("Conversion from string ""€"" to type 'Long' is not valid.", ex.Message, filename) #Else Assert.AreEqual ("Cast from string ""€"" to type 'Long' is not valid.", ex.Message, filename) #End If Finally CleanUp() End Try End Sub _ Sub InputTest_6_Int64_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_6_Int64_Output_4") Try Dim value As System.Int64 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 3, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Output) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_6_Int64_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_6_Int64_Random_5") Try Dim value As System.Int64 = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 3, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Random) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_6_Char_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_6_Char_Append_1") Try Dim value As System.Char = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 3, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Append) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_6_Char_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_6_Char_Binary_2") Try Dim value As System.Char = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 3, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Binary) Input(1, value) FileClose(1) Assert.AreEqual (""c, value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub InputTest_6_Char_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_6_Char_Input_3") Try Dim value As System.Char = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 3, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Input) Input(1, value) FileClose(1) Assert.AreEqual (""c, value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub InputTest_6_Char_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_6_Char_Output_4") Try Dim value As System.Char = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 3, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Output) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_6_Char_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_6_Char_Random_5") Try Dim value As System.Char = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 3, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Random) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_6_Single_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_6_Single_Append_1") Try Dim value As System.Single = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 3, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Append) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_6_Single_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_6_Single_Binary_2") Try Dim value As System.Single = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 3, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Binary) Input(1, value) FileClose(1) Assert.Fail ("Expected System.InvalidCastException ('Conversion from string ""€"" to type 'Single' is not valid.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.InvalidCastException", ex.GetType.FullName, filename) #If NET_VER >= 2.0 Then Assert.AreEqual ("Conversion from string ""€"" to type 'Single' is not valid.", ex.Message, filename) #Else Assert.AreEqual ("Cast from string ""€"" to type 'Single' is not valid.", ex.Message, filename) #End If Finally CleanUp() End Try End Sub _ Sub InputTest_6_Single_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_6_Single_Input_3") Try Dim value As System.Single = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 3, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Input) Input(1, value) FileClose(1) Assert.Fail ("Expected System.InvalidCastException ('Conversion from string ""€"" to type 'Single' is not valid.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.InvalidCastException", ex.GetType.FullName, filename) #If NET_VER >= 2.0 Then Assert.AreEqual ("Conversion from string ""€"" to type 'Single' is not valid.", ex.Message, filename) #Else Assert.AreEqual ("Cast from string ""€"" to type 'Single' is not valid.", ex.Message, filename) #End If Finally CleanUp() End Try End Sub _ Sub InputTest_6_Single_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_6_Single_Output_4") Try Dim value As System.Single = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 3, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Output) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_6_Single_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_6_Single_Random_5") Try Dim value As System.Single = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 3, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Random) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_6_Double_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_6_Double_Append_1") Try Dim value As System.Double = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 3, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Append) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_6_Double_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_6_Double_Binary_2") Try Dim value As System.Double = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 3, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Binary) Input(1, value) FileClose(1) Assert.Fail ("Expected System.InvalidCastException ('Conversion from string ""€"" to type 'Double' is not valid.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.InvalidCastException", ex.GetType.FullName, filename) #If NET_VER >= 2.0 Then Assert.AreEqual ("Conversion from string ""€"" to type 'Double' is not valid.", ex.Message, filename) #Else Assert.AreEqual ("Cast from string ""€"" to type 'Double' is not valid.", ex.Message, filename) #End If Finally CleanUp() End Try End Sub _ Sub InputTest_6_Double_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_6_Double_Input_3") Try Dim value As System.Double = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 3, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Input) Input(1, value) FileClose(1) Assert.Fail ("Expected System.InvalidCastException ('Conversion from string ""€"" to type 'Double' is not valid.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.InvalidCastException", ex.GetType.FullName, filename) #If NET_VER >= 2.0 Then Assert.AreEqual ("Conversion from string ""€"" to type 'Double' is not valid.", ex.Message, filename) #Else Assert.AreEqual ("Cast from string ""€"" to type 'Double' is not valid.", ex.Message, filename) #End If Finally CleanUp() End Try End Sub _ Sub InputTest_6_Double_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_6_Double_Output_4") Try Dim value As System.Double = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 3, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Output) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_6_Double_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_6_Double_Random_5") Try Dim value As System.Double = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 3, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Random) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_6_Decimal_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_6_Decimal_Append_1") Try Dim value As System.Decimal = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 3, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Append) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_6_Decimal_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_6_Decimal_Binary_2") Try Dim value As System.Decimal = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 3, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Binary) Input(1, value) FileClose(1) Assert.Fail ("Expected System.InvalidCastException ('Conversion from string ""€"" to type 'Decimal' is not valid.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.InvalidCastException", ex.GetType.FullName, filename) #If NET_VER >= 2.0 Then Assert.AreEqual ("Conversion from string ""€"" to type 'Decimal' is not valid.", ex.Message, filename) #Else Assert.AreEqual ("Cast from string ""€"" to type 'Decimal' is not valid.", ex.Message, filename) #End If Finally CleanUp() End Try End Sub _ Sub InputTest_6_Decimal_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_6_Decimal_Input_3") Try Dim value As System.Decimal = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 3, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Input) Input(1, value) FileClose(1) Assert.Fail ("Expected System.InvalidCastException ('Conversion from string ""€"" to type 'Decimal' is not valid.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.InvalidCastException", ex.GetType.FullName, filename) #If NET_VER >= 2.0 Then Assert.AreEqual ("Conversion from string ""€"" to type 'Decimal' is not valid.", ex.Message, filename) #Else Assert.AreEqual ("Cast from string ""€"" to type 'Decimal' is not valid.", ex.Message, filename) #End If Finally CleanUp() End Try End Sub _ Sub InputTest_6_Decimal_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_6_Decimal_Output_4") Try Dim value As System.Decimal = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 3, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Output) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_6_Decimal_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_6_Decimal_Random_5") Try Dim value As System.Decimal = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 3, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Random) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_6_String_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_6_String_Append_1") Try Dim value As System.String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 3, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Append) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_6_String_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_6_String_Binary_2") Try Dim value As System.String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 3, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Binary) Input(1, value) FileClose(1) Assert.AreEqual ("€", value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub InputTest_6_String_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_6_String_Input_3") Try Dim value As System.String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 3, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Input) Input(1, value) FileClose(1) Assert.AreEqual ("€", value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub InputTest_6_String_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_6_String_Output_4") Try Dim value As System.String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 3, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Output) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_6_String_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_6_String_Random_5") Try Dim value As System.String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 3, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Random) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_6_DateTime_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_6_DateTime_Append_1") Try Dim value As System.DateTime = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 3, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Append) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_6_DateTime_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_6_DateTime_Binary_2") Try Dim value As System.DateTime = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 3, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Binary) Input(1, value) FileClose(1) Assert.Fail ("Expected System.InvalidCastException ('Conversion from string ""€"" to type 'Date' is not valid.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.InvalidCastException", ex.GetType.FullName, filename) #If NET_VER >= 2.0 Then Assert.AreEqual ("Conversion from string ""€"" to type 'Date' is not valid.", ex.Message, filename) #Else Assert.AreEqual ("Cast from string ""€"" to type 'Date' is not valid.", ex.Message, filename) #End If Finally CleanUp() End Try End Sub _ Sub InputTest_6_DateTime_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_6_DateTime_Input_3") Try Dim value As System.DateTime = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 3, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Input) Input(1, value) FileClose(1) Assert.Fail ("Expected System.InvalidCastException ('Conversion from string ""€"" to type 'Date' is not valid.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.InvalidCastException", ex.GetType.FullName, filename) #If NET_VER >= 2.0 Then Assert.AreEqual ("Conversion from string ""€"" to type 'Date' is not valid.", ex.Message, filename) #Else Assert.AreEqual ("Cast from string ""€"" to type 'Date' is not valid.", ex.Message, filename) #End If Finally CleanUp() End Try End Sub _ Sub InputTest_6_DateTime_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_6_DateTime_Output_4") Try Dim value As System.DateTime = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 3, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Output) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputTest_6_DateTime_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "InputTest_6_DateTime_Random_5") Try Dim value As System.DateTime = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 3, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Random) Input(1, value) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub LineInputTest_7_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "LineInputTest_7_Append_1") Try Dim value As String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 20, 0, 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Append) value = LineInput(1) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub LineInputTest_7_Binary_2() Dim filename As String = Path.Combine (DATA_DIR, "LineInputTest_7_Binary_2") Try Dim value As String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 20, 0, 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Binary) value = LineInput(1) FileClose(1) Assert.AreEqual ("€", value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub LineInputTest_7_Input_3() Dim filename As String = Path.Combine (DATA_DIR, "LineInputTest_7_Input_3") Try Dim value As String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 20, 0, 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Input) value = LineInput(1) FileClose(1) Assert.AreEqual ("€", value, filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.Fail ("Did not expect any exception, got " & ex.GetType.FullName & " (" & ex.Message, filename) Finally CleanUp() End Try End Sub _ Sub LineInputTest_7_Output_4() Dim filename As String = Path.Combine (DATA_DIR, "LineInputTest_7_Output_4") Try Dim value As String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 20, 0, 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Output) value = LineInput(1) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub LineInputTest_7_Random_5() Dim filename As String = Path.Combine (DATA_DIR, "LineInputTest_7_Random_5") Try Dim value As String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 20, 0, 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Random) value = LineInput(1) FileClose(1) Assert.Fail ("Expected System.IO.IOException ('Bad file mode.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) Assert.AreEqual ("Bad file mode.", ex.Message.Replace ("Acess", "Access"), filename) Finally CleanUp() End Try End Sub _ Sub InputStringTest_7_Append_1() Dim filename As String = Path.Combine (DATA_DIR, "InputStringTest_7_Append_1") Try Dim value As String = Nothing Initialize() Helper.WriteAllBytes (filename, new Byte () { 20, 0, 0, 0, 0, 0, 0, 0, 0, 128 }) FileOpen(1, filename, OpenMode.Append) value = InputString(1, 10) FileClose(1) Assert.Fail ("Expected System.NullReferenceException ('Object reference not set to an instance of an object.')", filename) Catch ex as NUnit.Framework.AssertionException Throw Catch ex As Exception #If NET_VER >= 2.0 Then Assert.AreEqual ("System.NullReferenceException", ex.GetType.FullName, filename) #Else Assert.AreEqual ("System.IO.IOException", ex.GetType.FullName, filename) #End If #If NET_VER >= 2.0 Then Assert.AreEqual ("Object reference not set to an instance of an object.