r58250 - in /branches/upstream/libparse-dia-sql-perl/current: Changes MANIFEST MANIFEST.SKIP META.yml TODO lib/Parse/Dia/SQL.pm lib/Parse/Dia/SQL/Output.pm t/961-rt57182-charset.t t/data/non-latin1-chars.dia
gaudenz at users.alioth.debian.org
gaudenz at users.alioth.debian.org
Sat May 22 07:52:53 UTC 2010
Author: gaudenz
Date: Sat May 22 07:52:46 2010
New Revision: 58250
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=58250
Log:
[svn-upgrade] Integrating new upstream version, libparse-dia-sql-perl (0.16)
Added:
branches/upstream/libparse-dia-sql-perl/current/t/961-rt57182-charset.t
branches/upstream/libparse-dia-sql-perl/current/t/data/non-latin1-chars.dia (with props)
Modified:
branches/upstream/libparse-dia-sql-perl/current/Changes
branches/upstream/libparse-dia-sql-perl/current/MANIFEST
branches/upstream/libparse-dia-sql-perl/current/MANIFEST.SKIP
branches/upstream/libparse-dia-sql-perl/current/META.yml
branches/upstream/libparse-dia-sql-perl/current/TODO
branches/upstream/libparse-dia-sql-perl/current/lib/Parse/Dia/SQL.pm
branches/upstream/libparse-dia-sql-perl/current/lib/Parse/Dia/SQL/Output.pm
Modified: branches/upstream/libparse-dia-sql-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libparse-dia-sql-perl/current/Changes?rev=58250&op=diff
==============================================================================
--- branches/upstream/libparse-dia-sql-perl/current/Changes (original)
+++ branches/upstream/libparse-dia-sql-perl/current/Changes Sat May 22 07:52:46 2010
@@ -1,4 +1,9 @@
Revision history for Perl module Parse::Dia::SQL.
+
+0.16 Fri May 21 07:20:43 CEST 2010
+ - RT #57182 Encoding for insert statements in UML components
+ (reported by Gaudenz Steinlin).
+ - Final preparations for debian release.
0.15 Thu Apr 15 22:32:41 CEST 2010
- RT #56357 - Detect Dia database shapes and added
Modified: branches/upstream/libparse-dia-sql-perl/current/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libparse-dia-sql-perl/current/MANIFEST?rev=58250&op=diff
==============================================================================
--- branches/upstream/libparse-dia-sql-perl/current/MANIFEST (original)
+++ branches/upstream/libparse-dia-sql-perl/current/MANIFEST Sat May 22 07:52:46 2010
@@ -100,6 +100,7 @@
t/953-rt53783-postgres.t
t/953-rt53783-sqlite3.t
t/960-rt56357-database-model.t
+t/961-rt57182-charset.t
t/data/association_dia_0_97.dia
t/data/db-model-fk.dia
t/data/db2.pre.dupe.dia
@@ -108,6 +109,7 @@
t/data/long_fk_name.dia
t/data/many_to_many.097.dia
t/data/many_to_many.dia
+t/data/non-latin1-chars.dia
t/data/rt50906.dia
t/data/rt51433.dia
t/data/rt52755.dia
Modified: branches/upstream/libparse-dia-sql-perl/current/MANIFEST.SKIP
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libparse-dia-sql-perl/current/MANIFEST.SKIP?rev=58250&op=diff
==============================================================================
--- branches/upstream/libparse-dia-sql-perl/current/MANIFEST.SKIP (original)
+++ branches/upstream/libparse-dia-sql-perl/current/MANIFEST.SKIP Sat May 22 07:52:46 2010
@@ -37,3 +37,6 @@
# Avoid Devel::Cover files.
\bcover_db\b
+
+# Skip debian directory
+\bdebian\b
Modified: branches/upstream/libparse-dia-sql-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libparse-dia-sql-perl/current/META.yml?rev=58250&op=diff
==============================================================================
--- branches/upstream/libparse-dia-sql-perl/current/META.yml (original)
+++ branches/upstream/libparse-dia-sql-perl/current/META.yml Sat May 22 07:52:46 2010
@@ -1,27 +1,52 @@
--- #YAML:1.0
-name: Parse-Dia-SQL
-version: 0.15
-abstract: Convert Dia class diagrams into SQL.
-license: ~
-author:
+name: Parse-Dia-SQL
+version: 0.16
+abstract: Convert Dia class diagrams into SQL.
+author:
- Andreas Faafeng <aff at cpan.org>
-generated_by: ExtUtils::MakeMaker version 6.42
-distribution_type: module
-requires:
- Data::Dumper: 0
- Digest::MD5: 0
- Fatal: 0
- File::Find: 0
- File::Spec::Functions: 0
- File::Temp: 0
- Getopt::Long: 0
- IO::Uncompress::Gunzip: 0
- Log::Log4perl: 0
- POSIX: 0
- Test::Exception: 0
- Test::More: 0
- Text::Table: 0
- XML::DOM: 0
+license: gpl
+distribution_type: module
+configure_requires:
+ ExtUtils::MakeMaker: 0
+requires:
+ Data::Dumper: 0
+ Digest::MD5: 0
+ Fatal: 0
+ File::Find: 0
+ File::Spec::Functions: 0
+ File::Temp: 0
+ Getopt::Long: 0
+ IO::Uncompress::Gunzip: 0
+ Log::Log4perl: 0
+ POSIX: 0
+ Test::Exception: 0
+ Test::More: 0
+ Text::Table: 0
+ XML::DOM: 0
+resources:
+ repository: http://tedia2sql.tigris.org/source/browse/tedia2sql/
+no_index:
+ directory:
+ - t
+ - inc
+generated_by: ExtUtils::MakeMaker version 6.48
meta-spec:
- url: http://module-build.sourceforge.net/META-spec-v1.3.html
- version: 1.3
+ url: http://module-build.sourceforge.net/META-spec-v1.4.html
+ version: 1.4
+keywords:
+ - Parse
+ - Dia
+ - SQL
+ - DDL
+ - RDBMS
+ - DB2
+ - Informix
+ - Ingres
+ - InnoDB
+ - MyISAM
+ - MySQL
+ - Oracle
+ - Postgres
+ - SQLite3
+ - Sas
+ - Sybase
Modified: branches/upstream/libparse-dia-sql-perl/current/TODO
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libparse-dia-sql-perl/current/TODO?rev=58250&op=diff
==============================================================================
--- branches/upstream/libparse-dia-sql-perl/current/TODO (original)
+++ branches/upstream/libparse-dia-sql-perl/current/TODO Sat May 22 07:52:46 2010
@@ -1,14 +1,17 @@
- $Id: TODO,v 1.14 2010/02/02 20:15:42 aff Exp $
+
+ $Id: TODO,v 1.15 2010/05/04 06:13:28 aff Exp $
+
+- Implement support for Dia's new Database shape.
- Warn if there are typemaps for databases in the model that are not
used to generate output.
-- Add general support for synonyms (replace hack in
+- Add general support for synonyms (replace hack in
Parse::Dia::SQL::Utils::get_base_type).
- Support index options on individual indices.
-- Add test for missing FK (formerly fkNamesFromAttList)
+- Add test for missing FK (formerly fkNamesFromAttList)
- Add support for loading statements from external files.
@@ -16,7 +19,7 @@
- Warn attempts to create index on non-existent columns
-- Add option tablespace to create statements.
+- Add option tablespace to create statements.
- Add $VERSION to all modules.
@@ -28,8 +31,8 @@
- verify create table,view,index,constraint syntax
- verify drop table,view,index,constraint syntax
-- Parse::Dia::SQL::Output::MySQL
- - sub _get_create_table_sql must handle AUTO_INCREMENT
+- Parse::Dia::SQL::Output::MySQL
+ - sub _get_create_table_sql must handle AUTO_INCREMENT
- Download DDL's from http://tedia2sql.tigris.org/ and
ensure Parse::Dia::SQL produces roughly the same code.
Modified: branches/upstream/libparse-dia-sql-perl/current/lib/Parse/Dia/SQL.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libparse-dia-sql-perl/current/lib/Parse/Dia/SQL.pm?rev=58250&op=diff
==============================================================================
--- branches/upstream/libparse-dia-sql-perl/current/lib/Parse/Dia/SQL.pm (original)
+++ branches/upstream/libparse-dia-sql-perl/current/lib/Parse/Dia/SQL.pm Sat May 22 07:52:46 2010
@@ -1,6 +1,6 @@
package Parse::Dia::SQL;
-# $Id: SQL.pm,v 1.51 2010/04/15 20:41:00 aff Exp $
+# $Id: SQL.pm,v 1.52 2010/05/21 05:25:11 aff Exp $
=pod
@@ -190,7 +190,7 @@
use Parse::Dia::SQL::Output::Sybase;
use Parse::Dia::SQL::Output::SQLite3;
-our $VERSION = '0.15';
+our $VERSION = '0.16';
my $UML_ASSOCIATION = 'UML - Association';
my $UML_SMALLPACKAGE = 'UML - SmallPackage';
Modified: branches/upstream/libparse-dia-sql-perl/current/lib/Parse/Dia/SQL/Output.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libparse-dia-sql-perl/current/lib/Parse/Dia/SQL/Output.pm?rev=58250&op=diff
==============================================================================
--- branches/upstream/libparse-dia-sql-perl/current/lib/Parse/Dia/SQL/Output.pm (original)
+++ branches/upstream/libparse-dia-sql-perl/current/lib/Parse/Dia/SQL/Output.pm Sat May 22 07:52:46 2010
@@ -1,6 +1,6 @@
package Parse::Dia::SQL::Output;
-# $Id: Output.pm,v 1.31 2010/04/16 05:13:08 aff Exp $
+# $Id: Output.pm,v 1.32 2010/05/21 05:19:36 aff Exp $
=pod
@@ -31,6 +31,7 @@
use warnings;
use strict;
+use open qw/:std :utf8/;
use Text::Table;
use Data::Dumper;
Added: branches/upstream/libparse-dia-sql-perl/current/t/961-rt57182-charset.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libparse-dia-sql-perl/current/t/961-rt57182-charset.t?rev=58250&op=file
==============================================================================
--- branches/upstream/libparse-dia-sql-perl/current/t/961-rt57182-charset.t (added)
+++ branches/upstream/libparse-dia-sql-perl/current/t/961-rt57182-charset.t Sat May 22 07:52:46 2010
@@ -1,0 +1,60 @@
+
+# $Id: 960-rt56357-database-model.t,v 1.2 2010/04/10 12:58:16 aff Exp $
+
+use warnings;
+use strict;
+
+use locale;
+use Data::Dumper;
+use Test::More;
+use Test::Exception;
+use File::Spec::Functions;
+use lib catdir qw ( blib lib );
+
+plan tests => 6;
+
+use lib q{lib};
+use_ok ('Parse::Dia::SQL');
+
+my $diasql =
+ Parse::Dia::SQL->new(file => catfile(qw(t data non-latin1-chars.dia)), db => 'postgres');
+isa_ok($diasql, q{Parse::Dia::SQL}, q{Expect a Parse::Dia::SQL object});
+can_ok($diasql, q{get_sql});
+
+my $sql = undef;
+lives_ok(
+ sub { $sql = $diasql->get_sql() },
+ q{get_sql should live on supported model type 'Database - Table'}
+ );
+
+my $components = $diasql->get_components_ref();
+# diag(Dumper($components));
+
+my $expected = [
+ {
+ 'text' => "'fjallg\x{f6}nguma\x{f0}ur'",
+ 'name' => 'words'
+ }
+ ];
+
+is_deeply($components, $expected, q{Expect arrayref with text/name hash pairs});
+
+my $outputter = $diasql->get_output_instance();
+my $inserts = $outputter->get_inserts();
+
+like($inserts, qr/.* fjallg\x{f6}nguma\x{f0}ur .*/x, q{Icelandic word for mountaineer});
+
+#diag $inserts;
+#print $inserts;
+
+__END__
+
+
+=pod
+
+=head1 DESCRIPTION
+
+ https://rt.cpan.org/Public/Bug/Display.html?id=57182
+
+=cut
+
Added: branches/upstream/libparse-dia-sql-perl/current/t/data/non-latin1-chars.dia
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libparse-dia-sql-perl/current/t/data/non-latin1-chars.dia?rev=58250&op=file
==============================================================================
Binary file - no diff available.
Propchange: branches/upstream/libparse-dia-sql-perl/current/t/data/non-latin1-chars.dia
------------------------------------------------------------------------------
svn:mime-type = application/octet-stream
More information about the Pkg-perl-cvs-commits
mailing list