This is an automated email from the git hooks/post-receive script. gregoa pushed a commit to branch master in repository libxray-spacegroup-perl.
commit 5c6950031cdd3dba68ec2c7ce369468544e65803 Author: Carlo Segre <[email protected]> Date: Mon Mar 2 21:10:37 2009 -0600 Imported Debian patch 0.1.1-1 --- debian/changelog | 12 ++++ debian/compat | 1 + debian/control | 19 ++++++ debian/copyright | 17 +++++ debian/dirs | 1 + debian/patches/modify-test-script | 131 ++++++++++++++++++++++++++++++++++++++ debian/patches/series | 1 + debian/rules | 83 ++++++++++++++++++++++++ 8 files changed, 265 insertions(+) diff --git a/debian/changelog b/debian/changelog new file mode 100644 index 0000000..d37e89a --- /dev/null +++ b/debian/changelog @@ -0,0 +1,12 @@ +libxray-spacegroup-perl (0.1.1-1) unstable; urgency=low + + * Initial release (Closes: #517947) + + -- Carlo Segre <[email protected]> Mon, 02 Mar 2009 21:10:37 -0600 + +libxray-spacegroup-perl (0.1.0-1) unstable; urgency=low + + * Initial unofficial release + + -- Carlo Segre <[email protected]> Sun, 27 Jul 2008 11:20:32 -0500 + diff --git a/debian/compat b/debian/compat new file mode 100644 index 0000000..7f8f011 --- /dev/null +++ b/debian/compat @@ -0,0 +1 @@ +7 diff --git a/debian/control b/debian/control new file mode 100644 index 0000000..49c182c --- /dev/null +++ b/debian/control @@ -0,0 +1,19 @@ +Source: libxray-spacegroup-perl +Section: perl +Priority: optional +Build-Depends: debhelper (>= 7), quilt +Build-Depends-Indep: perl (>= 5.8.8), perl-modules, libreadonly-perl, + libregexp-optimizer-perl, liblist-moreutils-perl, libclass-std-perl +Maintainer: Carlo Segre <[email protected]> +Standards-Version: 3.8.0 +Homepage: http://cars9.uchicago.edu/~ravel/software/ + +Package: libxray-spacegroup-perl +Architecture: all +Depends: ${perl:Depends}, ${misc:Depends}, perl-modules, libreadonly-perl, + libregexp-optimizer-perl, liblist-moreutils-perl, libclass-std-perl +Homepage: http://cars9.uchicago.edu/~ravel/software/ +Description: symmetry operations for the crystal space groups + This module provides an object-oriented interface to a database of + space group symmetries transcribed from volume A of the International + Tables of Crystallography. diff --git a/debian/copyright b/debian/copyright new file mode 100644 index 0000000..76fd42b --- /dev/null +++ b/debian/copyright @@ -0,0 +1,17 @@ +This package was debianized by Carlo Segre <[email protected]> on +Sat, 26 Jul 2008 18:19:32 -0500. + +It was downloaded from http://cars9.uchicago.edu/svn/libperlxray + +Upstream Author: Bruce Ravel <[email protected]> + +Copyright (c) 1999-2008 Bruce Ravel + +License: + +All rights reserved. This program is free software; you can +redistribute it and/or modify it under the same terms as Perl +itself, see `/usr/share/common-licenses/Artistic'. + +The Debian packaging is (C) 2008, Carlo Segre <[email protected]> and +is licensed under the GPL, see `/usr/share/common-licenses/GPL-2'. diff --git a/debian/dirs b/debian/dirs new file mode 100644 index 0000000..dd222db --- /dev/null +++ b/debian/dirs @@ -0,0 +1 @@ +usr/share diff --git a/debian/patches/modify-test-script b/debian/patches/modify-test-script new file mode 100644 index 0000000..ce2b9a9 --- /dev/null +++ b/debian/patches/modify-test-script @@ -0,0 +1,131 @@ +--- a/t/test.t ++++ b/t/test.t +@@ -1,64 +1,83 @@ +-#!/usr/bin/perl -I../blib/lib/ ++#!/usr/bin/perl -w ## -*- cperl -*- ++ ++# Before `make install' is performed this script should be runnable with ++# `make test'. After `make install' it should work as `perl test.pl' + +-use Test::Simple tests => 19; ++######################### We start with some black magic to print on failure. + ++# Change 1..1 below to 1..last_test_to_print . ++# (It may become useful if the test is moved to ./t subdirectory.) ++ ++BEGIN { $| = 1; print "1..1$/"; } ++END {print "not ok 1$/" unless $loaded;} + use Xray::SpaceGroup; ++$loaded = 1; ++print "ok 1$/"; ++ ++######################### End of black magic. ++# Comment out all old tests (CUS 2008/07/27) ++ ++#!/usr/bin/perl -I../blib/lib/ ++ ++#use Test::Simple tests => 19; ++ ++#use Xray::SpaceGroup; + + ############################################################ + ## Tests of extracting information from the database +-my $sg = Xray::SpaceGroup -> new({group=>'pc'}); +-ok($sg->group eq 'p c', "canonicalize space group"); +-ok($sg->given eq 'pc', "given group retained"); +-ok($sg->schoenflies eq 'c_s^2', "obtain schoenflies symbol"); +-ok($sg->class eq 'monoclinic', "obtain crystal class"); +-ok($sg->setting eq 'b_unique_1', "crystal setting"); +- +-my @positions = $sg->positions; +-my ($x, $y, $z) = (0.2, 0.3, 0.4); +-my @pos1 = (eval "$positions[1]->[0]", +- eval "$positions[1]->[1]", +- eval "$positions[1]->[2]" ); # ("$x", "-$y", "$z+1/2") +-ok($pos1[0] == 0.2 && $pos1[1] == -0.3 && $pos1[2] == 0.9, "compute from positions"); +- +-$sg = Xray::SpaceGroup -> new({group=>'f d -3 m'}); +-my @list = $sg->bravais; +-ok($#list == 8, "obtain Bravais translations"); +- +-$sg = Xray::SpaceGroup -> new({group=>'f d -3 m'}); +-@list = $sg->positions; +-ok($#list == 47, "obtain positions"); ++#my $sg = Xray::SpaceGroup -> new({group=>'pc'}); ++#ok($sg->group eq 'p c', "canonicalize space group"); ++#ok($sg->given eq 'pc', "given group retained"); ++#ok($sg->schoenflies eq 'c_s^2', "obtain schoenflies symbol"); ++#ok($sg->class eq 'monoclinic', "obtain crystal class"); ++#ok($sg->setting eq 'b_unique_1', "crystal setting"); ++ ++#my @positions = $sg->positions; ++#my ($x, $y, $z) = (0.2, 0.3, 0.4); ++#my @pos1 = (eval "$positions[1]->[0]", ++# eval "$positions[1]->[1]", ++# eval "$positions[1]->[2]" ); # ("$x", "-$y", "$z+1/2") ++#ok($pos1[0] == 0.2 && $pos1[1] == -0.3 && $pos1[2] == 0.9, "compute from positions"); ++ ++#$sg = Xray::SpaceGroup -> new({group=>'f d -3 m'}); ++#my @list = $sg->bravais; ++#ok($#list == 8, "obtain Bravais translations"); ++ ++#$sg = Xray::SpaceGroup -> new({group=>'f d -3 m'}); ++#@list = $sg->positions; ++#ok($#list == 47, "obtain positions"); + + ############################################################ + ## Tests of parsing space group symbols +-$sg = Xray::SpaceGroup -> new({group=>'pm3m'}); +-ok($sg->group eq 'p m -3 m', "no spaces in symbol"); ++#$sg = Xray::SpaceGroup -> new({group=>'pm3m'}); ++#ok($sg->group eq 'p m -3 m', "no spaces in symbol"); + +-$sg = Xray::SpaceGroup -> new({group=>'Pm3M'}); +-ok($sg->group eq 'p m -3 m', "mixed case in symbol"); ++#$sg = Xray::SpaceGroup -> new({group=>'Pm3M'}); ++#ok($sg->group eq 'p m -3 m', "mixed case in symbol"); + +-$sg = Xray::SpaceGroup -> new({group=>'p m 3 m'}); +-ok($sg->group eq 'p m -3 m', "lots of spaces in symbol"); ++#$sg = Xray::SpaceGroup -> new({group=>'p m 3 m'}); ++#ok($sg->group eq 'p m -3 m', "lots of spaces in symbol"); + +-$sg = Xray::SpaceGroup -> new({group=>"pm\t3 \t m"}); +-ok($sg->group eq 'p m -3 m', "tabs in symbol"); ++#$sg = Xray::SpaceGroup -> new({group=>"pm\t3 \t m"}); ++#ok($sg->group eq 'p m -3 m', "tabs in symbol"); + +-$sg = Xray::SpaceGroup -> new({group=>'o_h^1'}); +-ok($sg->group eq 'p m -3 m', "shoenflies forward"); ++#$sg = Xray::SpaceGroup -> new({group=>'o_h^1'}); ++#ok($sg->group eq 'p m -3 m', "shoenflies forward"); + +-$sg = Xray::SpaceGroup -> new({group=>'o^1_h'}); +-ok($sg->group eq 'p m -3 m', "shoenflies backward"); ++#$sg = Xray::SpaceGroup -> new({group=>'o^1_h'}); ++#ok($sg->group eq 'p m -3 m', "shoenflies backward"); + +-$sg = Xray::SpaceGroup -> new({group=>'perovskite'}); +-ok($sg->group eq 'p m -3 m', "nickname"); ++#$sg = Xray::SpaceGroup -> new({group=>'perovskite'}); ++#ok($sg->group eq 'p m -3 m', "nickname"); + +-$sg = Xray::SpaceGroup -> new({group=>221}); +-ok($sg->group eq 'p m -3 m', "number"); ++#$sg = Xray::SpaceGroup -> new({group=>221}); ++#ok($sg->group eq 'p m -3 m', "number"); + +-$sg = Xray::SpaceGroup -> new({group=>'p 4/m -3 2/m'}); +-ok($sg->group eq 'p m -3 m', "full symbol"); ++#$sg = Xray::SpaceGroup -> new({group=>'p 4/m -3 2/m'}); ++#ok($sg->group eq 'p m -3 m', "full symbol"); + +-$sg = Xray::SpaceGroup -> new({group=>'p4/ m -3 2 /m'}); +-ok($sg->group eq 'p m -3 m', "full symbol, weird spacing"); ++#$sg = Xray::SpaceGroup -> new({group=>'p4/ m -3 2 /m'}); ++#ok($sg->group eq 'p m -3 m', "full symbol, weird spacing"); + +-$sg = Xray::SpaceGroup -> new({group=>'p 6_3 m c'}); +-ok($sg->group eq 'p 63 m c', "underscore for subscript"); ++#$sg = Xray::SpaceGroup -> new({group=>'p 6_3 m c'}); ++#ok($sg->group eq 'p 63 m c', "underscore for subscript"); diff --git a/debian/patches/series b/debian/patches/series new file mode 100644 index 0000000..0e3c44b --- /dev/null +++ b/debian/patches/series @@ -0,0 +1 @@ +modify-test-script diff --git a/debian/rules b/debian/rules new file mode 100755 index 0000000..f9aca66 --- /dev/null +++ b/debian/rules @@ -0,0 +1,83 @@ +#!/usr/bin/make -f +# This debian/rules file is provided as a template for perl packages +# using the Module::Build system. It was written by Carlo Segre and +# may be freely used. + +# Uncomment this to turn on verbose mode. +#export DH_VERBOSE=1 + +# Uncomment if patches required +include /usr/share/quilt/quilt.make + +# If set to a true value then MakeMaker's prompt function will +# always return the default without waiting for user input. +export PERL_MM_USE_DEFAULT=1 + +PACKAGE=$(shell dh_listpackages) + +ifndef PERL +PERL = /usr/bin/perl +endif + +TMP = $(CURDIR)/debian/$(PACKAGE) + +build: build-stamp + +# Use "build-stamp: $(QUILT_STAMPFN)" if patches required +build-stamp: $(QUILT_STAMPFN) + dh_testdir + + # Generate the Build script and run it + $(PERL) Build.PL destdir=$(TMP) + ./Build build + ./Build test + touch $@ + +# Use "clean: unpatch" if patches required +clean: unpatch + dh_testdir + dh_testroot + + dh_clean build-stamp install-stamp + + # Clean up all directories and the Build script + [ ! -f Build ] || ./Build realclean + +install: install-stamp +install-stamp: build-stamp + dh_testdir + dh_testroot + dh_prep + + # Install package in temporary directory + ./Build install --installdirs vendor + # remove .packlist + rm -rf $(TMP)/usr/lib/perl5/auto + # remove empty dirs if they exist + [ ! -d $(TMP)/usr/bin ] || rmdir --parents --ignore-fail-on-non-empty --verbose $(TMP)/usr/bin + [ ! -d $(TMP)/usr/lib/perl5 ] || rmdir --parents --ignore-fail-on-non-empty --verbose $(TMP)/usr/lib/perl5 + + touch $@ + +binary-arch: +# We have nothing to do here for an architecture-dependent package + +binary-indep: build install + dh_testdir + dh_testroot + dh_installexamples + dh_installdocs + dh_installchangelogs + dh_perl + dh_compress + dh_fixperms + dh_installdeb + dh_gencontrol + dh_md5sums + dh_builddeb + +source diff: + @echo >&2 'source and diff are obsolete - use dpkg-source -b'; false + +binary: binary-indep binary-arch +.PHONY: build clean binary-indep binary-arch binary -- Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libxray-spacegroup-perl.git _______________________________________________ Pkg-perl-cvs-commits mailing list [email protected] http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits
