From eb54624f9363dd6a6b8d82d909ede265763dd3a7 Mon Sep 17 00:00:00 2001
From: Patrick Meidl <pm2@sanger.ac.uk>
Date: Tue, 13 Feb 2007 11:18:44 +0000
Subject: [PATCH] no longer used
---
misc-scripts/test/orphans_and_dangles.pl | 73 ------------------------
1 file changed, 73 deletions(-)
delete mode 100644 misc-scripts/test/orphans_and_dangles.pl
diff --git a/misc-scripts/test/orphans_and_dangles.pl b/misc-scripts/test/orphans_and_dangles.pl
deleted file mode 100644
index 40ab0f5b94..0000000000
--- a/misc-scripts/test/orphans_and_dangles.pl
+++ /dev/null
@@ -1,73 +0,0 @@
-use DBI;
-use strict;
-use IO::File;
-use Data::Dumper;
-
-my $db = DBI->connect( "dbi:mysql:host=ecs1c;database=arne_main_29", "ensro","" );
-my $count;
-
-
-# exon_transcript without exon ?
-orphan( $db, "exon", "exon_id", "exon_transcript", "exon_id" );
-orphan( $db, "exon_transcript", "exon_id", "exon", "exon_id" );
-orphan( $db, "exon", "exon_id", "exon_stable_id", "exon_id" );
-orphan( $db, "exon_stable_id", "exon_id", "exon", "exon_id" );
-
-
-orphan( $db, "transcript", "transcript_id", "exon_transcript", "transcript_id" );
-orphan( $db, "exon_transcript", "transcript_id", "transcript", "transcript_id" );
-orphan( $db, "transcript", "transcript_id", "transcript_stable_id", "transcript_id" );
-orphan( $db, "transcript_stable_id", "transcript_id", "transcript", "transcript_id" );
-
-orphan( $db, "translation", "translation_id", "transcript", "translation_id" );
-orphan( $db, "transcript", "translation_id", "translation", "translation_id" );
-
-orphan( $db, "translation", "translation_id", "translation_stable_id", "translation_id" );
-orphan( $db, "translation_stable_id", "translation_id", "translation", "translation_id" );
-
-
-orphan( $db, "gene", "gene_id", "gene_stable_id", "gene_id" );
-orphan( $db, "gene_stable_id", "gene_id", "gene", "gene_id" );
-
-orphan( $db, "gene", "gene_id", "transcript", "gene_id" );
-orphan( $db, "transcript", "gene_id", "gene", "gene_id" );
-
-orphan( $db, "object_xref", "xref_id", "xref", "xref_id" );
-
-# very slow, now xref index on obejctXref
-# orphan( $db, "Xref", "xrefId", "objectXref", "xrefId" );
-
-
-exit;
-
-$count = $db->selectall_array
- ( q{
-
- }
- );
-print STDERR "$count\n";
-
-
-sub orphan {
- my ( $db, $table1, $col1, $table2, $col2 ) = @_;
- print STDERR "Checking $table1 against $table2\n";
-
- my $count = $db->selectrow_array
- ( qq{
- select count(*)
- from $table1
- left join $table2
- on $table1.$col1 = $table2.$col2
- where $table2.$col2 is null
- }
- );
-
- if( $count > 0 ) {
- print STDERR "$count orphans on $table1, $table2\n";
- } else {
- print STDERR "Ok\n";
- }
-
-}
-
-
--
GitLab