1#!/usr/bin/perl
2use warnings;
3use strict;
4
5use lib 't/Settings/lib';
6use App::Settings::Test tests => 12;
7
8as_alice {
9    ok( run_command(qw(init)), 'replica init' );
10    ok( run_command(qw(create --type Bug -- --status new --from alice )),
11        'Created a record as alice' );
12
13    my $output = run_command(qw(search --type Bug --regex .));
14    like( $output, qr/new/, 'Found our record' );
15
16    $output = run_command(qw(settings show));
17    like(
18        $output,
19        qr/default_status: \["new"\]/,
20        'the original milestone list is there'
21    );
22
23    ok( run_command(qw(settings set -- default_status ["open"])),
24        'set default_status to ["open"]' );
25
26    $output = run_command(qw(settings --show));
27    like(
28        $output,
29        qr/default_status: \["open"\]/,
30        'the original milestone list is there'
31    );
32};
33
34as_bob {
35    ok( run_command( 'clone', '--from', repo_uri_for('alice') ),
36        'Sync ran ok!' );
37    my $stdout = run_command(qw(settings show));
38    like(
39        $stdout,
40        qr/default_status: \["open"\]/,
41        'the original milestone list is there'
42    );
43    ok( run_command(qw(settings set -- default_status ["stalled"])),
44        'set default_status to ["stalled"]' );
45    $stdout = run_command(qw(settings show));
46    like(
47        $stdout,
48        qr/default_status: \["stalled"\]/,
49        'the original milestone list is there'
50    );
51};
52
53as_alice {
54    ok( run_command( 'pull', '--from', repo_uri_for('bob') ), 'Sync ran ok!' );
55    my $stdout = run_command(qw(settings show));
56    like(
57        $stdout,
58        qr/default_status: \["stalled"\]/,
59        'the original milestone list is there'
60    );
61};
62