ftpd 0.2.2 → 0.3.1

data/spec/disk_file_system_spec.rb

@@ -43,12 +43,17 @@ module Ftpd
       "Contents of #{path}"
     end
 
+    def add_symlink(target_path, symlink_path)
+      FileUtils.ln_s data_path(target_path), data_path(symlink_path)
+    end
+
     before(:each) do
       write_file 'file'
       make_directory 'dir'
       write_file 'dir/file_in_dir'
       make_directory 'unwritable_dir'
       write_file 'unwritable_dir/file'
+      add_symlink 'file', 'symlink'
     end
 
     describe '#accessible?' do
@@ -179,108 +184,102 @@ module Ftpd
 
     end
 
-    describe '#name_list' do
+    describe '#rename' do
 
-      subject do
-        disk_file_system.name_list(path)
-      end
+      let(:from_path) {'file'}
+      let(:to_path) {'renamed_file'}
 
-      shared_examples 'returns short list of root' do
-        it {should =~ /^dir$/}
-        it {should =~ /^file$/}
-        it {should =~ /^unwritable_dir$/}
-        its('lines.to_a.size') {should == 3}
+      context '(success)' do
+        specify do
+          disk_file_system.rename(from_path, to_path)
+          exists?(from_path).should be_false
+          exists?(to_path).should be_true
+        end
       end
 
-      context '(root)' do
-        let(:path) {'/'}
-        it_behaves_like 'returns short list of root'
+      context '(error)' do
+        specify do
+          expect {
+            disk_file_system.rename(missing_path, to_path)
+          }.to raise_error *missing_file_error
+        end
       end
 
-      context '(empty path)' do
-        let(:path) {''}
-        it_behaves_like 'returns short list of root'
-      end
+    end
 
-      context '(specific file)' do
-        let(:path) {'/file'}
-        it {should == "file\n"}
+    describe '#file_info' do
+
+      let(:identifier) {"#{stat.dev}.#{stat.ino}"}
+      let(:owner) {Etc.getpwuid(stat.uid).name}
+      let(:group) {Etc.getgrgid(stat.gid).name}
+      let(:stat) {File.stat(data_path(path))}
+      subject {disk_file_system.file_info(path)}
+
+      shared_examples 'file info' do
+        its(:ftype) {should == stat.ftype}
+        its(:group) {should == group}
+        its(:mode) {should == stat.mode}
+        its(:mtime) {should == stat.mtime}
+        its(:nlink) {should == stat.nlink}
+        its(:owner) {should == owner}
+        its(:size) {should == stat.size}
+        its(:path) {should == path}
+        its(:identifier) {should == identifier}
       end
 
-      context '(specific directory)' do
-        let(:path) {'/dir'}
-        it {should == "file_in_dir\n"}
+      context '(file)' do
+        let(:path) {'file'}
+        it_behaves_like 'file info'
       end
 
-      context '(missing directory)' do
-        let(:path) {'/missing/file'}
-        it {should be_empty}
+      context '(symlink)' do
+        let(:path) {'symlink'}
+        it_behaves_like 'file info'
       end
 
     end
 
-    describe '#list' do
+    describe '#dir' do
 
-      subject do
-        disk_file_system.list(path)
+      subject(:dir) do
+        disk_file_system.dir(path)
       end
 
-      shared_examples 'returns long list of root' do
-        it {should =~ /^d.*dir$/}
-        it {should =~ /^-.*file$/}
-        it {should =~ /^d.*unwritable_dir$/}
-        its('lines.to_a.size') {should == 3}
+      context '(no such file)' do
+        let(:path) {'missing'}
+        it {should be_empty}
       end
 
-      context '(root)' do
-        let(:path) {'/'}
-        it_behaves_like 'returns long list of root'
+      context '(file)' do
+        let(:path) {'file'}
+        it {should include '/file'}
       end
 
-      context '(empty path)' do
-        let(:path) {''}
-        it_behaves_like 'returns long list of root'
+      context '(directory)' do
+        let(:path) {'dir'}
+        it {should include '/dir'}
+        it {should_not include '/dir/file_in_dir'}
       end
 
-      context '(specific file)' do
-        let(:path) {'/file'}
-        it {should =~ /^-.*file$/}
+      context '(directory + wildcard)' do
+        let(:path) {'dir/*'}
+        it {should_not include '/dir'}
+        it {should include '/dir/file_in_dir'}
       end
 
-      context '(specific directory)' do
-        let(:path) {'/dir'}
-        it {should =~ /^-.*file_in_dir\n/}
+      context '(wildcard)' do
+        let(:path) {'*'}
+        it {should include '/unwritable_dir'}
+        it {should include '/file'}
+        it {should include '/dir'}
       end
 
-      context '(missing directory)' do
-        let(:path) {'/missing/file'}
+      context '(no such directory)' do
+        let(:path) {'foo/*'}
         it {should be_empty}
       end
 
     end
 
-    describe '#rename' do
-
-      let(:from_path) {'file'}
-      let(:to_path) {'renamed_file'}
-
-      context '(success)' do
-        specify do
-          disk_file_system.rename(from_path, to_path)
-          exists?(from_path).should be_false
-          exists?(to_path).should be_true
-        end
-      end
-
-      context '(error)' do
-        specify do
-          expect {
-            disk_file_system.rename(missing_path, to_path)
-          }.to raise_error *missing_file_error
-        end
-      end
-
-    end
-
   end
 end

data/spec/file_info_spec.rb

@@ -0,0 +1,59 @@
+require File.expand_path('spec_helper', File.dirname(__FILE__))
+
+module Ftpd
+  describe FileInfo do
+
+    subject {FileInfo.new(opts)}
+
+    def self.it_has_attribute(attribute)
+      describe "##{attribute}" do
+        let(:value) {"#{attribute} value"}
+        let(:opts) {{attribute => value}}
+        its(attribute) {should == value}
+      end
+    end
+
+    it_has_attribute :ftype
+    it_has_attribute :group
+    it_has_attribute :identifier
+    it_has_attribute :mode
+    it_has_attribute :mtime
+    it_has_attribute :nlink
+    it_has_attribute :owner
+    it_has_attribute :path
+    it_has_attribute :size
+
+    describe '#file?' do
+
+      let(:opts) {{:ftype => ftype}}
+
+      context '(file)' do
+        let(:ftype) {'file'}
+        its(:file?) {should be_true}
+      end
+
+      context '(directory)' do
+        let(:ftype) {'directory'}
+        its(:file?) {should be_false}
+      end
+
+    end
+
+    describe '#directory?' do
+
+      let(:opts) {{:ftype => ftype}}
+
+      context '(file)' do
+        let(:ftype) {'file'}
+        its(:directory?) {should be_false}
+      end
+
+      context '(directory)' do
+        let(:ftype) {'directory'}
+        its(:directory?) {should be_true}
+      end
+
+    end
+
+  end
+end

data/spec/list_format/eplf_spec.rb

@@ -0,0 +1,62 @@
+require File.expand_path('../spec_helper', File.dirname(__FILE__))
+
+module Ftpd
+  module ListFormat
+    describe Eplf do
+
+      context '(file)' do
+
+        let(:file_info) do
+          FileInfo.new(:ftype => 'file',
+                       :mode => 0100644,
+                       :mtime => Time.mktime(2013, 3, 3, 8, 38, 0),
+                       :path => 'foo',
+                       :size => 1234)
+        end
+        subject(:formatter) {Eplf.new(file_info)}
+
+        it 'should produce EPLF format' do
+          formatter.to_s.should == "+r,s1234,m1362325080\tfoo"
+        end
+
+      end
+
+      context '(directory)' do
+
+        let(:file_info) do
+          FileInfo.new(:ftype => 'directory',
+                       :mode => 0100644,
+                       :mtime => Time.mktime(2013, 3, 3, 8, 38, 0),
+                       :path => 'foo',
+                       :size => 1024)
+        end
+        subject(:formatter) {Eplf.new(file_info)}
+
+        it 'should produce EPLF format' do
+          formatter.to_s.should == "+/,m1362325080\tfoo"
+        end
+
+      end
+
+      context '(with identifier)' do
+
+        let(:file_info) do
+          FileInfo.new(:ftype => 'file',
+                       :mode => 0100644,
+                       :mtime => Time.mktime(2013, 3, 3, 8, 38, 0),
+                       :path => 'foo',
+                       :identifier => '1234.5678',
+                       :size => 1234)
+        end
+        subject(:formatter) {Eplf.new(file_info)}
+
+        it 'should produce EPLF format' do
+          formatter.to_s.should ==
+            "+r,s1234,m1362325080,i1234.5678\tfoo"
+        end
+
+      end
+
+    end
+  end
+end

data/spec/list_format/ls_spec.rb

@@ -0,0 +1,270 @@
+require File.expand_path('../spec_helper', File.dirname(__FILE__))
+
+module Ftpd
+  module ListFormat
+
+    describe Ls do
+
+      let(:file_info) do
+        FileInfo.new(:ftype => 'file',
+                     :group => 'group',
+                     :mode => 0100644,
+                     :mtime => Time.mktime(2013, 3, 3, 8, 38, 0),
+                     :nlink => 1,
+                     :owner => 'user',
+                     :path => 'foo',
+                     :size => 1234)
+      end
+      subject(:formatter) {Ls.new(file_info)}
+
+      it 'should approximate ls -l format' do
+        Timecop.freeze(2013, 3, 3, 8, 38, 0) do
+          formatter.to_s.should ==
+            '-rw-r--r-- 1 user     group        1234 Mar  3 08:38 foo'
+        end
+      end
+
+    end
+
+    describe Ls::FileType do
+
+      [
+        ['file', '-'],
+        ['directory', 'd'],
+        ['characterSpecial', 'c'],
+        ['blockSpecial', 'b'],
+        ['fifo', 'p'],
+        ['link', 'l'],
+        ['socket', 's'],
+        ['unknown', '?'],
+      ].each do |ftype, letter|
+        context "(#{ftype})" do
+          specify do
+            Ls::FileType.letter(ftype).should == letter
+          end
+        end
+      end
+
+    end
+
+    describe Ls::FileMode do
+
+      let(:other_execute) {0}
+      let(:other_write) {0}
+      let(:other_read) {0}
+      let(:group_execute) {0}
+      let(:group_write) {0}
+      let(:group_read) {0}
+      let(:owner_execute) {0}
+      let(:owner_write) {0}
+      let(:owner_read) {0}
+      let(:sticky) {0}
+      let(:setgid) {0}
+      let(:setuid) {0}
+      let(:mode) do
+        other_execute << 0 |
+          other_write << 1 |
+          other_read << 2 |
+          group_execute << 3 |
+          group_write << 4 |
+          group_read << 5 |
+          owner_execute << 6 |
+          owner_write << 7 |
+          owner_read << 8 |
+          sticky << 9 |
+          setgid << 10 |
+          setuid << 11
+      end
+
+      let(:letters) {Ls::FileMode.new(mode).letters}
+
+      describe 'owner read' do
+        subject {letters[0..0]}
+        context '(0)' do
+          let(:owner_read) {0}
+          it {should == '-'}
+        end
+        context '(1)' do
+          let(:owner_read) {1}
+          it {should == 'r'}
+        end
+      end
+
+      describe 'owner write' do
+        subject {letters[1..1]}
+        context '(0)' do
+          let(:owner_write) {0}
+          it {should == '-'}
+        end
+        context '(1)' do
+          let(:owner_write) {1}
+          it {should == 'w'}
+        end
+      end
+
+      describe 'owner execute' do
+
+        subject {letters[2..2]}
+
+        context '(setuid 0)' do
+          let(:setuid) {0}
+          context '(execute 0)' do
+            let(:owner_execute) {0}
+            it {should == '-'}
+          end
+          context '(execute 1)' do
+            let(:owner_execute) {1}
+            it {should == 'x'}
+          end
+        end
+
+        context '(setuid 1)' do
+          let(:setuid) {1}
+          context '(execute 0)' do
+            let(:owner_execute) {0}
+            it {should == 'S'}
+          end
+          context '(execute 1)' do
+            let(:owner_execute) {1}
+            it {should == 's'}
+          end
+        end
+
+      end
+
+      describe 'group read' do
+        subject {letters[3..3]}
+        context '(0)' do
+          let(:group_read) {0}
+          it {should == '-'}
+        end
+        context '(1)' do
+          let(:group_read) {1}
+          it {should == 'r'}
+        end
+      end
+
+      describe 'group write' do
+        subject {letters[4..4]}
+        context '(0)' do
+          let(:group_write) {0}
+          it {should == '-'}
+        end
+        context '(1)' do
+          let(:group_write) {1}
+          it {should == 'w'}
+        end
+      end
+
+      describe 'group execute' do
+
+        subject {letters[5..5]}
+
+        context '(setgid 0)' do
+          let(:setgid) {0}
+          context '(execute 0)' do
+            let(:group_execute) {0}
+            it {should == '-'}
+          end
+          context '(execute 1)' do
+            let(:group_execute) {1}
+            it {should == 'x'}
+          end
+        end
+
+        context '(setgid 1)' do
+          let(:setgid) {1}
+          context '(execute 0)' do
+            let(:group_execute) {0}
+            it {should == 'S'}
+          end
+          context '(execute 1)' do
+            let(:group_execute) {1}
+            it {should == 's'}
+          end
+        end
+
+      end
+
+      describe 'other read' do
+        subject {letters[6..6]}
+        context '(0)' do
+          let(:other_read) {0}
+          it {should == '-'}
+        end
+        context '(1)' do
+          let(:other_read) {1}
+          it {should == 'r'}
+        end
+      end
+
+      describe 'other write' do
+        subject {letters[7..7]}
+        context '(0)' do
+          let(:other_write) {0}
+          it {should == '-'}
+        end
+        context '(1)' do
+          let(:other_write) {1}
+          it {should == 'w'}
+        end
+      end
+
+      describe 'other execute' do
+
+        subject {letters[8..8]}
+
+        context '(sticky 0)' do
+          let(:sticky) {0}
+          context '(execute 0)' do
+            let(:other_execute) {0}
+            it {should == '-'}
+          end
+          context '(execute 1)' do
+            let(:other_execute) {1}
+            it {should == 'x'}
+          end
+        end
+
+        context '(sticky 1)' do
+          let(:sticky) {1}
+          context '(execute 0)' do
+            let(:other_execute) {0}
+            it {should == 'T'}
+          end
+          context '(execute 1)' do
+            let(:other_execute) {1}
+            it {should == 't'}
+          end
+        end
+
+      end
+
+    end
+
+    describe '.format_time' do
+
+      let(:mtime) {Time.mktime(2013, 6, 1, 13, 14, 15)}
+
+      around(:each) { |block| Timecop.freeze(now, &block) }
+      subject {Ls.format_time(mtime)}
+
+      context '(recent)' do
+        let(:now) {mtime}
+        it {should == 'Jun  1 13:14'}
+      end
+
+      context '(old)' do
+        let(:now) {Time.mktime(2014, 1, 1, 0, 0, 0)}
+        it {should == 'Jun  1  2013'}
+      end
+
+      context '(future)' do
+        let(:now) {Time.mktime(2013, 1, 1, 0, 0, 0)}
+        it {should == 'Jun  1  2013'}
+      end
+
+    end
+
+  end
+end