pine2csv 1.0.0

data/README.rdoc

@@ -0,0 +1,16 @@
+= pine2csv
+
+A library for converting pine address books to csv format.
+
+== Note on Patches/Pull Requests
+ 
+* Fork the project.
+* Make your feature addition or bug fix.
+* Commit, do not mess with rakefile, version, or history.  (if you
+  want to have your own version, that is fine but bump version in a
+  commit by itself I can ignore when I pull)
+* Send me a pull request. Bonus points for topic branches.
+
+== Copyright
+
+Copyright (c) 2010 Ben Walton. See LICENSE for details.

data/Rakefile

@@ -0,0 +1,56 @@
+require 'rubygems'
+require 'rake'
+
+begin
+  require 'jeweler'
+  Jeweler::Tasks.new do |gem|
+    gem.name = "pine2csv"
+    gem.summary = %Q{Convert pine address books to csv format}
+    gem.description = %Q{A library and binary for converting pine address books to csv format.}
+    gem.email = "bwalton@artsci.utoronto.ca"
+    gem.homepage = "http://github.com/bdwalton/pine2csv"
+    gem.authors = ["Ben Walton"]
+    gem.add_development_dependency "thoughtbot-shoulda", ">= 0"
+    gem.executables = ["pine2csv"]
+    gem.add_dependency "treetop", ">= 1.4.8"
+    gem.add_dependency "polyglot", ">= 0.3.1"
+
+  end
+  Jeweler::GemcutterTasks.new
+rescue LoadError
+  puts "Jeweler (or a dependency) not available. Install it with: gem install jeweler"
+end
+
+require 'rake/testtask'
+Rake::TestTask.new(:test) do |test|
+  test.libs << 'lib' << 'test'
+  test.pattern = 'test/**/test_*.rb'
+  test.verbose = true
+end
+
+begin
+  require 'rcov/rcovtask'
+  Rcov::RcovTask.new do |test|
+    test.libs << 'test'
+    test.pattern = 'test/**/test_*.rb'
+    test.verbose = true
+  end
+rescue LoadError
+  task :rcov do
+    abort "RCov is not available. In order to run rcov, you must: sudo gem install spicycode-rcov"
+  end
+end
+
+task :test => :check_dependencies
+
+task :default => :test
+
+require 'rake/rdoctask'
+Rake::RDocTask.new do |rdoc|
+  version = File.exist?('VERSION') ? File.read('VERSION') : ""
+
+  rdoc.rdoc_dir = 'rdoc'
+  rdoc.title = "pine2csv #{version}"
+  rdoc.rdoc_files.include('README*')
+  rdoc.rdoc_files.include('lib/**/*.rb')
+end

data/VERSION

@@ -0,0 +1 @@
+1.0.0

data/bin/pine2csv

@@ -0,0 +1,39 @@
+#!/usr/ruby-enterprise/bin/ruby
+
+require 'rubygems'
+
+retried = false
+begin
+  require 'pine2csv'
+rescue LoadError => e
+  $:.unshift File.join(File.dirname(File.expand_path(__FILE__)), "..", "lib")
+  if retried
+    raise
+  else
+    retried = true
+    retry
+  end
+end
+
+if ARGV.size.eql?(0)
+  $stderr.puts "Usage: #{File.basename $0} /path/to/pineabook"
+  $stderr.puts
+  $stderr.puts "No address book file specified..."
+else
+  begin
+    abook = File.read(File.expand_path(ARGV[0]))
+    p2c = Pine2CSV.new(abook)
+    puts p2c.to_csv
+  rescue Pine2CSV::Error => e
+    $stderr.puts e.message
+    exit 1
+  rescue Errno::ENOENT => e
+    $stderr.puts "Invalid address book file (#{ARGV[0]}).  File doesn't exist."
+    exit 1
+  rescue => e
+    $stderr.puts "Unhandled exception: #{e.class}"
+    $stderr.puts e.message
+    exit 1
+  end
+end
+

data/lib/pine2csv.rb

@@ -0,0 +1,37 @@
+require 'rubygems'
+require 'treetop'
+require 'polyglot'
+require 'pine_addressbook'
+
+class Pine2CSV
+
+  class Error < Exception
+    def initialize(msg)
+      super(msg)
+    end
+  end
+
+  attr :abook
+
+  def initialize(abook = nil)
+    @abook = abook
+    @parser = PineAddressbookParser.new
+  end
+
+  def abook=(data)
+    if data.kind_of?(String)
+      @abook = data
+    else
+      raise Pine2CSV::Error.new("Please pass an address book in string form")
+    end
+  end
+
+  def to_csv
+    raise Pine2CSV::Error.new("No address book data supplied.") unless abook
+    tree = @parser.parse(@abook)
+
+    raise Pine2CSV::Error.new("Parse failure:\n#{@parser.failure_reason}") unless tree
+
+    tree.to_csv
+  end
+end

data/lib/pine_addressbook.treetop

@@ -0,0 +1,178 @@
+grammar PineAddressbook
+        rule addressbook
+             car:addressentry cdr:addressentry* eof {
+	     def to_csv
+		 csv = car.to_csv
+		 csv += cdr.elements.map do |ae|
+		 ae.to_csv
+		 end.join('')
+	     end
+	     }
+        end
+
+        rule addressentry
+             nick fieldsep pinename fieldsep recipient optionals? eol {
+	     require 'csv'
+	     def to_csv	   
+	     	 values = [:nick, :pinename, :recipient].map do |token|
+	     	      	      self.send(token).value
+			  end.flatten
+		 CSV.generate_line(values) + "\n"
+	     end
+	     }
+        end
+
+	rule optionals
+	     fieldsep fcc (fieldsep entrycomment)?
+	end
+
+	rule fieldsep
+	     continuation? "\t" continuation?
+	end
+
+	rule continuation
+	     eol padding
+	end
+
+	rule padding
+	     "   "
+	end
+
+	rule nick
+	     (!fieldsep .)* {
+	     def value; text_value; end
+	     }
+	end
+
+	rule pinename
+	     qpname / bpname
+	end
+
+	rule recipient
+	     personlist / person
+	end
+
+	rule personlist
+	     lstart continuation? car:person cdr:(plistsep person)* continuation? lend {
+	     	    def value
+		    	['group', car.value[1], cdr.elements.map do |p|
+			   p.person.value[1]
+			end.flatten]
+		    end
+	     }
+
+	end
+
+	rule lstart
+	     '('
+	end
+
+	rule lend
+	     ')'
+	end
+
+	rule person
+	     qualified_address / emailaddress
+	end
+
+	rule qualified_address
+	     recipname [\s]+ bracketedaddress {
+	     def value
+		 ['person', "#{recipname.value} #{bracketedaddress.value[1]}"]
+	     end
+	     }
+	end
+
+
+	rule plistsep
+	     continuation? [\s]* [,] [\s]* continuation?
+	end
+
+	rule recipname
+	     dqrname / sqrname / brname
+	end
+
+	rule dqrname
+	     dq n:(!dq !eol . / dq dq)* dq {
+	     def value; n.text_value.squeeze("'").squeeze("\""); end
+	     }
+	end
+
+	rule sqrname
+	     sq n:(!sq !eol . / sq sq)* sq {
+	     def value; n.text_value.squeeze("'").squeeze("\""); end
+	     }
+	end
+
+	rule brname
+	     (!' <' !eol .)+  {
+	     def value; text_value.squeeze("'").squeeze("\""); end
+	     }
+	end
+
+	rule fcc
+	     (!fieldsep !eol .)*
+	end
+
+	rule entrycomment
+	     (!eol .)*
+	end
+
+	rule emailaddress
+	     bracketedaddress / bareaddress
+	end
+
+	rule bracketedaddress
+	     '<' bareaddress '>' {
+	     def value
+		 bareaddress.value
+	     end
+	     }
+	end
+
+	rule bareaddress
+	     (![@] [a-zA-Z0-9._-])+ [@] (![\t>,\)\n] .)+ {
+	     def value
+	     	 ['person', "<#{text_value}>"]
+	     end
+	     }
+	end
+
+	rule qpname
+	     sqpname / dqpname
+	end
+
+	rule bpname
+	     (!fieldsep .)* {
+	     def value; text_value.squeeze("'").squeeze("\""); end
+	     }
+	end
+
+	rule sqpname
+	     sq n:(!sq . / sq sq)* sq {
+	     def value; n.text_value.squeeze("'").squeeze("\""); end
+	     }
+	end
+
+	rule dqpname
+	     dq n:(!dq . / dq dq)* dq {
+	     def value; n.text_value.squeeze("'").squeeze("\""); end
+	     }
+	end
+
+	rule dq
+	     ["]
+	end
+
+	rule sq
+	     [']
+	end
+
+	rule eol
+	     "\n"
+	end
+
+	rule eof
+	     !.
+	end
+end

data/test/helper.rb

@@ -0,0 +1,10 @@
+require 'rubygems'
+require 'test/unit'
+require 'shoulda'
+
+$LOAD_PATH.unshift(File.join(File.dirname(__FILE__), '..', 'lib'))
+$LOAD_PATH.unshift(File.dirname(__FILE__))
+require 'pine2csv'
+
+class Test::Unit::TestCase
+end

data/test/test_pine2csv.rb

@@ -0,0 +1,356 @@
+require 'helper'
+
+class TestPine2csv < Test::Unit::TestCase
+  context "Require valid data" do
+    setup do
+      @p = Pine2CSV.new
+    end
+
+    should "require abook data" do
+      assert_raise Pine2CSV::Error do
+        @p.to_csv
+      end
+    end
+
+    should "require string data" do
+      assert_raise Pine2CSV::Error do
+        @p.abook = @p
+      end
+    end
+  end
+
+  context "Accept valid single entries" do
+    setup do
+      @p = Pine2CSV.new
+    end
+
+    should "take simple line" do
+      @p.abook = "ben\tben walton\tbwalton@example.org\n"
+      assert_equal @p.to_csv, "ben,ben walton,person,<bwalton@example.org>\n"
+    end
+
+    should "allow blank nickname" do
+      @p.abook = "\tben walton\tbwalton@example.org\n"
+      assert_equal @p.to_csv, "\"\",ben walton,person,<bwalton@example.org>\n"
+    end
+
+    should "allow blank name" do
+      @p.abook = "ben\t\tbwalton@example.org\n"
+      assert_equal @p.to_csv, "ben,\"\",person,<bwalton@example.org>\n"
+    end
+
+
+    should "allow bracketed email recipient with no name" do
+      @p.abook = "ben\tben\t<bwalton@example.com>\n"
+      assert_equal @p.to_csv, "ben,ben,person,<bwalton@example.com>\n"
+    end
+
+    should "allow an fcc without a comment" do
+      @p.abook = "ben\tben walton\tbwalton@example.org\tfcc\n"
+      assert_equal @p.to_csv, "ben,ben walton,person,<bwalton@example.org>\n"
+    end
+
+    should "allow all 5 possible fields" do
+      @p.abook = "ben\tben walton\tbwalton@example.org\tfcc\tcomment text\n"
+      assert_equal @p.to_csv, "ben,ben walton,person,<bwalton@example.org>\n"
+    end
+
+    should "allow double quoted name" do
+      @p.abook = "ben\t\"ben walton\"\tbwalton@example.org\tfcc\tcomment text\n"
+      assert_equal @p.to_csv, "ben,ben walton,person,<bwalton@example.org>\n"
+    end
+
+    should "allow single quoted name" do
+      @p.abook = "ben\t'ben walton'\tbwalton@example.org\tfcc\tcomment text\n"
+      assert_equal @p.to_csv, "ben,ben walton,person,<bwalton@example.org>\n"
+    end
+
+    should "allow single quoted name with embedded single quote" do
+      @p.abook = "ben\t'ben o''walton'\tbwalton@example.org\tfcc\tcomment text\n"
+      assert_equal @p.to_csv, "ben,ben o'walton,person,<bwalton@example.org>\n"
+    end
+
+    should "allow double quoted name with embedded double quote" do
+      @p.abook = "ben\t\"ben \"\"quoted\"\" walton\"\tbwalton@example.org\tfcc\tcomment text\n"
+      assert_equal @p.to_csv, "ben,\"ben \"\"quoted\"\" walton\",person,<bwalton@example.org>\n"
+    end
+
+
+    should "allow recipient with name and email" do
+      @p.abook = "ben\tben\tBen Walton <bwalton@example.org>\n"
+      assert_equal @p.to_csv, "ben,ben,person,Ben Walton <bwalton@example.org>\n"
+    end
+
+    should "allow recipient with double quoted name" do
+      @p.abook = "ben\tben\t\"Ben Walton\" <bwalton@example.org>\n"
+      assert_equal @p.to_csv, "ben,ben,person,Ben Walton <bwalton@example.org>\n"
+    end
+
+    should "allow recipient with single quoted name" do
+      @p.abook = "ben\tben\t'Ben Walton' <bwalton@example.org>\n"
+      assert_equal @p.to_csv, "ben,ben,person,Ben Walton <bwalton@example.org>\n"
+    end
+
+    should "allow recipient with single quoted name with embedded double quote" do
+      @p.abook = "ben\tben\t'Ben \"quoted\" Walton' <bwalton@example.org>\n"
+      assert_equal @p.to_csv, "ben,ben,person,\"Ben \"\"quoted\"\" Walton <bwalton@example.org>\"\n"
+    end
+
+    should "allow recipient with single quoted name with embedded quote" do
+      @p.abook = "ben\tben\t'Ben O''Walton' <bwalton@example.org>\n"
+      assert_equal @p.to_csv, "ben,ben,person,Ben O'Walton <bwalton@example.org>\n"
+    end
+
+    should "allow recipient with double quoted name with embedded double quote" do
+      @p.abook = "ben\tben\t\"Ben \"\"quoted\"\" Walton\" <bwalton@example.org>\n"
+      assert_equal @p.to_csv, "ben,ben,person,\"Ben \"\"quoted\"\" Walton <bwalton@example.org>\"\n"
+    end
+
+    should "allow simple group" do
+      @p.abook = "bens\tthe bens\t(ben1@example.com,ben2@example.com)\n"
+      assert_equal @p.to_csv, "bens,the bens,group,<ben1@example.com>,<ben2@example.com>\n"
+    end
+
+    should "allow groups with fcc values" do
+      @p.abook = "bens\tthe bens\t(ben1@example.com,ben2@example.com)\tfcc\n"
+      assert_equal @p.to_csv, "bens,the bens,group,<ben1@example.com>,<ben2@example.com>\n"
+    end
+
+    should "allow groups with fcc and comment values" do
+      @p.abook = "bens\tthe bens\t(ben1@example.com,ben2@example.com)\tfcc\tcomment\n"
+      assert_equal @p.to_csv, "bens,the bens,group,<ben1@example.com>,<ben2@example.com>\n"
+    end
+
+    should "allow group with only one member" do
+      @p.abook = "bens\tthe bens\t(ben1@example.com)\n"
+      assert_equal @p.to_csv, "bens,the bens,group,<ben1@example.com>\n"
+    end
+
+    should "allow group with only one (named) member" do
+      @p.abook = "bens\tthe bens\t('ben1' <ben1@example.com>)\n"
+      assert_equal @p.to_csv, "bens,the bens,group,ben1 <ben1@example.com>\n"
+    end
+
+    should "allow group with single quoted names" do
+      @p.abook = "bens\tthe bens\t('ben1' <ben1@example.com>, 'ben2' <ben2@example.com>)\n"
+      assert_equal @p.to_csv, "bens,the bens,group,ben1 <ben1@example.com>,ben2 <ben2@example.com>\n"
+    end
+
+    should "allow group with double quoted names" do
+      @p.abook = "bens\tthe bens\t(\"ben1\" <ben1@example.com>, \"ben2\" <ben2@example.com>)\n"
+      assert_equal @p.to_csv, "bens,the bens,group,ben1 <ben1@example.com>,ben2 <ben2@example.com>\n"
+    end
+
+    should "allow group with double quoted names containing double quotes" do
+      @p.abook = "bens\tthe bens\t(\"ben1\" <ben1@example.com>, \"ben2 o\"\"walton\" <ben2@example.com>)\n"
+      assert_equal @p.to_csv, "bens,the bens,group,ben1 <ben1@example.com>,\"ben2 o\"\"walton <ben2@example.com>\"\n"
+    end
+
+    should "allow group with double quoted names containing single quotes" do
+      @p.abook = "bens\tthe bens\t(\"ben1\" <ben1@example.com>, \"ben2 o'walton\" <ben2@example.com>)\n"
+      assert_equal @p.to_csv, "bens,the bens,group,ben1 <ben1@example.com>,ben2 o'walton <ben2@example.com>\n"
+    end
+
+    should "allow group with quoted names containing single quotes" do
+      @p.abook = "bens\tthe bens\t(\"ben1\" <ben1@example.com>, 'ben2 o''walton' <ben2@example.com>)\n"
+      assert_equal @p.to_csv, "bens,the bens,group,ben1 <ben1@example.com>,ben2 o'walton <ben2@example.com>\n"
+    end
+
+    should "allow continuation after nickname" do
+      @p.abook = "ben\t\n   ben walton\tbwalton@example.com\n"
+      assert_equal @p.to_csv, "ben,ben walton,person,<bwalton@example.com>\n"
+    end
+
+    should "allow continuation after name" do
+      @p.abook = "ben\tben walton\t\n   bwalton@example.com\n"
+      assert_equal @p.to_csv, "ben,ben walton,person,<bwalton@example.com>\n"
+    end
+
+    should "allow continuation after email (with fcc)" do
+      @p.abook = "ben\tben walton\tbwalton@example.com\t\n   fcc\n"
+      assert_equal @p.to_csv, "ben,ben walton,person,<bwalton@example.com>\n"
+    end
+
+    should "allow continuation after fcc (with comment)" do
+      @p.abook = "ben\tben walton\tbwalton@example.com\tfcc\t\n   comment\n"
+      assert_equal @p.to_csv, "ben,ben walton,person,<bwalton@example.com>\n"
+    end
+
+    should "allow multiple continuations" do
+      [ "ben\t\n   ben walton\tbwalton@example.com\tfcc\t\n   comment\n",
+        "ben\tben walton\t\n   bwalton@example.com\tfcc\t\n   comment\n",
+        "ben\tben walton\t\n   bwalton@example.com\t\n   fcc\t\n   comment\n"
+      ].each do |continued_line|
+        @p.abook = continued_line
+        assert_equal @p.to_csv, "ben,ben walton,person,<bwalton@example.com>\n"
+      end
+    end
+
+    should "allow continuations in a group list" do
+      @p.abook = "bens\tthe bens\t(\n   ben1@example.com,\n   ben2@example.com,\n   ben3@example.com)\n"
+      assert_equal @p.to_csv, "bens,the bens,group,<ben1@example.com>,<ben2@example.com>,<ben3@example.com>\n"
+    end
+
+    should "allow continuations in a group list with named recipients" do
+      @p.abook = "bens\tthe bens\t(\n   'ben1' <ben1@example.com>,\n   ben2@example.com,\n   ben3@example.com)\n"
+      assert_equal @p.to_csv, "bens,the bens,group,ben1 <ben1@example.com>,<ben2@example.com>,<ben3@example.com>\n"
+    end
+
+    should "allow group with fcc and command mixed in continuations" do
+      @p.abook = "bens\tthe bens\t\n   (bwalton@example.org,\n   ben2@example.org)\t\n   fcc\tcomment\n"
+      assert_equal @p.to_csv, "bens,the bens,group,<bwalton@example.org>,<ben2@example.org>\n"
+    end
+
+    should "allow tab after continuation" do
+      [ "ben\n   \tben walton\tbwalton@example.org\n",
+        "ben\tben walton\n   \tbwalton@example.org\n",
+        "ben\n   \tben walton\n   \tbwalton@example.org\n"
+      ].each do |odd_continuation|
+        @p.abook = odd_continuation
+        assert_equal @p.to_csv, "ben,ben walton,person,<bwalton@example.org>\n"
+      end
+    end
+  end
+
+
+  context "Reject invalid entries" do
+    setup do
+      @p = Pine2CSV.new
+    end
+
+    should "reject entry with no newline" do
+      [ "ben\tben\tbwalton@example.org",
+        "ben1\tben1\tben1@example.org\nben2\tben2\tben2@example.org"
+      ].each do |missing_eol|
+        @p.abook = missing_eol
+        assert_raise Pine2CSV::Error do
+          @p.to_csv
+        end
+      end
+    end
+
+    should "reject abook with extra newline" do
+      @p.abook = "ben\tben\tbwalton@example.org\n\n"
+      assert_raise Pine2CSV::Error do
+        @p.to_csv
+      end
+    end
+
+    should "reject missing recipient" do
+      [ "ben\tben walton\t\tfcc\tcomment\n",
+        "ben\tben walton\t\n",
+        "ben\tben walton\n"
+      ].each do |missing_recip|
+        @p.abook = missing_recip
+        assert_raise Pine2CSV::Error do
+          @p.to_csv
+        end
+      end
+    end
+
+    should "reject recipient with no @ in address" do
+      [ "ben\tben walton\tbwaltonATexample.org\n",
+        "ben\tben walton\t<bwaltonATexample.org>\n"
+      ].each do |bad_address|
+        @p.abook = bad_address
+        assert_raise Pine2CSV::Error do
+          @p.to_csv
+        end
+      end
+    end
+
+    should "reject named recipient when address not bracketed" do
+      @p.abook = "ben\tben\t'ben' bwalton@example.com\n"
+      assert_raise Pine2CSV::Error do
+        @p.to_csv
+      end
+    end
+
+    should "reject non-escaped quotes in name field" do
+      [
+       "ben\t'ben o'walton'\tbwalton@example.org\n",
+       "ben\t\"ben \"bad quote\" walton\"\tbwalton@example.org\n"
+      ].each do |bad|
+        @p.abook = bad
+        assert_raise Pine2CSV::Error do
+          @p.to_csv
+        end
+      end
+    end
+
+    should "reject missing angle quote on email" do
+      [ "ben\tben walton\t<bwalton@example.com\n",
+        "ben\tben walton\tbwalton@example.com>\n"
+      ].each do |missing_bracket|
+        @p.abook = missing_bracket
+        assert_raise Pine2CSV::Error do
+          @p.to_csv
+        end
+      end
+    end
+
+    should "reject groups with missing brackets" do
+      [ "bens\tthe bens\tben1@example.com,ben2@example.com\n",
+        "bens\tthe bens\t(ben1@example.com,ben2@example.com\n",
+        "bens\tthe bens\tben1@example.com,ben2@example.com)\n"
+      ].each do |missing_bracket|
+        @p.abook = missing_bracket
+        assert_raise Pine2CSV::Error do
+          @p.to_csv
+        end
+      end
+    end
+
+    should "reject entries with dangling continuations" do
+      [ "ben\tben\tbwalton@example.org\n   ",
+        "ben\tben\tbwalton@example.org\tfcc\n   ",
+        "ben\tben\tbwalton@example.org\t\n   fcc\n   ",
+      ].each do |bad_cont|
+        @p.abook = bad_cont
+        assert_raise Pine2CSV::Error do
+          @p.to_csv
+        end
+      end
+    end
+
+    should "reject a bad continuation mixed in valid entries" do
+      @p.abook = "ben\tben\tbwalton@example.org\nben2\tben2\n   \nben3\tben3\tben3@example.org\n"
+      assert_raise Pine2CSV::Error do
+        @p.to_csv
+      end
+    end
+
+    should "reject a bad group entry mixed in valid entries" do
+      @p.abook = "ben\tben\tbwalton@example.org\nbens\tthe bens\t(ben1@example.org,ben2@example.org\nben2\tben2\t<ben2@example.org>\n"
+      assert_raise Pine2CSV::Error do
+        @p.to_csv
+      end
+    end
+
+    should "reject a bad group entry in the middle of valid group entries" do
+      @p.abook = "bencom\tthe com bens\t(ben1@example.com,ben2@example.com)\nbadgr\tbad group\t(bad group,)\nbenorg\tthe org bens\t(ben1@example.org)\n"
+      assert_raise Pine2CSV::Error do
+        @p.to_csv
+      end
+    end
+  end
+
+  context "Accept multiple lines" do
+    setup do
+      @p = Pine2CSV.new
+    end
+
+    should "allow multiple lines" do
+      @p.abook = "ben\tben walton\tbwalton@example.org\nben\tben walton\tbwalton@example.org\n"
+      assert_equal @p.to_csv, "ben,ben walton,person,<bwalton@example.org>\nben,ben walton,person,<bwalton@example.org>\n"
+    end
+
+    should "allow mixed group with single recipient lines" do
+      @p.abook = "ben\tben\tbwalton@example.org\nbens\tthe bens\t(ben1@example.org,ben2@example.org)\n"
+      assert_equal @p.to_csv, "ben,ben,person,<bwalton@example.org>\nbens,the bens,group,<ben1@example.org>,<ben2@example.org>\n"
+
+      @p.abook = "bens\tthe bens\t(ben1@example.org,ben2@example.org)\nben\tben\tbwalton@example.org\n"
+      assert_equal @p.to_csv, "bens,the bens,group,<ben1@example.org>,<ben2@example.org>\nben,ben,person,<bwalton@example.org>\n"
+    end
+  end
+end