Changeset 1490f1 for t/magic.t

Timestamp:

04/06/10 00:04:48 (2 years ago)

Author:

Tomash Brechko <tomash.brechko@…>

Branches:

master

Children:

6cff0c

Parents:

24f8cd

git-author:

Tomash Brechko <tomash.brechko@…> (04/06/10 00:04:48)

git-committer:

Tomash Brechko <tomash.brechko@…> (04/06/10 00:04:48)

Message:

Readonly may be absent.

File:

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

t/magic.t

@@ -53 +53 @@
 ok(exists $memd->get_multi($scalar2)->{$scalar2});
 
+SKIP: {
+    eval { require Readonly };
+    skip "Skipping Readonly tests because the module is not present", 3
+      if $@;
 
-use Readonly;
-Readonly my $expires => 3;
+    # 'require Readonly' as above can be used to test if the module is
+    # present, but won't actually work.  So below we 'use Readonly',
+    # but in a string eval.
+    eval q{
+        use Readonly;
 
-Readonly my $key2 => "ТретОй.ключ";
-ok($memd->set($key2, $key2, $expires));
-ok(exists $memd->get_multi($key2)->{$key2});
-sleep(4);
-ok(! exists $memd->get_multi($key2)->{$key2});
+        Readonly my $expires => 3;
+
+        Readonly my $key2 => "ТретОй.ключ";
+        ok($memd->set($key2, $key2, $expires));
+        ok(exists $memd->get_multi($key2)->{$key2});
+        sleep(4);
+        ok(! exists $memd->get_multi($key2)->{$key2});
+    };
+}