add testing framework

test/README.asciidoc

@@ -0,0 +1,28 @@
+Regression test
+===============
+
+:unified-context-diff: https://en.wikipedia.org/wiki/Diff#Unified_format
+
+Source structure
+----------------
+
+----------------------------------------------
+.
+├── unit
+│   └── …
+└── compose
+    └── …
+        ├── cmd          → command
+        ├── [in]         → start file
+        ├── [out]        → end file
+        ├── [selections] → selection contents
+        ├── [state]      → selection states
+        └── [rc]         → configuration
+----------------------------------------------
+
+Usage
+-----
+
+To test, just type +run [test]+ in the +test+ directory.
+It will print each passing test.  If a test fails, a {unified-context-diff}[unified context diff]
+is printed showing the test’s expected output and the actual output.

test/compose/inline-sort/cmd

@@ -0,0 +1 @@
+<a-i>bs<space><ret>c<ret><esc><a-i>b|sort<ret><a-j>

test/compose/inline-sort/in

@@ -0,0 +1 @@
+(e d c b a)

test/compose/inline-sort/out

@@ -0,0 +1 @@
+(a b c d e)

test/run

@@ -0,0 +1,111 @@
+#!/bin/sh
+
+# Main ├────────────────────────────────────────────────────────────────────────
+
+main() { number_tests=0 number_failures=0
+  dirs=$@
+  test=$(pwd)
+  work=$(mktemp --directory)
+  cp --recursive . $work
+  trap "rm --recursive $work" EXIT
+  for dir in $(find $dirs -type d); do
+    cd $test/$dir; test_files=$(find * | egrep 'out|selections|state')
+    cd $work/$dir; { IFS=¬
+      indent=$(repeat ' ' $(pwd | sed "s|$test||" | tr --delete --complement / | awk '{ print length }'))
+      name=$(basename $PWD)
+      ! exists cmd && {
+        echo $indent$name
+      } || { nop=$((number_tests++))
+        touch in; cp in out
+        kak_commands="set global autoreload yes
+                      try %{
+                        source rc
+                      }
+                      try %{
+                        exec '%s%[(](.+?)[)]<ret>i<del><del><esc>a<backspace><esc>'
+                      } \
+                      catch %{
+                        exec gg
+                      }
+                      exec '$(<cmd)'
+                      nop %sh{ IFS==
+                        echo \"\$kak_selections\"      > selections
+                        echo \"\$kak_selections_desc\" > state
+                      }
+                      write out; quit!
+        "
+        kak out -n -e $kak_commands
+        for expect in $test_files; do
+          cmp --quiet $test/$dir/$expect $expect && {
+            echo "$indent$name" | colorize green normal
+          } || { nop=$((number_failures++))
+            echo "$indent$name" | colorize red normal
+            echo
+            IFS=$'\n'
+            for line in $(diff --unified $test/$dir/$expect $expect); do IFS=¬
+              first_character=$(head --bytes 1 <<< $line)
+              color=$(match $first_character + green - red @ magenta none)
+              colorize $color normal <<< $line
+            done
+            echo
+          }
+        done
+      }
+    }
+  done
+  (( $number_failures > 0 )) && color=red ||
+                                color=green
+  echo
+  echo Resume:
+  echo $number_tests tests, $number_failures failures | colorize $color normal
+}
+
+# Utility ├─────────────────────────────────────────────────────────────────────
+
+match() {
+  expression=$1; shift
+  while [[ $@ ]]; do
+    pattern=$1; shift; value=$1 next=$1 default_value=$pattern
+    [[ $next ]] || {
+      echo $default_value
+      return 1
+    }
+    [[ $expression = $pattern ]] && {
+      echo $value
+      return 0
+    }
+    shift
+  done
+}
+
+repeat() { text=$1 count=${2:-0}
+  echo $(yes $text | head --lines $count | join)
+}
+
+join() {
+  tr --delete "\n"
+}
+
+exists() {
+  test -e $@
+}
+
+get_ansi_code() { color_name=${1:-none} style_name=${2:-none}
+  color='none    00
+         red     31
+         green   32
+         yellow  33
+         magenta 35'
+  style='none    00
+         bold    01'
+  color_nr=$(awk "/$color_name/ { print \$2 }" <<< $color)
+  style_nr=$(awk "/$style_name/ { print \$2 }" <<< $style)
+  sed s/COLOR_NR/$color_nr/';'s/STYLE_NR/$style_nr/ <<< '\e[STYLE_NR;COLOR_NRm'
+}
+
+colorize() { text=$(cat) color_name=${1:-none} style_name=${2:-none}
+  echo -e $(get_ansi_code $color_name $style_name)$text$(get_ansi_code none none)
+}
+
+
+main $@

test/unit/APPEND/cmd

@@ -0,0 +1 @@
+APPEND

test/unit/APPEND/in

@@ -0,0 +1 @@
+A

test/unit/APPEND/out

@@ -0,0 +1 @@
+APPEND

test/unit/DOWN/cmd

@@ -0,0 +1 @@
+J

test/unit/DOWN/in

@@ -0,0 +1,2 @@
+%(foo)
+bar

test/unit/DOWN/selections

@@ -0,0 +1,2 @@
+foo
+bar

test/unit/END/WORD/cmd

@@ -0,0 +1 @@
+}W

test/unit/END/WORD/in

@@ -0,0 +1 @@
+foo %(b)ar-baz qux

test/unit/END/WORD/selections

@@ -0,0 +1 @@
+bar-baz 

test/unit/END/angle/cmd

@@ -0,0 +1 @@
+}a

test/unit/END/angle/in

@@ -0,0 +1 @@
+#include <%(foo)>

test/unit/END/angle/selections

@@ -0,0 +1 @@
+foo>

test/unit/END/braces/cmd

@@ -0,0 +1 @@
+}B

test/unit/END/braces/in

@@ -0,0 +1,3 @@
+{
+  "%(foo)": "bar"
+}

test/unit/END/braces/selections

@@ -0,0 +1,2 @@
+foo"\: "bar"
+}

test/unit/END/brackets/cmd

@@ -0,0 +1 @@
+}r

test/unit/END/brackets/in

@@ -0,0 +1,3 @@
+[
+  "%(foo)"
+]

test/unit/END/brackets/selections

@@ -0,0 +1,2 @@
+foo"
+]

test/unit/END/double_quote/cmd

@@ -0,0 +1 @@
+}Q

test/unit/END/double_quote/in

@@ -0,0 +1 @@
+foo("%(b)ar")

test/unit/END/double_quote/selections

@@ -0,0 +1 @@
+bar"

test/unit/END/grave_quote/cmd

@@ -0,0 +1 @@
+}g

test/unit/END/grave_quote/in

@@ -0,0 +1 @@
+echo `%(f)oo`

test/unit/END/grave_quote/selections

@@ -0,0 +1 @@
+foo`

test/unit/END/indent/cmd

@@ -0,0 +1 @@
+}i

test/unit/END/indent/in

@@ -0,0 +1,3 @@
+
+  foo(%(b)ar)
+

test/unit/END/indent/selections

@@ -0,0 +1,3 @@
+  foo(bar)
+
+

test/unit/END/paragraph/cmd

@@ -0,0 +1 @@
+}p

test/unit/END/paragraph/in

@@ -0,0 +1,8 @@
+a
+b
+
+%(c)
+d
+
+e
+f

test/unit/END/paragraph/selections

@@ -0,0 +1,4 @@
+c
+d
+
+

test/unit/END/parenthesis/cmd

@@ -0,0 +1 @@
+}b

test/unit/END/parenthesis/in

@@ -0,0 +1 @@
+foo(%(b)ar)

test/unit/END/parenthesis/selections

@@ -0,0 +1 @@
+bar)

test/unit/END/sentence/cmd

@@ -0,0 +1 @@
+}s

test/unit/END/sentence/in

@@ -0,0 +1,6 @@
+%(Lorem ipsum) dolor sit amet, consectetur adipisicing elit, sed do eiusmod tempor
+incididunt ut labore et dolore magna aliqua.  Ut enim ad minim veniam, quis
+nostrud exercitation ullamco laboris nisi ut aliquip ex ea commodo consequat.
+Duis aute irure dolor in reprehenderit in voluptate velit esse cillum dolore
+eu fugiat nulla pariatur.  Excepteur sint occaecat cupidatat non proident,
+sunt in culpa qui officia deserunt mollit anim id est laborum.

test/unit/END/sentence/selections

@@ -0,0 +1,2 @@
+Lorem ipsum dolor sit amet, consectetur adipisicing elit, sed do eiusmod tempor
+incididunt ut labore et dolore magna aliqua.  

test/unit/END/single_quote/cmd

@@ -0,0 +1 @@
+}q

test/unit/END/single_quote/in

@@ -0,0 +1 @@
+foo('%(b)ar')

test/unit/END/single_quote/selections

@@ -0,0 +1 @@
+bar'

test/unit/END/word/cmd

@@ -0,0 +1 @@
+}w

test/unit/END/word/in

@@ -0,0 +1 @@
+foo %(b)ar baz

test/unit/END/word/selections

@@ -0,0 +1 @@
+bar 

test/unit/FIND-char-backward/cmd

@@ -0,0 +1 @@
+<a-F>|

test/unit/FIND-char-backward/in

@@ -0,0 +1 @@
+foo|%(bar)|baz

test/unit/FIND-char-backward/selections

@@ -0,0 +1 @@
+|bar

test/unit/FIND-char-forward/cmd

@@ -0,0 +1 @@
+F|

test/unit/FIND-char-forward/in

@@ -0,0 +1 @@
+foo|%(bar)|baz

test/unit/FIND-char-forward/selections

@@ -0,0 +1 @@
+bar|

test/unit/GOTO/buffer-bottom/cmd

@@ -0,0 +1 @@
+Gj

test/unit/GOTO/buffer-bottom/in

@@ -0,0 +1,3 @@
+foo
+%(bar)
+baz

test/unit/GOTO/buffer-bottom/selections

@@ -0,0 +1,2 @@
+bar
+b

test/unit/GOTO/buffer-end/cmd

@@ -0,0 +1 @@
+Ge

test/unit/GOTO/buffer-end/in

@@ -0,0 +1,3 @@
+foo
+%(bar)
+baz

test/unit/GOTO/buffer-end/selections

@@ -0,0 +1,3 @@
+bar
+baz
+

test/unit/GOTO/buffer-top/cmd

@@ -0,0 +1 @@
+Gk

test/unit/GOTO/buffer-top/in

@@ -0,0 +1,3 @@
+foo
+%(bar)
+baz

test/unit/GOTO/buffer-top/selections

@@ -0,0 +1,2 @@
+foo
+b

test/unit/GOTO/last-change/cmd

@@ -0,0 +1 @@
+dggG.

test/unit/GOTO/last-change/in

@@ -0,0 +1,3 @@
+foo
+%(bar)
+baz

test/unit/GOTO/last-change/selections

@@ -0,0 +1,3 @@
+foo
+
+

test/unit/GOTO/line-begin/cmd

@@ -0,0 +1 @@
+Gh

test/unit/GOTO/line-begin/in

@@ -0,0 +1 @@
+foo %(bar) baz

test/unit/GOTO/line-begin/selections

@@ -0,0 +1 @@
+foo bar

test/unit/GOTO/line-end/cmd

@@ -0,0 +1 @@
+Gl

test/unit/GOTO/line-end/in

@@ -0,0 +1 @@
+foo %(bar) baz

test/unit/GOTO/line-end/selections

@@ -0,0 +1 @@
+bar baz

test/unit/INSERT/cmd

@@ -0,0 +1 @@
+IINSER

test/unit/INSERT/in

@@ -0,0 +1 @@
+T

test/unit/INSERT/out

@@ -0,0 +1 @@
+INSERT

test/unit/LEFT/cmd

@@ -0,0 +1 @@
+H

test/unit/LEFT/in

@@ -0,0 +1 @@
+foo %(bar)

test/unit/LEFT/selections

@@ -0,0 +1 @@
+ba

test/unit/NEXT-WORD/cmd

@@ -0,0 +1 @@
+<a-W>

test/unit/NEXT-WORD/in

@@ -0,0 +1 @@
+%(foo )bar-baz qux

test/unit/NEXT-WORD/selections

@@ -0,0 +1 @@
+foo bar-baz 

test/unit/NEXT-match/cmd

@@ -0,0 +1 @@
+N

test/unit/NEXT-match/in

@@ -0,0 +1 @@
+%(foo) bar

test/unit/NEXT-match/rc

@@ -0,0 +1 @@
+reg / [a-z]+

test/unit/NEXT-match/selections

@@ -0,0 +1 @@
+bar:foo

test/unit/NEXT-word/cmd

@@ -0,0 +1 @@
+W

test/unit/NEXT-word/in

@@ -0,0 +1 @@
+%(foo )bar baz

test/unit/NEXT-word/selections

@@ -0,0 +1 @@
+foo bar 

test/unit/PREVIOUS-WORD/cmd

@@ -0,0 +1 @@
+<a-B>

test/unit/PREVIOUS-WORD/in

@@ -0,0 +1 @@
+foo %(b)ar baz

test/unit/PREVIOUS-WORD/selections

@@ -0,0 +1 @@
+foo b

test/unit/PREVIOUS-word/cmd

@@ -0,0 +1 @@
+<a-b>

test/unit/PREVIOUS-word/in

@@ -0,0 +1 @@
+foo %(b)ar baz

test/unit/PREVIOUS-word/selections

@@ -0,0 +1 @@
+foo 

test/unit/RIGHT/cmd

@@ -0,0 +1 @@
+L

test/unit/RIGHT/in

@@ -0,0 +1 @@
+%(foo) bar

test/unit/RIGHT/selections

@@ -0,0 +1 @@
+foo 

test/unit/SEARCH-reverse/cmd

@@ -0,0 +1 @@
+<a-?>[a-z]+<ret>