Add getModelName

Change-Id: I07a7e1db71eb522237721700c444d6873c81f5c0
diff --git a/t/server-test.t b/t/server-test.t
index 3146511..851c1a8 100644
--- a/t/server-test.t
+++ b/t/server-test.t
@@ -1,6 +1,6 @@
 use strict;
 use warnings;
-use Test::More tests=>6;
+use Test::More tests=>7;
 use Mojo::JSON qw(decode_json encode_json to_json);
 use REST::Client;
 use Data::Dump qw(dump);
@@ -39,6 +39,10 @@
 $res = $client->responseContent();
 like($res, qr/\d+\.?\d*\.?\d*/, "version ok");
 
+$client->GET('http://localhost:3000/getModelName');
+$res = $client->responseContent();
+is($res, "wpd19_10000", "model name ok");
+
 for (my $i=0; $i<4; $i++) {
     $pid++;
     print STDERR "killing PID $pid\n";