mhc 1.0.0

data/mhc.gemspec

@@ -0,0 +1,24 @@
+# coding: utf-8
+lib = File.expand_path('../lib', __FILE__)
+$LOAD_PATH.unshift(lib) unless $LOAD_PATH.include?(lib)
+require 'mhc/version'
+
+Gem::Specification.new do |spec|
+  spec.name          = "mhc"
+  spec.version       = Mhc::VERSION
+  spec.authors       = ["Yoshinari Nomura"]
+  spec.email         = ["nom@quickhack.net"]
+  spec.summary       = %q{Message Harmonized Calendaring}
+  spec.description   = %q{Message Harmonized Calendaring.}
+  spec.homepage      = "http://www.quickhack.net/mhc"
+  spec.license       = "BSD"
+
+  spec.files         = `git ls-files -z`.split("\x0")
+  spec.executables   = spec.files.grep(%r{^bin/}) { |f| File.basename(f) }
+  spec.test_files    = spec.files.grep(%r{^(test|spec|features)/})
+  spec.require_paths = ["lib"]
+
+  spec.add_development_dependency "bundler", "~> 1.5"
+  spec.add_development_dependency "rake"
+  spec.add_development_dependency "rspec"
+end

data/samples/DOT.mhc-config.yml

@@ -0,0 +1,116 @@
+################################################################
+# Setup config file ~/.mhc/config.yml
+#
+# Google Calendar URL for CalDAV is in the form of:
+#   https://www.google.com/calendar/dav/{calendar_id}/events
+#
+# calendar_id:
+#  for primary calendar is just your email address.
+#  for others will be in the form of:
+#    [long-string-of-characters]@group.calendar.google.com
+#
+# You can get them by clicking the down arrow next to your
+# calendar at calendar.google.com and selecting 'Calendar Settings'.
+# Be sure to use HTTPS in your URL, as an http address will not work.
+#
+# for more details about Google Calendar settings:
+#   http://www.google.com/support/calendar/bin/answer.py?answer=99358
+#   and click Sunbird section.
+#
+# Fill in the blanks indicated as *****,
+# and invoke the command:
+#
+#   % mhc sync personal
+#
+# Articles in past 90 days and future 90 days in MHC
+# will be mirrored to target Google Calendar.
+# (Hard-coded in lib/mhc/calendar.rb for now)
+# Also other articles in Google Calendar will be DELETED.
+#
+# Before the first try, I recommend you to
+# make a new calendar on your Google Calendar,
+# and backup MHC folder ~/Mai/schedule.
+#
+# Currently, the type of STRATEGY in SYNC_CHANNELS allows only "mirror"
+# from MHC to Google Calendar. We are planning to support the
+# true two-way sync soon.
+#
+---
+################################################################
+GENERAL:
+################################################################
+  TZID: "Asia/Tokyo"
+  REPOSITORY: ~/MHC
+
+################################################################
+SYNC_CHANNELS:
+################################################################
+
+- NAME: personal
+  CALENDAR1: personal
+  CALENDAR2: google_personal
+  STRATEGY: mirror
+
+- NAME: family
+  CALENDAR1: family
+  CALENDAR2: google_family
+  STRATEGY: mirror
+
+- NAME: business
+  CALENDAR1: business
+  CALENDAR2: google_business
+  STRATEGY: mirror
+
+################################################################
+CALENDARS:
+################################################################
+
+################################################################
+## MHC local
+
+# MHC: Master calendar (default)
+- &mhc_default
+  NAME: master
+  TYPE: mhc
+
+# MHC: Personal calendar mirroed to my Android
+- <<: *mhc_default
+  NAME: personal
+  FILTER: '!category:[birthday japanese]'
+
+# MHC: Published calendar to my colleagues
+- <<: *mhc_default
+  NAME: business
+  FILTER: '!category:[private japanese] & category:[lecture seminar conference meeting work event party trip holiday reserved task]'
+  MODIFIERS:
+  - hide_description
+  - hide_location
+  - replace_subject_by_category
+
+# MHC: Published calendar to my family
+- <<: *mhc_default
+  NAME: family
+  FILTER: '!category:[birthday japanese] & category:[work event party trip holiday private]'
+  MODIFIERS:
+  - hide_description
+
+################################################################
+## Google Calendar
+
+# Displayname: MHC
+- &google_default
+  NAME: google_personal
+  TYPE: caldav
+  USER: *********@gmail.com
+  PASSWORD: ***************
+  URL: https://calendar.google.com/calendar/dav/**************************@group.calendar.google.com/events/
+
+# Displayname: For Family
+- <<: *google_default
+  NAME: google_family
+  URL: https://calendar.google.com/calendar/dav/**************************@group.calendar.google.com/events/
+
+# Displayname: For Colleagues
+- <<: *google_default
+  NAME: google_business
+  URL: https://calendar.google.com/calendar/dav/**************************@group.calendar.google.com/events/

data/samples/japanese-holidays.mhcc

@@ -0,0 +1,153 @@
+##
+## Japanese Holidays
+##
+## Place this as ~/Mail/schedule/presets/japanese-holidays.mhcc
+##
+
+X-SC-Subject: 元日
+X-SC-Category: Holiday Japanese
+X-SC-Cond: 1 Jan
+X-SC-Record-Id: E2BAB555-3CEB-4508-96AD-1B59AA24ADC3
+
+X-SC-Subject: 成人の日
+X-SC-Category: Holiday Japanese
+X-SC-Cond: 15 Jan
+X-SC-Duration: -19990115
+X-SC-Record-Id: EA9F4BA5-7D5A-4794-AFB3-6AB68FCA9719
+
+X-SC-Subject: 成人の日
+X-SC-Category: Holiday Japanese
+X-SC-Cond: 2nd Mon Jan
+X-SC-Duration: 20000110-
+X-SC-Record-Id: 0BC2CBD0-D81E-4315-B9A8-E112C8E3DC1C
+
+X-SC-Subject: 建国記念の日
+X-SC-Category: Holiday Japanese
+X-SC-Cond: 11 Feb
+X-SC-Record-Id: AC1B378C-BAFE-4B6E-AF9C-78C2377E8AA4
+
+X-SC-Subject: みどりの日
+X-SC-Category: Holiday Japanese
+X-SC-Cond: 29 Apr
+X-SC-Duration: -20060429
+X-SC-Record-Id: B78EAAEE-9963-4573-9EC7-0879F8940AEE
+
+X-SC-Subject: 昭和の日
+X-SC-Category: Holiday Japanese
+X-SC-Cond: 29 Apr
+X-SC-Duration: 20070429-
+X-SC-Record-Id: A458E14C-960C-4F01-AF73-8ACB1B51A6A1
+
+X-SC-Subject: 憲法記念日
+X-SC-Category: Holiday Japanese
+X-SC-Cond: 3 May
+X-SC-Record-Id: BA89778E-E8CC-4588-B5C3-56F86483DEC1
+
+X-SC-Subject: 国民の休日
+X-SC-Category: Holiday Japanese
+X-SC-Cond: 4 May
+X-SC-Duration: -20060504
+X-SC-Record-Id: 46953810-BD72-45DE-BC11-104CBE970CFF
+
+X-SC-Subject: みどりの日
+X-SC-Category: Holiday Japanese
+X-SC-Cond: 4 May
+X-SC-Duration: 20070504-
+X-SC-Record-Id: 47938EDA-41A5-4E51-BDCB-2D3B60F49D71
+
+X-SC-Subject: こどもの日
+X-SC-Category: Holiday Japanese
+X-SC-Cond: 5 May
+X-SC-Record-Id: 4AE5568A-2DFE-4B6B-92E5-C4BFADFB2CCF
+
+X-SC-Subject: 海の日
+X-SC-Category: Holiday Japanese
+X-SC-Cond: 20 Jul
+X-SC-Duration: -20020720
+X-SC-Record-Id: 5E03776A-4280-4337-85C0-F1322A3AAE6E
+
+X-SC-Subject: 海の日
+X-SC-Category: Holiday Japanese
+X-SC-Cond: 3rd Mon Jul
+X-SC-Duration: 20030701-
+X-SC-Record-Id: BD4156C2-5546-4146-8297-09CF4210A346
+
+X-SC-Subject: 敬老の日
+X-SC-Category: Holiday Japanese
+X-SC-Cond: 15 Sep
+X-SC-Duration: -20020915
+X-SC-Record-Id: 29BC6E4E-0D70-4EF8-8AF0-7000254D3CDB
+
+X-SC-Subject: 敬老の日
+X-SC-Category: Holiday Japanese
+X-SC-Cond: 3rd Mon Sep
+X-SC-Duration: 20030901-
+X-SC-Record-Id: F303C1C9-01B0-437C-A2E2-BCD1ADD901F2
+
+X-SC-Subject: 体育の日
+X-SC-Category: Holiday Japanese
+X-SC-Cond: 10 Oct
+X-SC-Duration: -19991010
+X-SC-Record-Id: AFABC42C-2E9D-4093-A4AF-DA12D4D4B9D7
+
+X-SC-Subject: 体育の日
+X-SC-Category: Holiday Japanese
+X-SC-Cond: 2nd Mon Oct
+X-SC-Duration: 20001009-
+X-SC-Record-Id: C17D9CA5-28AF-4826-AD33-8B75473E5B52
+
+X-SC-Subject: 文化の日
+X-SC-Category: Holiday Japanese
+X-SC-Cond: 3 Nov
+X-SC-Record-Id: A76779D2-BB44-4ED5-ACF9-B646E10C7313
+
+X-SC-Subject: 勤労感謝の日
+X-SC-Category: Holiday Japanese
+X-SC-Cond: 23 Nov
+X-SC-Record-Id: 97E6F125-2625-44A9-8D43-A6FCA9670D8D
+
+X-SC-Subject: 天皇誕生日
+X-SC-Category: Holiday Japanese
+X-SC-Cond: 23 Dec
+X-SC-Record-Id: 51D42B0D-EF46-4D65-B62A-6ED2F0D1F0B5
+
+## 毎年変わる祝日と振替休日
+
+X-SC-Subject: 春分の日
+X-SC-Day: 19960320 19970320 19980321 19990321 20000320 20010320 20020321
+  20030321 20040320 20050320 20060321 20070321 20080320 20090320
+  20100321 20110321 20120320 20130320 20140321 20150321 20160320
+  20170320 20180321 20190321 20200320 20210320 20220321 20230321
+  20240320 20250320 20260320 20270321 20280320 20290320 20300320
+  20310321
+X-SC-Category: Holiday Japanese
+X-SC-Record-Id: 37616252-E6E5-4C69-9965-3F7B0236A0D8
+
+X-SC-Subject: 秋分の日
+X-SC-Day: 19960923 19970923 19980923 19990923 20000923 20010923 20020923
+  20030923 20040923 20050923 20060923 20070923 20080923 20090923
+  20100923 20110923 20120922 20130923 20140923 20150923 20160922
+  20170923 20180923 20190923 20200922 20210923 20220923 20230923
+  20240922 20250923 20260923 20270923 20280922 20290923 20300923
+  20310923
+X-SC-Category: Holiday Japanese
+X-SC-Record-Id: 54A339AD-F7FD-4E56-9B70-2D09F840E94D
+
+X-SC-Subject: 振替休日
+X-SC-Day: 19900212 19900430 19900924 19901224 19910506 19910916 19911104
+  19931011 19950102 19950116 19960212 19960506 19960916 19961104
+  19970721 19971124 19990322 19991011 20010212 20010430 20010924
+  20011224 20020506 20020916 20021104 20031124 20050321 20060102
+  20070212 20070430 20070924 20071224 20080506 20080721 20081124
+  20090506 20090922 20100322 20120102 20120430 20121224 20130506
+  20131104 20140506 20141124 20150506 20160321 20170102 20180212
+  20180430 20180924 20181224 20190506 20191104 20200506 20230102
+  20240212 20240506 20240923 20241104 20250506 20251124 20260506
+  20270322 20290212 20290430 20290924 20291224 20300506 20301104
+  20310506 20311124
+X-SC-Category: Holiday Japanese
+X-SC-Record-Id: E2D696DF-EB49-44D7-B06C-812B10BD99A2
+
+## Make sure you have at least one blank line for each entry (改行で終わる)
+
+## EOF

data/samples/mhc-completions.zsh

@@ -0,0 +1,11 @@
+compdef _mhc mhc
+
+_mhc () {
+  local curcontext="$curcontext"
+  local line state _opts
+
+  _opts=("${(@f)$(mhc completions -- ${(Q)words[2,-1]})}")
+  $_opts && return 0
+
+  return 1
+}

data/spec/mhc_spec.rb

@@ -0,0 +1,682 @@
+require 'spec_helper'
+
+### Rspec file for MHC
+
+describe Mhc do
+  it 'should have a version number' do
+    expect(Mhc::VERSION).not_to be_nil
+  end
+end
+
+describe Mhc::PropertyValue::Date do
+  it "should parse 'today'" do
+    expect(Mhc::PropertyValue::Date.parse_relative("today")).to eq(Date.today)
+  end
+end
+
+describe Mhc::Converter::Emacs do
+  it "should convert a Ruby Hash to Emacs plist" do
+    hash = {
+      :title       => "\\a\"",
+      :start_date  => "b\"b",
+      :start_time  => "c",
+      :end_date    => "d",
+      :end_time    => "e",
+      :description => "f",
+      :location    => "g",
+      :source      => "h"
+    }
+    expect(Mhc::Converter::Emacs.new.to_emacs(hash)).to eq '(:title "\\\\a\\"" :start-date "b\\"b" :start-time "c" :end-date "d" :end-time "e" :description "f" :location "g" :source "h")'
+  end
+end
+
+describe Mhc::Event do
+  before :all do
+    ENV["MHC_TZID"] = 'UTC'
+    Mhc.default_tzid = ENV["MHC_TZID"]
+  end
+
+  before :each do
+    time_now = ::Time.utc(2014, 1, 1)
+    allow(::Time).to receive(:now).and_return(time_now)
+  end
+
+  it "should parse a string and dump to the same string" do
+    str = <<-EOF.strip_heredoc
+      X-SC-Subject: Weekly Event on Monday and Thursday
+      X-SC-Location: Office
+      X-SC-Day: !20140410
+      X-SC-Time: 12:40-14:10
+      X-SC-Category: Work
+      X-SC-Mission-Tag: TEST-Mission
+      X-SC-Recurrence-Tag: TEST
+      X-SC-Cond: Mon Thu
+      X-SC-Duration: 20140401-20140430
+      X-SC-Alarm: 5 minutes
+      X-SC-Record-Id: FEDA4C97-21C2-46AA-A395-075856FBD5C3
+      X-SC-Sequence: 0
+
+      this is description
+    EOF
+    ev = Mhc::Event.parse(str)
+    expect(ev.dump).to eq str
+  end
+
+  it "should parse a string and dump to the same string even if all values are empty" do
+    str = <<-EOF.strip_heredoc
+      X-SC-Subject: 
+      X-SC-Location: 
+      X-SC-Day: 
+      X-SC-Time: 
+      X-SC-Category: 
+      X-SC-Mission-Tag: 
+      X-SC-Recurrence-Tag: 
+      X-SC-Cond: 
+      X-SC-Duration: 
+      X-SC-Alarm: 
+      X-SC-Record-Id: 
+      X-SC-Sequence: 0
+
+    EOF
+    ev = Mhc::Event.parse(str)
+    expect(ev.dump).to eq str
+  end
+
+  it "should parse a string and dump to the same string even if some fields has hanging strings" do
+    str = <<-EOF.strip_heredoc
+      X-SC-Subject: Autumnal Equinox Day
+      X-SC-Location: 
+      X-SC-Day: 19960923 19970923 19980923 19990923 20000923 20010923 20020923
+        20030923 20040923 20050923 20060923 20070923 20080923 20090923
+        20100923 20110923 20120922 20130923 20140923 20150923 20160922
+        20170923 20180923 20190923 20200922 20210923 20220923 20230923
+        20240922 20250923 20260923 20270923 20280922 20290923 20300923
+        20310923
+      X-SC-Time: 
+      X-SC-Category: Holiday
+                     Japanese
+      X-SC-Mission-Tag: 
+      X-SC-Recurrence-Tag: 
+      X-SC-Cond: 
+      X-SC-Duration: 
+      X-SC-Alarm: 
+      X-SC-Record-Id: 54A339AD-F7FD-4E56-9B70-2D09F840E94D
+      X-SC-Sequence: 0
+
+    EOF
+
+    dump_str = <<-EOF.strip_heredoc
+      X-SC-Subject: Autumnal Equinox Day
+      X-SC-Location: 
+      X-SC-Day: 19960923 19970923 19980923 19990923 20000923 20010923 20020923 20030923 20040923 20050923 20060923 20070923 20080923 20090923 20100923 20110923 20120922 20130923 20140923 20150923 20160922 20170923 20180923 20190923 20200922 20210923 20220923 20230923 20240922 20250923 20260923 20270923 20280922 20290923 20300923 20310923
+      X-SC-Time: 
+      X-SC-Category: Holiday Japanese
+      X-SC-Mission-Tag: 
+      X-SC-Recurrence-Tag: 
+      X-SC-Cond: 
+      X-SC-Duration: 
+      X-SC-Alarm: 
+      X-SC-Record-Id: 54A339AD-F7FD-4E56-9B70-2D09F840E94D
+      X-SC-Sequence: 0
+
+    EOF
+    ev = Mhc::Event.parse(str)
+    expect(ev.dump).to eq dump_str
+  end
+
+
+
+  it "should occur weekly on Monday and Thursday from 2014-04-01 to 2014-04-30 with exception of 2014-04-10 (Thu)" do
+    ev = Mhc::Event.parse <<-EOF.strip_heredoc
+      X-SC-Subject: Weekly Event on Monday and Thursday
+      X-SC-Location: Office
+      X-SC-Day: !20140410
+      X-SC-Time: 12:40-14:10
+      X-SC-Category: Work
+      X-SC-Cond: Mon Thu
+      X-SC-Duration: 20140401-20140430
+      X-SC-Record-Id: FEDA4C97-21C2-46AA-A395-075856FBD5C3
+    EOF
+    from = Mhc::PropertyValue::Date.new(2014,04,7)
+    to   = Mhc::PropertyValue::Date.new(2014,04,24)
+    # range.first is effective in narrowing the scan region so we will not have "2014-04-03"
+    expect(ev.occurrences(range:from..to).take(30).map{|occurrence| occurrence.date.to_s}).to eq \
+      ["20140407", "20140414", "20140417", "20140421", "20140424"]
+  end
+
+  it "should occur yearly on March 21" do
+    ev = Mhc::Event.parse <<-EOF.strip_heredoc
+      X-SC-Subject: Yearly Event on 21 March
+      X-SC-Location: Office
+      X-SC-Day:
+      X-SC-Time: 12:40-14:10
+      X-SC-Category: Work
+      X-SC-Cond: Mar 21
+      X-SC-Duration: 20140401-20200401
+      X-SC-Record-Id: FEDA4C97-21C2-46AA-A395-075856FBD5C3
+    EOF
+    expect(ev.occurrences.take(30).map{|o| o.date.to_s}).to eq \
+      ["20150321", "20160321", "20170321", "20180321", "20190321", "20200321"]
+  end
+
+  it "should show single day in X-SC-Day:" do
+    ev = Mhc::Event.parse <<-EOF.strip_heredoc
+      X-SC-Subject: Party
+      X-SC-Day: 20140509
+      X-SC-Time: 18:00-22:00
+      X-SC-Record-Id: 1653B99D-DED2-4758-934F-B868BFCA9E9F
+    EOF
+    expect(ev.occurrences.take(30).map{|o| o.date.to_s}).to eq \
+      ["20140509"]
+  end
+
+  it "should show three enumerated days listed in X-SC-Day:" do
+    ev = Mhc::Event.parse <<-EOF.strip_heredoc
+      X-SC-Subject: Three enumerated events in X-SC-Day:
+      X-SC-Day: 20140203 20140509 20140831 20140901-20140902
+      X-SC-Duration: 20140101-20141231
+      X-SC-Record-Id: FEDA4C97-21C2-46AA-A395-075856FBD5C3
+    EOF
+    expect(ev.occurrences.take(30).map{|o| o.to_s}).to eq \
+      ["20140203", "20140509", "20140831", "20140901-20140902"]
+  end
+
+  it "should show three day's event even if scan range is started from the middle of event" do
+    ev = Mhc::Event.parse <<-EOF.strip_heredoc
+      X-SC-Subject: Three day's event
+      X-SC-Day: 20140514-20140516
+    EOF
+    from = Mhc::PropertyValue::Date.new(2014, 5, 15)
+    to   = Mhc::PropertyValue::Date.new(2014, 5, 16)
+    expect(ev.occurrences(range:from..to).take(30).map{|o| o.to_s}).to eq \
+      ["20140514-20140516"]
+  end
+
+  it "should produce a list of occurrences, and each occurrence has different date" do
+    ev = Mhc::Event.parse <<-EOF.strip_heredoc
+      X-SC-Subject: TEST
+      X-SC-Time: 10:00-12:00
+      X-SC-Day: 20140203 20140509 20140831
+      X-SC-Duration: 20140101-20141231
+      X-SC-Record-Id: FEDA4C97-21C2-46AA-A395-075856FBD5C3
+    EOF
+    expect(ev.occurrences.take(30).map{|o| "#{o.date} #{o.time_range} #{o.subject}"}).to eq \
+      ["20140203 10:00-12:00 TEST", "20140509 10:00-12:00 TEST", "20140831 10:00-12:00 TEST"]
+  end
+
+  it "should return true when #allday? is called if X-SC-Time: is blank" do
+    ev = Mhc::Event.parse <<-EOF.strip_heredoc
+      X-SC-Subject: TEST
+      X-SC-Time:
+      X-SC-Day: 20140203 20140509 20140831
+      X-SC-Duration: 20140101-20141231
+      X-SC-Record-Id: FEDA4C97-21C2-46AA-A395-075856FBD5C3
+    EOF
+    expect(ev.occurrences.take(30).all? {|o| o.allday? }).to eq true
+  end
+
+  it "should return false when #allday? is called if X-SC-Time: is not blank" do
+    ev = Mhc::Event.parse <<-EOF.strip_heredoc
+      X-SC-Subject: TEST
+      X-SC-Time: 10:00-12:00
+      X-SC-Day: 20140203 20140509 20140831
+      X-SC-Duration: 20140101-20141231
+      X-SC-Record-Id: FEDA4C97-21C2-46AA-A395-075856FBD5C3
+    EOF
+    expect(ev.occurrences.take(30).all? {|o| not o.allday? }).to eq true
+  end
+
+  it "should return almost infinit number of entries: 1970-1-1 to 50 years future, if X-SC-Duration: is empty" do
+    ev = Mhc::Event.parse <<-EOF.strip_heredoc
+      X-SC-Subject: New Year Day
+      X-SC-Cond: 1 Jan
+      X-SC-Duration:
+      X-SC-Record-Id: FEDA4C97-21C2-46AA-A395-075856FBD5C3
+    EOF
+    times = Date.today.year + 50 - Date.new(1970, 1, 1).year + 1
+    expect(ev.occurrences.map{|o| o.date.to_s}.length).to eq times
+  end
+
+  it "should return ``yearly by monthday'' icalendar rrule string" do
+    ev = Mhc::Event.parse <<-EOF.strip_heredoc
+      X-SC-Subject: New Year Day
+      X-SC-Cond: 1 Jan
+      X-SC-Duration:
+      X-SC-Record-Id: FEDA4C97-21C2-46AA-A395-075856FBD5C3
+    EOF
+    expect(ev.recurrence_condition.to_ics).to eq "FREQ=YEARLY;INTERVAL=1;WKST=MO;BYMONTH=1;BYMONTHDAY=1"
+  end
+
+  it "should return ``yearly by day'' icalendar rrule string" do
+    ev = Mhc::Event.parse <<-EOF.strip_heredoc
+      X-SC-Subject: Mother's Day
+      X-SC-Cond: 2nd Sun May
+      X-SC-Duration:
+      X-SC-Record-Id: FEDA4C97-21C2-46AA-A395-075856FBD5C3
+    EOF
+    expect(ev.recurrence_condition.to_ics).to eq "FREQ=YEARLY;INTERVAL=1;WKST=MO;BYMONTH=5;BYDAY=2SU"
+  end
+
+  it "should return ``weekly'' icalendar rrule string" do
+    ev = Mhc::Event.parse <<-EOF.strip_heredoc
+      X-SC-Subject: Wednesday and Sunday Weekly event
+      X-SC-Cond: Wed Sun
+      X-SC-Duration: 20140401-20140424
+      X-SC-Record-Id: FEDA4C97-21C2-46AA-A395-075856FBD5C3
+    EOF
+    expect(ev.recurrence_condition.to_ics(nil, ev.duration.last)).to eq "FREQ=WEEKLY;INTERVAL=1;WKST=MO;BYDAY=WE,SU;UNTIL=20140424"
+  end
+
+  it "should return icalendar VEVENT string with RRULE field" do
+    ev = Mhc::Event.parse <<-EOF.strip_heredoc
+      X-SC-Subject: Wednesday and Sunday Weekly event
+      X-SC-Cond: Wed Sun
+      X-SC-Category: Work
+      X-SC-Location: Office
+      X-SC-Duration: 20140401-20140424
+      X-SC-Record-Id: FEDA4C97-21C2-46AA-A395-075856FBD5C3
+
+      this is description
+    EOF
+    expect(ev.to_ics).to eq <<-'EOF'.strip_heredoc
+      BEGIN:VEVENT
+      CREATED;VALUE=DATE-TIME:20140101T000000Z
+      DTEND;VALUE=DATE:20140403
+      DTSTART;VALUE=DATE:20140402
+      DTSTAMP;VALUE=DATE-TIME:20140101T000000Z
+      CATEGORIES:Work
+      LAST-MODIFIED;VALUE=DATE-TIME:20140101T000000Z
+      UID:FEDA4C97-21C2-46AA-A395-075856FBD5C3
+      DESCRIPTION:this is description\n
+      SUMMARY:Wednesday and Sunday Weekly event
+      RRULE:FREQ=WEEKLY;INTERVAL=1;WKST=MO;BYDAY=WE,SU;UNTIL=20140424
+      LOCATION:Office
+      SEQUENCE:0
+      END:VEVENT
+    EOF
+  end
+
+  it "should return icalendar VEVENT string taking DTSTART from the first entry of X-SC-Day: and RDATE from remains" do
+    ev = Mhc::Event.parse <<-EOF.strip_heredoc
+      X-SC-Subject: thee events on 20140203 20140509 20140831
+      X-SC-Day: 20140203 20140509 20140831
+      X-SC-Record-Id: FEDA4C97-21C2-46AA-A395-075856FBD5C3
+
+      this is description
+    EOF
+    expect(ev.to_ics).to eq <<-'EOF'.strip_heredoc
+      BEGIN:VEVENT
+      RDATE;VALUE=DATE:20140509,20140831
+      CREATED;VALUE=DATE-TIME:20140101T000000Z
+      DTEND;VALUE=DATE:20140204
+      DTSTART;VALUE=DATE:20140203
+      DTSTAMP;VALUE=DATE-TIME:20140101T000000Z
+      LAST-MODIFIED;VALUE=DATE-TIME:20140101T000000Z
+      UID:FEDA4C97-21C2-46AA-A395-075856FBD5C3
+      DESCRIPTION:this is description\n
+      SUMMARY:thee events on 20140203 20140509 20140831
+      SEQUENCE:0
+      END:VEVENT
+    EOF
+  end
+
+  it "should return icalendar VEVENT string taking EXDATE from the entries of X-SC-Day: !YYYYMMDD" do
+    ev = Mhc::Event.parse <<-EOF.strip_heredoc
+      X-SC-Subject: Wednesdays in 2014-04 (2, 9, 16, ..., 30) with exceptions of 2, 16
+      X-SC-Cond: Wed
+      X-SC-Duration: 20140401-20140430
+      X-SC-Day: !20140402 !20140416
+      X-SC-Record-Id: FEDA4C97-21C2-46AA-A395-075856FBD5C3
+
+      this is description
+    EOF
+    expect(ev.to_ics).to eq <<-'EOF'.strip_heredoc
+      BEGIN:VEVENT
+      EXDATE;VALUE=DATE:20140402,20140416
+      CREATED;VALUE=DATE-TIME:20140101T000000Z
+      DTEND;VALUE=DATE:20140403
+      DTSTART;VALUE=DATE:20140402
+      DTSTAMP;VALUE=DATE-TIME:20140101T000000Z
+      LAST-MODIFIED;VALUE=DATE-TIME:20140101T000000Z
+      UID:FEDA4C97-21C2-46AA-A395-075856FBD5C3
+      DESCRIPTION:this is description\n
+      SUMMARY:Wednesdays in 2014-04 (2\, 9\, 16\, ...\, 30) with exceptions of 2\, 16
+      RRULE:FREQ=WEEKLY;INTERVAL=1;WKST=MO;BYDAY=WE;UNTIL=20140430
+      SEQUENCE:0
+      END:VEVENT
+    EOF
+  end
+
+  it "should return icalendar VEVENT string taking EXDATE from the entries of X-SC-Day: !YYYYMMDD and X-SC-Time:" do
+    ev = Mhc::Event.parse <<-EOF.strip_heredoc
+      X-SC-Subject: CS1
+      X-SC-Time: 08:40-10:10
+      X-SC-Category: Lecture
+      X-SC-Day: !20140514
+      X-SC-Cond: Wed
+      X-SC-Duration: 20140409-20140723
+      X-SC-Record-Id: 69CFD0DF-4058-425B-8C2B-40D81E6A2392
+    EOF
+    expect(ev.to_ics).to eq <<-'EOF'.strip_heredoc
+      BEGIN:VEVENT
+      EXDATE;VALUE=DATE-TIME:20140514T084000Z
+      CREATED;VALUE=DATE-TIME:20140101T000000Z
+      DTEND;VALUE=DATE-TIME:20140409T101000Z
+      DTSTART;VALUE=DATE-TIME:20140409T084000Z
+      DTSTAMP;VALUE=DATE-TIME:20140101T000000Z
+      CATEGORIES:Lecture
+      LAST-MODIFIED;VALUE=DATE-TIME:20140101T000000Z
+      UID:69CFD0DF-4058-425B-8C2B-40D81E6A2392
+      DESCRIPTION:
+      SUMMARY:CS1
+      RRULE:FREQ=WEEKLY;INTERVAL=1;WKST=MO;BYDAY=WE;UNTIL=20140723T084000Z
+      SEQUENCE:0
+      END:VEVENT
+    EOF
+  end
+
+  it "should return icalendar VEVENT over 24h event" do
+    ev = Mhc::Event.parse <<-EOF.strip_heredoc
+      X-SC-Subject: CS1
+      X-SC-Time: 12:00-10:10
+      X-SC-Day: 20140508-20140509
+      X-SC-Record-Id: 69CFD0DF-4058-425B-8C2B-40D81E6A2392
+    EOF
+    expect(ev.to_ics).to eq <<-'EOF'.strip_heredoc
+      BEGIN:VEVENT
+      CREATED;VALUE=DATE-TIME:20140101T000000Z
+      DTEND;VALUE=DATE-TIME:20140509T101000Z
+      DTSTART;VALUE=DATE-TIME:20140508T120000Z
+      DTSTAMP;VALUE=DATE-TIME:20140101T000000Z
+      LAST-MODIFIED;VALUE=DATE-TIME:20140101T000000Z
+      UID:69CFD0DF-4058-425B-8C2B-40D81E6A2392
+      DESCRIPTION:
+      SUMMARY:CS1
+      SEQUENCE:0
+      END:VEVENT
+    EOF
+  end
+
+  it "should return icalendar VEVENT two day's allday event" do
+    ev = Mhc::Event.parse <<-EOF.strip_heredoc
+      X-SC-Subject: CS1
+      X-SC-Day: 20140508-20140509
+      X-SC-Record-Id: 69CFD0DF-4058-425B-8C2B-40D81E6A2392
+    EOF
+    expect(ev.to_ics).to eq <<-'EOF'.strip_heredoc
+      BEGIN:VEVENT
+      CREATED;VALUE=DATE-TIME:20140101T000000Z
+      DTEND;VALUE=DATE:20140510
+      DTSTART;VALUE=DATE:20140508
+      DTSTAMP;VALUE=DATE-TIME:20140101T000000Z
+      LAST-MODIFIED;VALUE=DATE-TIME:20140101T000000Z
+      UID:69CFD0DF-4058-425B-8C2B-40D81E6A2392
+      DESCRIPTION:
+      SUMMARY:CS1
+      SEQUENCE:0
+      END:VEVENT
+    EOF
+  end
+
+  it "should convert 2014-03-11 10:30-12:00 (+0900 Asia/Tokyo) event to UTC Event" do
+    ev = Mhc::Event.new_from_ics <<-EOF.strip_heredoc
+      BEGIN:VCALENDAR
+      PRODID;X-RICAL-TZSOURCE=TZINFO:-//Quickhack.net//MHC 0.25.0//EN
+      CALSCALE:GREGORIAN
+      VERSION:2.0
+      BEGIN:VEVENT
+      CREATED;VALUE=DATE-TIME:20140101T000000Z
+      DTSTART;TZID=Asia/Tokyo;VALUE=DATE-TIME:20100311T103000
+      DTEND;TZID=Asia/Tokyo;VALUE=DATE-TIME:20100311T120000
+      DTSTAMP;VALUE=DATE-TIME:20140101T000000Z
+      LAST-MODIFIED;VALUE=DATE-TIME:20140101T000000Z
+      UID:69CFD0DF-4058-425B-8C2B-40D81E6A2392
+      DESCRIPTION:This is Description.
+      SUMMARY:CS1
+      SEQUENCE:0
+      END:VEVENT
+      END:VCALENDAR
+    EOF
+    expect(ev.dump).to eq <<-'EOF'.strip_heredoc
+      X-SC-Subject: CS1
+      X-SC-Location: 
+      X-SC-Day: 20100311
+      X-SC-Time: 01:30-03:00
+      X-SC-Category: 
+      X-SC-Mission-Tag: 
+      X-SC-Recurrence-Tag: 
+      X-SC-Cond: 
+      X-SC-Duration: 
+      X-SC-Alarm: 
+      X-SC-Record-Id: 69CFD0DF-4058-425B-8C2B-40D81E6A2392
+      X-SC-Sequence: 0
+
+      This is Description.
+    EOF
+  end
+
+  it "should convert 2014-10-18 22:00-23:00 (Asia/Tokyo) iCalendar to 2014-10-18 15:00-16:00 (Europe/Paris) MHC Event" do
+    Mhc.default_tzid = "Europe/Paris"
+    ev = Mhc::Event.new_from_ics <<-EOF.strip_heredoc
+      BEGIN:VCALENDAR
+      PRODID;X-RICAL-TZSOURCE=TZINFO:-//Quickhack.net//MHC 0.25.0//EN
+      CALSCALE:GREGORIAN
+      VERSION:2.0
+      BEGIN:VEVENT
+      DTSTART;TZID=Asia/Tokyo;VALUE=DATE-TIME:20141018T220000
+      DTEND;VALUE=DATE-TIME:20141018T140000Z
+      UID:69CFD0DF-4058-425B-8C2B-40D81E6A2392
+      DESCRIPTION:This is Description.
+      SUMMARY:CS1
+      SEQUENCE:0
+      END:VEVENT
+      END:VCALENDAR
+    EOF
+    expect(ev.dump).to eq <<-'EOF'.strip_heredoc
+      X-SC-Subject: CS1
+      X-SC-Location: 
+      X-SC-Day: 20141018
+      X-SC-Time: 15:00-16:00
+      X-SC-Category: 
+      X-SC-Mission-Tag: 
+      X-SC-Recurrence-Tag: 
+      X-SC-Cond: 
+      X-SC-Duration: 
+      X-SC-Alarm: 
+      X-SC-Record-Id: 69CFD0DF-4058-425B-8C2B-40D81E6A2392
+      X-SC-Sequence: 0
+
+      This is Description.
+    EOF
+  end
+
+  it "should create all-day event 20140508-20140509 from iCalendar" do
+    ev = Mhc::Event.new_from_ics <<-EOF.strip_heredoc
+      BEGIN:VCALENDAR
+      PRODID;X-RICAL-TZSOURCE=TZINFO:-//Quickhack.net//MHC 0.25.0//EN
+      CALSCALE:GREGORIAN
+      VERSION:2.0
+      BEGIN:VEVENT
+      CREATED;VALUE=DATE-TIME:20140101T000000Z
+      DTEND;VALUE=DATE:20140510
+      DTSTART;VALUE=DATE:20140508
+      DTSTAMP;VALUE=DATE-TIME:20140101T000000Z
+      LAST-MODIFIED;VALUE=DATE-TIME:20140101T000000Z
+      UID:69CFD0DF-4058-425B-8C2B-40D81E6A2392
+      DESCRIPTION:This is Description.
+      SUMMARY:CS1
+      SEQUENCE:0
+      END:VEVENT
+      END:VCALENDAR
+    EOF
+    expect(ev.dump).to eq <<-'EOF'.strip_heredoc
+      X-SC-Subject: CS1
+      X-SC-Location: 
+      X-SC-Day: 20140508-20140509
+      X-SC-Time: 
+      X-SC-Category: 
+      X-SC-Mission-Tag: 
+      X-SC-Recurrence-Tag: 
+      X-SC-Cond: 
+      X-SC-Duration: 
+      X-SC-Alarm: 
+      X-SC-Record-Id: 69CFD0DF-4058-425B-8C2B-40D81E6A2392
+      X-SC-Sequence: 0
+
+      This is Description.
+    EOF
+  end
+
+  it "should create recurrence condition from iCalendar string" do
+    ev = Mhc::Event.new_from_ics <<-EOF.strip_heredoc
+      BEGIN:VCALENDAR
+      PRODID;X-RICAL-TZSOURCE=TZINFO:-//Quickhack.net//MHC 0.25.0//EN
+      CALSCALE:GREGORIAN
+      VERSION:2.0
+      BEGIN:VEVENT
+      CREATED;VALUE=DATE-TIME:20140101T000000Z
+      DTEND;VALUE=DATE:20140403
+      DTSTART;VALUE=DATE:20140402
+      DTSTAMP;VALUE=DATE-TIME:20140101T000000Z
+      CATEGORIES:Work
+      LAST-MODIFIED;VALUE=DATE-TIME:20140101T000000Z
+      UID:FEDA4C97-21C2-46AA-A395-075856FBD5C3
+      DESCRIPTION:this is description\n
+      SUMMARY:Wednesday and Sunday Weekly event
+      RRULE:FREQ=WEEKLY;INTERVAL=1;WKST=MO;BYDAY=WE,SU;UNTIL=20140424
+      LOCATION:Office
+      SEQUENCE:0
+      END:VEVENT
+      END:VCALENDAR
+    EOF
+    expect(ev.dump).to eq <<-'EOF'.strip_heredoc
+      X-SC-Subject: Wednesday and Sunday Weekly event
+      X-SC-Location: Office
+      X-SC-Day: 
+      X-SC-Time: 
+      X-SC-Category: Work
+      X-SC-Mission-Tag: 
+      X-SC-Recurrence-Tag: 
+      X-SC-Cond: Wed Sun
+      X-SC-Duration: 20140402-20140424
+      X-SC-Alarm: 
+      X-SC-Record-Id: FEDA4C97-21C2-46AA-A395-075856FBD5C3
+      X-SC-Sequence: 0
+
+      this is description
+    EOF
+  end
+
+  it "should create recurrence condition from iCalendar string with RDATE" do
+    Mhc.default_tzid = "Asia/Tokyo"
+    ev = Mhc::Event.new_from_ics <<-EOF.strip_heredoc
+      BEGIN:VCALENDAR
+      BEGIN:VEVENT
+      RDATE;TZID=Asia/Tokyo;VALUE=DATE-TIME:20141114T124500
+      EXDATE;TZID=Asia/Tokyo;VALUE=DATE-TIME:20141022T124500,20141119T124500,20
+       141231T124500,20150107T124500
+      CREATED;VALUE=DATE-TIME:20140924T004619Z
+      DTEND;TZID=Asia/Tokyo;VALUE=DATE-TIME:20141001T141500
+      DTSTART;TZID=Asia/Tokyo;VALUE=DATE-TIME:20141001T124500
+      DTSTAMP;VALUE=DATE-TIME:20141017T061129Z
+      CATEGORIES:Lecture
+      LAST-MODIFIED;VALUE=DATE-TIME:20140924T004619Z
+      UID:FEDA4C97-21C2-46AA-A395-075856FBD5C3
+      DESCRIPTION:this is description\n
+      SUMMARY:PP
+      RRULE:FREQ=WEEKLY;INTERVAL=1;WKST=MO;BYDAY=WE;UNTIL=20150128T034500Z
+      LOCATION:Room11
+      SEQUENCE:4
+      END:VEVENT
+      END:VCALENDAR
+    EOF
+    expect(ev.dump).to eq <<-'EOF'.strip_heredoc
+      X-SC-Subject: PP
+      X-SC-Location: Room11
+      X-SC-Day: 20141114 !20141022 !20141119 !20141231 !20150107
+      X-SC-Time: 12:45-14:15
+      X-SC-Category: Lecture
+      X-SC-Mission-Tag: 
+      X-SC-Recurrence-Tag: 
+      X-SC-Cond: Wed
+      X-SC-Duration: 20141001-20150128
+      X-SC-Alarm: 
+      X-SC-Record-Id: FEDA4C97-21C2-46AA-A395-075856FBD5C3
+      X-SC-Sequence: 4
+
+      this is description
+    EOF
+  end
+
+  it "should create duration-end considering timezone" do
+    Mhc.default_tzid = "Asia/Tokyo"
+    ev = Mhc::Event.new_from_ics <<-EOF.strip_heredoc
+      BEGIN:VCALENDAR
+      BEGIN:VEVENT
+      EXDATE;TZID=Asia/Tokyo;VALUE=DATE-TIME:20140514T084000,20140723T084000
+      DTEND;TZID=Asia/Tokyo;VALUE=DATE-TIME:20140409T101000
+      DTSTART;VALUE=DATE-TIME:20140408T234000Z
+      CATEGORIES:Lecture
+      UID:FEDA4C97-21C2-46AA-A395-075856FBD5C3
+      DESCRIPTION:this is description\n
+      SUMMARY:CS1
+      RRULE:FREQ=WEEKLY;INTERVAL=1;WKST=MO;BYDAY=WE;UNTIL=20140729T234000Z
+      LOCATION:Room11
+      SEQUENCE:4
+      END:VEVENT
+      END:VCALENDAR
+    EOF
+    expect(ev.dump).to eq <<-'EOF'.strip_heredoc
+      X-SC-Subject: CS1
+      X-SC-Location: Room11
+      X-SC-Day: !20140514 !20140723
+      X-SC-Time: 08:40-10:10
+      X-SC-Category: Lecture
+      X-SC-Mission-Tag: 
+      X-SC-Recurrence-Tag: 
+      X-SC-Cond: Wed
+      X-SC-Duration: 20140409-20140730
+      X-SC-Alarm: 
+      X-SC-Record-Id: FEDA4C97-21C2-46AA-A395-075856FBD5C3
+      X-SC-Sequence: 4
+
+      this is description
+    EOF
+  end
+end
+
+describe RiCal do
+  it "creates RiCal::Event form ics string" do
+    Mhc.default_tzid = "Asia/Tokyo"
+    ics = RiCal.parse_string <<-EOF.strip_heredoc
+      BEGIN:VCALENDAR
+      BEGIN:VEVENT
+      EXDATE;TZID=Asia/Tokyo;VALUE=DATE-TIME:20140514T084000,20140723T084000
+      DTEND;TZID=Asia/Tokyo;VALUE=DATE-TIME:20140409T101000
+      DTSTART;VALUE=DATE-TIME:20140408T234000Z
+      CATEGORIES:Lecture
+      UID:FEDA4C97-21C2-46AA-A395-075856FBD5C3
+      DESCRIPTION:this is description\n
+      SUMMARY:CS1
+      RRULE:FREQ=WEEKLY;INTERVAL=1;WKST=MO;BYDAY=WE;UNTIL=20140729T234000Z
+      LOCATION:Room11
+      SEQUENCE:4
+      END:VEVENT
+      END:VCALENDAR
+    EOF
+    iev = ics.first.events.first
+    expect(iev.occurrences.first.dtstart.tzid).to eq "UTC"
+  end
+end
+
+describe Mhc::DateFrame::Yearly do
+end
+
+describe Mhc::DateFrame::Monthly do
+end
+
+describe Mhc::DateFrame::Weekly do
+end
+
+describe Mhc::DateFrame::Daily do
+end