Changeset 4243

Timestamp:

01/09/08 03:42:45 (5 years ago)

Author:

cho45

Message:

lang/perl/Config-Pit/trunk/t/01_basic.t,
lang/perl/Config-Pit/trunk/lib/Config/Pit.pm:

Append switch tests.

Location:

lang/perl/Config-Pit/trunk

Files:

• lib/Config/Pit.pm (modified) (2 diffs)
• t/01_basic.t (modified) (3 diffs)

lang/perl/Config-Pit/trunk/lib/Config/Pit.pm

@@ -72 +72 @@
         $YAML::Syck::SingleQuote    = 1;
 
+        $name ||= "default";
+
         $profile_file = File::Spec->catfile($directory, "$name.yaml");
 
         my $config = _config();
+        my $ret = $config->{profile};
         $config->{profile} = $name;
         YAML::Syck::DumpFile($config_file, $config);
+        return $ret;
 }
 
@@ -164 +168 @@
 =back
 
+=item Config::Pit::set(setting_name, opts)
+
+Set setting named C<setting_name> to current profile.
+
+  Config::Pit::set("twitter.com"); #=> will open setting with $EDITOR
+
+opts:
+
+=over
+
+=item data
+
+  Config::Pit::set("twitter.com", data => {
+    username => "foobar",
+    password => "barbaz",
+  });
+
+When C<data> specified, will not open C<$EDITOR> and set the data directly.
+
+=over
+
+=item config
+
+
+  Config::Pit::set("twitter.com", config => {
+    username => "config description or default value",
+    password => "same as above",
+  });
+
+Open C<$EDITOR> with merged setting with specified config.
+
+=back
+
+=item Config::Pit::switch(profile_name);
+
+Switch profile to C<profile_name>.
+
+Profile is setting set:
+
+  $ pit get foobar
+  # foo bar...
+
+  $ pit switch devel
+  Switch profile to devel
+
+  $ pit get foobar
+  # bar baz
+
+  $ pit switch
+  Switch profile to default
+
+  $ pit get foobar
+  # foo bar...
+
+=back
+
 =back
 

lang/perl/Config-Pit/trunk/t/01_basic.t

@@ -2 +2 @@
 use warnings;
 
-use Test::More tests => 11;
+use Test::More tests => 17;
 use File::Temp;
 use Path::Class;
@@ -15 +15 @@
 $Config::Pit::directory = dir($dir->dirname);
 
-my $config;
+my ($config, $p);
 
 $config = Config::Pit::get("test");
@@ -36 +36 @@
 is($config->{bar}, "baz", "get returned value (exported sub)");
 
+$p = Config::Pit::switch("profile");
+is($p, "default", "switch profile");
+$config = pit_get("test");
+is($config->{foo}, undef, "switch profile get value");
+is($config->{bar}, undef, "switch profile get value");
+
+$p = Config::Pit::switch();
+is($p, "profile", "switch profile");
+$config = pit_get("test");
+is($config->{foo}, "bar", "switch profile get value");
+is($config->{bar}, "baz", "switch profile get value");
 
 # EDITOR