]> git.donarmstrong.com Git - perltidy.git/blobdiff - t/snippets10.t
New upstream version 20200110
[perltidy.git] / t / snippets10.t
index f2b4b21468d92dd8b1991cfaae7a012bb892af46..2bda303f530882788e0794616bc63c19cab87e6a 100644 (file)
@@ -533,28 +533,28 @@ b_const      ~~ a_const;
     map { $_ => 'x' } keys %main::
 }
 ~~ \%main::;
-\%hash           ~~ \%tied_hash;
-\%tied_hash      ~~ \%hash;
-\%tied_hash      ~~ \%tied_hash;
-\%tied_hash      ~~ \%tied_hash;
-\%::             ~~ [ keys %main:: ];
-[ keys %main:: ] ~~ \%::;
-\%::             ~~ [];
-[]               ~~ \%::;
-{ "" => 1 }      ~~ [undef];
-[undef]          ~~ { "" => 1 };
-{ foo => 1 }     ~~ qr/^(fo[ox])$/;
-qr/^(fo[ox])$/   ~~ { foo => 1 };
-+{ 0 .. 100 }    ~~ qr/[13579]$/;
-qr/[13579]$/     ~~ +{ 0 .. 100 };
+\%hash                  ~~ \%tied_hash;
+\%tied_hash             ~~ \%hash;
+\%tied_hash             ~~ \%tied_hash;
+\%tied_hash             ~~ \%tied_hash;
+\%::                    ~~ [ keys %main:: ];
+[ keys %main:: ]        ~~ \%::;
+\%::                    ~~ [];
+[]                      ~~ \%::;
+{ "" => 1 }             ~~ [undef];
+[undef]                 ~~ { "" => 1 };
+{ foo => 1 }            ~~ qr/^(fo[ox])$/;
+qr/^(fo[ox])$/          ~~ { foo => 1 };
++{ 0 .. 100 }           ~~ qr/[13579]$/;
+qr/[13579]$/            ~~ +{ 0 .. 100 };
 +{ foo => 1, bar => 2 } ~~ "foo";
-"foo" ~~ +{ foo => 1, bar => 2 };
+"foo"                   ~~ +{ foo => 1, bar => 2 };
 +{ foo => 1, bar => 2 } ~~ "baz";
-"baz" ~~ +{ foo => 1, bar => 2 };
-[]  ~~ [];
-[]  ~~ [];
-[]  ~~ [1];
-[1] ~~ [];
+"baz"                   ~~ +{ foo => 1, bar => 2 };
+[]                      ~~ [];
+[]                      ~~ [];
+[]                      ~~ [1];
+[1]                     ~~ [];
 [ ["foo"], ["bar"] ] ~~ [ qr/o/, qr/a/ ];
 [ qr/o/, qr/a/ ] ~~ [ ["foo"], ["bar"] ];
 [ "foo", "bar" ] ~~ [ qr/o/, qr/a/ ];