ticket_sales 0.1.1

data/lib/ticket_sales/ticket_list.rb

@@ -0,0 +1,74 @@
+module TicketSales
+  module TicketSearch
+    def get_tickets(from, to)
+      filter Criteria.from(from) & Criteria.to(to)
+    end
+
+    def cheapest_ticket(from, to)
+      get_tickets(from, to).min_by(&:price)
+    end
+
+    def fastest_ticket(from, to)
+      get_tickets(from, to).min_by(&:travel_length)
+    end
+
+    def tickets_arriving_at(location, time)
+      filter Criteria.to(location) & Criteria.arrives_before(time)
+    end
+
+    def tickets_departing_from(location, time)
+      filter Criteria.from(location) & Criteria.departs_after(time)
+    end
+
+    def previous_tickets_combined_with(ticket)
+      tickets_arriving_at(ticket.from, ticket.departure_time).map do |current|
+        current.combine ticket
+      end
+    end
+
+    def next_tickets_combined_with(ticket)
+      tickets_departing_from(ticket.to, ticket.arrival_time).map do |current|
+        ticket.combine current
+      end
+    end
+
+    def tickets_connected_with(ticket)
+      tickets_arriving_at(ticket.from, ticket.departure_time).
+      product(tickets_departing_from(ticket.to, ticket.arrival_time)).map do |left, right|
+        left.combine(ticket).combine(right)
+      end
+    end
+  end
+
+  class TicketList
+    include Enumerable
+    include TicketSearch
+
+    attr_reader :tickets
+
+    def initialize
+      @tickets = []
+    end
+
+    def add(ticket)
+      @tickets |= tickets_combined_with(ticket)
+      @tickets << ticket
+    end
+
+    def each(&block)
+      @tickets.each(&block)
+    end
+
+    def filter(criteria)
+      @tickets.select { |ticket| criteria.met_by? ticket }
+    end
+
+    private
+
+    def tickets_combined_with(ticket)
+      previous_tickets_combined_with(ticket) |
+        next_tickets_combined_with(ticket) |
+        tickets_connected_with(ticket)
+    end
+  end
+end

data/lib/ticket_sales/user.rb

@@ -0,0 +1,31 @@
+module TicketSales
+  class User
+    attr_reader :name, :email, :inventory, :balance
+
+    def initialize(name, email, balance)
+      @name = name
+      @email = email
+      @balance = balance
+      @inventory = []
+    end
+
+    def can_pay?(price)
+      @balance >= price
+    end
+
+    def buy(item, price)
+      add item
+      pay price
+    end
+
+    private
+
+    def pay(price)
+      @balance -= price
+    end
+
+    def add(item)
+      @inventory << item
+    end
+  end
+end

data/test/test_helper.rb

@@ -0,0 +1,4 @@
+$LOAD_PATH << './lib'
+
+require 'ticket_sales'
+require 'minitest/autorun'

data/test/test_template.rb

@@ -0,0 +1,11 @@
+require 'test_helper'
+
+# class TestClassName  < MiniTest::Unit::TestCase
+#   def setup
+
+#   end
+
+#   # Tests
+#   # ======================================
+
+# end

data/test/ticket_sales/criteria_test.rb

@@ -0,0 +1,133 @@
+require 'test_helper'
+
+class TestCriteria  < MiniTest::Unit::TestCase
+  include TicketSales
+
+  def setup
+    @haskovo_sofia = Ticket.build 'Haskovo', 'Sofia', 230, Time.new(2013, 3, 3, 15),
+      Time.new(2013, 3, 3, 18), '20'.to_d, 'fast, class A, cheap'
+    @sofia_moscow = Ticket.build 'Sofia', 'Moscow', 1800, Time.new(2013, 3, 3, 15),
+      Time.new(2013,3,3, 17), '130'.to_d, 'airplane ticket, fast'
+  end
+
+  # Tests
+
+  def test_criteria_from
+    assert Criteria.from('Haskovo').met_by? @haskovo_sofia
+    refute Criteria.from('qwe').met_by? @haskovo_sofia
+    refute Criteria.from('Sofia').met_by? @haskovo_sofia
+    assert Criteria.from('Sofia').met_by? @sofia_moscow
+    refute Criteria.from('Haskovo').met_by? @sofia_moscow
+    refute Criteria.from('12345').met_by? @sofia_moscow
+  end
+
+  def test_criteria_from
+    assert Criteria.to('Sofia').met_by? @haskovo_sofia
+    refute Criteria.to('Moscow').met_by? @haskovo_sofia
+    refute Criteria.to('qwe').met_by? @haskovo_sofia
+    assert Criteria.to('Moscow').met_by? @sofia_moscow
+    refute Criteria.to('Sofia').met_by? @sofia_moscow
+    refute Criteria.to('12345').met_by? @sofia_moscow
+  end
+
+  def test_criteria_price_from
+    assert Criteria.price_from('10'.to_d).met_by? @haskovo_sofia
+    refute Criteria.price_from('25'.to_d).met_by? @haskovo_sofia
+    assert Criteria.price_from('-5'.to_d).met_by? @haskovo_sofia
+    assert Criteria.price_from('100'.to_d).met_by? @sofia_moscow
+    refute Criteria.price_from('140'.to_d).met_by? @sofia_moscow
+    assert Criteria.price_from('0'.to_d).met_by? @sofia_moscow
+  end
+
+  def test_criteria_price_to
+    assert Criteria.price_to('30'.to_d).met_by? @haskovo_sofia
+    refute Criteria.price_to('15'.to_d).met_by? @haskovo_sofia
+    assert Criteria.price_to('100'.to_d).met_by? @haskovo_sofia
+    assert Criteria.price_to('300'.to_d).met_by? @sofia_moscow
+    refute Criteria.price_to('100'.to_d).met_by? @sofia_moscow
+    assert Criteria.price_to('140'.to_d).met_by? @sofia_moscow
+  end
+
+  def test_criteria_feature
+    assert Criteria.feature('fast').met_by? @sofia_moscow
+    assert Criteria.feature('fast').met_by? @haskovo_sofia
+    refute Criteria.feature('slow').met_by? @sofia_moscow
+    refute Criteria.feature('slow').met_by? @haskovo_sofia
+    assert Criteria.feature('airplane').met_by? @sofia_moscow
+    refute Criteria.feature('airplane').met_by? @haskovo_sofia
+  end
+
+  def test_criteria_departs_after
+    assert Criteria.departs_after(Time.new 2013, 3, 3, 10).met_by? @sofia_moscow
+    assert Criteria.departs_after(Time.new 2013, 3, 3, 11).met_by? @haskovo_sofia
+    refute Criteria.departs_after(Time.new 2013, 3, 3, 15).met_by? @sofia_moscow
+    refute Criteria.departs_after(Time.new 2013, 3, 3, 15).met_by? @haskovo_sofia
+    assert Criteria.departs_after(Time.new 2013, 3, 3, 14, 59).met_by? @sofia_moscow
+    refute Criteria.departs_after(Time.new 2013, 3, 3, 18).met_by? @haskovo_sofia
+  end
+
+  def test_criteria_departs_before
+    refute Criteria.departs_before(Time.new 2013, 3, 3, 10).met_by? @sofia_moscow
+    refute Criteria.departs_before(Time.new 2013, 3, 3, 11).met_by? @haskovo_sofia
+    refute Criteria.departs_before(Time.new 2013, 3, 3, 15).met_by? @sofia_moscow
+    refute Criteria.departs_before(Time.new 2013, 3, 3, 15).met_by? @haskovo_sofia
+    assert Criteria.departs_before(Time.new 2013, 3, 3, 15, 1).met_by? @sofia_moscow
+    refute Criteria.departs_before(Time.new 2013, 3, 3, 14, 59).met_by? @haskovo_sofia
+  end
+
+  def test_criteria_arrives_before
+    refute Criteria.arrives_before(Time.new 2013, 3, 3, 10).met_by? @sofia_moscow
+    assert Criteria.arrives_before(Time.new 2013, 3, 3, 18, 30).met_by? @haskovo_sofia
+    refute Criteria.arrives_before(Time.new 2013, 3, 3, 15, 10).met_by? @sofia_moscow
+    refute Criteria.arrives_before(Time.new 2013, 3, 3, 16).met_by? @haskovo_sofia
+    assert Criteria.arrives_before(Time.new 2013, 3, 3, 17, 1).met_by? @sofia_moscow
+    refute Criteria.arrives_before(Time.new 2013, 3, 3, 18).met_by? @haskovo_sofia
+  end
+
+  def test_criteria_arrives_after
+    assert Criteria.arrives_after(Time.new 2013, 3, 3, 15).met_by? @sofia_moscow
+    refute Criteria.arrives_after(Time.new 2013, 3, 3, 18, 30).met_by? @haskovo_sofia
+    assert Criteria.arrives_after(Time.new 2013, 3, 3, 14, 35).met_by? @sofia_moscow
+    assert Criteria.arrives_after(Time.new 2013, 3, 3, 16).met_by? @haskovo_sofia
+    refute Criteria.arrives_after(Time.new 2013, 3, 3, 17, 1).met_by? @sofia_moscow
+    assert Criteria.arrives_after(Time.new 2013, 3, 3, 17, 59).met_by? @haskovo_sofia
+  end
+
+  def test_criteria_conjunction
+    criteria = Criteria.to('Sofia') & Criteria.from('Haskovo')
+    assert criteria.met_by?(@haskovo_sofia)
+    refute criteria.met_by?(@sofia_moscow)
+
+    criteria = Criteria.to('Sofia') & Criteria.to('Haskovo')
+    refute criteria.met_by?(@haskovo_sofia)
+    refute criteria.met_by?(@sofia_moscow)
+  end
+
+  def test_criteria_conjunction
+    criteria = Criteria.to('Sofia') | Criteria.from('Haskovo')
+    assert criteria.met_by?(@haskovo_sofia)
+    refute criteria.met_by?(@sofia_moscow)
+
+    criteria = Criteria.to('Sofia') | Criteria.to('Moscow')
+    assert criteria.met_by?(@haskovo_sofia)
+    assert criteria.met_by?(@sofia_moscow)
+
+    criteria = Criteria.departs_after(Time.new 2015) | Criteria.departs_after(Time.new 2014)
+    refute criteria.met_by?(@haskovo_sofia)
+    refute criteria.met_by?(@sofia_moscow)
+  end
+
+  def test_negation
+    criteria = !Criteria.from('Haskovo')
+    refute criteria.met_by? @haskovo_sofia
+    assert criteria.met_by? @sofia_moscow
+
+    criteria = !Criteria.feature('lol')
+    assert criteria.met_by? @haskovo_sofia
+    assert criteria.met_by? @sofia_moscow
+
+    criteria = !Criteria.feature('airplane')
+    assert criteria.met_by? @haskovo_sofia
+    refute criteria.met_by? @sofia_moscow
+  end
+end

data/test/ticket_sales/data_models/data_models_test.rb

@@ -0,0 +1,24 @@
+require 'test_helper'
+
+
+class TestDataModels  < MiniTest::Unit::TestCase
+  include DataModels
+
+  def setup
+    DataMapper.finalize.auto_migrate!
+  end
+
+  def test_creating_data_objects
+    property = Property.create(count: 10, promotion_name: :percent, promotion_value: '10'.to_d)
+
+    ticket = Ticket.create(from: 'Haskovo', to: 'Ruse', distance: 230, departure_time: Time.new(2013, 3, 3, 14),
+      arrival_time: Time.new(2013, 3, 3, 19), price: '123'.to_d, features: 'lol', property: property)
+
+    assert_equal property, ticket.property
+
+    center = TicketCenter.create(tickets: [ticket])
+    assert_includes center.tickets, ticket
+    assert_equal center, TicketCenter.first
+    assert_equal property, TicketCenter.first.tickets.first.property
+  end
+end

data/test/ticket_sales/data_models/repository_test.rb

@@ -0,0 +1,94 @@
+require 'test_helper'
+
+class TestRepository  < MiniTest::Unit::TestCase
+  def setup
+    DataMapper.finalize.auto_migrate!
+
+    @center = TicketSales::TicketCenter.new
+    @haskovo_sofia = TicketSales::Ticket.build 'Haskovo', 'Sofia', 230, Time.new(2013, 3, 3, 15),
+      Time.new(2013, 3, 3, 18), '15'.to_d, 'fast, class A, cheap'
+    @sofia_ruse = TicketSales::Ticket.build 'Sofia', 'Ruse', 400, Time.new(2013, 3, 3, 19),
+      Time.new(2013, 3, 4), '15'.to_d, 'long'
+    @ruse_burgas = TicketSales::Ticket.build 'Ruse', 'Burgas', 500, Time.new(2013, 3, 4, 5),
+      Time.new(2013, 3, 4, 13), '35'.to_d, ''
+    @not_added = TicketSales::Ticket.build 'Burgas', 'Moscow', 1900, Time.new(2013, 3, 4, 6),
+      Time.new(2013, 3, 4, 17), '100'.to_d, ''
+
+    @center.add @haskovo_sofia, 10, TicketSales::Promotion.build(percent: 10)
+    @center.add @sofia_ruse, 15, TicketSales::Promotion.build(amount: 3)
+    @center.add @ruse_burgas, 10, TicketSales::Promotion.build(hour: 1)
+  end
+
+  def data_ticket_equals_normal_ticket?(ticket, property, data_ticket)
+    ticket.from == data_ticket.from and
+      ticket.to == data_ticket.to and
+      ticket.distance == data_ticket.distance and
+      ticket.departure_time == data_ticket.departure_time.to_time and
+      ticket.arrival_time == data_ticket.arrival_time.to_time and
+      ticket.price == data_ticket.price and
+      ticket.features == data_ticket.features and
+      property.count == data_ticket.property.count
+  end
+
+  # Tests
+
+  def test_persisting_a_ticket_center
+    DataModels::Repository.persist @center
+
+    center = DataModels::TicketCenter.get(1)
+    assert_respond_to center, :save
+    assert_respond_to center, :id
+    assert_respond_to center, :tickets
+    assert center.id
+
+    can_be_found = center.tickets.any? do |data_ticket|
+      data_ticket_equals_normal_ticket? @haskovo_sofia, @center.properties[@haskovo_sofia], data_ticket
+    end
+    assert can_be_found
+
+    can_be_found = center.tickets.any? do |data_ticket|
+      data_ticket_equals_normal_ticket? @sofia_ruse, @center.properties[@sofia_ruse], data_ticket
+    end
+    assert can_be_found
+
+    can_be_found = center.tickets.any? do |data_ticket|
+      data_ticket_equals_normal_ticket? @ruse_burgas, @center.properties[@ruse_burgas], data_ticket
+    end
+    assert can_be_found
+
+    can_be_found = center.tickets.any? do |data_ticket|
+      data_ticket_equals_normal_ticket? @not_added, @center.properties[@not_added], data_ticket
+    end
+    refute can_be_found
+  end
+
+  def test_finding_and_mapping_data_center_to_ticket_center
+    DataModels::Repository.persist @center
+    center_data = DataModels::Repository.find(1)
+
+    center = DataModels::Repository.ticket_center_from(center_data)
+    assert_respond_to center, :available?
+    assert_respond_to center, :add
+    assert_respond_to center, :sell
+
+    assert center.available? @haskovo_sofia, 10
+    assert center.available? @sofia_ruse, 15
+    assert center.available? @ruse_burgas, 10
+    refute center.available? @haskovo_sofia, 11
+    refute center.available? @sofia_ruse, 16
+    refute center.available? @ruse_burgas, 11
+    refute center.available? @not_added
+
+    assert_equal 10, center.properties[@haskovo_sofia].count
+    assert_kind_of TicketSales::Promotion::PercentOff, center.properties[@haskovo_sofia].promotion
+    assert_equal 10, center.properties[@haskovo_sofia].promotion.percent
+
+    assert_equal 15, center.properties[@sofia_ruse].count
+    assert_kind_of TicketSales::Promotion::AmountOff, center.properties[@sofia_ruse].promotion
+    assert_equal 3, center.properties[@sofia_ruse].promotion.amount
+
+    assert_equal 10, center.properties[@ruse_burgas].count
+    assert_kind_of TicketSales::Promotion::EveryHour, center.properties[@ruse_burgas].promotion
+    assert_equal 1, center.properties[@ruse_burgas].promotion.amount
+  end
+end

data/test/ticket_sales/promotion_test.rb

@@ -0,0 +1,115 @@
+require 'test_helper'
+
+class TestPromotions  < MiniTest::Unit::TestCase
+  def setup
+    @haskovo_sofia = TicketSales::Ticket.build 'Haskovo', 'Sofia', 230, Time.new(2013, 3, 3, 15),
+      Time.new(2013, 3, 3, 18), '15'.to_d, 'fast, class A, cheap'
+    @sofia_ruse = TicketSales::Ticket.build 'Sofia', 'Ruse', 400, Time.new(2013, 3, 3, 19),
+      Time.new(2013,3,4), '12'.to_d, 'long'
+    @ruse_burgas = TicketSales::Ticket.build 'Ruse', 'Burgas', 500, Time.new(2013, 3, 4, 5),
+      Time.new(2013, 3, 4, 13), '35'.to_d, ''
+    @burgas_moscow = TicketSales::Ticket.build 'Burgas', 'Moscow', 1900, Time.new(2013, 3, 4, 20),
+      Time.new(2013, 3, 4, 22), '120'.to_d, 'airplane'
+  end
+
+  # Tests
+
+  def test_bulding_promotion
+    percent_off = TicketSales::Promotion.build percent: 10
+    assert_kind_of TicketSales::Promotion::PercentOff, percent_off
+    assert_equal 10, percent_off.percent
+
+    amount_off = TicketSales::Promotion.build amount: 10
+    assert_kind_of TicketSales::Promotion::AmountOff, amount_off
+    assert_equal 10, amount_off.amount
+
+    amount_off_for_kilometers = TicketSales::Promotion.build hundred_kilometers: 15
+    assert_kind_of TicketSales::Promotion::EveryHundredthKilometer, amount_off_for_kilometers
+    assert_equal 15, amount_off_for_kilometers.amount
+
+    amount_off_for_stop = TicketSales::Promotion.build stop: 5
+    assert_kind_of TicketSales::Promotion::EveryStop, amount_off_for_stop
+    assert_equal 5, amount_off_for_stop.amount
+
+    amount_off_for_hour = TicketSales::Promotion.build hour: 2
+    assert_kind_of TicketSales::Promotion::EveryHour, amount_off_for_hour
+    assert_equal 2, amount_off_for_hour.amount
+  end
+
+  def test_promotion_percent_off
+    ten_percent_off = TicketSales::Promotion.build percent: 10
+    assert_equal '1.5'.to_d, ten_percent_off.discount(@haskovo_sofia)
+    assert_equal '1.2'.to_d, ten_percent_off.discount(@sofia_ruse)
+    assert_equal '3.5'.to_d, ten_percent_off.discount(@ruse_burgas)
+    assert_equal '12'.to_d, ten_percent_off.discount(@burgas_moscow)
+
+    twenty_five_percent_off = TicketSales::Promotion.build percent: 25
+    assert_equal '3.75'.to_d, twenty_five_percent_off.discount(@haskovo_sofia)
+    assert_equal '3'.to_d, twenty_five_percent_off.discount(@sofia_ruse)
+    assert_equal '8.75'.to_d, twenty_five_percent_off.discount(@ruse_burgas)
+    assert_equal '30'.to_d, twenty_five_percent_off.discount(@burgas_moscow)
+  end
+
+  def test_promotion_amount_off
+    thirteen_off = TicketSales::Promotion.build amount: 13
+    assert_equal '13'.to_d, thirteen_off.discount(@haskovo_sofia)
+    assert_equal '12'.to_d, thirteen_off.discount(@sofia_ruse)
+    assert_equal '13'.to_d, thirteen_off.discount(@ruse_burgas)
+    assert_equal '13'.to_d, thirteen_off.discount(@burgas_moscow)
+
+    twenty_off = TicketSales::Promotion.build amount: 20
+    assert_equal '15'.to_d, twenty_off.discount(@haskovo_sofia)
+    assert_equal '12'.to_d, twenty_off.discount(@sofia_ruse)
+    assert_equal '20'.to_d, twenty_off.discount(@ruse_burgas)
+    assert_equal '20'.to_d, twenty_off.discount(@burgas_moscow)
+  end
+
+  def test_promotion_amount_off_for_every_hundredth_kilometer
+    promotion = TicketSales::Promotion.build hundred_kilometers: 1
+    assert_equal '2'.to_d, promotion.discount(@haskovo_sofia)
+    assert_equal '4'.to_d, promotion.discount(@sofia_ruse)
+    assert_equal '5'.to_d, promotion.discount(@ruse_burgas)
+    assert_equal '19'.to_d, promotion.discount(@burgas_moscow)
+
+    promotion = TicketSales::Promotion.build hundred_kilometers: 5
+    assert_equal '10'.to_d, promotion.discount(@haskovo_sofia)
+    assert_equal '12'.to_d, promotion.discount(@sofia_ruse)
+    assert_equal '25'.to_d, promotion.discount(@ruse_burgas)
+    assert_equal '95'.to_d, promotion.discount(@burgas_moscow)
+  end
+
+  def test_promotion_amount_off_for_every_stop
+    promotion = TicketSales::Promotion.build stop: 2
+    assert_equal '0'.to_d, promotion.discount(@haskovo_sofia)
+    assert_equal '0'.to_d, promotion.discount(@sofia_ruse)
+    assert_equal '0'.to_d, promotion.discount(@ruse_burgas)
+    assert_equal '0'.to_d, promotion.discount(@burgas_moscow)
+    assert_equal '2'.to_d, promotion.discount(@haskovo_sofia.combine(@sofia_ruse))
+    assert_equal '4'.to_d, promotion.discount(@haskovo_sofia.combine(@sofia_ruse).combine(@ruse_burgas))
+
+    promotion = TicketSales::Promotion.build stop: 30
+    assert_equal '27'.to_d, promotion.discount(@haskovo_sofia.combine(@sofia_ruse))
+  end
+
+  def test_promotion_amount_off_for_every_hour
+    promotion = TicketSales::Promotion.build hour: 1
+    assert_equal '3'.to_d, promotion.discount(@haskovo_sofia)
+    assert_equal '5'.to_d, promotion.discount(@sofia_ruse)
+    assert_equal '8'.to_d, promotion.discount(@ruse_burgas)
+    assert_equal '2'.to_d, promotion.discount(@burgas_moscow)
+
+    promotion = TicketSales::Promotion.build hour: 4
+    assert_equal '12'.to_d, promotion.discount(@haskovo_sofia)
+    assert_equal '12'.to_d, promotion.discount(@sofia_ruse)
+    assert_equal '32'.to_d, promotion.discount(@ruse_burgas)
+    assert_equal '8'.to_d, promotion.discount(@burgas_moscow)
+  end
+
+  def test_no_promotion
+    no_promotion = TicketSales::Promotion.build
+    assert_equal '0'.to_d, no_promotion.discount(@haskovo_sofia)
+    assert_equal '0'.to_d, no_promotion.discount(@sofia_ruse)
+    assert_equal '0'.to_d, no_promotion.discount(@ruse_burgas)
+    assert_equal '0'.to_d, no_promotion.discount(@burgas_moscow)
+  end
+end