Switch to qw<>

[perl/modules/LaTeX-TikZ.git] / t / 01-api.t

diff --git a/t/01-api.t b/t/01-api.t
index 3eea9d9b1123f2bbed752381bb9a621fbd2b3b65..dd098d96fa2d490a128d78cf64645016517a2a69 100644 (file)
--- a/t/01-api.t
+++ b/t/01-api.t
@@ -28,7 +28,7 @@ is(prototype('Tikz'), '', 'main::Tikz is actually a constant');
  ::is(prototype('T'), '', 'LaTeX::TikZ::TestAPI2::T is actually a constant');
 }
 
-my @methods = qw/
+my @methods = qw<
  formatter functor
  raw
  path seq
@@ -36,7 +36,7 @@ my @methods = qw/
  raw_mod
  clip layer
  width color fill pattern
-/;
+>;
 
 for (@methods) {
  ok(Tikz->can($_), "Tikz evaluates to something that ->can($_)");
@@ -46,7 +46,7 @@ require LaTeX::TikZ::Interface;
 
 for my $name (undef, ':)') {
  eval {
-  LaTeX::TikZ::Interface->import(
+  LaTeX::TikZ::Interface->register(
    $name => sub { },
   );
  };
@@ -54,7 +54,7 @@ for my $name (undef, ':)') {
 }
 
 eval {
- LaTeX::TikZ::Interface->import(
+ LaTeX::TikZ::Interface->register(
   'raw' => sub { },
  );
 };
@@ -62,7 +62,7 @@ like $@, qr/^'raw' is already defined/, 'already defined';
 
 for my $code (undef, [ ]) {
  eval {
-  LaTeX::TikZ::Interface->import(
+  LaTeX::TikZ::Interface->register(
    'foo' => $code,
   );
  };
@@ -70,7 +70,7 @@ for my $code (undef, [ ]) {
 }
 
 eval {
- LaTeX::TikZ::Interface->import(
+ LaTeX::TikZ::Interface->register(
   'foo' => sub { @_ },
  );
 };
@@ -79,7 +79,7 @@ ok(Tikz->can('foo'), 'Tikz evaluates to something that ->can(foo)');
 is_deeply [ Tikz->foo('hello') ], [ Tikz, 'hello' ], 'Tikz->foo works';
 
 eval {
- LaTeX::TikZ::Interface->import(
+ LaTeX::TikZ::Interface->register(
   'bar' => sub { @_ },
   'baz' => undef,
  );