Skip to content

Commit

Permalink
Merge branch 'release/1.0'
Browse files Browse the repository at this point in the history
  • Loading branch information
ktekinay committed Apr 19, 2020
2 parents 2137e56 + efce425 commit ad1627c
Show file tree
Hide file tree
Showing 23 changed files with 7,958 additions and 35 deletions.
142 changes: 142 additions & 0 deletions DesktopTestController.xojo_code
Original file line number Diff line number Diff line change
@@ -0,0 +1,142 @@
#tag Class
Protected Class DesktopTestController
Inherits TestController
#tag Event
Sub InitializeTestGroups()
// Instantiate TestGroup subclasses here so that they can be run

Dim group As TestGroup

'group = New XojoUnitTests(Self, "Assertion")
'group = New XojoUnitFailTests(Self, "Always Fail")

group = new EnvironmentVarsTests( self, "EnvironmentVars_MTC" )

End Sub
#tag EndEvent


#tag ViewBehavior
#tag ViewProperty
Name="AllTestCount"
Visible=false
Group="Behavior"
InitialValue=""
Type="Integer"
EditorType=""
#tag EndViewProperty
#tag ViewProperty
Name="Duration"
Visible=false
Group="Behavior"
InitialValue=""
Type="Double"
EditorType=""
#tag EndViewProperty
#tag ViewProperty
Name="FailedCount"
Visible=false
Group="Behavior"
InitialValue=""
Type="Integer"
EditorType=""
#tag EndViewProperty
#tag ViewProperty
Name="GroupCount"
Visible=false
Group="Behavior"
InitialValue=""
Type="Integer"
EditorType=""
#tag EndViewProperty
#tag ViewProperty
Name="IsRunning"
Visible=false
Group="Behavior"
InitialValue=""
Type="Boolean"
EditorType=""
#tag EndViewProperty
#tag ViewProperty
Name="NotImplementedCount"
Visible=false
Group="Behavior"
InitialValue=""
Type="Integer"
EditorType=""
#tag EndViewProperty
#tag ViewProperty
Name="PassedCount"
Visible=false
Group="Behavior"
InitialValue=""
Type="Integer"
EditorType=""
#tag EndViewProperty
#tag ViewProperty
Name="RunGroupCount"
Visible=false
Group="Behavior"
InitialValue=""
Type="Integer"
EditorType=""
#tag EndViewProperty
#tag ViewProperty
Name="RunTestCount"
Visible=false
Group="Behavior"
InitialValue=""
Type="Integer"
EditorType=""
#tag EndViewProperty
#tag ViewProperty
Name="SkippedCount"
Visible=false
Group="Behavior"
InitialValue=""
Type="Integer"
EditorType=""
#tag EndViewProperty
#tag ViewProperty
Name="Index"
Visible=true
Group="ID"
InitialValue="-2147483648"
Type="Integer"
EditorType=""
#tag EndViewProperty
#tag ViewProperty
Name="Left"
Visible=true
Group="Position"
InitialValue="0"
Type="Integer"
EditorType=""
#tag EndViewProperty
#tag ViewProperty
Name="Name"
Visible=true
Group="ID"
InitialValue=""
Type="String"
EditorType=""
#tag EndViewProperty
#tag ViewProperty
Name="Super"
Visible=true
Group="ID"
InitialValue=""
Type="String"
EditorType=""
#tag EndViewProperty
#tag ViewProperty
Name="Top"
Visible=true
Group="Position"
InitialValue="0"
Type="Integer"
EditorType=""
#tag EndViewProperty
#tag EndViewBehavior
End Class
#tag EndClass
101 changes: 101 additions & 0 deletions EXAMPLES/AllInstanceEnvVars.xojo_code
Original file line number Diff line number Diff line change
@@ -0,0 +1,101 @@
#tag Class
Protected Class AllInstanceEnvVars
Inherits EnvironmentVars_MTC
#tag ComputedProperty, Flags = &h0
#tag Getter
Get
return BooleanValueFor( CurrentMethodName )

End Get
#tag EndGetter
BOOLEAN_READ_ONLY As Boolean
#tag EndComputedProperty

#tag ComputedProperty, Flags = &h0
#tag Getter
Get
return BooleanValueFor( CurrentMethodName )

End Get
#tag EndGetter
#tag Setter
Set
BooleanValueFor( CurrentMethodName ) = value

End Set
#tag EndSetter
BOOLEAN_READ_WRITE As Boolean
#tag EndComputedProperty

#tag ComputedProperty, Flags = &h0
#tag Getter
Get
return ValueFor( CurrentMethodName )

End Get
#tag EndGetter
STRING_READ_ONLY As String
#tag EndComputedProperty

#tag ComputedProperty, Flags = &h0
#tag Getter
Get
return ValueFor( CurrentMethodName )

End Get
#tag EndGetter
#tag Setter
Set

ValueFor( CurrentMethodName ) = value

End Set
#tag EndSetter
STRING_READ_WRITE As String
#tag EndComputedProperty


#tag ViewBehavior
#tag ViewProperty
Name="Name"
Visible=true
Group="ID"
InitialValue=""
Type="String"
EditorType=""
#tag EndViewProperty
#tag ViewProperty
Name="Index"
Visible=true
Group="ID"
InitialValue="-2147483648"
Type="Integer"
EditorType=""
#tag EndViewProperty
#tag ViewProperty
Name="Super"
Visible=true
Group="ID"
InitialValue=""
Type="String"
EditorType=""
#tag EndViewProperty
#tag ViewProperty
Name="Left"
Visible=true
Group="Position"
InitialValue="0"
Type="Integer"
EditorType=""
#tag EndViewProperty
#tag ViewProperty
Name="Top"
Visible=true
Group="Position"
InitialValue="0"
Type="Integer"
EditorType=""
#tag EndViewProperty
#tag EndViewBehavior
End Class
#tag EndClass
101 changes: 101 additions & 0 deletions EXAMPLES/AllSharedEnvVars.xojo_code
Original file line number Diff line number Diff line change
@@ -0,0 +1,101 @@
#tag Class
Protected Class AllSharedEnvVars
Inherits EnvironmentVars_MTC
#tag ComputedProperty, Flags = &h0
#tag Getter
Get
return BooleanValueFor( CurrentMethodName )

End Get
#tag EndGetter
Shared BOOLEAN_READ_ONLY As Boolean
#tag EndComputedProperty

#tag ComputedProperty, Flags = &h0
#tag Getter
Get
return BooleanValueFor( CurrentMethodName )

End Get
#tag EndGetter
#tag Setter
Set
BooleanValueFor( CurrentMethodName ) = value

End Set
#tag EndSetter
Shared BOOLEAN_READ_WRITE As Boolean
#tag EndComputedProperty

#tag ComputedProperty, Flags = &h0
#tag Getter
Get
return ValueFor( CurrentMethodName )

End Get
#tag EndGetter
Shared STRING_READ_ONLY As String
#tag EndComputedProperty

#tag ComputedProperty, Flags = &h0
#tag Getter
Get
return ValueFor( CurrentMethodName )

End Get
#tag EndGetter
#tag Setter
Set

ValueFor( CurrentMethodName ) = value

End Set
#tag EndSetter
Shared STRING_READ_WRITE As String
#tag EndComputedProperty


#tag ViewBehavior
#tag ViewProperty
Name="Name"
Visible=true
Group="ID"
InitialValue=""
Type="String"
EditorType=""
#tag EndViewProperty
#tag ViewProperty
Name="Index"
Visible=true
Group="ID"
InitialValue="-2147483648"
Type="Integer"
EditorType=""
#tag EndViewProperty
#tag ViewProperty
Name="Super"
Visible=true
Group="ID"
InitialValue=""
Type="String"
EditorType=""
#tag EndViewProperty
#tag ViewProperty
Name="Left"
Visible=true
Group="Position"
InitialValue="0"
Type="Integer"
EditorType=""
#tag EndViewProperty
#tag ViewProperty
Name="Top"
Visible=true
Group="Position"
InitialValue="0"
Type="Integer"
EditorType=""
#tag EndViewProperty
#tag EndViewBehavior
End Class
#tag EndClass
Loading

0 comments on commit ad1627c

Please sign in to comment.