From 9165b237ad8fae18b36d4d40d6e2ccfde7b136c7 Mon Sep 17 00:00:00 2001
From: Lorry Tar Creator <lorry-tar-importer@lorry>
Date: Sat, 25 Jul 2015 01:06:42 +0000
Subject: URI-1.69

---
 t/sort-hash-query-form.t | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)
 create mode 100644 t/sort-hash-query-form.t

(limited to 't/sort-hash-query-form.t')

diff --git a/t/sort-hash-query-form.t b/t/sort-hash-query-form.t
new file mode 100644
index 0000000..7c6f896
--- /dev/null
+++ b/t/sort-hash-query-form.t
@@ -0,0 +1,22 @@
+use strict;
+use warnings;
+
+use Test::More;
+
+# ABSTRACT: Make sure query_form(\%hash) is sorted
+
+use URI;
+
+my $base = URI->new('http://example.org/');
+
+my $i = 1;
+
+my $hash = { map { $_ => $i++ } qw( a b c d e f ) };
+
+$base->query_form($hash);
+
+is("$base","http://example.org/?a=1&b=2&c=3&d=4&e=5&f=6", "Query parameters are sorted");
+
+done_testing;
+
+
-- 
cgit v1.2.1