le88-aws-s3 0.6.3.1310482014

data/test/extensions_test.rb

@@ -0,0 +1,340 @@
+require File.dirname(__FILE__) + '/test_helper'
+
+class HashExtensionsTest < Test::Unit::TestCase
+  def test_to_query_string
+    # Because hashes aren't ordered, I'm mostly testing against hashes with just one key
+    symbol_keys = {:one => 1}
+    string_keys = {'one' => 1}
+    expected    = '?one=1'
+    [symbol_keys, string_keys].each do |hash|
+      assert_equal expected, hash.to_query_string
+    end
+  end
+  
+  def test_empty_hash_returns_no_query_string
+    assert_equal '', {}.to_query_string
+  end
+  
+  def test_include_question_mark
+    hash = {:one => 1}
+    assert_equal '?one=1', hash.to_query_string
+    assert_equal 'one=1', hash.to_query_string(false)
+  end
+  
+  def test_elements_joined_by_ampersand
+    hash = {:one => 1, :two => 2}
+    qs   = hash.to_query_string
+    assert qs['one=1&two=2'] || qs['two=2&one=1']
+  end
+  
+  def test_normalized_options
+    expectations = [
+      [{:foo_bar  => 1}, {'foo-bar' => '1'}],
+      [{'foo_bar' => 1}, {'foo-bar' => '1'}],
+      [{'foo-bar' => 1}, {'foo-bar' => '1'}],
+      [{}, {}]
+    ]
+    
+    expectations.each do |(before, after)|
+      assert_equal after, before.to_normalized_options
+    end
+  end
+end
+
+class StringExtensionsTest < Test::Unit::TestCase
+  def test_previous
+    expectations = {'abc' => 'abb', '123' => '122', '1' => '0'}
+    expectations.each do |before, after|
+      assert_equal after, before.previous
+    end
+  end
+  
+  def test_to_header
+    transformations = {
+      'foo'     => 'foo',
+      :foo      => 'foo',
+      'foo-bar' => 'foo-bar',
+      'foo_bar' => 'foo-bar',
+      :foo_bar  => 'foo-bar',
+      'Foo-Bar' => 'foo-bar',
+      'Foo_Bar' => 'foo-bar'
+    }
+    
+    transformations.each do |before, after|
+      assert_equal after, before.to_header
+    end
+  end
+  
+  def test_valid_utf8?
+    assert !"318597/620065/GTL_75\24300_A600_A610.zip".valid_utf8?
+    assert "318597/620065/GTL_75£00_A600_A610.zip".valid_utf8?
+  end
+  
+  def test_remove_extended
+    assert "318597/620065/GTL_75\24300_A600_A610.zip".remove_extended.valid_utf8?
+    assert "318597/620065/GTL_75£00_A600_A610.zip".remove_extended.valid_utf8?
+  end
+end
+
+class CoercibleStringTest < Test::Unit::TestCase  
+  
+  def test_coerce
+    coercions = [
+      ['1', 1],
+      ['false', false],
+      ['true',  true],
+      ['2006-10-29T23:14:47.000Z', Time.parse('2006-10-29T23:14:47.000Z')],
+      ['Hello!', 'Hello!'],
+      ['false23', 'false23'],
+      ['03 1-2-3-Apple-Tree.mp3', '03 1-2-3-Apple-Tree.mp3'],
+      ['0815', '0815'] # This number isn't coerced because the leading zero would be lost
+    ]
+    
+    coercions.each do |before, after|
+      assert_nothing_raised do
+        assert_equal after, CoercibleString.coerce(before)
+      end
+    end
+  end
+end
+
+class KerneltExtensionsTest < Test::Unit::TestCase
+  class Foo
+    def foo
+      __method__
+    end
+
+    def bar
+      foo
+    end
+
+    def baz
+      bar
+    end
+  end
+  
+  class Bar
+    def foo
+      calling_method
+    end
+    
+    def bar
+      calling_method
+    end
+    
+    def calling_method
+      __method__(1)
+    end
+  end
+    
+  def test___method___works_regardless_of_nesting
+    f = Foo.new
+    [:foo, :bar, :baz].each do |method|
+      assert_equal 'foo', f.send(method)
+    end
+  end
+  
+  def test___method___depth
+    b = Bar.new
+    assert_equal 'foo', b.foo
+    assert_equal 'bar', b.bar
+  end
+end if RUBY_VERSION <= '1.8.7'
+
+class ModuleExtensionsTest < Test::Unit::TestCase
+  class Foo
+    def foo(reload = false)
+      expirable_memoize(reload) do
+        Time.now
+      end
+    end
+    
+    def bar(reload = false)
+      expirable_memoize(reload, :baz) do
+        Time.now
+      end
+    end
+    
+    def quux
+      Time.now
+    end
+    memoized :quux
+  end
+  
+  def setup
+    @instance = Foo.new
+  end
+  
+  def test_memoize
+    assert !instance_variables_of(@instance).include?('@foo')
+    cached_result = @instance.foo
+    assert_equal cached_result, @instance.foo
+    assert instance_variables_of(@instance).include?('@foo')
+    assert_equal cached_result, @instance.send(:instance_variable_get, :@foo)
+    assert_not_equal cached_result, new_cache = @instance.foo(:reload)
+    assert_equal new_cache, @instance.foo
+    assert_equal new_cache, @instance.send(:instance_variable_get, :@foo)
+  end
+  
+  def test_customizing_memoize_storage
+    assert !instance_variables_of(@instance).include?('@bar')
+    assert !instance_variables_of(@instance).include?('@baz')
+    cached_result = @instance.bar
+    assert !instance_variables_of(@instance).include?('@bar')
+    assert instance_variables_of(@instance).include?('@baz')
+    assert_equal cached_result, @instance.bar
+    assert_equal cached_result, @instance.send(:instance_variable_get, :@baz)
+    assert_nil @instance.send(:instance_variable_get, :@bar)
+  end
+  
+  def test_memoized
+    assert !instance_variables_of(@instance).include?('@quux')
+    cached_result = @instance.quux
+    assert_equal cached_result, @instance.quux
+    assert instance_variables_of(@instance).include?('@quux')
+    assert_equal cached_result, @instance.send(:instance_variable_get, :@quux)
+    assert_not_equal cached_result, new_cache = @instance.quux(:reload)
+    assert_equal new_cache, @instance.quux
+    assert_equal new_cache, @instance.send(:instance_variable_get, :@quux)
+  end
+  
+  def test_constant_setting
+    some_module = Module.new
+    assert !some_module.const_defined?(:FOO)
+    assert_nothing_raised do
+      some_module.constant :FOO, 'bar'
+    end
+    
+    assert some_module.const_defined?(:FOO)
+    assert_nothing_raised do
+      some_module::FOO
+      some_module.foo
+    end
+    assert_equal 'bar', some_module::FOO
+    assert_equal 'bar', some_module.foo
+    
+    assert_nothing_raised do
+      some_module.constant :FOO, 'baz'
+    end
+    
+    assert_equal 'bar', some_module::FOO
+    assert_equal 'bar', some_module.foo
+  end
+  
+  private
+    # For 1.9 compatibility
+    def instance_variables_of(object)
+      object.instance_variables.map do |instance_variable|
+        instance_variable.to_s
+      end
+    end
+      
+end
+
+class AttributeProxyTest < Test::Unit::TestCase
+  class BlindProxyUsingDefaultAttributesHash
+    include SelectiveAttributeProxy
+    proxy_to :exlusively => false
+  end
+  
+  class BlindProxyUsingCustomAttributeHash
+    include SelectiveAttributeProxy
+    proxy_to :settings
+  end
+  
+  class ProxyUsingPassedInAttributeHash
+    include SelectiveAttributeProxy
+    
+    def initialize(attributes = {})
+      @attributes = attributes
+    end
+  end
+  
+  class RestrictedProxy
+    include SelectiveAttributeProxy
+    
+    private
+      def proxiable_attribute?(name)
+        %w(foo bar baz).include?(name)
+      end
+  end
+  
+  class NonExclusiveProxy
+    include SelectiveAttributeProxy
+    proxy_to :settings, :exclusively => false
+  end  
+  
+  def test_using_all_defaults
+    b = BlindProxyUsingDefaultAttributesHash.new
+    assert_nothing_raised do
+      b.foo = 'bar'
+    end
+    
+    assert_nothing_raised do
+      b.foo
+    end
+    
+    assert_equal 'bar', b.foo
+  end
+  
+  def test_storage_is_autovivified
+    b = BlindProxyUsingDefaultAttributesHash.new
+    assert_nothing_raised do
+      b.send(:attributes)['foo'] = 'bar'
+    end
+    
+    assert_nothing_raised do
+      b.foo
+    end
+    
+    assert_equal 'bar', b.foo
+  end
+  
+  def test_limiting_which_attributes_are_proxiable
+    r = RestrictedProxy.new
+    assert_nothing_raised do
+      r.foo = 'bar'
+    end
+    
+    assert_nothing_raised do
+      r.foo
+    end
+    
+    assert_equal 'bar', r.foo
+    
+    assert_raises(NoMethodError) do
+      r.quux = 'foo'
+    end
+    
+    assert_raises(NoMethodError) do
+      r.quux
+    end
+  end
+  
+  def test_proxying_is_exclusive_by_default
+    p = ProxyUsingPassedInAttributeHash.new('foo' => 'bar')
+    assert_nothing_raised do
+      p.foo
+      p.foo = 'baz'
+    end
+    
+    assert_equal 'baz', p.foo
+    
+    assert_raises(NoMethodError) do
+      p.quux
+    end
+  end
+  
+  def test_setting_the_proxy_as_non_exclusive
+    n = NonExclusiveProxy.new
+    assert_nothing_raised do
+      n.foo = 'baz'
+    end
+    
+    assert_nothing_raised do
+      n.foo
+    end
+    
+    assert_equal 'baz', n.foo
+  end
+end

data/test/fixtures/buckets.yml

@@ -0,0 +1,133 @@
+empty_bucket_list: >
+  <ListAllMyBucketsResult xmlns="http://s3.amazonaws.com/doc/2006-03-01/">
+    <Owner>
+      <ID>ab00c3106e091f8fe23154c85678cda66628adb330bc00f02cf4a1c36d76bc48</ID>
+      <DisplayName>amazon</DisplayName>
+    </Owner>
+    <Buckets/>
+  </ListAllMyBucketsResult>
+
+
+bucket_list_with_one_bucket: > 
+  <ListAllMyBucketsResult xmlns="http://s3.amazonaws.com/doc/2006-03-01/">
+    <Owner>
+      <ID>ab00c3106e091f8fe23154c85678cda66628adb330bc00f02cf4a1c36d76bc48</ID>
+      <DisplayName>amazon</DisplayName>
+    </Owner>
+    <Buckets>
+      <Bucket>
+        <Name>marcel_molina</Name>
+        <CreationDate>2006-10-04T15:58:38.000Z</CreationDate>
+      </Bucket>
+    </Buckets>
+  </ListAllMyBucketsResult>
+
+
+bucket_list_with_more_than_one_bucket: >
+  <ListAllMyBucketsResult xmlns="http://s3.amazonaws.com/doc/2006-03-01/">
+    <Owner>
+      <ID>ab00c3106e091f8fe23154c85678cda66628adb330bc00f02cf4a1c36d76bc48</ID>
+      <DisplayName>amazon</DisplayName>
+    </Owner>
+    <Buckets>
+      <Bucket>
+        <Name>marcel_molina</Name>
+        <CreationDate>2006-10-04T15:58:38.000Z</CreationDate>
+      </Bucket>
+      <Bucket>
+        <Name>marcel_molina_jr</Name>
+        <CreationDate>2006-10-04T16:01:30.000Z</CreationDate>
+      </Bucket>
+    </Buckets>
+  </ListAllMyBucketsResult>
+  
+empty_bucket: >
+  <ListBucketResult xmlns="http://s3.amazonaws.com/doc/2006-03-01/">
+    <Name>marcel_molina</Name>
+    <Prefix></Prefix>
+    <Marker></Marker>
+    <MaxKeys>1000</MaxKeys>
+    <IsTruncated>false</IsTruncated>
+  </ListBucketResult>
+  
+bucket_with_one_key: >
+  <ListBucketResult xmlns="http://s3.amazonaws.com/doc/2006-03-01/">
+    <Name>marcel_molina</Name>
+    <Prefix></Prefix>
+    <Marker></Marker>
+    <MaxKeys>1000</MaxKeys>
+    <IsTruncated>false</IsTruncated>
+    <Contents>
+      <Key>tongue_overload.jpg</Key>
+      <LastModified>2006-10-05T02:42:22.000Z</LastModified>
+      <ETag>&quot;f21f7c4e8ea6e34b268887b07d6da745&quot;</ETag>
+      <Size>60673</Size>
+      <Owner>
+        <ID>bb2041a25975c3d4ce9775fe9e93e5b77a6a9fad97dc7e00686191f3790b13f1</ID>
+        <DisplayName>mmolina@onramp.net</DisplayName>
+      </Owner>
+      <StorageClass>STANDARD</StorageClass>
+    </Contents>
+  </ListBucketResult>
+  
+bucket_with_more_than_one_key: >
+  <ListBucketResult xmlns="http://s3.amazonaws.com/doc/2006-03-01/">
+    <Name>marcel_molina</Name>
+    <Prefix></Prefix>
+    <Marker></Marker>
+    <MaxKeys>1000</MaxKeys>
+    <IsTruncated>false</IsTruncated>
+    <Contents>
+      <Key>beluga_baby.jpg</Key>
+      <LastModified>2006-10-05T02:55:10.000Z</LastModified>
+      <ETag>&quot;b2453d4a39a7387674a8c505112a2f0b&quot;</ETag>
+      <Size>35807</Size>
+      <Owner>
+        <ID>bb2041a25975c3d4ce9775fe9e93e5b77a6a9fad97dc7e00686191f3790b13f1</ID>
+        <DisplayName>mmolina@onramp.net</DisplayName>
+      </Owner>
+      <StorageClass>STANDARD</StorageClass>
+    </Contents>
+    <Contents>
+      <Key>tongue_overload.jpg</Key>
+      <LastModified>2006-10-05T02:42:22.000Z</LastModified>
+      <ETag>&quot;f21f7c4e8ea6e34b268887b07d6da745&quot;</ETag>
+      <Size>60673</Size>
+      <Owner>
+        <ID>bb2041a25975c3d4ce9775fe9e93e5b77a6a9fad97dc7e00686191f3790b13f1</ID>
+        <DisplayName>mmolina@onramp.net</DisplayName>
+      </Owner>
+      <StorageClass>STANDARD</StorageClass>
+    </Contents>
+  </ListBucketResult>
+  
+truncated_bucket_with_more_than_one_key: >
+  <ListBucketResult xmlns="http://s3.amazonaws.com/doc/2006-03-01/">
+    <Name>marcel_molina</Name>
+    <Prefix></Prefix>
+    <Marker></Marker>
+    <MaxKeys>2</MaxKeys>
+    <IsTruncated>true</IsTruncated>
+    <Contents>
+      <Key>beluga_baby.jpg</Key>
+      <LastModified>2006-10-05T02:55:10.000Z</LastModified>
+      <ETag>&quot;b2453d4a39a7387674a8c505112a2f0b&quot;</ETag>
+      <Size>35807</Size>
+      <Owner>
+        <ID>bb2041a25975c3d4ce9775fe9e93e5b77a6a9fad97dc7e00686191f3790b13f1</ID>
+        <DisplayName>mmolina@onramp.net</DisplayName>
+      </Owner>
+      <StorageClass>STANDARD</StorageClass>
+    </Contents>
+    <Contents>
+      <Key>tongue_overload.jpg</Key>
+      <LastModified>2006-10-05T02:42:22.000Z</LastModified>
+      <ETag>&quot;f21f7c4e8ea6e34b268887b07d6da745&quot;</ETag>
+      <Size>60673</Size>
+      <Owner>
+        <ID>bb2041a25975c3d4ce9775fe9e93e5b77a6a9fad97dc7e00686191f3790b13f1</ID>
+        <DisplayName>mmolina@onramp.net</DisplayName>
+      </Owner>
+      <StorageClass>STANDARD</StorageClass>
+    </Contents>
+  </ListBucketResult>

data/test/fixtures/errors.yml

@@ -0,0 +1,34 @@
+not_implemented: >
+  <Error>
+    <Code>NotImplemented</Code>
+    <Message>A header you provided implies functionality that is not implemented</Message>
+    <RequestId>D1D13A09AC92427F</RequestId>
+    <Header>Host</Header>
+    <HostId>oNZgzTTmWiovwGGwHXAzz+1vRmAJVAplS9TF7B0cuOGfEwoi7DYSTa/1Qhv90CfW</HostId>
+  </Error>
+  
+access_denied: >
+  <Error>
+    <Code>AccessDenied</Code>
+    <Message>Access Denied</Message>
+    <RequestId>F99F6D58B96C98E0</RequestId>
+    <HostId>XwCF7k3llrcEwtoHR7MusZ6ilCdF5DKDmwYpglvjKNjvwo24INCeXlEpo1M03Wxm</HostId>
+  </Error>
+  
+internal_error: >
+  <Error>
+    <Code>InternalError</Code>
+    <Message>Internal Error</Message>
+    <RequestId>F99F6D223B96C98E0</RequestId>
+    <HostId>XwCF7k3llrcEwtoHR7MusZ6ilCdF5DKDmwYpglvjKNjvwo24INCeXlEpo1M03Wxm</HostId>
+  </Error>
+  
+error_with_no_message: >
+  <Error>
+    <Code>InvalidArgument</Code>
+    <Message></Message>
+    <ArgumentValue>READ</ArgumentValue>
+    <RequestId>74A377B1C0FA2BCF</RequestId>
+    <HostId>cP4rqsAEtHpN6Ckv08Hr3LXjLzx15/YgyoSqzs779vMR8MrAFSodxZp96wtuMQuI</HostId>
+    <ArgumentName>x-amz-acl</ArgumentName>
+  </Error>

data/test/fixtures/headers.yml

@@ -0,0 +1,3 @@
+headers_including_one_piece_of_metadata:
+  x-amz-meta-test: foo
+  content_type: text/plain

data/test/fixtures/logging.yml

@@ -0,0 +1,15 @@
+logging_enabled: >
+  <BucketLoggingStatus xmlns="http://s3.amazonaws.com/doc/2006-03-01/">
+    <LoggingEnabled>
+      <TargetBucket>mylogs</TargetBucket>
+      <TargetPrefix>access_log-</TargetPrefix>
+    </LoggingEnabled>
+  </BucketLoggingStatus>
+  
+logging_disabled: >
+  <BucketLoggingStatus xmlns="http://s3.amazonaws.com/doc/2006-03-01/">
+    <!--<LoggingEnabled>
+      <TargetBucket>myLogsBucket</TargetBucket>
+      <TargetPrefix>add/this/prefix/to/my/log/files/access_log-</TargetPrefix>
+    </LoggingEnabled>-->
+  </BucketLoggingStatus>

data/test/fixtures/loglines.yml

@@ -0,0 +1,5 @@
+bucket_get:
+  "bb2041a25975c3d4ce9775fe9e93e5b77a6a9fad97dc7e00686191f3790b13f1 marcel [14/Nov/2006:06:36:48 +0000] 67.165.183.125 bb2041a25975c3d4ce9775fe9e93e5b77a6a9fad97dc7e00686191f3790b13f1 8B5297D428A05432 REST.GET.BUCKET - \"GET /marcel HTTP/1.1\" 200 - 4534 - 398 395 \"-\" \"-\"\n"
+  
+browser_get:
+  "bb2041a25975c3d4ce9775fe9e93e5b77a6a9fad97dc7e00686191f3790b13f1 marcel [25/Nov/2006:06:26:23 +0000] 67.165.183.125 65a011a29cdf8ec533ec3d1ccaae921c 41521D07CA012312 REST.GET.OBJECT kiss.jpg \"GET /marcel/kiss.jpg HTTP/1.1\" 200 - 67748 67748 259 104 \"-\" \"Mozilla/5.0 (Macintosh; U; Intel Mac OS X; en-US; rv:1.8.1) Gecko/20061010 Firefox/2.0\"\n"

data/test/fixtures/logs.yml

@@ -0,0 +1,7 @@
+simple_log:
+  - "bb2041a25975c3d4ce9775fe9e93e5b77a6a9fad97dc7e00686191f3790b13f1 marcel [14/Nov/2006:06:36:48 +0000] 67.165.183.125 bb2041a25975c3d4ce9775fe9e93e5b77a6a9fad97dc7e00686191f3790b13f1 8B5297D428A05432 REST.GET.BUCKET - \"GET /marcel HTTP/1.1\" 200 - 4534 - 398 395 \"-\" \"-\"\n"
+  - "bb2041a25975c3d4ce9775fe9e93e5b77a6a9fad97dc7e00686191f3790b13f1 marcel [14/Nov/2006:06:38:58 +0000] 67.165.183.125 bb2041a25975c3d4ce9775fe9e93e5b77a6a9fad97dc7e00686191f3790b13f1 8F6F3C4027849420 REST.GET.BUCKET - \"GET /marcel HTTP/1.1\" 200 - 4534 - 458 456 \"-\" \"-\"\n"
+  
+requests_from_a_browser:
+  - "bb2041a25975c3d4ce9775fe9e93e5b77a6a9fad97dc7e00686191f3790b13f1 marcel [25/Nov/2006:06:26:23 +0000] 67.165.183.125 65a011a29cdf8ec533ec3d1ccaae921c 41521D07CA012312 REST.GET.OBJECT kiss.jpg \"GET /marcel/kiss.jpg HTTP/1.1\" 200 - 67748 67748 259 104 \"-\" \"Mozilla/5.0 (Macintosh; U; Intel Mac OS X; en-US; rv:1.8.1) Gecko/20061010 Firefox/2.0\"\n"
+  - "bb2041a25975c3d4ce9775fe9e93e5b77a6a9fad97dc7e00686191f3790b13f1 marcel [25/Nov/2006:06:26:27 +0000] 67.165.183.125 65a011a29cdf8ec533ec3d1ccaae921c 88629578AFDDD9B5 REST.GET.TORRENT kiss.jpg \"GET /marcel/kiss.jpg?torrent HTTP/1.1\" 200 - 215 - 379 - \"-\" \"Mozilla/5.0 (Macintosh; U; Intel Mac OS X; en-US; rv:1.8.1) Gecko/20061010 Firefox/2.0\"\n"

data/test/fixtures/policies.yml

@@ -0,0 +1,16 @@
+policy_with_one_grant: >
+  <AccessControlPolicy>
+    <Owner>
+      <ID>bb2041a25975c3d4ce9775fe9e93e5b77a6a9fad97dc7e00686191f3790b13f1</ID>
+      <DisplayName>mmolina@onramp.net</DisplayName>
+    </Owner>
+    <AccessControlList>
+      <Grant>
+        <Grantee xsi:type="CanonicalUser" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
+          <ID>bb2041a25975c3d4ce9775fe9e93e5b77a6a9fad97dc7e00686191f3790b13f1</ID>
+          <DisplayName>mmolina@onramp.net</DisplayName>
+        </Grantee>
+        <Permission>FULL_CONTROL</Permission>
+      </Grant>
+    </AccessControlList>
+  </AccessControlPolicy>

data/test/fixtures.rb

@@ -0,0 +1,89 @@
+require 'yaml'
+
+module AWS
+  module S3
+    # When this file is loaded, for each fixture file, a module is created within the Fixtures module
+    # with the same name as the fixture file. For each fixture in that fixture file, a singleton method is 
+    # added to the module with the name of the given fixture, returning the value of the fixture.
+    #
+    # For example:
+    #
+    # A fixture in <tt>buckets.yml</tt> named <tt>empty_bucket_list</tt> with value <tt><foo>hi!</foo></tt>
+    # would be made available like so:
+    #
+    #   Fixtures::Buckets.empty_bucket_list
+    #   => "<foo>hi!</foo>"
+    #   
+    # Alternatively you can treat the fixture module like a hash
+    #
+    #   Fixtures::Buckets[:empty_bucket_list]
+    #   => "<foo>hi!</foo>"
+    #
+    # You can find out all available fixtures by calling
+    #
+    #   Fixtures.fixtures
+    #   => ["Buckets"]
+    #
+    # And all the fixtures contained in a given fixture by calling
+    #
+    #   Fixtures::Buckets.fixtures
+    #   => ["bucket_list_with_more_than_one_bucket", "bucket_list_with_one_bucket", "empty_bucket_list"]
+    module Fixtures
+      class << self
+        def create_fixtures
+          files.each do |file|
+            create_fixture_for(file)
+          end
+        end
+        
+        def create_fixture_for(file)
+          fixtures       = YAML.load_file(path(file))
+          fixture_module = Module.new
+          
+          fixtures.each do |name, value|
+            fixture_module.module_eval(<<-EVAL, __FILE__, __LINE__)
+              def #{name}
+                #{value.inspect}
+              end
+              module_function :#{name}
+            EVAL
+          end
+          
+          fixture_module.module_eval(<<-EVAL, __FILE__, __LINE__)
+            module_function 
+          
+              def fixtures
+                #{fixtures.keys.sort.inspect}
+              end
+              
+              def [](name)
+                send(name) if fixtures.include?(name.to_s)
+              end
+          EVAL
+          
+          const_set(module_name(file), fixture_module)
+        end
+        
+        def fixtures
+          constants.sort
+        end
+        
+        private
+        
+          def files
+            Dir.glob(File.dirname(__FILE__) + '/fixtures/*.yml').map {|fixture| File.basename(fixture)}
+          end
+          
+          def module_name(file_name)
+            File.basename(file_name, '.*').capitalize
+          end
+          
+          def path(file_name)
+            File.join(File.dirname(__FILE__), 'fixtures', file_name)
+          end
+      end
+      
+      create_fixtures
+    end
+  end
+end