1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
Imports System
Imports Microsoft.VisualBasic.CompilerServices
Imports NUnit.Framework
<TestFixture()> _
Public Class ConversionsTests
<Test(), ExpectedException(GetType(InvalidCastException))> _
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
|
