From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

HOEKIT / JSON-JSend-0.02 / t / JSON-JSend.t 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105

              
# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl GnuCash-SQLite.t'
#########################
# change 'tests => 1' to 'tests => last_test_to_print';
use strict;
use warnings;
use JSON;
use lib 'lib';
use Test::More tests => 8;
BEGIN { use_ok('JSON::JSend') };
#########################
# Insert your test code below, the Test::More module is use()ed here so read
# its man page ( perldoc Test::More ) for help writing this test script.
my ($jsend, $got, $exp, $msg, $tmp1, $tmp2);
$jsend = JSON::JSend->new();
$got = hashref2str(from_json($jsend->success()));
$exp = hashref2str(from_json('{"status":"success","data":null}'));
$msg = 'Success without data works.';
is($got,$exp,$msg);
$tmp1 = {   post => { 
                id    => 1, 
                title => 'A blog post', 
                body  => 'Some useful content'
            }
        };
$tmp2 = {   status => 'success',
            data   => $tmp1 };
$got = hashref2str(from_json($jsend->success($tmp1)));
$exp = hashref2str($tmp2);
$msg = 'Success with data works.';
is($got,$exp,$msg);
$got = hashref2str(from_json($jsend->fail()));
$exp = hashref2str(from_json('{"status":"fail","data":null}'));
$msg = 'Fail without data works.';
is($got,$exp,$msg);
$tmp1 = { title => 'A title is required' };
$tmp2 = { status => 'fail',
          data   => $tmp1 };
$got = hashref2str(from_json($jsend->fail($tmp1)));
$exp = hashref2str($tmp2);
$msg = 'Fail with data works.';
is($got,$exp,$msg);
my $message = 'Unable to communicate with the database';
my $code = 50001;
my $data = { some_extra_info => 'Extra info goes here' };
$tmp1 = { status  => 'error',
          message => $message };
$got = hashref2str(from_json($jsend->error($message)));
$exp = hashref2str($tmp1);
$msg = 'JSend error() with just message works.';
is($got,$exp,$msg);
$msg = 'JSend error() with message, code and data works.';
$tmp1 = { status  => 'error',
          code => $code,
          data => $data,
          message => $message };
$got = hashref2str(from_json($jsend->error($message,$code,$data)));
$exp = hashref2str($tmp1);
is($got,$exp,$msg);
$msg = 'JSend error() with just message and data works.';
$tmp1 = { status  => 'error',
          data => $data,
          message => $message };
$got = hashref2str(from_json($jsend->error($message,$data)));
$exp = hashref2str($tmp1);
is($got,$exp,$msg);
#------------------------------------------------------------------
# Test Utilities
#------------------------------------------------------------------
# Given a hashref
# Return a string representation that's the same everytime
sub hashref2str {
    my $href = shift;
    my $result = '';
    foreach my $k (sort keys %{$href}) {
        if (defined($href->{$k})) {
            if (ref($href->{$k}) eq 'HASH') {
                $result .= "  $k - " . hashref2str($href->{$k}) . " \n"; 
            } else {
                $result .= "  $k - $href->{$k} \n"; 
            }
        } else {
            $result .= "  $k - undef \n"; 
        }
    }
    return $result;
}