finished AllSyntax example

Author: Anton-4

ci_scripts/all_tests.sh

@@ -39,6 +39,9 @@ expect ci_scripts/expect_scripts/Parser.exp
 
 $ROC test ./examples/PatternMatching/PatternMatching.roc
 
+$ROC build ./examples/AllSyntax/main.roc
+expect ci_scripts/expect_scripts/AllSyntax.exp
+
 $ROC build ./examples/RandomNumbers/main.roc
 expect ci_scripts/expect_scripts/RandomNumbers.exp
 

ci_scripts/expect_scripts/AllSyntax.exp

@@ -0,0 +1,45 @@
+#!/usr/bin/expect
+
+# uncomment line below for debugging
+# exp_internal 1
+
+set timeout 7
+
+source ./ci_scripts/expect_scripts/shared-code.exp
+
+spawn ./examples/AllSyntax/main
+
+set expected_output [normalize_output {
+\{diff: 5, div: 2, div_trunc: 2, eq: Bool.false, gt: Bool.true, gteq: Bool.true, lt: Bool.false, lteq: Bool.false, neg: -10, neq: Bool.true, prod: 50, rem: 0, sum: 15\}
+\{bool_and: Bool.false, bool_and_keyword: Bool.false, bool_or: Bool.true, bool_or_keyword: Bool.true, not_a: Bool.false\}
+"Pizza Roc"
+42
+Hello, Venus!This is a multiline string.
+You can call functions inside $... too: 2
+Unicode escape sequence:  
+"Success"
+Hello, world!
+Hello, world!
+Hello, world!
+Hello, world!
+Hello, world!
+(Ok \{\})
+"True"
+("Roc", 1)
+Red
+\[1, 2\]
+(TagFour 42)
+default
+("Roc", 1, 1, 2)
+\[./examples/AllSyntax/main.roc:116\] a = 42
+\[./examples/AllSyntax/main.roc:119\] 43 = 43
+\{\}
+}]
+
+expect $expected_output {
+    expect eof {
+        check_exit_and_segfault
+    }
+}
+puts stderr "\nError: output was different from expected value."
+exit 1

examples/AllSyntax/README.md

@@ -1 +1,41 @@
-TODO
+# All Syntax File
+
+Demonstrates all Roc syntax in a single app file.
+
+## Code
+```roc
+file:main.roc
+```
+
+## Output
+
+Run this from the directory that has `main.roc` in it:
+
+```
+$ roc main.roc
+{diff: 5, div: 2, div_trunc: 2, eq: Bool.false, gt: Bool.true, gteq: Bool.true, lt: Bool.false, lteq: Bool.false, neg: -10, neq: Bool.true, prod: 50, rem: 0, sum: 15}
+{bool_and: Bool.false, bool_and_keyword: Bool.false, bool_or: Bool.true, bool_or_keyword: Bool.true, not_a: Bool.false}
+"Pizza Roc"
+42
+Hello, Venus!This is a multiline string.
+You can call functions inside $... too: 2
+Unicode escape sequence:  
+"Success"
+Hello, world!
+Hello, world!
+Hello, world!
+Hello, world!
+Hello, world!
+(Ok {})
+"True"
+("Roc", 1)
+Red
+[1, 2]
+(TagFour 42)
+default
+("Roc", 1, 1, 2)
+[examples/AllSyntax/main.roc:116] a = 42
+[examples/AllSyntax/main.roc:119] 43 = 43
+{}
+```
+

examples/AllSyntax/main.roc

@@ -5,8 +5,6 @@ import cli.Arg exposing [Arg]
 
 # Note: I tried to demonstrate all Roc syntax (possible in a single app file), but I probably forgot some things.
 
-# Note: Do not include this file in an LLM prompt, this file does not demonstrate best practices.
-
 number_operators : I64, I64 -> _
 number_operators = |a, b|
     a_f64 = Num.to_f64(a)
@@ -128,10 +126,16 @@ dbg_expect = |{}|
 # Top level expect
 expect 0 == 0
 
+# Values that are defined inside a multi-line expect get printed on failure
+expect
+    expected = 43
+    actual = 44
+    
+    actual == expected
+
 if_demo : Bool -> Str
 if_demo = |cond|
     # every if must have an else branch!
-
     one_line_if = if cond then "True" else "False"
 
     # multiline if
@@ -191,7 +195,6 @@ main! = |_args|
 
     pizza_out = pizza_operator("Pizza ", "Roc")
     Stdout.line!("${Inspect.to_str(pizza_out)}")?
-
     Stdout.line!("${Inspect.to_str(patterns([1, 2, 3, 4]))}")?
     Stdout.line!("${string_stuff}")?
     Stdout.line!("${Inspect.to_str(pattern_match_tag_union(Ok({})))}")?

examples/index.md

@@ -18,6 +18,7 @@ You can find the source code for all of these at [github.com/roc-lang/examples](
 - [Multiple Roc Files](/MultipleRocFiles/README.html)
 - [JSON](/Json/README.html)
 - [Hello, Webserver!](/HelloWeb/README.html)
+- [All Syntax in 1 File](/examples/AllSyntax/README.html)
 - [Scripting](/Scripting/README.html)
 - [Terminal Commands](/Commands/README.html)
 - [Sort Strings](/SortStrings/README.html)