test: Turtle.ArcRight length test ( re #131 )

Author: StartAutomating

Turtle.tests.ps1

@@ -19,6 +19,26 @@ describe Turtle {
         $png[1..3] -as 'char[]' -as 'string[]' -join '' | Should -Be PNG
     }
 
+    it 'Can draw an arc' {
+        $Radius = 1
+        $t = turtle ArcRight $Radius 360
+        $Heading = 180.0
+        [Math]::Round($t.Width,1) | Should -Be ($Radius * 2)
+        [Math]::Round($t.Heading,1) | Should -Be 360.0
+
+        $Radius = 1
+        $Heading = 180.0
+        $t = turtle ArcRight $Radius 180
+        [Math]::Round($t.Width,1) | Should -Be ($Radius * 2)
+        [Math]::Round($t.Heading,1) | Should -Be $Heading
+
+        $Radius = 1
+        $Heading = 90.0
+        $t = turtle ArcRight $Radius $Heading
+        [Math]::Round($t.Width,1) | Should -Be ($Radius * 4)
+        [Math]::Round($t.Heading,1) | Should -Be $Heading        
+    }
+
 
     context 'Turtle Directions' {
         it 'Can tell you the way towards a point' {