Integration tests fro #13

src/bdos_environment.rs

@@ -50,9 +50,6 @@ impl BdosState {
         self.dma =  DEFAULT_DMA;
         self.dir_pattern = "????????.???".to_string();
         self.dir_pos = 0;
-
-
-        self.drive = 0;
     }
 }
 

tests/artifacts/ret.txt

@@ -0,0 +1,2 @@
+File ret.com downloaded from https://github.com/skx/cpmulator/blob/b711db6b3cb0f814732748cb9492b285169194e9/samples/ret.com ,
+it is part of the cpmulator project by Steve Kemp.

tests/issue13.rs

@@ -0,0 +1,37 @@
+mod common;
+use common::*;
+use izcpm::Step;
+
+// Integration tests for issue https://github.com/ivanizag/iz-cpm/issues/13
+
+fn test_issue13(mode: u8) {
+    run_script_with_args(vec!(
+        Step::Expect("A>"),
+        Step::Input("B:\r"),
+        Step::Expect("B>"),
+        Step::Input(&format!("ret {}\r", mode)),
+        Step::Expect("B>"),
+        ), vec!("-b", "tests/artifacts")
+    );
+}
+
+
+#[test]
+fn test_issue13_jp() {
+    test_issue13(1);
+}
+
+#[test]
+fn test_issue13_rst() {
+    test_issue13(2);
+}
+
+#[test]
+fn test_issue13_ret() {
+    test_issue13(3);
+}
+
+#[test]
+fn test_issue13_call() {
+    test_issue13(4);
+}