📄 conversionstests.vb
字号:
Imports SystemImports Microsoft.VisualBasic.CompilerServicesImports 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 SubEnd Class
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -