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