-
Notifications
You must be signed in to change notification settings - Fork 0
/
TaskItemTests.xojo_code
116 lines (107 loc) · 2.28 KB
/
TaskItemTests.xojo_code
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
#tag Class
Protected Class TaskItemTests
Inherits TestGroup
#tag Method, Flags = &h0
Sub CreationTest()
Dim ti as TaskItem = new TaskItem
ti.title = "Hello, world!"
Assert.AreEqual(ti.title, "Hello, world!")
End Sub
#tag EndMethod
#tag Method, Flags = &h0
Sub SerializeTest()
Dim ti as TaskItem = new TaskItem
ti.title = "Prepare talk"
ti.completed = True
dim expected as string = "{""completed"":true,""title"":""Prepare talk""}"
Assert.AreEqual(ti.stringRepresentation(), expected)
End Sub
#tag EndMethod
#tag ViewBehavior
#tag ViewProperty
Name="Duration"
Group="Behavior"
Type="Double"
#tag EndViewProperty
#tag ViewProperty
Name="FailedTestCount"
Group="Behavior"
Type="Integer"
#tag EndViewProperty
#tag ViewProperty
Name="IncludeGroup"
Group="Behavior"
InitialValue="True"
Type="Boolean"
#tag EndViewProperty
#tag ViewProperty
Name="Index"
Visible=true
Group="ID"
InitialValue="-2147483648"
Type="Integer"
#tag EndViewProperty
#tag ViewProperty
Name="IsRunning"
Group="Behavior"
Type="Boolean"
#tag EndViewProperty
#tag ViewProperty
Name="Left"
Visible=true
Group="Position"
InitialValue="0"
Type="Integer"
#tag EndViewProperty
#tag ViewProperty
Name="Name"
Visible=true
Group="ID"
Type="String"
#tag EndViewProperty
#tag ViewProperty
Name="NotImplementedCount"
Group="Behavior"
Type="Integer"
#tag EndViewProperty
#tag ViewProperty
Name="PassedTestCount"
Group="Behavior"
Type="Integer"
#tag EndViewProperty
#tag ViewProperty
Name="RunTestCount"
Group="Behavior"
Type="Integer"
#tag EndViewProperty
#tag ViewProperty
Name="SkippedTestCount"
Group="Behavior"
Type="Integer"
#tag EndViewProperty
#tag ViewProperty
Name="StopTestOnFail"
Group="Behavior"
Type="Boolean"
#tag EndViewProperty
#tag ViewProperty
Name="Super"
Visible=true
Group="ID"
Type="String"
#tag EndViewProperty
#tag ViewProperty
Name="TestCount"
Group="Behavior"
Type="Integer"
#tag EndViewProperty
#tag ViewProperty
Name="Top"
Visible=true
Group="Position"
InitialValue="0"
Type="Integer"
#tag EndViewProperty
#tag EndViewBehavior
End Class
#tag EndClass