From f751123b84a460fc63bfe1b9cb84c91ee55cde57 Mon Sep 17 00:00:00 2001
From: rudolfkoenig <rudolfkoenig@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Thu, 14 May 2020 15:55:54 +0000
Subject: [PATCH] 00_parseParams.t: first version (from justme1968)

git-svn-id: https://svn.fhem.de/fhem/trunk@21938 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/t/FHEM/fhem.pl/00_parseParams.t | 27 +++++++++++++++++++++++++++
 1 file changed, 27 insertions(+)
 create mode 100644 fhem/t/FHEM/fhem.pl/00_parseParams.t

diff --git a/fhem/t/FHEM/fhem.pl/00_parseParams.t b/fhem/t/FHEM/fhem.pl/00_parseParams.t
new file mode 100644
index 000000000..19ef76975
--- /dev/null
+++ b/fhem/t/FHEM/fhem.pl/00_parseParams.t
@@ -0,0 +1,27 @@
+# Simple test. NOTE: exit(0) is necessary
+use strict;
+use warnings;
+use Test::More;
+
+my $cmd = 'set name test1 test2=abc test3 "test4 test4" test5="test5 test5" test6=\'test6=test6\' test7= test8="\'" test9=\'"\' {my $x = "abc"} test10={ { my $abc ="xyz" } }';
+
+my $expected_a = [ 'set', 'name', 'test1', 'test3', 'test4 test4', '{my $x = "abc"}' ];
+my $expected_h = {
+           'test2' => 'abc',
+           'test5' => 'test5 test5',
+           'test6' => 'test6=test6',
+           'test7' => '',
+           'test8' => '\'',
+           'test9' => '"',
+          'test10' => '{ { my $abc ="xyz" } }'
+        };
+
+
+my ($a,$h) = parseParams( $cmd );
+
+is_deeply($h, $expected_h, "parseParams hash");
+is_deeply($a, $expected_a, "parseParams array");
+
+done_testing;
+exit(0);
+1;