zuck 0.0.4

data/spec/fixtures/reach_for_invalid_keyword.yml

@@ -0,0 +1,95 @@
+---
+http_interactions:
+- request:
+    method: get
+    uri: https://graph.facebook.com/search?access_token=AAAEvJ5vzhl8BAPLr6fQgNy2wdUHDJ7ZAoX9PTZCFnebwuTBZBEqO7lNTVZA3XNsTHPTATpTmVFs6o6Jp1pZAL8ZA54BRBXWYtztVug8bm2BAZDZD&keyword_list=eminem,invalidsssssssssssssss&type=adkeywordvalid
+    body:
+      encoding: US-ASCII
+      string: ''
+    headers:
+      Accept-Encoding:
+      - gzip;q=1.0,deflate;q=0.6,identity;q=0.3
+      Accept:
+      - ! '*/*'
+      User-Agent:
+      - Ruby
+  response:
+    status:
+      code: 200
+      message: OK
+    headers:
+      Access-Control-Allow-Origin:
+      - ! '*'
+      Cache-Control:
+      - private, no-cache, no-store, must-revalidate
+      Content-Type:
+      - text/javascript; charset=UTF-8
+      Etag:
+      - ! '"1b6af91a08d48aeee5ffa0cf3437f38b61281b68"'
+      Expires:
+      - Sat, 01 Jan 2000 00:00:00 GMT
+      Pragma:
+      - no-cache
+      X-Fb-Rev:
+      - '698469'
+      X-Fb-Debug:
+      - 7so4yUGhkG2hb0KiZDAFNlrgtEmcB0xQ9Xilxl/LfRw=
+      Date:
+      - Wed, 19 Dec 2012 14:36:48 GMT
+      Connection:
+      - keep-alive
+      Content-Length:
+      - '108'
+    body:
+      encoding: US-ASCII
+      string: ! '{"data":[{"name":"Eminem","valid":true,"id":6003170652434},{"name":"invalidsssssssssssssss","valid":false}]}'
+    http_version: 
+  recorded_at: Wed, 19 Dec 2012 14:36:48 GMT
+- request:
+    method: get
+    uri: https://graph.facebook.com/act_10150585630710217/reachestimate?access_token=AAAEvJ5vzhl8BAPLr6fQgNy2wdUHDJ7ZAoX9PTZCFnebwuTBZBEqO7lNTVZA3XNsTHPTATpTmVFs6o6Jp1pZAL8ZA54BRBXWYtztVug8bm2BAZDZD&targeting_spec=%7B%22countries%22:%5B%22US%22%5D,%22keywords%22:%5B%22eminem%22,%22invalidsssssssssssssss%22%5D,%22age_min%22:13,%22connections%22:%5B%5D%7D
+    body:
+      encoding: US-ASCII
+      string: ''
+    headers:
+      Accept-Encoding:
+      - gzip;q=1.0,deflate;q=0.6,identity;q=0.3
+      Accept:
+      - ! '*/*'
+      User-Agent:
+      - Ruby
+  response:
+    status:
+      code: 400
+      message: Bad Request
+    headers:
+      Access-Control-Allow-Origin:
+      - ! '*'
+      Cache-Control:
+      - no-store
+      Content-Type:
+      - text/javascript; charset=UTF-8
+      Expires:
+      - Sat, 01 Jan 2000 00:00:00 GMT
+      Pragma:
+      - no-cache
+      Www-Authenticate:
+      - ! 'OAuth "Facebook Platform" "invalid_token" "Error validating access token:
+        Session has expired at unix time 1355932800. The current unix time is 1355934833."'
+      X-Fb-Rev:
+      - '698469'
+      X-Fb-Debug:
+      - Kkjlojh5eu19FxaW5yu6N5A+5xmmbKyfKsCpa+y2eOc=
+      Date:
+      - Wed, 19 Dec 2012 16:33:53 GMT
+      Connection:
+      - keep-alive
+      Content-Length:
+      - '191'
+    body:
+      encoding: US-ASCII
+      string: ! '{"error":{"message":"Error validating access token: Session has expired
+        at unix time 1355932800. The current unix time is 1355934833.","type":"OAuthException","code":190,"error_subcode":463}}'
+    http_version: 
+  recorded_at: Wed, 19 Dec 2012 16:33:53 GMT
+recorded_with: VCR 2.2.4

data/spec/fixtures/reach_for_valid_keywords.yml

@@ -0,0 +1,93 @@
+---
+http_interactions:
+- request:
+    method: get
+    uri: https://graph.facebook.com/search?access_token=AAAEvJ5vzhl8BAPLr6fQgNy2wdUHDJ7ZAoX9PTZCFnebwuTBZBEqO7lNTVZA3XNsTHPTATpTmVFs6o6Jp1pZAL8ZA54BRBXWYtztVug8bm2BAZDZD&keyword_list=eminem,sting&type=adkeywordvalid
+    body:
+      encoding: US-ASCII
+      string: ''
+    headers:
+      Accept-Encoding:
+      - gzip;q=1.0,deflate;q=0.6,identity;q=0.3
+      Accept:
+      - ! '*/*'
+      User-Agent:
+      - Ruby
+  response:
+    status:
+      code: 200
+      message: OK
+    headers:
+      Access-Control-Allow-Origin:
+      - ! '*'
+      Cache-Control:
+      - private, no-cache, no-store, must-revalidate
+      Content-Type:
+      - text/javascript; charset=UTF-8
+      Etag:
+      - ! '"a684dbf074d5467a7775189984027b177954edef"'
+      Expires:
+      - Sat, 01 Jan 2000 00:00:00 GMT
+      Pragma:
+      - no-cache
+      X-Fb-Rev:
+      - '698469'
+      X-Fb-Debug:
+      - vtS1+m1EAAr/YCY4TKxUueU+DfmYhcASPsoK5LMzkW8=
+      Date:
+      - Wed, 19 Dec 2012 15:13:41 GMT
+      Connection:
+      - keep-alive
+      Content-Length:
+      - '109'
+    body:
+      encoding: US-ASCII
+      string: ! '{"data":[{"name":"Eminem","valid":true,"id":6003170652434},{"name":"Sting","valid":true,"id":6003164299249}]}'
+    http_version: 
+  recorded_at: Wed, 19 Dec 2012 15:13:42 GMT
+- request:
+    method: get
+    uri: https://graph.facebook.com/act_10150585630710217/reachestimate?access_token=AAAEvJ5vzhl8BAPLr6fQgNy2wdUHDJ7ZAoX9PTZCFnebwuTBZBEqO7lNTVZA3XNsTHPTATpTmVFs6o6Jp1pZAL8ZA54BRBXWYtztVug8bm2BAZDZD&targeting_spec=%7B%22countries%22:%5B%22US%22%5D,%22keywords%22:%5B%22eminem%22,%22sting%22%5D,%22age_min%22:13,%22connections%22:%5B%5D,%22broad_age%22:false%7D
+    body:
+      encoding: US-ASCII
+      string: ''
+    headers:
+      Accept-Encoding:
+      - gzip;q=1.0,deflate;q=0.6,identity;q=0.3
+      Accept:
+      - ! '*/*'
+      User-Agent:
+      - Ruby
+  response:
+    status:
+      code: 200
+      message: OK
+    headers:
+      Access-Control-Allow-Origin:
+      - ! '*'
+      Cache-Control:
+      - private, no-cache, no-store, must-revalidate
+      Content-Type:
+      - text/javascript; charset=UTF-8
+      Etag:
+      - ! '"486581ad6483292ae854bf5e25d36d1b564b1865"'
+      Expires:
+      - Sat, 01 Jan 2000 00:00:00 GMT
+      Pragma:
+      - no-cache
+      X-Fb-Rev:
+      - '698469'
+      X-Fb-Debug:
+      - m+Eupy9dFg5wCI+Ej1LdCnZ73lJ1YHyikHIHA1+ET5Y=
+      Date:
+      - Wed, 19 Dec 2012 15:13:43 GMT
+      Connection:
+      - keep-alive
+      Content-Length:
+      - '322'
+    body:
+      encoding: US-ASCII
+      string: ! '{"users":16830580,"bid_estimations":[{"location":3,"cpc_min":43,"cpc_median":71,"cpc_max":145,"cpm_min":2,"cpm_median":15,"cpm_max":502}],"imp_estimates":[],"data":{"users":16830580,"bid_estimations":[{"location":3,"cpc_min":43,"cpc_median":71,"cpc_max":145,"cpm_min":2,"cpm_median":15,"cpm_max":502}],"imp_estimates":[]}}'
+    http_version: 
+  recorded_at: Wed, 19 Dec 2012 15:13:43 GMT
+recorded_with: VCR 2.2.4

data/spec/fixtures/reach_for_valid_keywords_male_young.yml

@@ -0,0 +1,93 @@
+---
+http_interactions:
+- request:
+    method: get
+    uri: https://graph.facebook.com/search?access_token=AAAEvJ5vzhl8BAPLr6fQgNy2wdUHDJ7ZAoX9PTZCFnebwuTBZBEqO7lNTVZA3XNsTHPTATpTmVFs6o6Jp1pZAL8ZA54BRBXWYtztVug8bm2BAZDZD&keyword_list=sting&type=adkeywordvalid
+    body:
+      encoding: US-ASCII
+      string: ''
+    headers:
+      Accept-Encoding:
+      - gzip;q=1.0,deflate;q=0.6,identity;q=0.3
+      Accept:
+      - ! '*/*'
+      User-Agent:
+      - Ruby
+  response:
+    status:
+      code: 200
+      message: OK
+    headers:
+      Access-Control-Allow-Origin:
+      - ! '*'
+      Cache-Control:
+      - private, no-cache, no-store, must-revalidate
+      Content-Type:
+      - text/javascript; charset=UTF-8
+      Etag:
+      - ! '"66bd8a85c55324c07c1c2afcb1eac4e2fd358bf5"'
+      Expires:
+      - Sat, 01 Jan 2000 00:00:00 GMT
+      Pragma:
+      - no-cache
+      X-Fb-Rev:
+      - '698469'
+      X-Fb-Debug:
+      - XuqZnN5WjRA/b3sTn4Nz0jyvTkw2S0OCP5x8OKrUO54=
+      Date:
+      - Wed, 19 Dec 2012 15:20:53 GMT
+      Connection:
+      - keep-alive
+      Content-Length:
+      - '59'
+    body:
+      encoding: US-ASCII
+      string: ! '{"data":[{"name":"Sting","valid":true,"id":6003164299249}]}'
+    http_version: 
+  recorded_at: Wed, 19 Dec 2012 15:20:53 GMT
+- request:
+    method: get
+    uri: https://graph.facebook.com/act_10150585630710217/reachestimate?access_token=AAAEvJ5vzhl8BAPLr6fQgNy2wdUHDJ7ZAoX9PTZCFnebwuTBZBEqO7lNTVZA3XNsTHPTATpTmVFs6o6Jp1pZAL8ZA54BRBXWYtztVug8bm2BAZDZD&targeting_spec=%7B%22countries%22:%5B%22US%22%5D,%22keywords%22:%5B%22sting%22%5D,%22age_min%22:13,%22age_max%22:24,%22genders%22:%5B2%5D,%22connections%22:%5B%5D,%22broad_age%22:false%7D
+    body:
+      encoding: US-ASCII
+      string: ''
+    headers:
+      Accept-Encoding:
+      - gzip;q=1.0,deflate;q=0.6,identity;q=0.3
+      Accept:
+      - ! '*/*'
+      User-Agent:
+      - Ruby
+  response:
+    status:
+      code: 200
+      message: OK
+    headers:
+      Access-Control-Allow-Origin:
+      - ! '*'
+      Cache-Control:
+      - private, no-cache, no-store, must-revalidate
+      Content-Type:
+      - text/javascript; charset=UTF-8
+      Etag:
+      - ! '"430ebe9f4489fdfc008a2c301d51e68d633c8978"'
+      Expires:
+      - Sat, 01 Jan 2000 00:00:00 GMT
+      Pragma:
+      - no-cache
+      X-Fb-Rev:
+      - '698469'
+      X-Fb-Debug:
+      - H+RabGZXmTXmsUVynJuDJRCthPTjpJLfPD7iwdJA3WA=
+      Date:
+      - Wed, 19 Dec 2012 15:20:55 GMT
+      Connection:
+      - keep-alive
+      Content-Length:
+      - '314'
+    body:
+      encoding: US-ASCII
+      string: ! '{"users":39400,"bid_estimations":[{"location":3,"cpc_min":38,"cpc_median":58,"cpc_max":115,"cpm_min":1,"cpm_median":6,"cpm_max":383}],"imp_estimates":[],"data":{"users":39400,"bid_estimations":[{"location":3,"cpc_min":38,"cpc_median":58,"cpc_max":115,"cpm_min":1,"cpm_median":6,"cpm_max":383}],"imp_estimates":[]}}'
+    http_version: 
+  recorded_at: Wed, 19 Dec 2012 15:20:55 GMT
+recorded_with: VCR 2.2.4

data/spec/lib/zuck/facebook/ad_account_spec.rb

@@ -0,0 +1,26 @@
+require 'spec_helper'
+
+describe Zuck::AdAccount do
+
+  let(:graph){ Koala::Facebook::API.new(:token) }
+  let(:acc){ Zuck::AdAccount.new(graph, name: :dance_in_style) }
+
+  it "initializes graph correctly" do
+    acc.graph.should == graph
+  end
+
+  it "initializes data correctly" do
+    acc[:name].should == :dance_in_style
+  end
+
+  it "defines getters" do
+    acc.name.should == :dance_in_style
+  end
+
+  it "defines setters" do
+    acc.name = :bazinga
+    acc.name.should == :bazinga
+  end
+
+
+end

data/spec/lib/zuck/facebook/ad_campaign_spec.rb

@@ -0,0 +1,4 @@
+require 'spec_helper'
+
+describe Zuck::AdCampaign do
+end

data/spec/lib/zuck/facebook/targeting_spec_spec.rb

@@ -0,0 +1,174 @@
+require 'spec_helper'
+
+describe Zuck::TargetingSpec do
+  let(:ad_account){ "2ijdsfoij" }
+  let(:graph){ mock('koala') }
+  let(:reach_response){
+      {                             # These can probably go since we have
+      "users" => 23688420,          # vcr cassetes with http requests and
+      "bid_estimations" => [        # responses in place
+        {
+          "location" => 3,
+          "cpc_min" => 37,
+          "cpc_median" => 44,
+          "cpc_max" => 57,
+          "cpm_min" => 6,
+          "cpm_median" => 12,
+          "cpm_max" => 33
+        }
+      ],
+      "imp_estimates" => [
+      ],
+      "data" => {
+        "users" => 23688420,
+        "bid_estimations" => [
+          {
+            "location" => 3,
+            "cpc_min" => 37,
+            "cpc_median" => 44,
+            "cpc_max" => 57,
+            "cpm_min" => 6,
+            "cpm_median" => 12,
+            "cpm_max" => 33
+          }
+        ],
+        "imp_estimates" => [
+        ]
+      }
+    }
+  }
+
+
+  describe "validating keywords" do
+
+    let(:valid_keyword_result){   [{"name" => "foo", "valid" => true }] }
+    let(:invalid_keyword_result){ [{"name" => "sdjf", "valid" => false }] }
+
+    it "escapes commas" do
+      o = {type: 'adkeywordvalid', keyword_list: 'foo%2Cbar' }
+      graph.should_receive(:search).with(nil, o).and_return []
+      fts = Zuck::TargetingSpec.new(graph, ad_account, keywords: 'foo,bar')
+      fts.validate_keyword('foo,bar').should == false
+    end
+
+    it "acknowledges valid keywords" do
+      o = {type: 'adkeywordvalid', keyword_list: 'foo' }
+      graph.should_receive(:search).with(nil, o).and_return valid_keyword_result
+      fts = Zuck::TargetingSpec.new(graph, ad_account)
+
+      fts.validate_keyword('foo').should == true
+    end
+
+    it "refuses invalid keywords" do
+      o = {type: 'adkeywordvalid', keyword_list: 'sdjf' }
+      graph.should_receive(:search).with(nil, o).and_return invalid_keyword_result
+      fts = Zuck::TargetingSpec.new(graph, ad_account)
+
+      fts.validate_keyword('sdjf').should == false
+    end
+  end
+
+  describe "options given in spec" do
+    it "accepts male as gender" do
+      expect{
+        Zuck::TargetingSpec.new(graph, ad_account, countries: ['US'], keywords: ['foo'], gender: 'male')
+      }.to_not raise_error
+    end
+
+    it "accepts male as gender for young people" do
+      expect{
+        Zuck::TargetingSpec.new(graph, ad_account, countries: ['US'], keywords: ['foo'], gender: 'male', age_class: 'young')
+      }.to_not raise_error
+    end
+
+    it "accepts male as gender for old people" do
+      expect{
+        Zuck::TargetingSpec.new(graph, ad_account, countries: ['US'], keywords: ['foo'], gender: 'male', age_class: 'old')
+      }.to_not raise_error
+    end
+
+    it "accepts without gender" do
+      expect{
+        Zuck::TargetingSpec.new(graph, ad_account, countries: ['US'], keywords: ['foo'])
+      }.to_not raise_error
+    end
+
+    it "accepts single keywrod" do
+      expect{
+        Zuck::TargetingSpec.new(graph, ad_account, countries: ['US'], keyword: 'foo')
+      }.to_not raise_error
+    end
+
+    it "does not accept invalid genders" do
+      expect{
+        Zuck::TargetingSpec.new(graph, ad_account, countries: ['US'], keywords: ['foo'], gender: 'gemale')
+      }.to raise_error("Gender can only be male or female")
+    end
+
+    it "does not accept targetings with neither :keywords nor :connections" do
+      expect{
+        ts = Zuck::TargetingSpec.new(graph, ad_account, countries: ['US'], gender: 'female')
+        ts.fetch_reach
+      }.to raise_error("Need to set :keywords or :connections")
+    end
+  end
+
+  describe "fetching reach" do
+    let(:graph){ Koala::Facebook::API.new('AAAEvJ5vzhl8BAPLr6fQgNy2wdUHDJ7ZAoX9PTZCFnebwuTBZBEqO7lNTVZA3XNsTHPTATpTmVFs6o6Jp1pZAL8ZA54BRBXWYtztVug8bm2BAZDZD') }
+    let(:ad_account){ 'act_10150585630710217' }
+
+    it "bugs out when trying to use an invalid keyword" do
+      VCR.use_cassette('reach_for_invalid_keyword') do
+        spec = {countries: ['us'], keywords: ['eminem', 'invalidsssssssssssssss'] }
+        ts = Zuck::TargetingSpec.new(graph, ad_account, spec)
+        expect{
+          ts.validate_keywords
+        }.to raise_error(Zuck::InvalidKeywordError, 'invalidsssssssssssssss')
+      end
+    end
+
+    it "works without gender or age" do
+      VCR.use_cassette('reach_for_valid_keywords') do
+        spec = {countries: ['us'], keywords: ['eminem', 'sting'] }
+        ts = Zuck::TargetingSpec.new(graph, ad_account, spec)
+        reach = ts.fetch_reach
+        reach[:users].should == 16830580
+      end
+    end
+
+    it "works with gender and age" do
+      VCR.use_cassette('reach_for_valid_keywords_male_young') do
+        spec = {countries: ['us'], keywords: ['sting'], gender: :female, age_class: :young }
+        ts = Zuck::TargetingSpec.new(graph, ad_account, spec)
+        reach = ts.fetch_reach
+        reach[:users].should == 39400
+      end
+    end
+
+    it "without instanciating manually" do
+      x = stub()
+      x.should_receive(:fetch_reach).and_return 9
+      Zuck::TargetingSpec.should_receive(:new).with(:graph, :ad_account, :options).and_return x
+
+      Zuck::TargetingSpec.fetch_reach(:graph, :ad_account, :options)
+    end
+
+  end
+
+  describe "Batch processing" do
+    let(:graph){ Koala::Facebook::API.new('AAAEvJ5vzhl8BAPLr6fQgNy2wdUHDJ7ZAoX9PTZCFnebwuTBZBEqO7lNTVZA3XNsTHPTATpTmVFs6o6Jp1pZAL8ZA54BRBXWYtztVug8bm2BAZDZD') }
+    let(:ad_account){ 'act_10150585630710217' }
+
+    it "doesn't split up small bunches" do
+      requests = [{some: :thing}] * 50
+      graph.should_receive(:batch).once.and_return([])
+      Zuck::TargetingSpec.batch_reaches(graph, ad_account, requests)
+    end
+
+    it "splits up into 50 request bunches" do
+      requests = [{some: :thing}] * 51
+      graph.should_receive(:batch).twice.and_return([])
+      Zuck::TargetingSpec.batch_reaches(graph, ad_account, requests)
+    end
+  end
+end

data/spec/lib/zuck/fb_object/helpers_spec.rb

@@ -0,0 +1,67 @@
+require 'spec_helper'
+
+class HTest
+  extend  Zuck::FbObject::Helpers
+  include Zuck::FbObject::Helpers
+end
+
+describe Zuck::FbObject::Helpers do
+
+  let(:graph_mock){ mock('graph') }
+
+  context "get" do
+    it "forwards to koala" do
+      graph_mock.should_receive(:get_object).with('/foo').and_return(true)
+      HTest.send(:get, graph_mock, "/foo")
+    end
+
+    it "does not swallow exceptions" do
+      graph_mock.should_receive(:get_object).with('/foo').and_raise("broken")
+      expect{
+        HTest.send(:get, graph_mock, "/foo")
+      }.to raise_error("broken")
+    end
+  end
+
+  context "create_connection" do
+    it "forwards to koala" do
+      graph_mock.should_receive(:put_connections).with(:parent, :connection, :args, :opts).and_return(true)
+      HTest.send(:create_connection, graph_mock, :parent, :connection, :args, :opts)
+    end
+
+    it "does not swallow exceptions" do
+      graph_mock.should_receive(:put_connections).with(:parent, :connection, :args, :opts).and_raise("broken")
+      expect{
+        HTest.send(:create_connection, graph_mock, :parent, :connection, :args, :opts)
+      }.to raise_error("broken")
+    end
+  end
+
+  context "post" do
+    it "forwards to koala" do
+      graph_mock.should_receive(:graph_call).with("path", :data, "post", :opts).and_return(true)
+      HTest.send(:post, graph_mock, :path, :data, :opts)
+    end
+
+    it "does not swallow exceptions" do
+      graph_mock.should_receive(:graph_call).with("path", :data, "post", :opts).and_raise("broken")
+      expect{
+        HTest.send(:post, graph_mock, :path, :data, :opts)
+      }.to raise_error("broken")
+    end
+  end
+
+  context "delete" do
+    it "forwards to koala" do
+      graph_mock.should_receive(:delete_object).with(:id).and_return(true)
+      HTest.send(:delete, graph_mock, :id)
+    end
+
+    it "does not swallow exceptions" do
+      graph_mock.should_receive(:delete_object).with(:id).and_raise("broken")
+      expect{
+        HTest.send(:delete, graph_mock, :id)
+      }.to raise_error("broken")
+    end
+  end
+end

data/spec/lib/zuck/koala/koala_methods_spec.rb

@@ -0,0 +1,30 @@
+require 'spec_helper'
+
+class KMTest
+  extend Zuck::KoalaMethods
+end
+
+describe Zuck::KoalaMethods do
+  describe "assigning a graph instance" do
+
+    it "raises when not a Koala instance" do
+      expect{
+        KMTest.graph = :something_else
+      }.to raise_error "Symbol is not a Koala::Facebook::API"
+      KMTest.graph.should be_nil
+    end
+
+    it "raises when not a Koala instance" do
+      expect{
+        KMTest.graph = Koala::Facebook::API.new()
+      }.to raise_error
+      KMTest.graph.should be_nil
+    end
+
+    it "that's valid" do
+      KMTest.graph.should be_nil
+      KMTest.graph = Koala::Facebook::API.new(:some_token)
+      KMTest.graph.should_not be_nil
+    end
+  end
+end

data/spec/lib/zuck/util/hash_delegator_spec.rb

@@ -0,0 +1,54 @@
+require 'spec_helper'
+
+class HDTest
+  include Zuck::HashDelegator
+  known_keys :bar
+end
+
+describe Zuck::HashDelegator do
+
+  let(:del){ HDTest.new }
+
+  it "assigns a value" do
+    del[:foo] = :bar
+    del[:foo].should == :bar
+  end
+
+  it "has a shortcut getter" do
+    del[:foo] = :bar
+    del.data.should == {foo: :bar}
+  end
+
+  it "transforms keys to symbols" do
+    del['bar'] = :foo
+    del['bar'].should == :foo
+    del[:bar].should == :foo
+  end
+
+  it "becomes a pretty string" do
+    x = HDTest.new
+    x[:some] = "thing"
+    x[:bar]  = 1
+    x.to_s.should == '#<HDTest some: "thing", bar: 1>'
+  end
+
+  it "allows to assign a hash" do
+    x = HDTest.new
+    x.set_data('some' => "thing", bar: 1)
+    x.to_s.should == '#<HDTest some: "thing", bar: 1>'
+    x[:some].should == "thing"
+  end
+
+  it "allows to assign a hash using a shortcut" do
+    x = HDTest.new
+    x.data = {'some' => "thing", bar: 1}
+    x.to_s.should == '#<HDTest some: "thing", bar: 1>'
+    x[:some].should == "thing"
+  end
+
+  it "has methods defined for the known keys" do
+    del[:bar] = :foo
+    del.bar.should == :foo
+  end
+
+end