Fable.Python/test/TestTypes.fs at 70f8aff58c75df9968a48c89672e2497388f4978 · fable-compiler/Fable.Python · GitHub

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
module Fable.Python.Tests.Types

open Fable.Python.Testing
open Fable.Python.Fable.Types

// Test typeName function

[<Fact>]
let ``test typeName returns Int32 for int`` () =
    let value = 42
    typeName value |> equal "Int32"

[<Fact>]
let ``test typeName returns Int64 for int64`` () =
    let value = 42L
    typeName value |> equal "Int64"

[<Fact>]
let ``test typeName returns Float64 for float`` () =
    let value = 3.14
    typeName value |> equal "Float64"

[<Fact>]
let ``test typeName returns str for string`` () =
    let value = "hello"
    typeName value |> equal "str"

// Test isIntegralType function

[<Fact>]
let ``test isIntegralType returns true for int`` () =
    let value = 42
    isIntegralType value |> equal true

[<Fact>]
let ``test isIntegralType returns true for int64`` () =
    let value = 42L
    isIntegralType value |> equal true

[<Fact>]
let ``test isIntegralType returns true for int16`` () =
    let value = 42s
    isIntegralType value |> equal true

[<Fact>]
let ``test isIntegralType returns true for int8`` () =
    let value = 42y
    isIntegralType value |> equal true

[<Fact>]
let ``test isIntegralType returns true for uint32`` () =
    let value = 42u
    isIntegralType value |> equal true

[<Fact>]
let ``test isIntegralType returns true for uint64`` () =
    let value = 42UL
    isIntegralType value |> equal true

[<Fact>]
let ``test isIntegralType returns false for float`` () =
    let value = 3.14
    isIntegralType value |> equal false

[<Fact>]
let ``test isIntegralType returns false for string`` () =
    let value = "hello"
    isIntegralType value |> equal false

// Test isNumericType function

[<Fact>]
let ``test isNumericType returns true for int`` () =
    let value = 42
    isNumericType value |> equal true

[<Fact>]
let ``test isNumericType returns true for int64`` () =
    let value = 42L
    isNumericType value |> equal true

[<Fact>]
let ``test isNumericType returns true for float`` () =
    let value = 3.14
    isNumericType value |> equal true

[<Fact>]
let ``test isNumericType returns true for float32`` () =
    let value = 3.14f
    isNumericType value |> equal true

[<Fact>]
let ``test isNumericType returns false for string`` () =
    let value = "hello"
    isNumericType value |> equal false

[<Fact>]
let ``test isNumericType returns false for bool`` () =
    let value = true
    isNumericType value |> equal false

// Test isArrayType function

[<Fact>]
let ``test isArrayType returns true for int array`` () =
    let value = [| 1; 2; 3 |]
    isArrayType value |> equal true

[<Fact>]
let ``test isArrayType returns true for string array`` () =
    let value = [| "a"; "b"; "c" |]
    isArrayType value |> equal true

[<Fact>]
let ``test isArrayType returns true for float array`` () =
    let value = [| 1.0; 2.0; 3.0 |]
    isArrayType value |> equal true

[<Fact>]
let ``test isArrayType returns false for list`` () =
    let value = [ 1; 2; 3 ]
    isArrayType value |> equal false

[<Fact>]
let ``test isArrayType returns false for string`` () =
    let value = "hello"
    isArrayType value |> equal false

[<Fact>]
let ``test isArrayType returns false for int`` () =
    let value = 42
    isArrayType value |> equal false