reapack-index 1.0beta3 → 1.0beta4

data/test/test_git.rb

@@ -0,0 +1,139 @@
+require File.expand_path '../helper', __FILE__
+
+class TestGit < MiniTest::Test
+  include GitHelper
+
+  def setup
+    @path, @repo = init_git
+  end
+
+  def teardown
+    FileUtils.rm_r @path
+  end
+
+  def test_path
+    realpath = Pathname.new(@path).realpath
+    assert_equal realpath.to_s, @git.path
+  end
+
+  def test_relative_path
+    assert_equal 'test', @git.relative_path(File.join(@git.path, 'test'))
+  end
+
+  def test_guess_url_template
+    assert_nil @git.guess_url_template
+
+    @repo.remotes.create 'origin', 'git@github.com:User/Repo.git'
+    assert_match "https://github.com/User/Repo/raw/$commit/$path",
+      @git.guess_url_template
+
+    @repo.remotes.set_url 'origin', 'https://github.com/User/Repo.git'
+    assert_match "https://github.com/User/Repo/raw/$commit/$path",
+      @git.guess_url_template
+
+    @repo.remotes.set_url 'origin', 'scp://weird/url'
+    assert_nil @git.guess_url_template
+  end
+
+  def test_create_initial_commit
+    index = @repo.index
+    index.add @git.relative_path(mkfile('ignored_staged'))
+    index.write
+
+    mkfile 'ignored'
+
+    assert_equal true, @git.empty?
+    commit = @git.create_commit 'initial commit', [mkfile('file')]
+    assert_equal false, @git.empty?
+
+    assert_equal commit, @git.last_commit
+    assert_equal 'initial commit', commit.message
+    assert_equal ['file'], commit.each_diff.map {|d| d.file }
+    assert_equal ['file'], commit.filelist
+  end
+
+  def test_create_subsequent_commit
+    initial = @git.create_commit 'initial commit', [mkfile('file1')]
+
+    mkfile 'ignored'
+
+    index = @repo.index
+    index.add @git.relative_path(mkfile('ignored_staged'))
+    index.write
+
+    commit = @git.create_commit 'second commit', [mkfile('file2')]
+    refute_equal initial, commit
+    assert_equal 'second commit', commit.message
+    assert_equal ['file2'], commit.each_diff.map {|d| d.file }
+    assert_equal ['file1', 'file2'], commit.filelist
+  end
+
+  def test_commit_info
+    commit = @git.create_commit "initial commit\ndescription", [mkfile('file')]
+    assert_equal "initial commit\ndescription", commit.message
+    assert_equal 'initial commit', commit.summary
+
+    assert commit.id.start_with?(commit.short_id)
+    assert_equal 7, commit.short_id.size
+
+    assert_kind_of Time, commit.time
+    assert_equal ['file'], commit.filelist
+  end
+
+  def test_diff
+    hash = proc {|c|
+      c.each_diff.map {|d| [d.status, d.file, d.new_content] }
+    }
+
+    c1 = @git.create_commit 'initial commit', [mkfile('file1', 'initial')]
+    assert_equal [[:added, 'file1', 'initial']], hash[c1]
+
+    c2 = @git.create_commit 'second commit',
+      [mkfile('file1', 'second'), mkfile('file2')]
+    assert_equal [[:modified, 'file1', 'second'], [:added, 'file2', '']], hash[c2]
+
+    file1 = File.join @git.path, 'file1'
+    File.delete file1
+    c3 = @git.create_commit 'second commit', [file1]
+    assert_equal [[:deleted, 'file1', nil]], hash[c3]
+  end
+
+  def test_commits_since
+    assert_equal [], @git.commits_since(nil)
+    c1 = @git.create_commit 'first', []
+
+    assert_equal [c1], @git.commits_since(nil)
+    assert_equal [], @git.commits_since(c1.id)
+
+    c2 = @git.create_commit 'second', []
+    assert_equal [c1, c2], @git.commits_since(nil)
+    assert_equal [c2], @git.commits_since(c1.id)
+
+    INVALID_HASHES.each {|hash|
+      assert_equal [c1, c2], @git.commits_since(hash)
+    }
+  end
+
+  def test_get_commit
+    c = @git.create_commit 'first', []
+    assert_equal c, @git.get_commit(c.id)
+
+    INVALID_HASHES.each {|hash|
+      assert_nil @git.get_commit(hash)
+    }
+  end
+
+  def test_multibyte_filename
+    filename = "\342\200\224.lua"
+
+    @git.create_commit 'initial commit', [mkfile(filename)]
+    assert_equal filename, @git.last_commit.each_diff.first.file
+  end
+
+  def test_invalid_char_sequence
+    content = "\x97"
+    @git.create_commit 'initial commit', [mkfile('test.lua', content)]
+
+    assert_equal content, @git.last_commit.each_diff.first.new_content
+  end
+end

data/test/test_index.rb

@@ -1,22 +1,42 @@
 require File.expand_path '../helper', __FILE__
 
 class TestIndex < MiniTest::Test
-  def setup
-    @real_path = File.expand_path '../data/index.xml', __FILE__
-    @dummy_path = Dir::Tmpname.create('index.xml') {|path| path }
+  include IndexHelper
 
-    @commit = '399f5609cff3e6fd92b5542d444fbf86da0443c6'
-  end
-
-  def teardown
-    File.delete @dummy_path if File.exist? @dummy_path
+  def test_is_type
+    assert_equal [false, true, true, false],
+      [nil, 'script', :script, :hello].map {|t| ReaPack::Index.is_type? t }
   end
 
   def test_type_of
-    assert_nil ReaPack::Index.type_of('src/main.cpp')
+    assert_equal [nil, nil, nil, :script, :script, :extension, :effect, :data],
+      [
+        'src/main.cpp', 'src/noext', 'in_root',
+        'Cat/test.lua', 'Cat/test.eel',
+        'Cat/test.ext',
+        'Cat/test.jsfx',
+        'Cat/test.data',
+      ].map {|fn| ReaPack::Index.type_of fn }
+  end
+
+  def test_resolve_type
+    expected = [
+      nil,
+      :script, :script, :script,
+      :effect, :effect, :effect,
+      :extension, :extension,
+      :data,
+    ]
+
+    actual = [
+      'hello',
+      :script, 'lua', 'eel',
+      'effect', :jsfx, 'jsfx',
+      'extension', 'ext',
+      'data',
+    ].map {|fn| ReaPack::Index.resolve_type fn }
 
-    assert_equal :script, ReaPack::Index.type_of('Track/instrument_track.lua')
-    assert_equal :script, ReaPack::Index.type_of('Track/instrument_track.eel')
+    assert_equal expected, actual
   end
 
   def test_url_template
@@ -30,10 +50,10 @@ class TestIndex < MiniTest::Test
     assert_equal 'https://google.com/$path', index.url_template
 
     error = assert_raises ReaPack::Index::Error do
-      index.url_template = 'no path placeholder!'
+      index.url_template = 'test' # no path placeholder!
     end
 
-    assert_match '$path', error.message
+    assert_match "missing $path placeholder in 'test'", error.message
     assert_equal 'https://google.com/$path', index.url_template
 
     index.url_template = nil
@@ -47,10 +67,10 @@ class TestIndex < MiniTest::Test
       index.url_template = 'scp://cfillion.tk/$path'
     end
 
-    assert_match /invalid url/i, error.message
+    assert_match /invalid template/i, error.message
   end
 
-  def test_files
+  def test_file_list
     index = ReaPack::Index.new @dummy_path
     assert_empty index.files
 
@@ -58,20 +78,23 @@ class TestIndex < MiniTest::Test
     assert_equal ['a', 'b/c'], index.files
   end
 
-  def test_validate_standalone
-    refute_nil ReaPack::Index.validate_file @real_path # not a valid script
-  end
-
-  def test_validate_noindex
-    assert_nil ReaPack::Index.validate_file \
-      File.expand_path '../data/noindex.lua', __FILE__
-  end
-
   def test_read
     index = ReaPack::Index.new @real_path
 
     assert_equal 1, index.version
-    assert_equal @commit, index.commit
+    assert_equal 'f572d396fae9206628714fb2ce00f72e94f2258f', index.commit
+  end
+
+  def test_read_invalid
+    File.write @dummy_path, "\33"
+    assert_raises ReaPack::Index::Error do
+      ReaPack::Index.new @dummy_path
+    end
+
+    File.write @dummy_path, "\0"
+    assert_raises ReaPack::Index::Error do
+      ReaPack::Index.new @dummy_path
+    end
   end
 
   def test_new
@@ -111,523 +134,73 @@ class TestIndex < MiniTest::Test
     FileUtils.rm_r dirname if File.exist? dirname
   end
 
-  def test_ignore_unknown_type
-    index = ReaPack::Index.new @dummy_path
-
-    index.scan 'src/main.cpp', String.new
-    index.write!
-
-    expected = <<-XML
-<?xml version="1.0" encoding="utf-8"?>
-<index version="1"/>
-    XML
-
-    assert_equal expected, File.read(@dummy_path)
-  end
-
-  def test_new_package
-    index = ReaPack::Index.new @dummy_path
-    index.files = ['Category/Path/Instrument Track.lua']
-    index.url_template = 'http://host/$path'
-
-    index.scan index.files.first, <<-IN
-      @version 1.0
-      @changelog Hello World
-    IN
-
-    assert_equal true, index.modified?
-    assert_equal '1 new category, 1 new package, 1 new version', index.changelog
-
-    index.write!
-
-    assert_equal false, index.modified?
-    assert_empty index.changelog
-
-    expected = <<-XML
-<?xml version="1.0" encoding="utf-8"?>
-<index version="1">
-  <category name="Category/Path">
-    <reapack name="Instrument Track.lua" type="script">
-      <version name="1.0">
-        <changelog><![CDATA[Hello World]]></changelog>
-        <source platform="all">http://host/Category/Path/Instrument%20Track.lua</source>
-      </version>
-    </reapack>
-  </category>
-</index>
-    XML
-
-    assert_equal expected, File.read(index.path)
-  end
-
-  def test_default_category
-    index = ReaPack::Index.new @dummy_path
-    index.files = ['script.lua', 'Hello/World']
-    index.url_template = 'http://host/$path'
-
-    index.scan index.files.first, <<-IN
-      @version 1.0
-      @provides Hello/World
-    IN
-
-    expected = <<-XML
-<?xml version="1.0" encoding="utf-8"?>
-<index version="1">
-  <category name="Other">
-    <reapack name="script.lua" type="script">
-      <version name="1.0">
-        <source platform="all">http://host/script.lua</source>
-        <source platform="all" file="Hello/World">http://host/Hello/World</source>
-      </version>
-    </reapack>
-  </category>
-</index>
-    XML
-
-    index.write!
-    assert_equal expected, File.read(index.path)
-  end
-
-  def test_edit_version_amend_off
-    index = ReaPack::Index.new @real_path
-    assert_equal false, index.amend
-
-    index.url_template = 'http://google.com/$path'
-    index.files = ['Category Name/Hello World.lua']
-
-    index.scan index.files.first, <<-IN
-      @version 1.0
-      @changelog New Changelog!
-    IN
-
-    assert_equal false, index.modified?
-    assert_empty index.changelog
-  end
-
-  def test_edit_version_amend_on
-    index = ReaPack::Index.new @real_path
-    index.amend = true
-    assert_equal true, index.amend
-
-    index.url_template = 'http://google.com/$path'
-    index.files = ['Category Name/Hello World.lua']
-
-    index.scan index.files.first, <<-IN
-      @version 1.0
-      @changelog New Changelog!
-    IN
-
-    assert index.modified?, 'index is not modified'
-    assert_equal '1 modified package, 1 modified version', index.changelog
-
-    expected = <<-XML
-<?xml version="1.0" encoding="utf-8"?>
-<index version="1" commit="#{@commit}">
-  <category name="Category Name">
-    <reapack name="Hello World.lua" type="script">
-      <version name="1.0">
-        <changelog><![CDATA[New Changelog!]]></changelog>
-        <source platform="all">http://google.com/Category%20Name/Hello%20World.lua</source>
-      </version>
-    </reapack>
-  </category>
-</index>
-    XML
-
-    index.write @dummy_path
-    assert_equal expected, File.read(@dummy_path)
-  end
-
-  def test_edit_version_amend_unmodified
-    index = ReaPack::Index.new @real_path
-    index.amend = true
-
-    index.url_template = 'https://google.com/$path'
-    index.files = ['Category Name/Hello World.lua']
-
-    index.scan index.files.first, <<-IN
-      @version 1.0
-      @author cfillion
-      @changelog Fixed a division by zero error.
-    IN
-
-    assert_equal false, index.modified?
-    assert_empty index.changelog
-  end
-
-  def test_file_unlisted
+  def test_make_url_defaut_branch
     index = ReaPack::Index.new @dummy_path
-    index.url_template = 'http://google.com/$path'
-
-    error = assert_raises ReaPack::Index::Error do
-     index.scan 'unlisted.lua', '@version 1.0'
-    end
-
-    assert_equal 'unlisted.lua: No such file or directory', error.message
-
-    expected = <<-XML
-<?xml version="1.0" encoding="utf-8"?>
-<index version="1"/>
-    XML
+    index.files = ['Category/script.lua']
+    index.url_template = 'http://host/$commit/$path'
+    index.commit = nil
 
-    index.write!
-    assert_equal expected, File.read(index.path)
+    assert_match 'http://host/master/Category/script.lua',
+      index.make_url('Category/script.lua')
   end
 
   def test_make_url_without_template
     index = ReaPack::Index.new @dummy_path
     index.files = ['script.lua']
 
+    assert_equal nil, index.url_template
+    index.make_url 'script.lua', 'ok if explicit template'
+
     error = assert_raises ReaPack::Index::Error do
-     index.scan index.files.first, '@version 1.0'
+      index.make_url 'script.lua'
     end
 
-    assert_match /url template is unset/i, error.message
-  end
-
-  def test_make_url_defaut_branch
-    index = ReaPack::Index.new @dummy_path
-    index.files = ['Category/script.lua']
-    index.url_template = 'http://host/$commit/$path'
-
-    index.commit = nil
-
-    index.scan index.files.first, '@version 1.0'
-
-    expected = <<-XML
-<?xml version="1.0" encoding="utf-8"?>
-<index version="1">
-  <category name="Category">
-    <reapack name="script.lua" type="script">
-      <version name="1.0">
-        <source platform="all">http://host/master/Category/script.lua</source>
-      </version>
-    </reapack>
-  </category>
-</index>
-    XML
-
-    index.write!
-    assert_equal expected, File.read(@dummy_path)
+    assert_match /url template/i, error.message
   end
 
   def test_make_url_commit
     index = ReaPack::Index.new @dummy_path
     index.files = ['Category/script.lua']
     index.url_template = 'http://host/$commit/$path'
-
     index.commit = @commit
 
-    index.scan index.files.first, '@version 1.0'
-
-    expected = <<-XML
-<?xml version="1.0" encoding="utf-8"?>
-<index version="1" commit="#{@commit}">
-  <category name="Category">
-    <reapack name="script.lua" type="script">
-      <version name="1.0">
-        <source platform="all">http://host/#{@commit}/Category/script.lua</source>
-      </version>
-    </reapack>
-  </category>
-</index>
-    XML
-
-    index.write!
-    assert_equal expected, File.read(@dummy_path)
+    assert_equal "http://host/#{@commit}/Category/script.lua",
+      index.make_url('Category/script.lua')
   end
 
-  def test_missing_version
+  def test_make_url_unlisted
     index = ReaPack::Index.new @dummy_path
-    index.url_template = 'http://host/$path'
-    index.files = ['test.lua']
-
-    error = assert_raises ReaPack::Index::Error do
-      index.scan index.files.first, 'no version tag here'
-    end
-
-    assert_match 'missing tag "version"', error.message
-  end
+    index.commit = @commit
+    index.url_template = 'http://google.com/$path'
 
-  def test_changelog_boolean
-    index = ReaPack::Index.new @dummy_path
-    index.url_template = 'http://host/$path'
-    index.files = ['test.lua']
+    index.make_url 'unlisted.lua', 'ok with url template'
 
     error = assert_raises ReaPack::Index::Error do
-      index.scan index.files.first, <<-IN
-        @version 1.0
-        @changelog
-      IN
+     index.make_url 'unlisted.lua'
     end
 
-    assert_match 'invalid value for tag "changelog"', error.message
+    assert_equal "file not found 'unlisted.lua'", error.message
   end
 
-  def test_author
+  def test_reset_index_after_error
     index = ReaPack::Index.new @dummy_path
+    index.commit = @commit
     index.url_template = 'http://host/$path'
-    index.files = ['Category/script.lua']
 
-    index.scan index.files.first, <<-IN
-      @version 1.0
-      @author cfillion
-    IN
+    assert_raises { index.scan 'cat/not_listed.lua', '@version 1.0' }
 
     expected = <<-XML
 <?xml version="1.0" encoding="utf-8"?>
-<index version="1">
-  <category name="Category">
-    <reapack name="script.lua" type="script">
-      <version name="1.0" author="cfillion">
-        <source platform="all">http://host/Category/script.lua</source>
-      </version>
-    </reapack>
-  </category>
-</index>
+<index version="1"/>
     XML
 
     index.write!
     assert_equal expected, File.read(index.path)
   end
 
-  def test_author_boolean
-    index = ReaPack::Index.new @dummy_path
-    index.url_template = 'http://host/$path'
-    index.files = ['test.lua']
-
-    error = assert_raises ReaPack::Index::Error do
-      index.scan index.files.first, <<-IN
-        @version 1.0
-        @author
-      IN
-    end
-
-    assert_match 'invalid value for tag "author"', error.message
-  end
-
-  def test_author_multiline
-    index = ReaPack::Index.new @dummy_path
-    index.url_template = 'http://host/$path'
-    index.files = ['test.lua']
-
-    error = assert_raises ReaPack::Index::Error do
-      index.scan index.files.first, <<-IN
-        @version 1.0
-        @author
-          hello
-          world
-      IN
-    end
-
-    assert_equal 'invalid metadata: invalid value for tag "author"', error.message
-  end
-
-  def test_provides
-    index = ReaPack::Index.new @dummy_path
-    index.url_template = 'http://host/$path'
-
-    index.files = [
-      'Category/script.lua',
-      'Resources/unicode.dat',
-      'Category/test.png',
-    ]
-
-    index.scan index.files.first, <<-IN
-      @version 1.0
-      @provides
-        ../Resources/unicode.dat
-        test.png
-    IN
-
-    expected = <<-XML
-<?xml version="1.0" encoding="utf-8"?>
-<index version="1">
-  <category name="Category">
-    <reapack name="script.lua" type="script">
-      <version name="1.0">
-        <source platform="all">http://host/Category/script.lua</source>
-        <source platform="all" file="../Resources/unicode.dat">http://host/Resources/unicode.dat</source>
-        <source platform="all" file="test.png">http://host/Category/test.png</source>
-      </version>
-    </reapack>
-  </category>
-</index>
-    XML
-
-    index.write!
-    assert_equal expected, File.read(@dummy_path)
-  end
-
-  def test_provides_unlisted
-    index = ReaPack::Index.new @dummy_path
-    index.url_template = 'http://host/$path'
-    index.files = ['Category/script.lua']
-
-    error = assert_raises ReaPack::Index::Error do
-     index.scan index.files.first, <<-IN
-       @version 1.0
-       @provides
-         test.png
-     IN
-    end
-
-    assert_equal 'Category/test.png: No such file or directory', error.message
-  end
-
-  def test_provides_duplicate
-    index = ReaPack::Index.new @dummy_path
-    index.url_template = 'http://host/$path'
-
-    error = assert_raises ReaPack::Index::Error do
-     index.scan 'script.lua', <<-IN
-       @version 1.0
-       @provides
-         test.png
-         test.png http://url.com
-     IN
-    end
-
-    assert_match 'invalid value for tag "provides": duplicate file (test.png)',
-      error.message
-  end
-
-  def test_provides_duplicate_platforms
-    index = ReaPack::Index.new @dummy_path
-    index.url_template = 'http://host/$path'
-    index.files = ['script.lua', 'test.png', 'test.png']
-
-    index.scan index.files.first, <<-IN
-      @version 1.0
-      @provides
-        [windows] test.png
-        [darwin] test.png
-    IN
-  end
-
-  def test_invalid_platform
-    index = ReaPack::Index.new @dummy_path
-    index.url_template = 'http://host/$path'
-
-    error = assert_raises ReaPack::Index::Error do
-      index.scan 'test.lua', <<-IN
-        @version 1.0
-        @provides
-          [hello] test.png
-      IN
-    end
-
-    assert_match 'invalid value for tag "provides": invalid platform hello',
-      error.message
-  end
-
-  def test_provides_platform
-    index = ReaPack::Index.new @dummy_path
-    index.url_template = 'http://host/$path'
-
-    index.files = [
-      'Category/script.lua',
-      'Category/winall.png',
-      'Category/win32bit.png',
-      'Category/win64bit.png',
-      'Category/osxall.png',
-      'Category/osx32bit.png',
-      'Category/osx64bit.png',
-    ]
-
-    index.scan index.files.first, <<-IN
-      @version 1.0
-      @provides
-        [windows] winall.png
-        [win32]  win32bit.png
-        [win64]win64bit.png
-         [ darwin ] osxall.png
-        [darwin32] osx32bit.png
-        [darwin64] osx64bit.png
-    IN
-
-    expected = <<-XML
-<?xml version="1.0" encoding="utf-8"?>
-<index version="1">
-  <category name="Category">
-    <reapack name="script.lua" type="script">
-      <version name="1.0">
-        <source platform="all">http://host/Category/script.lua</source>
-        <source platform="windows" file="winall.png">http://host/Category/winall.png</source>
-        <source platform="win32" file="win32bit.png">http://host/Category/win32bit.png</source>
-        <source platform="win64" file="win64bit.png">http://host/Category/win64bit.png</source>
-        <source platform="darwin" file="osxall.png">http://host/Category/osxall.png</source>
-        <source platform="darwin32" file="osx32bit.png">http://host/Category/osx32bit.png</source>
-        <source platform="darwin64" file="osx64bit.png">http://host/Category/osx64bit.png</source>
-      </version>
-    </reapack>
-  </category>
-</index>
-    XML
-
-    index.write!
-    assert_equal expected, File.read(@dummy_path)
-  end
-
-  def test_main_platform
-    index = ReaPack::Index.new @dummy_path
-    index.url_template = 'http://host/$path'
-    index.files = ['Category/script.lua']
-
-    index.scan index.files.first, <<-IN
-      @version 1.0
-      @provides
-        [darwin] .
-        [win64] script.lua
-    IN
-
-    expected = <<-XML
-<?xml version="1.0" encoding="utf-8"?>
-<index version="1">
-  <category name="Category">
-    <reapack name="script.lua" type="script">
-      <version name="1.0">
-        <source platform="darwin">http://host/Category/script.lua</source>
-        <source platform="win64">http://host/Category/script.lua</source>
-      </version>
-    </reapack>
-  </category>
-</index>
-    XML
-
-    index.write!
-    assert_equal expected, File.read(@dummy_path)
-  end
-
-  def test_provides_custom_url
-    index = ReaPack::Index.new @dummy_path
-    index.files = ['Category/script.lua']
-
-    index.scan index.files.first, <<-IN
-      @version 1.0
-      @provides
-        script.lua http://google.com/download/$commit/$version/$path
-    IN
-
-    expected = <<-XML
-<?xml version="1.0" encoding="utf-8"?>
-<index version="1">
-  <category name="Category">
-    <reapack name="script.lua" type="script">
-      <version name="1.0">
-        <source platform="all">http://google.com/download/master/1.0/Category/script.lua</source>
-      </version>
-    </reapack>
-  </category>
-</index>
-    XML
-
-    index.write!
-    assert_equal expected, File.read(@dummy_path)
-  end
-
   def test_remove
     index = ReaPack::Index.new @real_path
+    index.commit = @commit
 
     index.remove 'Category Name/Hello World.lua'
 
@@ -652,242 +225,75 @@ class TestIndex < MiniTest::Test
     assert_empty index.changelog
   end
 
-  def test_noindex
-    index = ReaPack::Index.new @real_path
-
-    index.scan 'script.lua', '@noindex'
-
-    assert_equal false, index.modified?
-  end
-
-  def test_noindex_remove
-    index = ReaPack::Index.new @real_path
-
-    index.scan 'Category Name/Hello World.lua', '@noindex'
-
-    assert_equal true, index.modified?
-    assert_equal '1 removed package', index.changelog
-
-    expected = <<-XML
-<?xml version="1.0" encoding="utf-8"?>
-<index version="1" commit="#{@commit}"/>
-    XML
-
-    index.write @dummy_path
-    assert_equal expected, File.read(@dummy_path)
-  end
-
-  def test_version_time
-    index = ReaPack::Index.new @dummy_path
-    index.url_template = 'http://host/$path'
-    index.files = ['Category/script.lua']
-
-    index.time = Time.new 2016, 2, 11, 20, 16, 40, -5 * 3600
-
-    index.scan index.files.first, '@version 1.0'
-
-    expected = <<-XML
-<?xml version="1.0" encoding="utf-8"?>
-<index version="1">
-  <category name="Category">
-    <reapack name="script.lua" type="script">
-      <version name="1.0" time="2016-02-12T01:16:40Z">
-        <source platform="all">http://host/Category/script.lua</source>
-      </version>
-    </reapack>
-  </category>
+  def test_sort_tags
+    File.write @dummy_path, <<-XML
+<index>
+  <metadata/>
+  <category name="zebra"/>
 </index>
     XML
 
-    index.write!
-    assert_equal expected, File.read(index.path)
-  end
-
-  def test_add_anonymous_link
-    index = ReaPack::Index.new @dummy_path
-
-    assert_equal 0, index.links(:website).size
-    index.eval_link :website, 'http://test.com'
-    assert_equal 1, index.links(:website).size
-
-    assert_equal '1 new website link, empty index', index.changelog
-
-    index.write!
-  end
-
-  def test_add_named_link
     index = ReaPack::Index.new @dummy_path
-
-    assert_equal 0, index.links(:website).size
-    index.eval_link :website, 'Test=http://test.com/hello=world'
-    assert_equal 1, index.links(:website).size
-
-    assert_equal '1 new website link, empty index', index.changelog
-
     index.write!
-    expected = <<-XML
-<?xml version="1.0" encoding="utf-8"?>
-<index version="1">
-  <metadata>
-    <link rel="website" href="http://test.com/hello=world">Test</link>
-  </metadata>
-</index>
-    XML
 
-    index.write @dummy_path
-    assert_equal expected, File.read(@dummy_path)
+    assert_match /<category.+<metadata/m, File.read(index.path)
   end
 
-  def test_edit_link
-    index = ReaPack::Index.new @dummy_path
-    index.eval_link :website, 'Test=http://test.com'
-    index.eval_link :website, 'Test=http://test.com'
-    assert_equal '1 new website link, empty index', index.changelog
-
-    index.eval_link :website, 'Test=http://test.com/hello'
-    assert_equal '1 new website link, 1 modified website link, empty index',
-      index.changelog
-  end
-
-  def test_remove_link_by_name
-    index = ReaPack::Index.new @dummy_path
-    index.eval_link :website, 'Test=http://test.com'
-    index.eval_link :website, '-Test'
-    assert_equal '1 new website link, 1 removed website link, empty index', index.changelog
+  def test_remove_clear_cdetector
+    index = ReaPack::Index.new @real_path
+    index.url_template = 'http://host/$path'
+    index.files = ['Category Name/Hello World.lua', 'Category Name/test.lua']
+    index.remove index.files.first
+    index.scan index.files.last, "@version 2.0\n@provides Hello World.lua"
   end
 
-  def test_remove_link_by_url
-    index = ReaPack::Index.new @dummy_path
-    index.eval_link :website, 'Test=http://test.com'
-    index.eval_link :website, '-http://test.com'
-    assert_equal '1 new website link, 1 removed website link, empty index', index.changelog
-  end
+  def test_sort_categories
+    File.write @dummy_path, <<-XML
+<index>
+  <category name="zebra"/>
+  <category name="bee"/>
+</index>
+    XML
 
-  def test_description
     index = ReaPack::Index.new @dummy_path
     index.write!
 
-    assert_empty index.description
-    assert_equal false, index.modified?
-
-    index.description = 'Hello World'
-    refute_empty index.description
-    assert_equal true, index.modified?
-    assert_equal '1 modified metadata', index.changelog
-
-    index.write!
-
-    index.description = 'Hello World'
-    assert_equal false, index.modified?
+    assert_match /bee.+zebra/m, File.read(index.path)
   end
 
-  def test_extension
-    index = ReaPack::Index.new @dummy_path
-    index.files = ['Extensions/reapack.ext']
-
-    index.scan index.files.first, <<-IN
-      @version 1.0
-      @provides
-        reaper_reapack.so http://example.com/$path
-    IN
-
-    expected = <<-XML
-<?xml version="1.0" encoding="utf-8"?>
-<index version="1">
-  <category name="Extensions">
-    <reapack name="reapack.ext" type="extension">
-      <version name="1.0">
-        <source platform="all" file="reaper_reapack.so">http://example.com/reaper_reapack.so</source>
-      </version>
-    </reapack>
+  def test_sort_packages
+    File.write @dummy_path, <<-XML
+<index>
+  <category name="Other">
+    <reapack name="zebra.lua"/>
+    <reapack name="bee.lua"/>
   </category>
 </index>
     XML
 
-    index.write!
-    assert_equal expected, File.read(@dummy_path)
-  end
-
-  def test_effect
     index = ReaPack::Index.new @dummy_path
-    index.url_template = 'http://host/$path'
-    index.files = ['Dynamics/super_compressor.jsfx']
+    index.write!
 
-    index.scan index.files.first, '@version 1.0'
+    assert_match /bee.+zebra/m, File.read(index.path)
+  end
 
-    expected = <<-XML
+  def test_dont_sort_versions
+    original = <<-XML
 <?xml version="1.0" encoding="utf-8"?>
 <index version="1">
-  <category name="Dynamics">
-    <reapack name="super_compressor.jsfx" type="effect">
-      <version name="1.0">
-        <source platform="all">http://host/Dynamics/super_compressor.jsfx</source>
-      </version>
+  <category name="Other">
+    <reapack name="test.lua">
+      <version name="z"/>
+      <version name="a"/>
     </reapack>
   </category>
 </index>
     XML
 
-    index.write!
-    assert_equal expected, File.read(@dummy_path)
-  end
-
-  def test_sort_tags
-    index = ReaPack::Index.new @dummy_path
-    index.url_template = 'http://host/$path'
-    index.files = ['Hello/world.lua']
-
-    index.description = 'hello'
-
-    index.scan index.files.first, '@version 1.0'
-
-    index.write!
-    assert_match /<category.+<metadata>/m, File.read(@dummy_path)
-  end
-
-  def test_sort_categories
+    File.write @dummy_path, original
     index = ReaPack::Index.new @dummy_path
-    index.url_template = 'http://host/$path'
-    index.files = ['zebra/agent.lua', 'bee/agent.lua']
-
-    index.scan index.files.first, '@version 1.0'
-    index.scan index.files.last, '@version 1.0'
-
     index.write!
-    assert_match /bee.+zebra/m, File.read(@dummy_path)
-  end
 
-  def test_sort_packages
-    index = ReaPack::Index.new @dummy_path
-    index.url_template = 'http://host/$path'
-    index.files = ['zebra.lua', 'bee.lua']
-
-    index.scan index.files.first, '@version 1.0'
-    index.scan index.files.last, '@version 1.0'
-
-    index.write!
-    assert_match /bee.+zebra/m, File.read(@dummy_path)
-  end
-
-  def test_name
-    index = ReaPack::Index.new @dummy_path
-    assert_empty index.name
-
-    index.name = 'Hello World'
-    assert_equal '1 modified metadata, empty index', index.changelog
-
-    error = assert_raises ReaPack::Index::Error do index.name = '.'; end
-    assert_raises ReaPack::Index::Error do index.name = 'hello/world'; end
-    assert_equal "Invalid name: '.'", error.message
-
-    assert_equal 'Hello World', index.name
-
-    expected = <<-XML
-<?xml version="1.0" encoding="utf-8"?>
-<index version="1" name="Hello World"/>
-    XML
-
-    index.write!
-    assert_equal expected, File.read(@dummy_path)
+    assert_equal original, File.read(index.path)
   end
 end