t/app/model/comment.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

#!/usr/bin/perl

use strict;
use warnings;

use Test::More tests => 2;

use FixMyStreet;
use FixMyStreet::App;

my $comment_rs = FixMyStreet::App->model('DB::Comment');

my $comment = $comment_rs->new(
    {
        user_id      => 1,
        problem_id   => 1,
        text         => '',
        state        => 'confirmed',
        anonymous    => 0,
        mark_fixed   => 0,
        cobrand      => 'default',
        cobrand_data => '',
    }
);

is $comment->confirmed,  undef, 'inflating null confirmed ok';
is $comment->created,  undef, 'inflating null confirmed ok';