withings-api 0.0.3

data/lib/withings-api/tokens.rb

@@ -0,0 +1,35 @@
+module Withings
+  module Api
+    # Encapsulates a consumer app key/secret pair
+    class ConsumerToken
+      attr_accessor :key, :secret
+
+      # Multiple variations
+      #
+      # - #initialize()
+      # - #initialize(key, secret)
+      def initialize(*arguments)
+        if arguments.length == 0
+        elsif arguments.length == 2
+          self.key = arguments.shift
+          self.secret = arguments.shift
+        else
+          raise ArgumentError
+        end
+      end
+
+      def to_a
+        [key, secret]
+      end
+
+    end
+
+    class RequestToken < ConsumerToken
+
+    end
+
+    class AccessToken < ConsumerToken
+
+    end
+  end
+end

data/lib/withings-api/types.rb

@@ -0,0 +1,108 @@
+module Withings
+  module Api
+
+    class TypeBase
+      attr_accessor :id, :name, :description
+
+      def initialize(id, name, description)
+        self.id = id
+        self.name = name
+        self.description = description
+      end
+
+      def inspect
+        self.description
+      end
+
+      #
+      # Lookup helpers for static types
+      #
+
+      @@lookup_by_id = {}
+      @@lookup_by_name = {}
+
+      def self.register(instance)
+        lookup_by_id = @@lookup_by_id[self] ||= {}
+        lookup_by_name = @@lookup_by_name[self] ||= {}
+
+        lookup_by_id[instance.id] = instance
+        lookup_by_name[instance.name] = instance
+      end
+
+      def self.lookup(key)
+        lookup_by_id = @@lookup_by_id[self] ||= {}
+        lookup_by_name = @@lookup_by_name[self] ||= {}
+
+        lookup_by_id[key] || lookup_by_name[key]
+      end
+
+
+    end
+
+    class MeasurementType < TypeBase
+    end
+
+    class DeviceType < TypeBase
+    end
+
+    class CategoryType < TypeBase
+    end
+
+    class AttributionType < TypeBase
+    end
+
+    private
+
+    # TODO: Try to figure out how to get calls to this documented in yard
+    def self.measurement_type(name, description, id)
+      instance = MeasurementType.new(id, name, description)
+
+      MeasurementType.const_set(name, instance)
+      MeasurementType.register(instance)
+    end
+
+    def self.device_type(name, description, id)
+      instance = DeviceType.new(id, name, description)
+
+      DeviceType.const_set(name, instance)
+      DeviceType.register(instance)
+    end
+
+    def self.category_type(name, id, description = nil)
+      instance = CategoryType.new(id, name, description)
+
+      CategoryType.const_set(name, instance);
+      CategoryType.register(instance)
+    end
+
+    def self.attribution_type(name, id, description = nil)
+      instance = AttributionType.new(id, name, description)
+
+      AttributionType.const_set(name, instance)
+      AttributionType.register(instance)
+    end
+
+    public
+
+    measurement_type :WEIGHT, "Weight (kg)", 1
+    measurement_type :HEIGHT, "Height (meter)", 4
+    measurement_type :FAT_FREE_MASS, "Fat Free Mass (kg)", 5
+    measurement_type :FAT_RATIO, "Fat Ratio (%)", 6
+    measurement_type :FAT_MASS, "Fat Mass Weight (kg)", 8
+    measurement_type :DIASTOLIC_BLOOD_PRESSURE, "Diastolic Blood Pressure (mmHg)", 9
+    measurement_type :SYSTOLIC_BLOOD_PRESSURE, "Systolic Blood Pressure (mmHg)", 10
+    measurement_type :HEART_PULSE, "Heart Pulse (bpm)", 11
+
+    device_type :USER, "User related", 0
+    device_type :BODY_SCALE, "Body scale", 1
+    device_type :BLOOD_PRESSURE_MONITOR, "Blood pressure monitor", 4
+
+    category_type :MEASURE, 1
+    category_type :TARGET, 2
+
+    attribution_type :DEVICE, 0, "The measuregroup has been captured by a device and is known to belong to this user (and is not ambiguous)"
+    attribution_type :DEVICE_AMBIGUOUS, 1, "The measuregroup has been captured by a device but may belong to other users as well as this one (it is ambiguous)"
+    attribution_type :MANUAL, 2, "The measuregroup has been entered manually for this particular user"
+    attribution_type :MANUAL_AT_CREATION, 4, "The measuregroup has been entered manually during user creation (and may not be accurate)"
+  end
+end

data/lib/withings-api/utils.rb

@@ -0,0 +1,14 @@
+module Withings::Api
+  module ResultsHelpers
+    # @raise [JSON::ParserError]
+    def coerce_hash(o)
+      if o.instance_of? Hash
+        o
+      elsif o.instance_of? String
+        JSON::parse(o)
+      else
+        nil
+      end
+    end
+  end
+end

data/lib/withings-api/version.rb

@@ -0,0 +1,5 @@
+module Withings
+  module Api
+    VERSION = "0.0.3"
+  end
+end

data/spec/api_actions/measure_getmeas_spec.rb

@@ -0,0 +1,22 @@
+require 'spec_helper'
+require 'json'
+
+describe "Withings::Api.measure_getmeas()" do
+  let(:valid_consumer_token) { CONSUMER_CREDENTIALS[:valid] }
+  let(:valid_access_token) { ACCESS_TOKENS[:valid] }
+
+  context "Stubbed" do
+    context "Valid" do
+      before(:each) do
+        stub_http_with_canned("measure_getmeas/success")
+        puts_http
+      end
+
+      it "Succeeds With No Parameters" do
+        api_response = Withings::Api.measure_getmeas({:userid => 766103}, valid_access_token, valid_consumer_token)
+      end
+
+    end
+  end
+end
+

data/spec/measure_getmeas_results_spec.rb

@@ -0,0 +1,124 @@
+require 'spec_helper'
+
+MEASURE_GETMEAS_SAMPLE_HASH = JSON::parse(File.read(File.join(SAMPLE_JSON_DIR, "measure_getmeas.json")))["body"]
+
+#
+# Measurement
+#
+
+describe API::Measurement do
+  #"value":79300,
+  #"type":1,
+  #"unit":-3
+  shared_examples_for "Sample JSON Measurement" do
+    it "value_raw == 79300" do
+      subject.value_raw.should == 79300
+    end
+
+    it "type == MeasurementType::WEIGHT" do
+      subject.measurement_type.should == API::MeasurementType::WEIGHT
+    end
+
+    it "unit == -3" do
+      subject.unit.should == -3
+    end
+
+    it "value == 79.3" do
+      subject.value.should == 79.3
+    end
+  end
+
+  context "Measurement Sample JSON from Hash" do
+    subject { API::Measurement.new(MEASURE_GETMEAS_SAMPLE_HASH["measuregrps"].first["measures"].first) }
+
+    it_behaves_like "Sample JSON Measurement"
+  end
+
+  context "Measurement Sample JSON from String" do
+    subject { API::Measurement.new(MEASURE_GETMEAS_SAMPLE_HASH["measuregrps"].first["measures"].first) }
+
+    it_behaves_like "Sample JSON Measurement"
+  end
+
+end
+
+
+describe API::MeasurementGroup do
+  #"grpid":2909,
+  #"attrib":0,
+  #"date":1222930968,
+  #"category":1,
+  #"measures":[
+  shared_examples_for "Sample JSON MeasurementGroup" do
+    it "id == 2909" do
+        subject.id.should == 2909
+      end
+
+      it "attribution == AttributionType::DEVICE" do
+        subject.attribution.should == API::AttributionType::DEVICE
+      end
+
+      it "category == CategoryType::MEASURE" do
+        subject.category.should == API::CategoryType::MEASURE
+      end
+
+      it "date_raw == 1222930968" do
+        subject.date_raw.should == 1222930968
+      end
+
+      it "date == Time.at(1222930968)" do
+        subject.date.should == Time.at(1222930968)
+      end
+
+      it "measurements == []" do
+        subject.measurements.should be_instance_of Array
+        subject.measurements.length.should == 4
+        subject.measurements.each { |m| m.should be_instance_of API::Measurement }
+      end
+  end
+
+  subject { API::MeasurementGroup.new(MEASURE_GETMEAS_SAMPLE_HASH["measuregrps"].first) }
+
+  it_behaves_like "Sample JSON MeasurementGroup"
+end
+
+#
+# MeasureGetmeasResults
+#
+
+describe API::MeasureGetmeasResults do
+  shared_examples_for "Sample Measure/Getmeas Result" do
+    it "update_time_raw Should Be 1249409679" do
+      subject.update_time_raw.should be(1249409679)
+    end
+
+    it "update_time == Time.at(1249409679)" do
+      subject.update_time.should == Time.at(1249409679)
+    end
+
+    it "more? Should Be false" do
+      subject.should_not be_more
+    end
+
+    it "measure_groups" do
+      measure_groups = subject.measure_groups
+
+      measure_groups.should be_instance_of Array
+      measure_groups.length.should == 2
+      measure_groups.each { |mg| mg.should be_instance_of API::MeasurementGroup }
+    end
+  end
+
+  context "Constructor From Sample JSON String" do
+    subject { API::MeasureGetmeasResults.new(MEASURE_GETMEAS_SAMPLE_HASH.to_json) }
+
+    it_behaves_like "Sample Measure/Getmeas Result"
+  end
+
+  context "Constructor From Sample JSON Hash" do
+    subject { API::MeasureGetmeasResults.new(MEASURE_GETMEAS_SAMPLE_HASH) }
+
+    it_behaves_like "Sample Measure/Getmeas Result"
+  end
+
+end

data/spec/method_aliaser_spec.rb

@@ -0,0 +1,96 @@
+require 'spec_helper'
+
+class A
+  def value(v = nil)
+    v || 'a'
+  end
+end
+
+describe MethodAliaser do
+  after(:each) do
+    # undo a previously applied alias
+    while @aliased && ! @aliased.empty?
+      @aliased.shift.unalias_it
+    end
+  end
+
+  def alias_value(&block)
+    @aliased ||= []
+    @aliased << MethodAliaser.alias_it(A, :value, &block)
+  end
+
+  def new_value
+    A.new.value
+  end
+
+  def new_value_with_parameter(p)
+    A.new.value(p)
+  end
+
+  it "Can Alias Method To Return Nil" do
+    alias_value { |aliased, *arguments| }
+
+    new_value().should == nil
+  end
+
+  it "Can Alias Method To Return Aribitrary Value" do
+    alias_value { |aliased, *arguments| "b" }
+
+    new_value().should == "b"
+  end
+
+  it "Can Have Alias Implementation Delegate To The Original Method" do
+    alias_value { |aliased, *arguments| aliased.call(*arguments) }
+
+    new_value().should == "a"
+  end
+
+  it "Can Have Alias Implementation Use The Original Method Return Value In It's Return Value'" do
+    alias_value { |aliased, *arguments| "#{aliased.call(*arguments)}b" }
+
+    new_value.should == "ab"
+  end
+
+  it "Can Pass The Arguments To the Original Method" do
+    alias_value { |aliased, *arguments| "#{aliased.call(*arguments)}"}
+
+    new_value_with_parameter("b").should == "b"
+  end
+
+  it "Can Overwrite Arguments When Calling The Original Method" do
+    alias_value { |aliased, *arguments| "#{aliased.call(*['c'])}"}
+
+    new_value_with_parameter("b").should == "c"
+  end
+
+  it "Can Have An Alias Implementation That Removes Itself" do
+    wrapped = MethodAliaser.alias_it(A, :value) do |aliased, *arguments|
+      wrapped.unalias_it
+
+      "b"
+    end
+
+    A.new.value.should == 'b'
+    A.new.value.should == 'a'
+    A.new.value.should == 'a'
+  end
+
+  it "Can Nest Multiple Alias Implementations That Removes Itself" do
+    wrapped1 = MethodAliaser.alias_it(A, :value) do |aliased, *arguments|
+      wrapped1.unalias_it
+
+      "b"
+    end
+
+    wrapped2 = MethodAliaser.alias_it(A, :value) do |aliased, *arguments|
+      wrapped2.unalias_it
+
+      "c"
+    end
+
+    A.new.value.should == 'c'
+    A.new.value.should == 'b'
+    A.new.value.should == 'a'
+    A.new.value.should == 'a'
+  end
+end

data/spec/query_string_spec.rb

@@ -0,0 +1,20 @@
+require 'spec_helper'
+
+describe "Hash#to_query_string" do
+  context "Expected Results" do
+    SAMPLES = {
+        {} => "",
+        {:name => :Eric} => "name=Eric",
+        {"count" => 69 } => "count=69",
+        {:first => "eric", :last => "webb", "age" => 30} => "first=eric&last=webb&age=30",
+        { :special => ",./<>?=\"&" } => "special=%2C.%2F%3C%3E%3F%3D%22%26",
+    }
+
+    SAMPLES.each_key do |key|
+      expect = SAMPLES[key]
+      it "#{key.inspect} => \"#{expect}\"" do
+        key.to_query_string.should == expect
+      end
+    end
+  end
+end

data/spec/spec_helper.rb

@@ -0,0 +1,30 @@
+# code coverage
+require 'simplecov'
+SimpleCov.start
+
+require 'withings-api'
+
+TEST_RESOURCES = File.expand_path("../test/", File.dirname(__FILE__))
+SAMPLE_JSON_DIR = File.expand_path("../test/sample_json", File.dirname(__FILE__))
+
+require_relative "../test/helpers/http_stubber"
+require_relative "../test/helpers/stubbed_withings_api"
+
+API = Withings::Api
+API_MODULE = API
+
+def puts_http
+  MethodAliaser.alias_it(Net::HTTP, :transport_request) do |aliased, *arguments|
+    puts "HTTP Request: #{arguments.first.path}"
+    res = aliased.call(*arguments)
+    puts "HTTP Response:"
+    puts "HTTP/#{res.http_version} #{res.code} #{res.message}"
+    res.to_hash.each_pair do |key, value|
+      puts "#{key}: #{value.join("; ")}"
+    end
+    puts ""
+    puts res.body
+
+    res
+  end
+end