Ultra restructurement of Gleam folder

Author: Undalevein

gleam/gleam.toml

@@ -0,0 +1,19 @@
+name = "gleam_app"
+version = "1.0.0"
+
+# Fill out these fields if you intend to generate HTML documentation or publish
+# your project to the Hex package manager.
+#
+# description = ""
+# licences = ["Apache-2.0"]
+# repository = { type = "github", user = "", repo = "" }
+# links = [{ title = "Website", href = "" }]
+#
+# For a full reference of all the available options, you can have a look at
+# https://gleam.run/writing-gleam/gleam-toml/.
+
+[dependencies]
+gleam_stdlib = ">= 0.44.0 and < 2.0.0"
+
+[dev-dependencies]
+gleeunit = ">= 1.0.0 and < 2.0.0"

gleam/manifest.toml

@@ -0,0 +1,11 @@
+# This file was generated by Gleam
+# You typically do not need to edit this file
+
+packages = [
+  { name = "gleam_stdlib", version = "0.59.0", build_tools = ["gleam"], requirements = [], otp_app = "gleam_stdlib", source = "hex", outer_checksum = "F8FEE9B35797301994B81AF75508CF87C328FE1585558B0FFD188DC2B32EAA95" },
+  { name = "gleeunit", version = "1.3.1", build_tools = ["gleam"], requirements = ["gleam_stdlib"], otp_app = "gleeunit", source = "hex", outer_checksum = "A7DD6C07B7DA49A6E28796058AA89E651D233B357D5607006D70619CD89DAAAB" },
+]
+
+[requirements]
+gleam_stdlib = { version = ">= 0.44.0 and < 2.0.0" }
+gleeunit = { version = ">= 1.0.0 and < 2.0.0" }

gleam/clockhands.gleam renamed to gleam/src/clockhands.gleam

@@ -4,7 +4,7 @@ import gleam/list
 import gleam/string
 
 pub fn main() {
-  let pad = fn(n: Int) { string.pad_left(int.to_string(n), 2, "0") }
+  let pad = fn(n: Int) { string.pad_start(int.to_string(n), 2, "0") }
 
   list.range(0, 10) |> list.map(fn (i) {
     let t = {i * 43200 + 21600} / 11

gleam/factorial.gleam renamed to gleam/src/factorial.gleam

@@ -1,10 +1,11 @@
 //// Factorial: Recursive implementation of factorial function
 
+import gleam/int
 import gleam/io
 
 pub fn main() {
-  io.debug(factorial(5))
-  io.debug(factorial(7))
+  io.println(int.to_string(factorial(5)))
+  io.println(int.to_string(factorial(7)))
 }
 
 /// Recursively calculates factorial of given int

gleam/generics.gleam renamed to gleam/src/generics.gleam

@@ -5,14 +5,14 @@
 import gleam/io
 
 pub fn main() {
-  let add_one = fn(x) { x + 1 }
+  let _add_one = fn(x) { x + 1 }
   let exclaim = fn(x) { x <> "!" }
 
   // Invalid: Value must remain constant (Int vs. String)
   //twice(10, exclaim)
 
   // Now value generic type will be the same in the twice function
-  io.debug(twice("Hello", exclaim))
+  io.println(twice("Hello", exclaim))
 }
 
 /// value is a generic type and used here for the types of the variables and return type

gleam/hello.gleam renamed to gleam/src/hello.gleam

@@ -6,17 +6,17 @@ import gleam/string
 
 pub fn main() {
   // Example without the Pipe Operator
-  io.debug(string.drop_left(string.drop_right("Hello, Joe!", 1), 7))
+  io.println(string.drop_start(string.drop_end("Hello, Joe!", 1), 7))
 
   // Equivalent to the above with the pipe operator
   "Hello, Mike!"
-  |> string.drop_right(1)
-  |> string.drop_left(7) 
-  |> io.debug
+  |> string.drop_end(1)
+  |> string.drop_start(7) 
+  |> io.println
 
   // Using appends with the pipe operator (Equivalent to io.debug(string.append("3", string.append("1", "2"))))
   "1"
   |> string.append("2")
   |> string.append("3", _)
-  |> io.debug
+  |> io.println
 }

gleam/pipelines.gleam renamed to gleam/src/pipelines.gleam

@@ -2,5 +2,5 @@ import gleam/io
 
 pub fn main() {
     io.println("Hello Sandra!")
-    println("Hello to you too, Bob!")
+    io.println("Hello to you too, Bob!")
 }

gleam/unqualified_imports.gleam renamed to gleam/src/unqualified_imports.gleam

@@ -0,0 +1,37 @@
+function Assert-MatchTests {
+    param (
+        [Parameter(Mandatory = $true, ValueFromPipeline)] $TestResult
+    )
+
+    if ($TestResult) {
+        Write-Error "Output does not match expected results."
+    }
+}
+
+# Running the test requires the powershell to be in the Haxe folder.
+$currentLocation = $pwd
+Set-Location "$PSScriptRoot"
+
+$Error.clear()
+gleam run -m clockhands |
+    Compare-Object (Get-Content "$PSScriptRoot\..\test\clockhands_expected") |
+    Assert-MatchTests &&
+gleam run -m factorial &&
+gleam run -m generics &&
+gleam run -m hello &&
+gleam run -m pipelines &&
+gleam run -m unqualified_imports &&
+gleam clean &&
+ForEach-Object 'foo';
+
+if ($Error -or !$?) { 
+    "*** GLEAM TESTS FAILED ***" 
+}
+else { 
+    "GLEAM TESTS PASSED" 
+} 
+
+# Returns the powershell back to its location. 
+Set-Location "$currentLocation"
+
+

gleam/test.ps1

@@ -0,0 +1,12 @@
+import gleeunit
+import gleeunit/should
+
+pub fn main() -> Nil {
+  gleeunit.main()
+}
+
+// gleeunit test functions end in `_test`
+pub fn hello_world_test() {
+  1
+  |> should.equal(1)
+}