connection made in lua needs auth

For #39

Author: alicebob

cmd_connection_test.go

@@ -14,14 +14,14 @@ func TestAuth(t *testing.T) {
 	ok(t, err)
 
 	_, err = c.Do("AUTH", "foo", "bar")
-	assert(t, err != nil, "no password set")
+	mustFail(t, err, "ERR wrong number of arguments for 'auth' command")
 
 	s.RequireAuth("nocomment")
 	_, err = c.Do("PING", "foo", "bar")
-	assert(t, err != nil, "need AUTH")
+	mustFail(t, err, "NOAUTH Authentication required.")
 
 	_, err = c.Do("AUTH", "wrongpasswd")
-	assert(t, err != nil, "wrong password")
+	mustFail(t, err, "ERR invalid password")
 
 	_, err = c.Do("AUTH", "nocomment")
 	ok(t, err)

cmd_scripting_test.go

@@ -495,3 +495,26 @@ func TestCmdEvalResponse(t *testing.T) {
 		equals(t, []interface{}{nil, nil}, v)
 	}
 }
+
+func TestCmdEvalAuth(t *testing.T) {
+	s, err := Run()
+	ok(t, err)
+	defer s.Close()
+
+	c, err := redis.Dial("tcp", s.Addr())
+	ok(t, err)
+	defer c.Close()
+
+	eval := "return redis.call('set','foo','bar')"
+
+	s.RequireAuth("123password")
+
+	_, err = c.Do("EVAL", eval, 0)
+	mustFail(t, err, "NOAUTH Authentication required.")
+
+	_, err = c.Do("AUTH", "123password")
+	ok(t, err)
+
+	_, err = c.Do("EVAL", eval, 0)
+	ok(t, err)
+}

miniredis.go

@@ -244,7 +244,13 @@ func (m *Miniredis) FastForward(duration time.Duration) {
 func (m *Miniredis) redigo() redigo.Conn {
 	c1, c2 := net.Pipe()
 	m.srv.ServeConn(c1)
-	return redigo.NewConn(c2, 0, 0)
+	c := redigo.NewConn(c2, 0, 0)
+	if m.password != "" {
+		if _, err := c.Do("AUTH", m.password); err != nil {
+			// ?
+		}
+	}
+	return c
 }
 
 // Dump returns a text version of the selected DB, usable for debugging.