From e5948dcc4e0d2d9a33dfec33edbfaff07d66c8f8 Mon Sep 17 00:00:00 2001 From: cvs2git <> Date: Wed, 7 Jan 2004 13:17:33 +0000 Subject: [PATCH] This commit was manufactured by cvs2svn to create tag 'fuse_1_1_pre1'. --- debian/README.Debian | 11 --- debian/changelog | 17 ---- debian/copyright | 9 -- debian/dirs | 2 - debian/docs | 4 - debian/fuse-module.control | 10 -- debian/fuse-module.postinst | 7 -- debian/fuse-module.prerm | 7 -- debian/fuse-source.dirs | 1 - debian/fuse-source.files | 1 - debian/fuse-utils.dirs | 1 - debian/fuse-utils.files | 1 - debian/fuse.control | 35 ------- debian/genchanges.sh | 43 --------- debian/libfuse-dev.dirs | 2 - debian/libfuse-dev.examples | 3 - debian/libfuse-dev.files | 3 - debian/rules | 172 --------------------------------- debian/setvers.sh | 113 ---------------------- debian/source.control | 6 -- perl/examples/example.pl | 90 ----------------- perl/examples/loopback.pl | 136 -------------------------- perl/examples/rmount.pl | 82 ---------------- perl/examples/rmount_remote.pl | 143 --------------------------- perl/test/chmod.t | 11 --- perl/test/chown.t | 14 --- perl/test/getattr.t | 42 -------- perl/test/getdir.t | 33 ------- perl/test/helper.pm | 23 ----- perl/test/link.t | 16 --- perl/test/mkdir.t | 11 --- perl/test/mknod.t | 37 ------- perl/test/open.t | 10 -- perl/test/read.t | 13 --- perl/test/readlink.t | 11 --- perl/test/rename.t | 12 --- perl/test/rmdir.t | 13 --- perl/test/s/mount.t | 25 ----- perl/test/s/umount.t | 7 -- perl/test/statfs.t | 21 ---- perl/test/symlink.t | 19 ---- perl/test/test-template | 5 - perl/test/truncate.t | 12 --- perl/test/unlink.t | 14 --- perl/test/utime.t | 13 --- perl/test/write.t | 45 --------- 46 files changed, 1306 deletions(-) delete mode 100644 debian/README.Debian delete mode 100644 debian/changelog delete mode 100644 debian/copyright delete mode 100644 debian/dirs delete mode 100644 debian/docs delete mode 100644 debian/fuse-module.control delete mode 100644 debian/fuse-module.postinst delete mode 100644 debian/fuse-module.prerm delete mode 100644 debian/fuse-source.dirs delete mode 100644 debian/fuse-source.files delete mode 100644 debian/fuse-utils.dirs delete mode 100644 debian/fuse-utils.files delete mode 100644 debian/fuse.control delete mode 100644 debian/genchanges.sh delete mode 100644 debian/libfuse-dev.dirs delete mode 100644 debian/libfuse-dev.examples delete mode 100644 debian/libfuse-dev.files delete mode 100755 debian/rules delete mode 100644 debian/setvers.sh delete mode 100644 debian/source.control delete mode 100755 perl/examples/example.pl delete mode 100755 perl/examples/loopback.pl delete mode 100755 perl/examples/rmount.pl delete mode 100755 perl/examples/rmount_remote.pl delete mode 100644 perl/test/chmod.t delete mode 100644 perl/test/chown.t delete mode 100644 perl/test/getattr.t delete mode 100644 perl/test/getdir.t delete mode 100644 perl/test/helper.pm delete mode 100644 perl/test/link.t delete mode 100644 perl/test/mkdir.t delete mode 100644 perl/test/mknod.t delete mode 100644 perl/test/open.t delete mode 100644 perl/test/read.t delete mode 100644 perl/test/readlink.t delete mode 100644 perl/test/rename.t delete mode 100644 perl/test/rmdir.t delete mode 100644 perl/test/s/mount.t delete mode 100644 perl/test/s/umount.t delete mode 100644 perl/test/statfs.t delete mode 100644 perl/test/symlink.t delete mode 100644 perl/test/test-template delete mode 100644 perl/test/truncate.t delete mode 100644 perl/test/unlink.t delete mode 100644 perl/test/utime.t delete mode 100644 perl/test/write.t diff --git a/debian/README.Debian b/debian/README.Debian deleted file mode 100644 index 9282c8c..0000000 --- a/debian/README.Debian +++ /dev/null @@ -1,11 +0,0 @@ -fuse for Debian ---------------- - -To be able to use fuse, you need to install the appropriate fuse-module -package for your kernel version. For a self-compiled kernel, install -fuse-source, unpack the tarball /usr/src/fuse.tar, and run -make-kpkg modules from your kernel source tree. You should end up having -a fuse-module package in /usr/src/modules which you need to install with -dpkg -i fuse-module-...deb. - - -- Roland Bauerschmidt , Fri, 5 Apr 2002 16:56:10 +0200 diff --git a/debian/changelog b/debian/changelog deleted file mode 100644 index f6a1b4c..0000000 --- a/debian/changelog +++ /dev/null @@ -1,17 +0,0 @@ -fuse (1.0-1) unstable; urgency=low - - * New upstream release. - * debian/genchanges.sh: Only run gpg/pgp if available. Closes: #209358. - * debian/fuse-module.control: Fixed typo (fuse-module instead of - fule-module). Closes: #212576. - - -- Roland Bauerschmidt Tue, 7 Oct 2003 18:00:23 +0200 - -fuse (0.95-1) unstable; urgency=low - - * Initial Release. - * Adapted lots of stuff from the pcmcia-cs package to build module - packages properly. - - -- Roland Bauerschmidt Sun, 7 Apr 2002 19:56:20 +0200 - diff --git a/debian/copyright b/debian/copyright deleted file mode 100644 index 2fc2d19..0000000 --- a/debian/copyright +++ /dev/null @@ -1,9 +0,0 @@ -This package was debianized by Roland Bauerschmidt on -Fri, 5 Apr 2002 16:56:10 +0200. - -It was downloaded from http://sourceforge.net/projects/avf/ - -Upstream Author: Miklos Szeredi - -FUSE is licensed under the terms of the GPL. On Debian systems, the full -text can be found in /usr/share/common-licenses/GPL. diff --git a/debian/dirs b/debian/dirs deleted file mode 100644 index ca882bb..0000000 --- a/debian/dirs +++ /dev/null @@ -1,2 +0,0 @@ -usr/bin -usr/sbin diff --git a/debian/docs b/debian/docs deleted file mode 100644 index b5c7362..0000000 --- a/debian/docs +++ /dev/null @@ -1,4 +0,0 @@ -BUGS -NEWS -README -TODO diff --git a/debian/fuse-module.control b/debian/fuse-module.control deleted file mode 100644 index b0b9aa0..0000000 --- a/debian/fuse-module.control +++ /dev/null @@ -1,10 +0,0 @@ -Package: fuse-module-${kvers} -Section: misc -Architecture: any -Provides: fuse-module -Depends: kernel-image-${kvers} (= ${kversdeb}) -Recommends: fuse-utils -Description: Filesystem in USErspace (kernel module) - Simple interface for userspace programs to export a virtual - filesystem to the linux kernel. - diff --git a/debian/fuse-module.postinst b/debian/fuse-module.postinst deleted file mode 100644 index 74d4e93..0000000 --- a/debian/fuse-module.postinst +++ /dev/null @@ -1,7 +0,0 @@ -#!/bin/sh -e - -if [ "$1" = "configure" -a "`uname -r`" = "${kvers}" ]; then - depmod -a || true -fi - -#DEBHELPER# diff --git a/debian/fuse-module.prerm b/debian/fuse-module.prerm deleted file mode 100644 index e745f4d..0000000 --- a/debian/fuse-module.prerm +++ /dev/null @@ -1,7 +0,0 @@ -#!/bin/sh -e - -if [ "`uname -r`" = "${kvers}" ]; then - depmod -a || true -fi - -#DEBHELPER# diff --git a/debian/fuse-source.dirs b/debian/fuse-source.dirs deleted file mode 100644 index b601f22..0000000 --- a/debian/fuse-source.dirs +++ /dev/null @@ -1 +0,0 @@ -usr/src diff --git a/debian/fuse-source.files b/debian/fuse-source.files deleted file mode 100644 index 132681b..0000000 --- a/debian/fuse-source.files +++ /dev/null @@ -1 +0,0 @@ -usr/src/* diff --git a/debian/fuse-utils.dirs b/debian/fuse-utils.dirs deleted file mode 100644 index e772481..0000000 --- a/debian/fuse-utils.dirs +++ /dev/null @@ -1 +0,0 @@ -usr/bin diff --git a/debian/fuse-utils.files b/debian/fuse-utils.files deleted file mode 100644 index 1df36c6..0000000 --- a/debian/fuse-utils.files +++ /dev/null @@ -1 +0,0 @@ -usr/bin/* diff --git a/debian/fuse.control b/debian/fuse.control deleted file mode 100644 index f639f27..0000000 --- a/debian/fuse.control +++ /dev/null @@ -1,35 +0,0 @@ -Package: libfuse-dev -Section: devel -Architecture: any -Suggests: fuse-utils (= ${Source-Version}), fuse-module -Description: Filesystem in USErspace (development files) - Simple interface for userspace programs to export a virtual - filesystem to the linux kernel. - . - This package contains the files necessary to write applications in C - or C++ using fuse. - -Package: fuse-utils -Section: utils -Architecture: any -Depends: ${shlibs:Depends} -Suggests: fuse-module -Description: Filesystem in USErspace (utilities) - Simple interface for userspace programs to export a virtual - filesystem to the linux kernel. - . - This package contains the fusermount utility which is necessary to - mount fuse filesystems. - -Package: fuse-source -Section: utils -Architecture: all -Depends: make, gcc | c-compiler -Recommends: dpkg-dev, kernel-package -Suggests: devscripts -Description: Filesystem in USErspace (source for kernel module) - Simple interface for userspace programs to export a virtual - filesystem to the linux kernel. - . - This package contains the source code for the fuse module. It is - required to use fuse with a self-compiled kernel. diff --git a/debian/genchanges.sh b/debian/genchanges.sh deleted file mode 100644 index 1598b91..0000000 --- a/debian/genchanges.sh +++ /dev/null @@ -1,43 +0,0 @@ -#!/bin/sh -# genchanges.sh - generate a changes file for a deb file generated via -# the make-kpkg utility - -# KSRC KMAINT and KEMAIL are expected to be passed through the environment - -set -e -umask 022 - -KVERS=`cat debian/KVERS` -MODVERS=`cat debian/MODVERS` -ARCH=`dpkg --print-architecture` - -{ head -2 debian/changelog - echo " * Built for kernel-image-${KVERS}." - echo - sed -ne '/^ -- / { p; q; }' debian/changelog -} > debian/changelog.tmp - -# determine the maintainer's name -for name in "$KMAINT" "$DEBFULLNAME" "$DEBNAME" - do test -n "$name" && break; done -for email in "$KEMAIL" "$DEBEMAIL" - do test -n "$email" && break; done -if [ "$name" -a "$email" ]; then maint="$name <$email>" -elif [ "$email" ]; then maint="$email" -else maint=""; fi - -# the changes file's name -chfile="$KSRC/../fuse-module-${KVERS}_${MODVERS}_${ARCH}.changes" - -dpkg-genchanges -b ${maint:+-e"$maint"} -u"$KSRC/.." \ - -ldebian/changelog.tmp \ - -cdebian/control.tmp > "$chfile.pt" -if test -e "${GNUPGHOME:-$HOME/.gnupg/secring.gpg}" && test -x /usr/bin/gpg; then - gpg -ast ${email:+-u"$email"} \ - --clearsign < "$chfile.pt" > "$chfile" -elif test -x /usr/bin/pgp; then - pgp -fast ${email:+-u"$email"} +clearsig=on \ - < "$chfile.pt" > "$chfile" -fi -rm debian/changelog.tmp -rm "$chfile.pt" diff --git a/debian/libfuse-dev.dirs b/debian/libfuse-dev.dirs deleted file mode 100644 index 4418816..0000000 --- a/debian/libfuse-dev.dirs +++ /dev/null @@ -1,2 +0,0 @@ -usr/lib -usr/include diff --git a/debian/libfuse-dev.examples b/debian/libfuse-dev.examples deleted file mode 100644 index 9579334..0000000 --- a/debian/libfuse-dev.examples +++ /dev/null @@ -1,3 +0,0 @@ -example/hello.c -example/null.c -example/fusexmp.c diff --git a/debian/libfuse-dev.files b/debian/libfuse-dev.files deleted file mode 100644 index d1bffed..0000000 --- a/debian/libfuse-dev.files +++ /dev/null @@ -1,3 +0,0 @@ -usr/include/* -usr/lib/lib*.a -usr/lib/lib*.so diff --git a/debian/rules b/debian/rules deleted file mode 100755 index 848bc10..0000000 --- a/debian/rules +++ /dev/null @@ -1,172 +0,0 @@ -#!/usr/bin/make -f -# Sample debian/rules that uses debhelper. -# GNU copyright 1997 to 1999 by Joey Hess. - -#export DH_VERBOSE=1 -export DH_COMPAT=3 - -DEB_HOST_GNU_TYPE ?= $(shell dpkg-architecture -qDEB_HOST_GNU_TYPE) -DEB_BUILD_GNU_TYPE ?= $(shell dpkg-architecture -qDEB_BUILD_GNU_TYPE) - -KSRC ?= /usr/src/linux -MOD_DIR ?= '.' - -ifneq (,$(findstring debug,$(DEB_BUILD_OPTIONS))) - CFLAGS += -g -endif -ifeq (,$(findstring nostrip,$(DEB_BUILD_OPTIONS))) - INSTALL_PROGRAM += -s -endif - - -build: build-stamp -build-stamp: - $(checkdir) - - ./makeconf.sh - ./configure --host=$(DEB_HOST_GNU_TYPE) --build=$(DEB_BUILD_GNU_TYPE) --prefix=/usr --mandir=\$${prefix}/share/man --infodir=\$${prefix}/share/info --disable-kernel-module --disable-example - $(MAKE) - - touch build-stamp - -clean: kdist_clean - $(checkdir) - $(checkroot) - rm -f build-stamp - - -$(MAKE) distclean - -test -r /usr/share/misc/config.sub && \ - cp -f /usr/share/misc/config.sub config.sub - -test -r /usr/share/misc/config.guess && \ - cp -f /usr/share/misc/config.guess config.guess - - find -name '*.o' -o -name '*.so' -o -name fusermount -type f -o \ - \( -name 'Makefile' -a ! -regex '.*python.*' \) | xargs rm -f - - rm -f debian/control - cat debian/source.control debian/fuse.control > debian/control - - dh_clean - -clean-modules: - $(checkdir) - $(checkroot) - rm -f build-modules-stamp - rm -rf debian/fuse-module-* - rm -f debian/KVERS debian/MODVERS debian/control.tmp - - -$(MAKE) distclean - - test -f debian/control || touch debian/control - dh_clean - -install: build - $(checkdir) - $(checkroot) - - dh_clean -k - dh_installdirs - - $(MAKE) install DESTDIR=$(CURDIR)/debian/tmp - - # -source package - find . \( -name \*.o -path ./debian/tmp \) -prune -o -print | \ - cpio -admp debian/tmp/usr/src/modules/fuse - cd debian/tmp/usr/src/modules/fuse && \ - $(MAKE) -f debian/rules clean - cd debian/tmp/usr/src && \ - tar cf fuse.tar modules && \ - rm -r modules - gzip -9 debian/tmp/usr/src/fuse.tar - -build-modules: build-modules-stamp -build-modules-stamp: - $(checkdir) - - ./makeconf.sh - ./configure --host=$(DEB_HOST_GNU_TYPE) --build=$(DEB_BUILD_GNU_TYPE) --prefix=/usr --mandir=\$${prefix}/share/man --infodir=\$${prefix}/share/info --disable-lib --disable-util --disable-example --with-kernel=$(KSRC) - - $(MAKE) - - touch build-modules-stamp - -install-modules: build-modules - $(checkdir) - $(checkroot) - - install -d $(CURDIR)/debian/fuse-module-$(KVERS)/lib/modules/$(KVERS)/kernel/fs/fuse - install -m 0644 kernel/fuse.o $(CURDIR)/debian/fuse-module-$(KVERS)/lib/modules/$(KVERS)/kernel/fs/fuse/fuse.o - -binary-fuse: build install - $(checkdir) - $(checkroot) - dh_movefiles - find debian/ -type d | xargs rmdir --ignore-fail-on-non-empty -p - - dh_installdocs - dh_installexamples - dh_installchangelogs ChangeLog - dh_link - dh_strip - dh_compress - dh_fixperms - dh_makeshlibs - dh_installdeb - dh_shlibdeps - dh_gencontrol - dh_md5sums - dh_builddeb - -binary-modules: build-modules install-modules - $(checkdir) - $(checkroot) - - KSRC="$(KSRC)" KVERS="$(KVERS)" KDREV="$(KDREV)" sh -v debian/setvers.sh - DH_OPTIONS="-pfuse-module-$(KVERS)" - - dh_installdocs $(DH_OPTIONS) - dh_installexamples $(DH_OPTIONS) - dh_installchangelogs ChangeLog $(DH_OPTIONS) - dh_strip $(DH_OPTIONS) - dh_compress $(DH_OPTIONS) - dh_fixperms $(DH_OPTIONS) - dh_md5sums $(DH_OPTIONS) - dh_builddeb --destdir=$(MOD_DIR)/.. -pfuse-module-$(KVERS) - -binary-arch: binary-fuse - $(checkdir) - $(checkroot) - set -e; KPATH=$(KPATH); \ - if [ "$$KPATH" ]; then \ - for k in `IFS=':'; echo $$KPATH`; do \ - test ! -d $$d || \ - $(MAKE) -f debian/rules KSRC="$$k" clean-modules binary-modules; \ - done; \ - fi - -binary: binary-arch - -kdist_clean: clean-modules - -kdist_image: - $(checkdir) - $(checkroot) - for CONFLOC in ~/.kernel-pkg.conf /etc/kernel-pkg.conf; \ - do test -f $$CONFLOC && break; done; \ - $(MAKE) -f debian/rules \ - MOD_DIR=$(KSRC) CONFLOC=$$CONFLOC \ - clean-modules binary-modules - -kdist: kdist_image - KSRC="$(KSRC)" KMAINT="$(KMAINT)" KEMAIL="$(KEMAIL)" \ - sh -v debian/genchanges.sh - -define checkdir - test -f debian/rules -a -f debian/changelog -endef - -define checkroot - test root = "`whoami`" -endef - -.PHONY: build clean binary-indep binary-arch binary install diff --git a/debian/setvers.sh b/debian/setvers.sh deleted file mode 100644 index 303b04f..0000000 --- a/debian/setvers.sh +++ /dev/null @@ -1,113 +0,0 @@ -#!/bin/sh - -# setvers.sh - extract version numbers from the changelog and kernel -# source and build the control file and prerm script for the -# pcmcia-modules package - -# KSRC is expected to be passed through the environment - -# adapted for fuse by Roland Bauerschmidt - -set -e -umask 022 - -# define some sed scripts for extracting the upstream version number -# and Debian revision number from a Debian changelog -up_vers_sed=' - 1{ - s/^[^(]*(// - s/)[^)]*$// - /-[A-Za-z0-9.+]*$/{ - s/// - b enddeb - } - /-/q - :enddeb - /^[A-Za-z0-9.+:-]\{1,\}$/p - q - }' -fuse_vers_sed=' - /AM_INIT_AUTOMAKE(fuse, \([.0-9]*\))/{ - s//\1/p - q - }' -deb_rev_sed=' - 1{ - s/^[^(]*(// - s/)[^)]*$// - s/^.*-\([A-Za-z0-9.+]*\)$/\1/p - q - }' -test "$KVERS" || \ - KVERS=`sed -ne '/UTS_RELEASE=/{ - s/// - p - q - }' config.mk` - -# extract the upstream version number and debian revision number -UPVERS=`sed -ne "$fuse_vers_sed" configure.in` -DEBREV=`sed -ne "$deb_rev_sed" debian/changelog` -NEXTVERS=${UPVERS%.*}.`expr ${UPVERS##*.} + 1` - -# determine the version numbers for the kernel source -# use a Debian changelog if it exists, otherwise use the kernel version -# number determined by the PCMCIA configure script -if [ "$KDREV" ]; then - case "$KDREV" in - *-*) KDEBREV=${KDREV##*-} ;; - *) KDEBREV="" ;; - esac - KVERSDEB=${KDREV%-*} -elif test -r "$KSRC/debian/changelog"; then - KDEBREV=`sed -ne "$deb_rev_sed" "$KSRC/debian/changelog"` - KVERSDEB=`sed -ne "$up_vers_sed" "$KSRC/debian/changelog"` -else - KDEBREV="" - KVERSDEB="$KVERS" -fi - -# remove the epoch number (if any) -KVERSDEBNE="${KVERSDEB##*:}" - -# test whether we have successfully determined the version numbers -test "$KVERS" -a "$UPVERS" -a "$DEBREV" || exit 1 - -echo "$KVERS" > debian/KVERS -if [ "${KVERS%%-*}" = "$KVERSDEBNE" ]; then - MODVERS="$UPVERS-${DEBREV}${KDEBREV:+k$KDEBREV}" -else - MODVERS="$UPVERS-${DEBREV}+"`echo "$KVERSDEBNE" | tr - +`${KDEBREV:+"+$KDEBREV"} -fi -echo "$MODVERS" > debian/MODVERS - -# Generate a correct control file and prerm script for the modules package -#for script in preinst postinst prerm config templates; do -# sed -e 's/\${kvers}/'"$KVERS"'/g -# s/\${kversdeb}/'"$KVERSDEB"'/g' \ -# debian/pcmcia-modules.$script.in > debian/tmp-modules/DEBIAN/$script -# chmod +x debian/tmp-modules/DEBIAN/$script -#done - -cat debian/source.control > debian/control.tmp -filter='s/\${kvers}/'"$KVERS"'/g - s/\${kversdeb}/'"$KVERSDEB${KDEBREV:+-$KDEBREV}"'/g' -if ! [ "${KVERS%%-*}" = "$KVERSDEBNE" -a "$KDEBREV" ]; then - filter="$filter"' - s/Depends: kernel-image[^)]*),/Depends:/' -fi -sed -e "$filter" debian/fuse-module.control | \ - tee -a debian/control >> debian/control.tmp - -mkdir -p debian/fuse-module-$KVERS/DEBIAN -dpkg-gencontrol -isp -v"$MODVERS" \ - -Vcurvers="$UPVERS" -Vnextvers="$NEXTVERS" \ - -p"fuse-module-$KVERS" -Pdebian/fuse-module-$KVERS \ - -cdebian/control.tmp - -for i in postinst prerm; do - sed -e "$filter" debian/fuse-module.$i > \ - debian/fuse-module-$KVERS.$i -done - -exit 0 diff --git a/debian/source.control b/debian/source.control deleted file mode 100644 index 582cd6e..0000000 --- a/debian/source.control +++ /dev/null @@ -1,6 +0,0 @@ -Source: fuse -Priority: optional -Maintainer: Roland Bauerschmidt -Build-Depends: debhelper (>> 3.0.0), automake, autoconf -Standards-Version: 3.5.6.1 - diff --git a/perl/examples/example.pl b/perl/examples/example.pl deleted file mode 100755 index 9ba1117..0000000 --- a/perl/examples/example.pl +++ /dev/null @@ -1,90 +0,0 @@ -#!/usr/bin/perl - -use Fuse; -use POSIX qw(ENOENT EISDIR EINVAL); - -my (%files) = ( - '.' => { - type => 0040, - mode => 0755, - ctime => time()-1000 - }, - a => { - cont => "File 'a'.\n", - type => 0100, - mode => 0755, - ctime => time()-2000 - }, - b => { - cont => "This is file 'b'.\n", - type => 0100, - mode => 0644, - ctime => time()-1000 - }, -); - -sub filename_fixup { - my ($file) = shift; - $file =~ s,^/,,; - $file = '.' unless length($file); - return $file; -} - -sub e_getattr { - my ($file) = filename_fixup(shift); - $file =~ s,^/,,; - $file = '.' unless length($file); - return -ENOENT() unless exists($files{$file}); - my ($size) = exists($files{$file}{cont}) ? length($files{$file}{cont}) : 0; - my ($modes) = ($files{$file}{type}<<9) + $files{$file}{mode}; - my ($dev, $ino, $rdev, $blocks, $gid, $uid, $nlink, $blksize) = (0,0,0,1,0,0,1,1024); - my ($atime, $ctime, $mtime); - $atime = $ctime = $mtime = $files{$file}{ctime}; - # 2 possible types of return values: - #return -ENOENT(); # or any other error you care to - #print(join(",",($dev,$ino,$modes,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,$blksize,$blocks)),"\n"); - return ($dev,$ino,$modes,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,$blksize,$blocks); -} - -sub e_getdir { - # return as many text filenames as you like, followed by the retval. - print((scalar keys %files)."\n"); - return (keys %files),0; -} - -sub e_open { - # VFS sanity check; it keeps all the necessary state, not much to do here. - my ($file) = filename_fixup(shift); - print("open called\n"); - return -ENOENT() unless exists($files{$file}); - return -EISDIR() unless exists($files{$file}{cont}); - print("open ok\n"); - return 0; -} - -sub e_read { - # return an error numeric, or binary/text string. (note: 0 means EOF, "0" will - # give a byte (ascii "0") to the reading program) - my ($file) = filename_fixup(shift); - my ($buf,$off) = @_; - return -ENOENT() unless exists($files{$file}); - return -EINVAL() if $off > length($files{$file}{cont}); - return 0 if $off == length($files{$file}{cont}); - return substr($files{$file}{cont},$off,$buf); -} - -sub e_statfs { return 255, 1, 1, 1, 1, 2 } - -# If you run the script directly, it will run fusermount, which will in turn -# re-run this script. Hence the funky semantics. -my ($mountpoint) = ""; -$mountpoint = shift(@ARGV) if @ARGV; -Fuse::main( - mountpoint=>$mountpoint, - getattr=>\&e_getattr, - getdir=>\&e_getdir, - open=>\&e_open, - statfs=>\&e_statfs, - read=>\&e_read, - #debug=>1, threaded=>0 -); diff --git a/perl/examples/loopback.pl b/perl/examples/loopback.pl deleted file mode 100755 index bdc8c22..0000000 --- a/perl/examples/loopback.pl +++ /dev/null @@ -1,136 +0,0 @@ -#!/usr/bin/perl - -use strict; -use Fuse; -use IO::File; -use POSIX qw(ENOENT ENOSYS EEXIST EPERM O_RDONLY O_RDWR O_APPEND O_CREAT); -use Fcntl qw(S_ISBLK S_ISCHR S_ISFIFO SEEK_SET); -require 'syscall.ph'; # for SYS_mknod and SYS_lchown - -sub fixup { return "/tmp/fusetest" . shift } - -sub x_getattr { - my ($file) = fixup(shift); - my (@list) = lstat($file); - return -$! unless @list; - return @list; -} - -sub x_getdir { - my ($dirname) = fixup(shift); - unless(opendir(DIRHANDLE,$dirname)) { - return -ENOENT(); - } - my (@files) = readdir(DIRHANDLE); - closedir(DIRHANDLE); - return (@files, 0); -} - -sub x_open { - my ($file) = fixup(shift); - my ($mode) = shift; - return -$! unless sysopen(FILE,$file,$mode); - close(FILE); - return 0; -} - -sub x_read { - my ($file,$bufsize,$off) = @_; - my ($rv) = -ENOSYS(); - my ($handle) = new IO::File; - return -ENOENT() unless -e ($file = fixup($file)); - my ($fsize) = -s $file; - return -ENOSYS() unless open($handle,$file); - if(seek($handle,$off,SEEK_SET)) { - read($handle,$rv,$bufsize); - } - return $rv; -} - -sub x_write { - my ($file,$buf,$off) = @_; - my ($rv); - return -ENOENT() unless -e ($file = fixup($file)); - my ($fsize) = -s $file; - return -ENOSYS() unless open(FILE,'+<',$file); - if($rv = seek(FILE,$off,SEEK_SET)) { - $rv = print(FILE $buf); - } - $rv = -ENOSYS() unless $rv; - close(FILE); - return length($buf); -} - -sub err { return (-shift || -$!) } - -sub x_readlink { return readlink(fixup(shift) ); } -sub x_unlink { return unlink(fixup(shift)) ? 0 : -$!; } -sub x_rmdir { return err(rmdir(fixup(shift)) ); } - -sub x_symlink { print "symlink\n"; return symlink(shift,fixup(shift)) ? 0 : -$!; } - -sub x_rename { - my ($old) = fixup(shift); - my ($new) = fixup(shift); - my ($err) = rename($old,$new) ? 0 : -ENOENT(); - return $err; -} -sub x_link { return link(fixup(shift),fixup(shift)) ? 0 : -$! } -sub x_chown { - my ($fn) = fixup(shift); - print "nonexistent $fn\n" unless -e $fn; - my ($uid,$gid) = @_; - # perl's chown() does not chown symlinks, it chowns the symlink's - # target. it fails when the link's target doesn't exist, because - # the stat64() syscall fails. - # this causes error messages when unpacking symlinks in tarballs. - my ($err) = syscall(&SYS_lchown,$fn,$uid,$gid,$fn) ? -$! : 0; - return $err; -} -sub x_chmod { - my ($fn) = fixup(shift); - my ($mode) = shift; - my ($err) = chmod($mode,$fn) ? 0 : -$!; - return $err; -} -sub x_truncate { return truncate(fixup(shift),shift) ? 0 : -$! ; } -sub x_utime { return utime($_[1],$_[2],fixup($_[0])) ? 0:-$!; } - -sub x_mkdir { my ($name, $perm) = @_; return 0 if mkdir(fixup($name),$perm); return -$!; } -sub x_rmdir { return 0 if rmdir fixup(shift); return -$!; } - -sub x_mknod { - # since this is called for ALL files, not just devices, I'll do some checks - # and possibly run the real mknod command. - my ($file, $modes, $dev) = @_; - $file = fixup($file); - $! = 0; - syscall(&SYS_mknod,$file,$modes,$dev); - return -$!; -} - -# kludge -sub x_statfs {return 255,1000000,500000,1000000,500000,4096} -my ($mountpoint) = ""; -$mountpoint = shift(@ARGV) if @ARGV; -Fuse::main( - mountpoint=>$mountpoint, - getattr=>\&x_getattr, - readlink=>\&x_readlink, - getdir=>\&x_getdir, - mknod=>\&x_mknod, - mkdir=>\&x_mkdir, - unlink=>\&x_unlink, - rmdir=>\&x_rmdir, - symlink=>\&x_symlink, - rename=>\&x_rename, - link=>\&x_link, - chmod=>\&x_chmod, - chown=>\&x_chown, - truncate=>\&x_truncate, - utime=>\&x_utime, - open=>\&x_open, - read=>\&x_read, - write=>\&x_write, - statfs=>\&x_statfs, -); diff --git a/perl/examples/rmount.pl b/perl/examples/rmount.pl deleted file mode 100755 index 9ae1cc1..0000000 --- a/perl/examples/rmount.pl +++ /dev/null @@ -1,82 +0,0 @@ -#!/usr/bin/perl - -use strict; -use Net::SSH 'sshopen2'; -use IPC::Open2; -use Fuse; -use Data::Dumper; - -my ($host, $dir, $mount) = @ARGV; -if(!defined($mount)) { - $mount = $dir; - if($host =~ /^(.*):(.*)$/) { - ($host,$dir) = ($1,$2); - } else { - die "usage: $0 user\@host remotedir mountpoint\n". - "or : $0 user\@host:remotedir mountpoint\n"; - } -} - -`umount $mount` unless -d $mount; -die "mountpoint $mount isn't a directory!\n" unless -d $mount; - -my (%args) = (mountpoint => $mount); - -map { my ($str) = $_; $args{$str} = sub { netlink($str,@_) } } - qw(getattr getdir open read write readlink unlink rmdir - symlink rename link chown chmod truncate utime mkdir - rmdir mknod statfs); - -sub connect_remote { - sshopen2($host, *READER, *WRITER, "./rmount_remote.pl $dir") - or die "ssh: $!\n"; - select WRITER; - $| = 1; - select STDOUT; -} - -$SIG{CHLD} = sub { - use POSIX ":sys_wait_h"; - my $kid; - do { - $kid = waitpid(-1,WNOHANG); - } until $kid < 1; -}; - -connect_remote; - -sub netlink { - my ($str) = Dumper(\@_)."\n"; - $str = sprintf("%08i\n%s",length($str),$str); - while(1) { # retry as necessary - my ($sig) = $SIG{ALRM}; - my ($VAR1); - $VAR1 = undef; - eval { - $SIG{ALRM} = sub { die "timeout\n" }; - alarm 10; - print WRITER $str; - my ($len, $data); - if(read(READER,$len,9) == 9) { - read(READER,$data,$len-length($data),length($data)) - while(length($data) < $len); - eval $data; - } - }; - alarm 0; - $SIG{ALRM} = $sig; - if(defined $VAR1) { - return wantarray ? @{$VAR1} : $$VAR1[0]; - } - print STDERR "failed to send command; reconnecting ssh\n"; - close(READER); - close(WRITER); - connect_remote(); - } -} - -Fuse::main(%args); - -netlink("bye"); -close(READER); -close(WRITER); diff --git a/perl/examples/rmount_remote.pl b/perl/examples/rmount_remote.pl deleted file mode 100755 index e9e0866..0000000 --- a/perl/examples/rmount_remote.pl +++ /dev/null @@ -1,143 +0,0 @@ -#!/usr/bin/perl - -use strict; -use IO::File; -use POSIX qw(ENOENT ENOSYS EEXIST EPERM O_RDONLY O_RDWR O_APPEND O_CREAT); -use Fcntl qw(S_ISBLK S_ISCHR S_ISFIFO SEEK_SET); -use Data::Dumper; -require 'syscall.ph'; # for SYS_mknod and SYS_lchown - -my ($rootdir) = @ARGV; - -# strip leading and trailing slashes -$rootdir = $1 if($rootdir =~ /^\/?(.*)\/?$/); - -sub fixup { return "/$rootdir" . shift } - -sub x_getattr { - my ($file) = fixup(shift); - my (@list) = lstat($file); - return -$! unless @list; - return @list; -} - -sub x_getdir { - my ($dirname) = fixup(shift); - unless(opendir(DIRHANDLE,$dirname)) { - return -ENOENT(); - } - my (@files) = readdir(DIRHANDLE); - closedir(DIRHANDLE); - return (@files, 0); -} - -sub x_open { - my ($file) = fixup(shift); - my ($mode) = shift; - return -$! unless sysopen(FILE,$file,$mode); - close(FILE); - return 0; -} - -sub x_read { - my ($file,$bufsize,$off) = @_; - my ($rv) = -ENOSYS(); - my ($handle) = new IO::File; - return -ENOENT() unless -e ($file = fixup($file)); - my ($fsize) = -s $file; - return -ENOSYS() unless open($handle,$file); - if(seek($handle,$off,SEEK_SET)) { - read($handle,$rv,$bufsize); - } - return $rv; -} - -sub x_write { - my ($file,$buf,$off) = @_; - my ($rv); - return -ENOENT() unless -e ($file = fixup($file)); - my ($fsize) = -s $file; - return -ENOSYS() unless open(FILE,'+<',$file); - if($rv = seek(FILE,$off,SEEK_SET)) { - $rv = print(FILE $buf); - } - $rv = -ENOSYS() unless $rv; - close(FILE); - return length($buf); -} - -sub err { return (-shift || -$!) } - -sub x_readlink { return readlink(fixup(shift) ); } -sub x_unlink { return unlink(fixup(shift)) ? 0 : -$!; } -sub x_rmdir { return err(rmdir(fixup(shift)) ); } - -sub x_symlink { print "symlink\n"; return symlink(shift,fixup(shift)) ? 0 : -$!; } - -sub x_rename { - my ($old) = fixup(shift); - my ($new) = fixup(shift); - my ($err) = rename($old,$new) ? 0 : -ENOENT(); - return $err; -} -sub x_link { return link(fixup(shift),fixup(shift)) ? 0 : -$! } -sub x_chown { - my ($fn) = fixup(shift); - print "nonexistent $fn\n" unless -e $fn; - my ($uid,$gid) = @_; - # perl's chown() does not chown symlinks, it chowns the symlink's - # target. it fails when the link's target doesn't exist, because - # the stat64() syscall fails. - # this causes error messages when unpacking symlinks in tarballs. - my ($err) = syscall(&SYS_lchown,$fn,$uid,$gid,$fn) ? -$! : 0; - return $err; -} -sub x_chmod { - my ($fn) = fixup(shift); - my ($mode) = shift; - my ($err) = chmod($mode,$fn) ? 0 : -$!; - return $err; -} -sub x_truncate { return truncate(fixup(shift),shift) ? 0 : -$! ; } -sub x_utime { return utime($_[1],$_[2],fixup($_[0])) ? 0:-$!; } - -sub x_mkdir { my ($name, $perm) = @_; return 0 if mkdir(fixup($name),$perm); return -$!; } -sub x_rmdir { return 0 if rmdir fixup(shift); return -$!; } - -sub x_mknod { - # since this is called for ALL files, not just devices, I'll do some checks - # and possibly run the real mknod command. - my ($file, $modes, $dev) = @_; - $file = fixup($file); - $! = 0; - syscall(&SYS_mknod,$file,$modes,$dev); - return -$!; -} - -# kludge -sub x_statfs {return 255,1000000,500000,1000000,500000,4096} - -$| = 1; -my ($len); -while(read(STDIN,$len,9) == 9) { - chomp $len; - my ($data,$VAR1,@args); - eval { - $SIG{ALRM} = sub { die "timeout\n"}; - $data = ""; - alarm 5; - read(STDIN,$data,$len-length($data),length($data)) - while(length($data) < $len); - alarm 0; - }; - die $@ if $@; - eval $data; - @args = @{$VAR1}; - my $cmd = shift(@args); - exit 0 if $cmd eq "bye"; - die "cannot find command $cmd\n" unless exists($main::{"x_$cmd"}); - @args = $main::{"x_$cmd"}(@args); - $cmd = Dumper(\@args)."\n"; - $cmd = sprintf("%08i\n%s",length($cmd),$cmd); - print $cmd; -} diff --git a/perl/test/chmod.t b/perl/test/chmod.t deleted file mode 100644 index 366f89b..0000000 --- a/perl/test/chmod.t +++ /dev/null @@ -1,11 +0,0 @@ -#!/usr/bin/perl -use test::helper qw($_real $_point); -use Test::More; -plan tests => 4; -chdir($_point); -system("echo frog >file"); -ok(chmod(0644,"file"),"set unexecutable"); -ok(!-x "file","unexecutable"); -ok(chmod(0755,"file"),"set executable"); -ok(-x "file","executable"); -unlink("file"); diff --git a/perl/test/chown.t b/perl/test/chown.t deleted file mode 100644 index 8ccbb88..0000000 --- a/perl/test/chown.t +++ /dev/null @@ -1,14 +0,0 @@ -#!/usr/bin/perl -use test::helper qw($_real $_point); -use Test::More; -plan tests => 4; -my (@stat); -chdir($_point); -system("echo frog >file"); -ok(chown(0,0,"file"),"set 0,0"); -@stat = stat("file"); -ok($stat[4] == 0 && $stat[5] == 0,"0,0"); -ok(chown(1,1,"file"),"set 1,1"); -@stat = stat("file"); -ok($stat[4] == 1 && $stat[5] == 1,"1,1"); -unlink("file"); diff --git a/perl/test/getattr.t b/perl/test/getattr.t deleted file mode 100644 index 4203275..0000000 --- a/perl/test/getattr.t +++ /dev/null @@ -1,42 +0,0 @@ -#!/usr/bin/perl -use test::helper qw($_real $_point); -use Test::More; -use Data::Dumper; -plan tests => 28; -my ($a, $b) = ("$_real/wibble","$_point/wibble"); -`touch $b`; -is(-A "$a", -A "$b", '-A'); # 1 -is(-B "$a", -B "$b", '-B'); # 2 -is(-C "$a", -C "$b", '-C'); # 3 -is(-M "$a", -M "$b", '-M'); # 4 -is(-O "$a", -O "$b", '-O'); # 5 -is(-R "$a", -R "$b", '-R'); # 6 -is(-S "$a", -S "$b", '-S'); # 7 -is(-T "$a", -T "$b", '-T'); # 8 -is(-W "$a", -W "$b", '-W'); # 9 -is(-X "$a", -X "$b", '-X'); # 10 -is(-b "$a", -b "$b", '-b'); # 11 -is(-c "$a", -c "$b", '-c'); # 12 -is(-d "$a", -d "$b", '-d'); # 13 -is(-e "$a", -e "$b", '-e'); # 14 -is(-f "$a", -f "$b", '-f'); # 15 -is(-g "$a", -g "$b", '-g'); # 16 -is(-k "$a", -k "$b", '-k'); # 17 -is(-l "$a", -l "$b", '-l'); # 18 -is(-o "$a", -o "$b", '-o'); # 19 -is(-p "$a", -p "$b", '-p'); # 20 -is(-r "$a", -r "$b", '-r'); # 21 -is(-s "$a", -s "$b", '-s'); # 22 -is(-t "$a", -t "$b", '-t'); # 23 -is(-u "$a", -u "$b", '-u'); # 24 -is(-w "$a", -w "$b", '-w'); # 25 -is(-x "$a", -x "$b", '-x'); # 26 -is(-z "$a", -z "$b", '-z'); # 27 -my (@astat, @bstat); -@astat = stat("$a"); -@bstat = stat("$b"); -# dev and inode can legally change -shift(@astat); shift(@astat); -shift(@bstat); shift(@bstat); -is(join(" ",@astat),join(" ",@bstat),"stat()"); -`rm -f $a`; diff --git a/perl/test/getdir.t b/perl/test/getdir.t deleted file mode 100644 index 1d60561..0000000 --- a/perl/test/getdir.t +++ /dev/null @@ -1,33 +0,0 @@ -#!/usr/bin/perl -use test::helper qw($_real $_point); -use Test::More; -my (@names) = qw(abc def ghi jkl mno pqr stu jlk sfdaljk sdfakjlsdfa kjldsf kjl;sdf akjl;asdf klj;asdf lkjsdflkjsdfkjlsdfakjsdfakjlsadfkjl;asdfklj;asdfkjl;asdfklj;asdfkjl;asdfkjlasdflkj;sadf); -@names = sort(@names); -plan tests => 2 * scalar @names; -chdir($_real); - -# create entries -map { system("touch \"$_\"") } @names; - -# make sure they exist in real dir -opendir(REAL,$_real); -my (@ents) = readdir(REAL); -closedir(REAL); -@ents = sort(@ents); -map { - shift(@ents) while($ents[0] eq '.' || $ents[0] eq '..'); - is(shift(@ents),$_,"ent $_") -} @names; - -# make sure they exist in fuse dir -opendir(POINT,$_point); -@ents = readdir(POINT); -closedir(POINT); -@ents = sort(@ents); -map { - shift(@ents) while($ents[0] eq '.' || $ents[0] eq '..'); - is(shift(@ents),$_,"ent $_") -} @names; - -# remove them -map { unlink } @names; diff --git a/perl/test/helper.pm b/perl/test/helper.pm deleted file mode 100644 index cd2bd55..0000000 --- a/perl/test/helper.pm +++ /dev/null @@ -1,23 +0,0 @@ -#!/usr/bin/perl -package test::helper; -use strict; -use Exporter; -our ($VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS); -@ISA = "Exporter"; -@EXPORT_OK = qw($_loop $_point $_pidfile $_real); -our($_loop, $_point, $_pidfile, $_real) = ("examples/loopback.pl","/mnt","test/s/mounted.pid","/tmp/fusetest"); -if($0 !~ qr|s/u?mount\.t$|) { - my ($reject) = 1; - if(-f $_pidfile) { - unless(system("ps `cat $_pidfile` | grep \"$_loop $_point\" >/dev/null")>>8) { - if(`mount | grep "on $_point"`) { - $reject = 0; - } else { - system("kill `cat $_pidfile`"); - } - } - } - $reject = 1 if (system("ls $_point >&/dev/null") >> 8); - die "not properly mounted\n" if $reject; -} -1; diff --git a/perl/test/link.t b/perl/test/link.t deleted file mode 100644 index 391b2f0..0000000 --- a/perl/test/link.t +++ /dev/null @@ -1,16 +0,0 @@ -#!/usr/bin/perl -use test::helper qw($_real $_point); -use Test::More; -plan tests => 8; -chdir($_point); -system("echo hippity >womble"); -ok(-f "womble","exists"); -ok(!-f "rabbit","target file doesn't exist"); -is(-s "womble",8,"right size"); -ok(link("womble","rabbit"),"link"); -ok(-f "womble","old file exists"); -ok(-f "rabbit","target file exists"); -is(-s "womble",8,"right size"); -is(-s "rabbit",8,"right size"); -unlink("womble"); -unlink("rabbit"); diff --git a/perl/test/mkdir.t b/perl/test/mkdir.t deleted file mode 100644 index 90ec6f3..0000000 --- a/perl/test/mkdir.t +++ /dev/null @@ -1,11 +0,0 @@ -#!/usr/bin/perl -use test::helper qw($_real $_point); -use Test::More; -plan tests => 3; -chdir($_point); -ok(mkdir("dir"),"mkdir"); -ok(-d "dir","dir exists"); -chdir($_real); -ok(-d "dir","dir really exists"); -chdir($_point); -rmdir("dir"); diff --git a/perl/test/mknod.t b/perl/test/mknod.t deleted file mode 100644 index 35c5c82..0000000 --- a/perl/test/mknod.t +++ /dev/null @@ -1,37 +0,0 @@ -#!/usr/bin/perl -use test::helper qw($_real $_point); -use Test::More; -plan tests => 24; -my (@stat); -chdir($_point); -ok(!(system("touch reg" )>>8),"create normal file"); -ok(!(system("mknod chr c 2 3")>>8),"create chrdev"); -ok(!(system("mknod blk b 2 3")>>8),"create blkdev"); -ok(!(system("mknod fifo p" )>>8),"create fifo"); -chdir($_real); -ok(-e "reg" ,"normal file exists"); -ok(-e "chr" ,"chrdev exists"); -ok(-e "blk" ,"blkdev exists"); -ok(-e "fifo","fifo exists"); -ok(-f "reg" ,"normal file is normal file"); -ok(-c "chr" ,"chrdev is chrdev"); -ok(-b "blk" ,"blkdev is blkdev"); -ok(-p "fifo","fifo is fifo"); -@stat = stat("chr"); -is($stat[6],3+(2<<8),"chrdev has right major,minor"); -@stat = stat("blk"); -is($stat[6],3+(2<<8),"blkdev has right major,minor"); -chdir($_point); -ok(-e "reg" ,"normal file exists"); -ok(-e "chr" ,"chrdev exists"); -ok(-e "blk" ,"blkdev exists"); -ok(-e "fifo","fifo exists"); -ok(-f "reg" ,"normal file is normal file"); -ok(-c "chr" ,"chrdev is chrdev"); -ok(-b "blk" ,"blkdev is blkdev"); -ok(-p "fifo","fifo is fifo"); -@stat = stat("chr"); -is($stat[6],3+(2<<8),"chrdev has right major,minor"); -@stat = stat("blk"); -is($stat[6],3+(2<<8),"blkdev has right major,minor"); -map { unlink } qw(reg chr blk fifo); diff --git a/perl/test/open.t b/perl/test/open.t deleted file mode 100644 index 030dc1f..0000000 --- a/perl/test/open.t +++ /dev/null @@ -1,10 +0,0 @@ -#!/usr/bin/perl -use test::helper qw($_real $_point); -use Test::More; -plan tests => 1; -chdir($_real); -system("echo frog >file"); -chdir($_point); -ok(open(FILE,"file"),"open"); -close(FILE); -unlink("file"); diff --git a/perl/test/read.t b/perl/test/read.t deleted file mode 100644 index 5eca920..0000000 --- a/perl/test/read.t +++ /dev/null @@ -1,13 +0,0 @@ -#!/usr/bin/perl -use test::helper qw($_real $_point); -use Test::More; -plan tests => 3; -chdir($_real); -system("echo frog >file"); -chdir($_point); -ok(open(FILE,"file"),"open"); -my ($data) = ; -close(FILE); -is(length($data),5,"right amount read"); -is($data,"frog\n","right data read"); -unlink("file"); diff --git a/perl/test/readlink.t b/perl/test/readlink.t deleted file mode 100644 index 85b9ffc..0000000 --- a/perl/test/readlink.t +++ /dev/null @@ -1,11 +0,0 @@ -#!/usr/bin/perl -use test::helper qw($_point $_real); -use Test::More; -plan tests => 4; -chdir($_real); -ok(symlink("abc","def"),"OS supports symlinks"); -is(readlink("def"),"abc","OS supports symlinks"); -chdir($_point); -ok(-l "def","symlink exists"); -is(readlink("def"),"abc","readlink"); -unlink("def"); diff --git a/perl/test/rename.t b/perl/test/rename.t deleted file mode 100644 index 9fbb330..0000000 --- a/perl/test/rename.t +++ /dev/null @@ -1,12 +0,0 @@ -#!/usr/bin/perl -use test::helper qw($_real $_point); -use Test::More; -plan tests => 5; -chdir($_point); -system("echo hippity >frog"); -ok(-f "frog","exists"); -ok(!-f "toad","target file doesn't exist"); -ok(rename("frog","toad"),"rename"); -ok(!-f "frog","old file doesn't exist"); -ok(-f "toad","target file exists"); -unlink("toad"); diff --git a/perl/test/rmdir.t b/perl/test/rmdir.t deleted file mode 100644 index 36f0378..0000000 --- a/perl/test/rmdir.t +++ /dev/null @@ -1,13 +0,0 @@ -#!/usr/bin/perl -use test::helper qw($_real $_point); -use Test::More; -plan tests => 5; -chdir($_real); -ok(mkdir("dir"),"mkdir"); -ok(-d "dir","dir really exists"); -chdir($_point); -ok(-d "dir","dir exists"); -rmdir("dir"); -ok(! -d "dir","dir removed"); -chdir($_real); -ok(! -d "dir","dir really removed"); diff --git a/perl/test/s/mount.t b/perl/test/s/mount.t deleted file mode 100644 index 26f6fc2..0000000 --- a/perl/test/s/mount.t +++ /dev/null @@ -1,25 +0,0 @@ -#!/usr/bin/perl -w -use test::helper qw($_point $_loop $_real $_pidfile); -use strict; -use Test::More tests => 3; -ok(!(scalar grep(/ on $_point /,`cat /proc/mounts`)),"already mounted"); -ok(-f $_loop,"loopback exists"); - -if(!fork()) { - #close(STDIN); - close(STDOUT); - close(STDERR); - `echo $$ >test/s/mounted.pid`; - exec("perl $_loop $_point"); - exit(1); -} -select(undef, undef, undef, 0.5); -my ($success) = `cat /proc/mounts` =~ / $_point /; -ok($success,"mount succeeded"); -system("rm -rf $_real"); -unless($success) { - kill('INT',`cat $_pidfile`); - unlink($_pidfile); -} else { - mkdir($_real); -} diff --git a/perl/test/s/umount.t b/perl/test/s/umount.t deleted file mode 100644 index da60677..0000000 --- a/perl/test/s/umount.t +++ /dev/null @@ -1,7 +0,0 @@ -#!/usr/bin/perl -use test::helper qw($_point $_real $_pidfile); -use strict; -use Test::More tests => 1; -system("umount $_point"); -ok(1,"unmount"); -system("rm -rf $_real $_pidfile"); diff --git a/perl/test/statfs.t b/perl/test/statfs.t deleted file mode 100644 index fb94704..0000000 --- a/perl/test/statfs.t +++ /dev/null @@ -1,21 +0,0 @@ -#!/usr/bin/perl -use test::helper qw($_real $_point); -use Test::More; -require 'syscall.ph'; # for SYS_statfs -plan tests => 7; -my ($statfs_data) = " " x 10; -my ($tmp) = $_point; -ok(!syscall(&SYS_statfs,$tmp,$statfs_data),"statfs"); -# FIXME: this is soooooo linux-centric. perhaps parse the output of /bin/df? -my @list = unpack("LSSL8",$statfs_data); -shift(@list); -is(shift(@list),4096,"block size"); -shift(@list); -is(shift(@list),1000000,"blocks"); -is(shift(@list),500000,"blocks free"); -shift(@list); -is(shift(@list),1000000,"files"); -is(shift(@list),500000,"files free"); -shift(@list); -shift(@list); -is(shift(@list),255,"namelen"); diff --git a/perl/test/symlink.t b/perl/test/symlink.t deleted file mode 100644 index 19cc72d..0000000 --- a/perl/test/symlink.t +++ /dev/null @@ -1,19 +0,0 @@ -#!/usr/bin/perl -use test::helper qw($_point $_real); -use Test::More; -plan tests => 6; -chdir($_point); -ok(symlink("abc","def"),"symlink created"); -ok(-l "def","symlink exists"); -is(readlink("def"),"abc","it worked"); -chdir($_real); -ok(-l "def","symlink really exists"); -is(readlink("def"),"abc","really worked"); -unlink("def"); - -# bug: doing a 'cp -a' on a directory which contains a symlink -# reports an error -mkdir("dira"); -system("cd dira; touch filea; ln -s filea fileb"); -is(system("cp -a dira dirb")>>8,0,"cp -a"); -system("rm -rf dira dirb"); diff --git a/perl/test/test-template b/perl/test/test-template deleted file mode 100644 index ef57e08..0000000 --- a/perl/test/test-template +++ /dev/null @@ -1,5 +0,0 @@ -#!/usr/bin/perl -use test::helper qw($_real $_point); -use Test::More; -plan tests => 1; -ok(1); diff --git a/perl/test/truncate.t b/perl/test/truncate.t deleted file mode 100644 index 8607421..0000000 --- a/perl/test/truncate.t +++ /dev/null @@ -1,12 +0,0 @@ -#!/usr/bin/perl -use test::helper qw($_real $_point); -use Test::More; -plan tests => 5; -chdir($_point); -system("echo hippity >womble"); -ok(-f "womble","exists"); -is(-s "womble",8,"right size"); -ok(truncate("womble",4),"truncate"); -ok(-f "womble","file exists"); -is(-s "womble",4,"right size"); -unlink("womble"); diff --git a/perl/test/unlink.t b/perl/test/unlink.t deleted file mode 100644 index eef8c1a..0000000 --- a/perl/test/unlink.t +++ /dev/null @@ -1,14 +0,0 @@ -#!/usr/bin/perl -use test::helper qw($_real $_point); -use Test::More; -plan tests => 4; -chdir($_point); -system("touch file"); -ok(-f "file","file exists"); -chdir($_real); -ok(-f "file","file really exists"); -chdir($_point); -unlink("file"); -ok(! -f "file","file unlinked"); -chdir($_real); -ok(! -f "file","file really unlinked"); diff --git a/perl/test/utime.t b/perl/test/utime.t deleted file mode 100644 index 8ccefc6..0000000 --- a/perl/test/utime.t +++ /dev/null @@ -1,13 +0,0 @@ -#!/usr/bin/perl -use test::helper qw($_real $_point); -use Test::More; -plan tests => 3; -my (@stat); -chdir($_real); -system("echo frog >file"); -chdir($_point); -ok(utime(1,2,"file"),"set utime"); -@stat = stat("file"); -is($stat[8],1,"atime"); -is($stat[9],2,"mtime"); -unlink("file"); diff --git a/perl/test/write.t b/perl/test/write.t deleted file mode 100644 index 58af2aa..0000000 --- a/perl/test/write.t +++ /dev/null @@ -1,45 +0,0 @@ -#!/usr/bin/perl -use test::helper qw($_real $_point); -use Test::More; -plan tests => 15; -my ($data); -chdir($_point); -undef $/; # slurp it all -# create file -system("echo frogbing >writefile"); - -# fetch contents of file -ok(open(FILE,"writefile"),"open"); -$data = ; -close(FILE); -is(length($data),9,"right amount read"); -is($data,"frogbing\n","right data read"); - -# overwrite part -ok(open(FILE,'+<',"writefile"),"open"); -ok(seek(FILE,2,0),"seek"); -ok(print(FILE "ib"),"print"); -close(FILE); - -# fetch contents of file -ok(open(FILE,"writefile"),"open"); -$data = ; -close(FILE); -is(length($data),9,"right amount read"); -is($data,"fribbing\n","right data read"); - -# overwrite part, append some -ok(open(FILE,'+<',"writefile"),"open"); -ok(seek(FILE,7,0),"seek"); -ok(print(FILE "gle"),"print"); -close(FILE); - -# fetch contents of file -ok(open(FILE,"writefile"),"open"); -$data = ; -close(FILE); -is(length($data),10,"right amount read"); -is($data,"fribbingle","right data read"); - -# kill file -unlink("writefile"); -- 2.30.2