add a test for the = command

1 files changed, 28 insertions, 0 deletions

diff --git a/t/023-numeric-printing.t b/t/023-numeric-printing.t
new file mode 100644
index 0000000..c966b83
--- /dev/null
+++ b/t/023-numeric-printing.t
@@ -0,0 +1,28 @@
+#!perl -T
+use strict;
+use warnings;
+use Test::More;
+use Language::TECO;
+
+my %tests = (
+    "15="    => "15\n",
+    "15=="   => "17\n",
+    "15:="   => "15",
+    "15:=="  => "17",
+    "-15="   => "-15\n",
+    "-15=="  => "37777777761\n",
+    "-15:="  => "-15",
+    "-15:==" => "37777777761",
+    "b="     => "0",
+);
+plan tests => 3 + keys %tests;
+
+my $buftext = "this is\nan initial buffer";
+my $te = Language::TECO->new($buftext);
+for my $test (keys %tests) {
+    is($te->execute($test), $tests{$test}, "\"$test\"");
+}
+is($te->execute(".="), 0, "current position");
+$te->execute("5j");
+is($te->execute(".="), 5, "current position");
+is($te->execute("z="), 25, "end of buffer");