[Oracle] Sqitch does not detect missing schema

[vectro]

Steps to reproduce:

1. Run sqitch deploy --registry xxx, where xxx is a schema that does not exist on the target database; and where there is a sqitch registry in the connecting user's schema.

Expected behavior:

• Sqitch would report an error and take no action.

Actual behavior:

• Sqitch will query the registry in the connecting user's schema instead.

[theory]

Odd. Can you apply this patch, try again, and send me the output?

--- a/lib/App/Sqitch/Command/deploy.pm
+++ b/lib/App/Sqitch/Command/deploy.pm
@@ -114,6 +114,7 @@ sub execute {
 
     # Warn on multiple targets.
     my $target = shift @{ $targets };
+    say 'Registry: ', $target->registry;
     $self->warn(__x(
         'Too many targets specified; connecting to {target}',
         target => $target->name,

[vectro]

with --registry does_not_exist, I see

Registry: does_not_exist
Nothing to deploy (already at "first-change")

[theory]

Oh interesting!

[theory]

Oh I see what's happening. Sqitch attempts to set the schema path on connect, but doesn't fail if the schema doesn't exist, on the assumption that it will be created and set on the first deploy.

sqitch/lib/App/Sqitch/Engine/oracle.pm

Lines 112 to 118 in f2fb8f8

	if (my $schema = $self->registry) {
	try {
	$dbh->do("ALTER SESSION SET CURRENT_SCHEMA = $schema");
	# https://www.nntp.perl.org/group/perl.dbi.dev/2013/11/msg7622.html
	$dbh->set_err(undef, undef) if $dbh->err;
	};
	}

And since you're not doing a deploy, it just defaults to the current schema. It seems as though you previously used the same schema for your own database object and for Sqitch, yes? This usually doesn't fail because the ideal is to use a separate schema for the registry, and you don't specify (or default to) the registry for your target.

So my short answer is "don't use your own schema for the registry".

The longer response is…I'm not sure this is something that'd be easy to change.

[vectro]

Hmm, in Oracle at least I wouldn't expect Sqitch to automatically create the registry schema.

That is because in Oracle there is an isomorphism between schemas and users, and to me creating users is something that shouldn't be done implicitly.

Do we rely on this error-swallowing functionality?

[theory]

Yep:

sqitch/lib/App/Sqitch/Engine/oracle.pm

Lines 112 to 118 in ef7767d

	if (my $schema = $self->registry) {
	try {
	$dbh->do("ALTER SESSION SET CURRENT_SCHEMA = $schema");
	# https://www.nntp.perl.org/group/perl.dbi.dev/2013/11/msg7622.html
	$dbh->set_err(undef, undef) if $dbh->err;
	};
	}

It gets created here:

sqitch/lib/App/Sqitch/Engine/oracle.pm

Lines 461 to 464 in ef7767d

	(my $file = file(__FILE__)->dir->file('oracle.sql')) =~ s/"/""/g;
	$self->_run_with_verbosity($file);
	$self->dbh->do("ALTER SESSION SET CURRENT_SCHEMA = $schema") if $schema;
	$self->_register_release;

But the Oracle registry script doesn't create the schema (user). Instead, according to the tutorial, it just uses the current schema. From the tutorial:

First Sqitch created the registry tables used to track database changes. The structure and name of the registry varies between databases, but in Oracle they are simply stored in the current schema -- that is, the schema with the same name as the user you've connected as. In this example, that schema is scott. Ideally, only Sqitch data will be stored in this schema, so it probably makes the most sense to create a superuser named sqitch or something similar and use it to deploy changes.

[theory]

I just worked through it all again, committing 8be3608 to improve the consistency of handling the registry username. But I still can't work out how this is happening, unless it's not capturing some errors somewhere. Would you try again with this patch, please?

--- a/lib/App/Sqitch/Engine/oracle.pm
+++ b/lib/App/Sqitch/Engine/oracle.pm
@@ -459,8 +459,11 @@ sub initialize {
 
     # Load up our database.
     (my $file = file(__FILE__)->dir->file('oracle.sql')) =~ s/"/""/g;
+    say "Initialize $schema";
     $self->_run_with_verbosity($file);
+    say "Set session to $schema";
     $self->dbh->do("ALTER SESSION SET CURRENT_SCHEMA = $schema") if $schema;
+    say "Register release in $schema";
     $self->_register_release;
 }
 
@@ -742,6 +745,7 @@ sub _script {
 sub _run {
     my $self = shift;
     my $script = $self->_script(@_);
+    say "Run $script";
     open my $fh, '<:utf8_strict', \$script;
     return $self->sqitch->spool( $fh, $self->sqlplus );
 }
@@ -749,6 +753,7 @@ sub _run {
 sub _capture {
     my $self = shift;
     my $conn = $self->_script(@_);
+    say "Capture $conn";
     my @out;
 
     require IPC::Run3;

[vectro]

So, this might be frustrating, but that patch does not result in any extra output. Presumably because Sqitch does not detect that schema initialization is needed?

[theory]

No output at all? Weird. What happens if you try to print the schema name in initialized()?