Changeset e4f4287

Timestamp:

Oct 3, 2009, 1:53:00 AM (15 years ago)

Author:

David Benjamin <davidben@mit.edu>

Branches:

master, release-1.10, release-1.4, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9

Children:

5fdc562

Parents:

42ad917

git-author:

David Benjamin <davidben@mit.edu> (09/24/09 23:18:01)

git-committer:

David Benjamin <davidben@mit.edu> (10/03/09 01:53:00)

Message:

Enable Context::shift_words tests and add one

Now that the tester can run XS code, we can test shift_words. Also added
a new test that ensures we die when we shift away the point.

Signed-off-by: David Benjamin <davidben@mit.edu>

File:

• t/completion.t (modified) (1 diff)

t/completion.t

@@ -131 +131 @@
 
 ## Test Context::shift
-SKIP: {
-    skip "Can't yet test code that depends on perlglue.xs", 4;
-    test_shift('lorem ipsum dolor ', 'sit amet', 0,
-               [qw(lorem ipsum dolor sit amet)],
-               3, 0, 18, 21);
-
-    test_shift('lorem ipsum dolor ', 'sit amet', 1,
-               [qw(lorem ipsum dolor sit amet)],
-               2, 0, 12, 15);
-
-    test_shift('lorem ipsum dolor ', 'sit amet', 2,
-               [qw(lorem ipsum dolor sit amet)],
-               1, 0, 6, 9);
-
-    test_shift('lorem ipsum dolor ', 'sit amet', 3,
-               [qw(lorem ipsum dolor sit amet)],
-               0, 0, 0, 3);
-
-}
+test_shift('lorem ipsum dolor ', 'sit amet', 0,
+           [qw(lorem ipsum dolor sit amet)],
+           3, 0, 18, 21);
+
+test_shift('lorem ipsum dolor ', 'sit amet', 1,
+           [qw(ipsum dolor sit amet)],
+           2, 0, 12, 15);
+
+test_shift('lorem ipsum dolor ', 'sit amet', 2,
+           [qw(dolor sit amet)],
+           1, 0, 6, 9);
+
+test_shift('lorem ipsum dolor ', 'sit amet', 3,
+           [qw(sit amet)],
+           0, 0, 0, 3);
+
+eval {
+    my $before_point = 'lorem ipsum dolor';
+    my $after_point = 'sit amet';
+    my $shift = 4;
+
+    my $ctx = BarnOwl::Completion::Context->new($before_point,
+                                                $after_point);
+    $ctx = $ctx->shift_words($shift);
+};
+like($@, qr/^Context::shift: Unable to shift /, "Correctly die when shifting away the point");
+
 ## Test common_prefix