Add more tests for subcommands

t/run.t

@@ -34,9 +34,42 @@ like( $twtfile->slurp_utf8, qr/[\d:TZ-]+\tHello World/ );
 stdout_is( sub { $app->run( 'follow', 'bob', '/bob.txt' ) },
     qq{You're already following bob.\n} );
 
+stdout_is(
+    sub { $app->run( 'follow', 'bob', '/bob2.0.txt' ) },
+    qq{You're already following bob under a differant url.\n}
+);
+
 stdout_is( sub { $app->run( 'unfollow', 'bob' ) },
     qq{You've unfollowed bob.\n} );
 
+stdout_is(
+    sub { $app->run( 'unfollow', 'charlie' ) },
+    qq{You're not following charlie.\n}
+);
+
 stdout_is( sub { $app->run('following') }, qq{alice @ /alice.txt\n} );
 
+stdout_is( sub { $app->run( 'follow', 'bob', '/bob.txt' ) },
+    qq{You're now following bob.\n} );
+
+stdout_is(
+    sub { $app->run( 'config', 'get', 'disclose_identity' ) },
+    qq{The configuration key disclose_identity is unset.\n}
+);
+
+ok( not exists $app->config->read_file->{twtxt}->{disclose_identity} );
+
+stdout_is( sub { $app->run( 'config', 'set', 'disclose_identity', 1 ) }, qq{} );
+
+is( $app->config->read_file->{twtxt}->{disclose_identity}, 1 );
+
+stdout_is( sub { $app->run( 'config', 'get', 'disclose_identity' ) }, qq{1\n} );
+
+stdout_is( sub { $app->run( 'config', 'remove', 'disclose_identity' ) }, qq{} );
+
+stdout_is(
+    sub { $app->run( 'config', 'get', 'disclose_identity' ) },
+    qq{The configuration key disclose_identity is unset.\n}
+);
+
 done_testing;