Add test case to analyzer for #47

analyzer/cast_test.go

@@ -89,3 +89,34 @@ IntDerived: Int
 }
 `)
 }
+
+func TestBitCastPointer (test *testing.T) {
+testString (test,
+`
+Struct: (. x:Int y:Int)
+Array:  4:Int
+[main] = {
+	ptr:*Byte
+	stc:Struct
+	arr:Array
+	str:String
+	idx:Index
+
+	; struct
+	ptr = [~~*Byte  [~~Struct ptr]]
+	stc = [~~Struct [~~*Byte  stc]]
+	; array
+	ptr = [~~*Byte [~~Array ptr]]
+	arr = [~~Array [~~*Byte arr]]
+	; slice
+	ptr = [~~*Byte  [~~String ptr]]
+	str = [~~String [~~*Byte  str]]
+	; int
+	ptr = [~~*Byte [~~Index ptr]]
+	idx = [~~Index [~~*Byte idx]]
+
+	; arithmetic
+	ptr = [~~*Byte [+ 1 [~~Index ptr]]]
+}
+`)
+}