methlab 0.0.4 → 0.0.5

data/lib/methlab.rb

@@ -55,7 +55,7 @@
 #
 module MethLab
 
-    VERSION = "0.0.4"
+    VERSION = "0.0.5"
 
     # Integrates MethLab into all namespaces. It does this by patching itself
     # into ::main and Module.
@@ -241,6 +241,31 @@ module MethLab
         method_name
     end
 
+    # Similar to MethLab#build_ordered, but builds attributes similar to
+    # attr_accessor. Takes a single parameter which is the constraint
+    # specification.
+    #
+    # Example:
+    #
+    #   def_attr :set_me, String
+    #
+    #   # later on..
+    #   myobj.set_me = 0 # raises
+    #   myobj.set_me = "String" # valid
+    #
+    def def_attr(method_name, arg)
+        self.send(:define_method, (method_name.to_s + "=").to_sym) do |value| 
+            signature = [arg]
+            params = MethLab.validate_array_params(signature, [value])
+            raise params if params.kind_of?(Exception)
+            send(:instance_variable_set, "@" + method_name.to_s, value)
+        end
+
+        self.send(:define_method, method_name) do
+            instance_variable_get("@" + method_name.to_s)
+        end
+    end
+
     if $METHLAB_AUTOINTEGRATE
         integrate
     end

data/test/test_checks.rb

@@ -24,6 +24,8 @@ class CheckedClass
         params
     end
 
+    def_attr(:set_me, String)
+
     def_ordered(:proc_nil, proc { |x| x.nil? }) do |params|
         params
     end
@@ -142,4 +144,16 @@ class TestChecks < Test::Unit::TestCase
 
         assert_equal(@checked.proc_nil(nil), [nil])
     end
+
+    def test_05_attr
+        assert(@checked.respond_to?(:set_me))
+
+        assert_raises(ArgumentError.new("value of argument '0' is an invalid type. Requires 'String'")) do
+            @checked.set_me = 0
+        end
+
+        @checked.set_me = "Foo"
+
+        assert_equal(@checked.set_me, "Foo")
+    end
 end

metadata

@@ -5,8 +5,8 @@ version: !ruby/object:Gem::Version
   segments: 
   - 0
   - 0
-  - 4
-  version: 0.0.4
+  - 5
+  version: 0.0.5
 platform: ruby
 authors: 
 - Erik Hollensbe
@@ -14,7 +14,7 @@ autorequire:
 bindir: bin
 cert_chain: []
 
-date: 2010-04-27 00:00:00 -04:00
+date: 2010-05-01 00:00:00 -04:00
 default_executable: 
 dependencies: []