aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorOmar Polo <op@omarpolo.com>2020-11-28 11:59:16 +0100
committerOmar Polo <op@omarpolo.com>2020-11-28 11:59:16 +0100
commit68d77dad4994516c3e1bb3fbdd55ff6a3305996e (patch)
tree4fe1c348b7f9f070f8febaf8a7bd4500440de3c7
parent0303a37c57dcefec24462a3a402627a8c1f59a22 (diff)
downloadsam.el-68d77dad4994516c3e1bb3fbdd55ff6a3305996e.tar.gz
sam.el-68d77dad4994516c3e1bb3fbdd55ff6a3305996e.tar.bz2
rearrange test item order
-rw-r--r--sam-test.el12
1 files changed, 6 insertions, 6 deletions
diff --git a/sam-test.el b/sam-test.el
index 16391ee..63cb355 100644
--- a/sam-test.el
+++ b/sam-test.el
@@ -7,12 +7,12 @@
(require 'sam)
(ert-deftest sam-parse-line-test ()
- (dolist (spec '(("3" "p" <- "3p")
- ("3" "p" <- "3 p")
- ("34" "p" <- "34\tp")
- ("" "b" <- "b")
- ("32" "" <- "32")))
- (cl-destructuring-bind (exp-addr exp-cmd _ cmd) spec
+ (dolist (spec '(("3p" -> "3" "p")
+ ("3 p" -> "3" "p")
+ ("34\tp" -> "34" "p")
+ ("b" -> "" "b")
+ ("32" -> "32" "")))
+ (cl-destructuring-bind (cmd _ exp-addr exp-cmd) spec
(cl-destructuring-bind (address . command) (sam-parse-line cmd)
(should (string-equal exp-addr address))
(should (string-equal exp-cmd command))))))