--- /dev/null
+#!/usr/bin/perl
+
+use strict;
+use Test::More 'no_plan';
+use tests_common;
+use Data::Dumper;
+
+# Configuration variables defined in tests_common
+# Make sure those are updated/set correctly..
+# $api_base
+# $api_key
+#
+# Further variables defined in tests_common:
+# $invalid_key
+# $test_username
+# $test_password
+# $invalid_username
+my ($data, $temp, $test_number_start, $test_number_end);
+
+$test_number_end .= int(rand(255))
+ while ( length( $test_number_end ) < 8 );
+
+$test_number_end = substr( $test_number_end, 0, 8 );
+$test_number_start = $test_number_end - 1;
+
+$test_number_start = '+47' . $test_number_start;
+$test_number_end = '+47' . $test_number_end;
+
+isa_ok( $g_ua, 'LWP::UserAgent', '$g_ua');
+isa_ok( $g_ua->cookie_jar, 'HTTP::Cookies', '$g_ua->cookies');
+
+login_apikey();
+
+$data = exec_apinode("numbers/list", undef);
+is( $data->{'response'}, 'ok', 'numbers/list result');
+ok($data->{'list'}, 'numbers/list array');
+undef $data;
+
+$data = exec_apinode("numbers/add_range", {
+ 'start' => $test_number_end,
+ 'end' => $test_number_start,
+});
+
+is( $data->{'response'}, 'failed', 'numbers/add_range invalid result');
+undef $data;
+
+$data = exec_apinode("numbers/add_range", {
+ 'start' => $test_number_start,
+ 'end' => $test_number_end,
+});
+is( $data->{'response'}, 'ok', 'numbers/add_range result');
+undef $data;
+
+$data = exec_apinode("numbers/inpool", { 'number' => $test_number_start, });
+is( $data->{'response'}, 'ok', 'numbers/inpool result');
+undef $data;
+
+$data = exec_apinode("numbers/remove", { 'number' => $test_number_start, });
+is( $data->{'response'}, 'ok', 'numbers/remove 1 result');
+undef $data;
+
+$data = exec_apinode("numbers/remove", { 'number' => $test_number_end, });
+is( $data->{'response'}, 'ok', 'numbers/remove 2 result');
+undef $data;
+
+$data = exec_apinode("numbers/add", { 'number' => $test_number_start, });
+is( $data->{'response'}, 'ok', 'numbers/add result');
+undef $data;
+
+$data = exec_apinode("numbers/remove", { 'number' => $test_number_start, });
+is( $data->{'response'}, 'ok', 'numbers/remove 3 result');
+undef $data;
+
+$data = exec_apinode("numbers/inpool", { 'number' => $test_number_start, });
+is( $data->{'response'}, 'failed', 'numbers/remove inpool removed');
+undef $data;
+
+$data = exec_apinode("numbers/remove", { 'number' => $test_number_start, });
+is( $data->{'response'}, 'failed', 'numbers/remove invalid remove result');
+undef $data;
+
+
+logout();