Refactor tests a bit and include canonical example

Author: ian-h-chamberlain

tests/data/dwarf.red

@@ -0,0 +1,23 @@
+;redcode
+
+;name          Dwarf
+;author        A. K. Dewdney
+;version       94.1
+;date          April 29, 1993
+
+;strategy      Bombs every fourth instruction.
+;assert        CORESIZE % 4 == 0
+
+        ORG     start              ; Indicates the instruction with
+                                   ; the label "start" should be the
+                                   ; first to execute.
+
+step    EQU      4                 ; Replaces all occurrences of "step"
+                                   ; with the character "4".
+
+target  DAT.F   #0,     #0         ; Pointer to target instruction.
+start   ADD.AB  #step,   target    ; Increments pointer by step.
+        MOV.AB  #0,     @target    ; Bombs target instruction.
+        JMP.A    start             ; Same as JMP.A -2.  Loops back to
+                                   ; the instruction labelled "start".
+        END

tests/data/dwarf_loadfile.red

@@ -0,0 +1,12 @@
+;redcode
+;name          Dwarf
+;author        A. K. Dewdney
+;version       94.1
+;date          April 29, 1993
+;strategy      Bombs every fourth instruction.
+;assert        CORESIZE % 4 == 0
+ORG $1
+DAT.F #0, #0
+ADD.AB #4, $-1
+MOV.AB #0, @-2
+JMP.A $-2, #0

tests/data/test.red

@@ -0,0 +1,37 @@
+preload
+  mov 0, 1
+dat   1  ,  2
+mov 1, 0
+
+jmp 123
+
+begin:  add # 1, @ 2
+        sub 3, 4
+        mul 5, 6
+        div 7, 8
+        mod 9, 10
+           jmz 0
+        jmn  0
+        djn  0
+        cmp  0
+        seq  0
+        sne  0
+        slt  0
+        spl  0
+        nop  0
+
+loop
+        ; TODO rewrite grammar to handle org, equ, end
+        ; org  0
+        ; equ  0
+        ; end  0
+
+        mov.a 1, 2
+        mov.b 1, 2
+        mov.ab 1, 2
+        mov.ba 1, 2
+        mov.f 1, 2
+        mov.x 1, 2
+        mov.i 1, 2
+
+        jmp loop

tests/data/test_file.red

@@ -1,25 +1,26 @@
-MOV.I $0, $1
+MOV.I #0, $1
 DAT.F $1, $2
-MOV.I $1, $0
-JMP.B $123, $0
+MOV.I $1, #0
+JMP.B $123, #0
 ADD.AB #1, @2
 SUB.F $3, $4
 MUL.F $5, $6
 DIV.F $7, $8
 MOD.F $9, $10
-JMZ.B $0, $0
-JMN.B $0, $0
-DJN.B $0, $0
-CMP.I $0, $0
-SEQ.I $0, $0
-SNE.I $0, $0
-SLT.B $0, $0
-SPL.B $0, $0
-NOP.B $0, $0
+JMZ.B #0, #0
+JMN.B #0, #0
+DJN.B #0, #0
+CMP.I #0, #0
+SEQ.I #0, #0
+SNE.I #0, #0
+SLT.B #0, #0
+SPL.B #0, #0
+NOP.B #0, #0
 MOV.A $1, $2
 MOV.B $1, $2
 MOV.AB $1, $2
 MOV.BA $1, $2
 MOV.F $1, $2
 MOV.X $1, $2
 MOV.I $1, $2
+JMP.B $-22, #0

tests/data/expected_loadfile.red renamed to tests/data/test_loadfile.red

@@ -0,0 +1,28 @@
+extern crate corewa_rs;
+
+fn run_test(input: &str, expected_output: &str) {
+    eprintln!("Parsing warrior:\n{}", input);
+
+    let core = corewa_rs::parse(input).expect("Failed to parse test_file.red");
+
+    eprintln!("Loaded core:\n{:?}", core);
+
+    assert_eq!(core.dump(), expected_output);
+}
+
+#[test]
+fn dump_all_opcodes() {
+    run_test(
+        include_str!("data/test.red"),
+        include_str!("data/test_loadfile.red"),
+    );
+}
+
+#[test]
+#[ignore] // Until we have support for keeping metadata comments, EQU, etc.
+fn dump_icws94_example_dwarf() {
+    run_test(
+        include_str!("data/dwarf.red"),
+        include_str!("data/dwarf_loadfile.red"),
+    );
+}